shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add onException

--- a/lib/Control/Exception.hs

+++ b/lib/Control/Exception.hs

@@ -3,6 +3,7 @@

   throwIO,

   Exn(..),

   exnToString,

+  onException,

   ) where

 import Primitives

 import Prelude

@@ -22,3 +23,7 @@

 throwIO (Exn s) =

   let e = error s

   in  seq e (return e)

+

+onException :: IO a -> IO b -> IO a

+onException io what = io `catch` \e -> do _ <- what

+                                          throwIO e

-- 

⑨