Use foldMany1 in chunksOf instead of foldMany

composewell · Feb 5, 2021 · a4de6a7 · a4de6a7
1 parent a41a7b5
commit a4de6a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Streamly/Internal/Data/Stream/StreamD/Type.hs b/src/Streamly/Internal/Data/Stream/StreamD/Type.hs
@@ -904,7 +904,7 @@ foldMany1 (Fold fstep initial extract) (Stream step state) =
 
 {-# INLINE chunksOf #-}
 chunksOf :: Monad m => Int -> Fold m a b -> Stream m a -> Stream m b
-chunksOf n f = foldMany (FL.takeLE n f)
+chunksOf n f = foldMany1 (FL.takeLE n f)
 
 data GroupState2 s fs
     = GroupStart2 s