Make MonadIO a superclass of ExceptionMonad

1 files changed, 2 insertions, 1 deletions

diff --git a/compiler/utils/Exception.hs b/compiler/utils/Exception.hs
index db5bcad629..9d196fd843 100644
--- a/compiler/utils/Exception.hs
+++ b/compiler/utils/Exception.hs
@@ -7,6 +7,7 @@ module Exception
     where
 
 import Control.Exception
+import Control.Monad.IO.Class
 
 catchIO :: IO a -> (IOException -> IO a) -> IO a
 catchIO = Control.Exception.catch
@@ -27,7 +28,7 @@ tryIO = try
 -- implementations of 'gbracket' and 'gfinally' use 'gblock' and 'gunblock'
 -- thus rarely require overriding.
 --
-class Monad m => ExceptionMonad m where
+class MonadIO m => ExceptionMonad m where
 
   -- | Generalised version of 'Control.Exception.catch', allowing an arbitrary
   -- exception handling monad instead of just 'IO'.