inline mapM
commite4f3d16561117e5eb49227b78c671eb4df45c29d
authorHarendra Kumar <harendra.kumar@gmail.com>
dateFri 9 Mar 2018, 18:41 (9 years ago)
parent06749c4
src/Streamly/Prelude.hs+1
@@ -372,6 +372,7 @@ maximum m = go Nothing (toStream m)
372372
373373-- | Replace each element of the stream with the result of a monadic action
374374-- applied on the element.
375+{-# INLINE mapM #-}
375376mapM :: (Streaming t, Monad m) => (a -> m b) -> t m a -> t m b
376377mapM f m = fromStream $ go (toStream m)
377378 where