git.iko.soy/streamly
on master help sign in
simplify last
689b9c5Harendra Kumar
src/Streamly/Streams/StreamD.hs+1−13
compare with master
unifiedsplit
@@ -306,19 +306,7 @@ runStream (Stream step state) = go SPEC state
306
306
307{-# INLINE_NORMAL last #-}
307{-# INLINE_NORMAL last #-}
308last :: Monad m => Stream m a -> m (Maybe a)
308last :: Monad m => Stream m a -> m (Maybe a)
309−last (Stream step state) = go0 SPEC state
309+last = foldl' (\_ y -> Just y) Nothing
310− where
311− go0 !_ st = do
312− r <- step st
313− case r of
314− Yield x s -> go1 SPEC x s
315− Stop -> return Nothing
316−
317− go1 !_ x st = do
318− r <- step st
319− case r of
320− Yield y s -> go1 SPEC y s
321− Stop -> return (Just x)
322
310
323------------------------------------------------------------------------------
311------------------------------------------------------------------------------
324-- Map and Fold
312-- Map and Fold