diff options
Diffstat (limited to 'libraries/base/Control/Exception/Base.hs')
| -rw-r--r-- | libraries/base/Control/Exception/Base.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Exception/Base.hs b/libraries/base/Control/Exception/Base.hs index a90815d28f..c25caea7dc 100644 --- a/libraries/base/Control/Exception/Base.hs +++ b/libraries/base/Control/Exception/Base.hs @@ -191,7 +191,7 @@ tryJust p a = do -- exception raised by the computation. onException :: IO a -> IO b -> IO a onException io what = io `catch` \e -> do _ <- what - throwIO (e :: SomeExceptionWithLocation) + throwIO (e :: SomeException) ----------------------------------------------------------------------------- -- Some Useful Functions |