diff options
Diffstat (limited to 'utils/check-exact/Preprocess.hs')
-rw-r--r-- | utils/check-exact/Preprocess.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/check-exact/Preprocess.hs b/utils/check-exact/Preprocess.hs index 9d7e883aad..f95668141c 100644 --- a/utils/check-exact/Preprocess.hs +++ b/utils/check-exact/Preprocess.hs @@ -24,7 +24,7 @@ import qualified GHC.Driver.Errors.Types as GHC import qualified GHC.Driver.Phases as GHC import qualified GHC.Driver.Pipeline as GHC import qualified GHC.Fingerprint.Type as GHC -import qualified GHC.Parser.Lexer as GHC hiding (getMessages) +import qualified GHC.Parser.Lexer as GHC import qualified GHC.Settings as GHC import qualified GHC.Types.Error as GHC (getMessages) import qualified GHC.Types.SourceError as GHC @@ -283,7 +283,7 @@ parseError pst = do let -- (warns,errs) = GHC.getMessages pst dflags -- throw $ GHC.mkSrcErr (GHC.unitBag $ GHC.mkPlainErrMsg dflags sspan err) - GHC.throwErrors $ (GHC.GhcPsMessage <$> GHC.getErrorMessages pst) + GHC.throwErrors $ (GHC.GhcPsMessage <$> GHC.getPsErrorMessages pst) -- --------------------------------------------------------------------- |