inline foldl1'
commit829f929672a9fcb3075bab329ca4cfcd1fced05a
authorHarendra Kumar <harendra.kumar@gmail.com>
dateWed 24 Oct 2018, 10:06 (8 years ago)
parent23e2bdd
src/Streamly/Prelude.hs+1
@@ -589,6 +589,7 @@ foldl' step begin m = S.foldl' step begin $ toStreamS m
589589-- starting value. Returns 'Nothing' if the stream is empty.
590590--
591591-- @since 0.5.0
592+{-# INLINE foldl1' #-}
592593foldl1' :: Monad m => (a -> a -> a) -> SerialT m a -> m (Maybe a)
593594foldl1' step m = do
594595 r <- uncons m