9f39263 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Add INLINE to "discard"

9f39263Harendra Kumar7 years ago

src/Streamly/Internal/Control/Monad.hs+1

@@ -23,5 +23,6 @@ import Control.Monad.Catch (MonadCatch, catch, SomeException)

23--

24-- /Internal/

25--

26+{-# INLINE discard #-}

26discard :: MonadCatch m => m b -> m ()

27discard :: MonadCatch m => m b -> m ()

27discard action = (void $ action) `catch` (\(_ :: SomeException) -> return ())

28discard action = (void $ action) `catch` (\(_ :: SomeException) -> return ())