@@ -589,6 +589,7 @@ foldl' step begin m = S.foldl' step begin $ toStreamS m
589-- starting value. Returns 'Nothing' if the stream is empty.
589-- starting value. Returns 'Nothing' if the stream is empty.
591-- @since 0.5.0
591-- @since 0.5.0
592+{-# INLINE foldl1' #-}
592foldl1' :: Monad m => (a -> a -> a) -> SerialT m a -> m (Maybe a)
593foldl1' :: Monad m => (a -> a -> a) -> SerialT m a -> m (Maybe a)
593foldl1' step m = do
594foldl1' step m = do
594 r <- uncons m
595 r <- uncons m