@@ -141,13 +141,13 @@ foldMany =
141 . Internal.foldMany (FL.take 2 FL.mconcat)
141 . Internal.foldMany (FL.take 2 FL.mconcat)
142 . S.map Sum
142 . S.map Sum
144−{-# INLINE _foldIterate #-}
144+{-# INLINE foldIterateM #-}
145−_foldIterate :: Monad m => SerialT m Int -> m ()
145+foldIterateM :: Monad m => SerialT m Int -> m ()
146−_foldIterate =
146+foldIterateM =
148− . S.map getSum
148+ . S.map getSum
149− . Internal.foldIterate (FL.take 2 . FL.sconcat) (Sum 0)
149+ . Internal.foldIterateM (return . FL.take 2 . FL.sconcat) (Sum 0)
150− . S.map Sum
150+ . S.map Sum
152o_1_space_grouping :: Int -> [Benchmark]
152o_1_space_grouping :: Int -> [Benchmark]
153o_1_space_grouping value =
153o_1_space_grouping value =
@@ -159,7 +159,7 @@ o_1_space_grouping value =
159 , benchIOSink value "groupsByRollingLT" groupsByRollingLT
159 , benchIOSink value "groupsByRollingLT" groupsByRollingLT
160 , benchIOSink value "groupsByRollingEq" groupsByRollingEq
160 , benchIOSink value "groupsByRollingEq" groupsByRollingEq
161 , benchIOSink value "foldMany" foldMany
161 , benchIOSink value "foldMany" foldMany
162− -- , benchIOSink value "foldIterate" foldIterate
162+ , benchIOSink value "foldIterateM" foldIterateM