9536cc7 · streamly · git.iko.soy

git.iko.soy/streamly

Rename Fold.lchunksOf2 to Fold.chunksOf2

commit9536cc767cac6a0f45df335619e7ca08db0e36cf authorAdithya Kumar <adithya@composewell.com> dateFri 15 Jan 2021, 17:36 (6 years ago) parent32e519c

2 files changed+5−5

unifiedsplit

src/Streamly/Internal/Data/Fold/Types.hs+4−4

@@ -203,7 +203,7 @@ module Streamly.Internal.Data.Fold.Types

203203 , many

204204 , lsessionsOf

205205 , lchunksOf

206− , lchunksOf2

206+ , chunksOf2

207207

208208 , duplicate

209209 , initialize

@@ -875,9 +875,9 @@ many (Fold cstep cinitial cextract) (Fold sstep sinitial sextract) =

875875lchunksOf :: Monad m => Int -> Fold m a b -> Fold m b c -> Fold m a c

876876lchunksOf n split collect = many collect (takeLE n split)

877877

878−{-# INLINE lchunksOf2 #-}

879−lchunksOf2 :: Monad m => Int -> Fold m a b -> Fold2 m x b c -> Fold2 m x a c

880−lchunksOf2 n (Fold step1 initial1 extract1) (Fold2 step2 inject2 extract2) =

878+{-# INLINE chunksOf2 #-}

879+chunksOf2 :: Monad m => Int -> Fold m a b -> Fold2 m x b c -> Fold2 m x a c

880+chunksOf2 n (Fold step1 initial1 extract1) (Fold2 step2 inject2 extract2) =

881881 Fold2 step' inject' extract'

882882

883883 where

src/Streamly/Internal/FileSystem/Handle.hs+1−1

@@ -464,7 +464,7 @@ writeWithBufferOf n h = FL.lchunksOf n (writeNUnsafe n) (writeChunks h)

464464

465465{-# INLINE writeWithBufferOf2 #-}

466466writeWithBufferOf2 :: MonadIO m => Int -> Fold2 m Handle Word8 ()

467−writeWithBufferOf2 n = FL.lchunksOf2 n (writeNUnsafe n) writeChunks2

467+writeWithBufferOf2 n = FL.chunksOf2 n (writeNUnsafe n) writeChunks2

468468

469469-- > write = 'writeWithBufferOf' A.defaultChunkSize

470470--