From e40299c36c48a41e97f05d7be17042034fd24007 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Wed, 30 Jan 2013 16:37:54 +0000
Subject: Use throwIO rather than throw

---
 compiler/utils/Exception.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/utils/Exception.hs')

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)
 
-- 
cgit v1.2.1