Fix commented code for drain
commit2f31747c36a03a1cbd5439100881819d53158048
authorHarendra Kumar <harendra.kumar@gmail.com>
dateFri 28 Jun 2019, 23:20 (7 years ago)
parent513eb1c
src/Streamly/Streams/StreamD.hs+1−1
@@ -623,7 +623,7 @@ foldlS fstep begin (Stream step state) = Stream step' (Left (state, begin))
623623-- | Run a streaming composition, discard the results.
624624{-# INLINE_LATE drain #-}
625625drain :: Monad m => Stream m a -> m ()
626−-- drain m = foldrM (\x xs -> x `seq` xs) (return ()) m
626+-- drain = foldrM (\_ xs -> xs) (return ())
627627drain (Stream step state) = go SPEC state
628628 where
629629 go !_ st = do