diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-01-30 16:37:54 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-30 17:43:45 +0000 |
| commit | e40299c36c48a41e97f05d7be17042034fd24007 (patch) | |
| tree | cc5579e4ed16a3494fe05187f4e44572c7d847bd /compiler/utils/Exception.hs | |
| parent | 45df0266679dcf8b92142809fe4c8f4fcd1871cd (diff) | |
| download | haskell-e40299c36c48a41e97f05d7be17042034fd24007.tar.gz | |
Use throwIO rather than throw
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) |