diff options
Diffstat (limited to 'compiler/GHC.hs')
-rw-r--r-- | compiler/GHC.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/GHC.hs b/compiler/GHC.hs index 2a75c2b840..9f64e5b02c 100644 --- a/compiler/GHC.hs +++ b/compiler/GHC.hs @@ -310,7 +310,6 @@ import GHC.Driver.Errors import GHC.Driver.Errors.Types import GHC.Driver.CmdLine import GHC.Driver.Session -import qualified GHC.Driver.Session as Session import GHC.Driver.Backend import GHC.Driver.Config import GHC.Driver.Main @@ -913,10 +912,8 @@ checkNewInteractiveDynFlags logger dflags0 = do -- the REPL. See #12356. if xopt LangExt.StaticPointers dflags0 then do liftIO $ printOrThrowDiagnostics logger dflags0 $ singleMessage - $ mkPlainMsgEnvelope dflags0 interactiveSrcSpan - $ GhcDriverMessage $ DriverUnknownMessage - $ mkPlainDiagnostic Session.WarningWithoutFlag - $ text "StaticPointers is not supported in GHCi interactive expressions." + $ fmap GhcDriverMessage + $ mkPlainMsgEnvelope dflags0 interactiveSrcSpan DriverStaticPointersNotSupported return $ xopt_unset dflags0 LangExt.StaticPointers else return dflags0 |