diff options
Diffstat (limited to 'compiler/utils/Exception.hs')
| -rw-r--r-- | compiler/utils/Exception.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Exception.hs b/compiler/utils/Exception.hs index 9d196fd843..b4908997a8 100644 --- a/compiler/utils/Exception.hs +++ b/compiler/utils/Exception.hs @@ -93,5 +93,5 @@ ghandle = flip gcatch gonException :: (ExceptionMonad m) => m a -> m b -> m a gonException ioA cleanup = ioA `gcatch` \e -> do _ <- cleanup - throw (e :: SomeException) + liftIO $ throwIO (e :: SomeException) |