diff options
Diffstat (limited to 'compiler/GHC/Tc/Module.hs')
| -rw-r--r-- | compiler/GHC/Tc/Module.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Module.hs b/compiler/GHC/Tc/Module.hs index 08005f1a74..696e8dc8a3 100644 --- a/compiler/GHC/Tc/Module.hs +++ b/compiler/GHC/Tc/Module.hs @@ -53,6 +53,7 @@ import GHC.Prelude import GHC.Driver.Env import GHC.Driver.Plugins import GHC.Driver.Session +import GHC.Driver.Config.Diagnostic import GHC.Tc.Errors.Hole.FitTypes ( HoleFitPluginR (..) ) import GHC.Tc.Errors.Types @@ -3163,6 +3164,7 @@ mark_plugin_unsafe :: DynFlags -> TcM () mark_plugin_unsafe dflags = unless (gopt Opt_PluginTrustworthy dflags) $ recordUnsafeInfer pluginUnsafe where + !diag_opts = initDiagOpts dflags pluginUnsafe = singleMessage $ - mkPlainMsgEnvelope dflags noSrcSpan TcRnUnsafeDueToPlugin + mkPlainMsgEnvelope diag_opts noSrcSpan TcRnUnsafeDueToPlugin |