@@ -184,12 +184,12 @@ composeN n f =
184184{-# INLINE _dropWhileMTrue #-}
185185{-# INLINE dropWhileFalse #-}
186186{-# INLINE _foldrS #-}
187−{-# INLINE foldlS #-}
187+{-# INLINE _foldlS #-}
188188{-# INLINE concatMap #-}
189189{-# INLINE intersperse #-}
190190scan, map, fmapD, mapM, mapMaybe, mapMaybeM, filterEven, filterAllOut,
191191 filterAllIn, _takeOne, takeAll, takeWhileTrue, _takeWhileMTrue, dropOne,
192− dropAll, dropWhileTrue, _dropWhileMTrue, dropWhileFalse, _foldrS, foldlS,
192+ dropAll, dropWhileTrue, _dropWhileMTrue, dropWhileFalse, _foldrS, _foldlS,
193193 concatMap, intersperse
194194 :: Monad m
195195 => Int -> Stream m Int -> m ()
@@ -215,7 +215,7 @@ dropWhileTrue n = composeN n $ S.dropWhile (<= maxValue)
215215_dropWhileMTrue n = composeN n $ S.dropWhileM (return . (<= maxValue))
216216dropWhileFalse n = composeN n $ S.dropWhile (> maxValue)
217217_foldrS n = composeN n $ S.foldrS S.cons S.nil
218−foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
218+_foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
219219concatMap n = composeN n $ (\s -> S.concatMap (\_ -> s) s)
220220intersperse n = composeN n $ S.intersperse maxValue
221221
@@ -535,7 +535,7 @@ o_n_space =
535535 [
536536
537537 -- This is horribly slow, never finishes
538− benchFold "foldlS" (foldlS 1) sourceUnfoldrM
538+ -- benchFold "foldlS" (_foldlS 1) sourceUnfoldrM
539539 ]
540540 ]
541541 ]