diff options
Diffstat (limited to 'libraries/base/GHC/IO.hs')
| -rw-r--r-- | libraries/base/GHC/IO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO.hs b/libraries/base/GHC/IO.hs index 6c5a208338..7332e119b5 100644 --- a/libraries/base/GHC/IO.hs +++ b/libraries/base/GHC/IO.hs @@ -298,7 +298,7 @@ getMaskingState = IO $ \s -> onException :: IO a -> IO b -> IO a onException io what = io `catchException` \e -> do _ <- what - throwIO (e :: SomeExceptionWithLocation) + throwIO (e :: SomeException) -- | Executes an IO computation with asynchronous -- exceptions /masked/. That is, any thread which attempts to raise |