diff options
Diffstat (limited to 'libraries/base/Control/Exception.hs')
| -rw-r--r-- | libraries/base/Control/Exception.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Exception.hs b/libraries/base/Control/Exception.hs index e8032b7ae9..c1dd4081ea 100644 --- a/libraries/base/Control/Exception.hs +++ b/libraries/base/Control/Exception.hs @@ -337,7 +337,7 @@ tryJust p a = do Nothing -> throw e Just b -> return (Left b) -onException :: IO a -> IO () -> IO a +onException :: IO a -> IO b -> IO a onException io what = io `catch` \e -> do what throw (e :: SomeException) |