diff options
Diffstat (limited to 'compiler/GHC.hs')
| -rw-r--r-- | compiler/GHC.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/GHC.hs b/compiler/GHC.hs index b78883c42e..02af8f0e02 100644 --- a/compiler/GHC.hs +++ b/compiler/GHC.hs @@ -378,6 +378,7 @@ import Data.IORef import System.FilePath import Control.Concurrent import Control.Applicative ((<|>)) +import Control.Monad.Catch (MonadMask) import Maybes import System.IO.Error ( isDoesNotExistError ) @@ -1068,15 +1069,15 @@ instance Outputable CoreModule where -- desugars the module, then returns the resulting Core module (consisting of -- the module name, type declarations, and function declarations) if -- successful. -compileToCoreModule :: GhcMonad m => FilePath -> m CoreModule +compileToCoreModule :: (GhcMonad m, MonadMask m) => FilePath -> m CoreModule compileToCoreModule = compileCore False -- | Like compileToCoreModule, but invokes the simplifier, so -- as to return simplified and tidied Core. -compileToCoreSimplified :: GhcMonad m => FilePath -> m CoreModule +compileToCoreSimplified :: (MonadMask m, GhcMonad m) => FilePath -> m CoreModule compileToCoreSimplified = compileCore True -compileCore :: GhcMonad m => Bool -> FilePath -> m CoreModule +compileCore :: (GhcMonad m, MonadMask m) => Bool -> FilePath -> m CoreModule compileCore simplify fn = do -- First, set the target to the desired filename target <- guessTarget fn Nothing |