Add INLINE to "discard"
commit9f392638802f180bb2c7871a0a83394f1c9fed8a
authorHarendra Kumar <harendra.kumar@gmail.com>
dateSun 22 Dec 2019, 20:24 (7 years ago)
parent947d6cc
src/Streamly/Internal/Control/Monad.hs+1
@@ -23,5 +23,6 @@ import Control.Monad.Catch (MonadCatch, catch, SomeException)
2323--
2424-- /Internal/
2525--
26+{-# INLINE discard #-}
2627discard :: MonadCatch m => m b -> m ()
2728discard action = (void $ action) `catch` (\(_ :: SomeException) -> return ())