git.iko.soy/streamly
on master help sign in
Make minor cosmetic review changes for #571
287c3a3Harendra Kumar
Changelog.md+2−2
compare with master
unifiedsplit
@@ -2,8 +2,8 @@
2
2
3### Breaking changes
3### Breaking changes
4
4
5−* Change the signature of `foldlM'` to ensure that the accumulator is
5+* Change the signature of `foldlM'` to make the initial value of the
6− monadic.
6+ accumulator monadic.
7
7
8### Bug Fixes
8### Bug Fixes
9
9
examples/WordCount.hs+1−2
@@ -603,8 +603,7 @@ countArray src = do
603{-# INLINE wc_mwl_parallel #-}
603{-# INLINE wc_mwl_parallel #-}
604wc_mwl_parallel :: Handle -> Int -> IO (V.IOVector Int)
604wc_mwl_parallel :: Handle -> Int -> IO (V.IOVector Int)
605wc_mwl_parallel src n = do
605wc_mwl_parallel src n = do
606− let counts = newCounts
607− S.foldlM' addCounts counts
606+ S.foldlM' addCounts newCounts
608 $ S.aheadly
607 $ S.aheadly
609 $ S.maxThreads numCapabilities
608 $ S.maxThreads numCapabilities
610 $ S.mapM (countArray)
609 $ S.mapM (countArray)
src/Streamly/Internal/Memory/ArrayStream.hs+1−1
@@ -163,7 +163,7 @@ spliceArraysLenUnsafe len buffered = do
163
163
164 where
164 where
165
165
166− writeArr dst Array{..} = do
166+ writeArr dst Array{..} =
167 liftIO $ withForeignPtr aStart $ \src -> do
167 liftIO $ withForeignPtr aStart $ \src -> do
168 let count = aEnd `minusPtr` src
168 let count = aEnd `minusPtr` src
169 A.memcpy (castPtr dst) (castPtr src) count
169 A.memcpy (castPtr dst) (castPtr src) count