-- | Like 'finally', but only performs the final action if there was an
-- exception raised by the computation.
onException :: IO a -> IO b -> IO a
-- | Like 'finally', but only performs the final action if there was an
-- exception raised by the computation.
onException :: IO a -> IO b -> IO a
throw (e :: SomeException)
-----------------------------------------------------------------------------
throw (e :: SomeException)
-----------------------------------------------------------------------------