diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Panic.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index f2e63129b4..6f7a4a8018 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -136,11 +136,11 @@ throwGhcException = Exception.throwDyn throwGhcException = Exception.throw #endif -handleGhcException :: (GhcException -> IO a) -> IO a -> IO a +handleGhcException :: ExceptionMonad m => (GhcException -> m a) -> m a -> m a #if __GLASGOW_HASKELL__ < 609 -handleGhcException = flip Exception.catchDyn +handleGhcException = flip gcatchDyn #else -handleGhcException = Exception.handle +handleGhcException = ghandle #endif ghcExceptionTc :: TyCon |