diff options
Diffstat (limited to 'compiler/GHC/Tc/Errors.hs')
| -rw-r--r-- | compiler/GHC/Tc/Errors.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/GHC/Tc/Errors.hs b/compiler/GHC/Tc/Errors.hs index dcd9745758..3a77998c8f 100644 --- a/compiler/GHC/Tc/Errors.hs +++ b/compiler/GHC/Tc/Errors.hs @@ -66,6 +66,7 @@ import GHC.Data.List.SetOps ( equivClasses ) import GHC.Data.Maybe import qualified GHC.LanguageExtensions as LangExt import GHC.Utils.FV ( fvVarList, unionFV ) +import qualified GHC.Data.Strict as Strict import Control.Monad ( unless, when, foldM, forM_ ) import Data.Foldable ( toList ) @@ -1033,7 +1034,7 @@ mkErrorReport :: DiagnosticReason mkErrorReport rea ctxt tcl_env (Report important relevant_bindings valid_subs) = do { context <- mkErrInfo (cec_tidy ctxt) (tcl_ctxt tcl_env) ; mkTcRnMessage rea - (RealSrcSpan (tcl_loc tcl_env) Nothing) + (RealSrcSpan (tcl_loc tcl_env) Strict.Nothing) (vcat important) context (vcat $ relevant_bindings ++ valid_subs) @@ -1045,7 +1046,7 @@ mkErrorReportNC :: DiagnosticReason -> Report -> TcM (MsgEnvelope TcRnMessage) mkErrorReportNC rea tcl_env (Report important relevant_bindings valid_subs) - = mkTcRnMessage rea (RealSrcSpan (tcl_loc tcl_env) Nothing) + = mkTcRnMessage rea (RealSrcSpan (tcl_loc tcl_env) Strict.Nothing) (vcat important) O.empty (vcat $ relevant_bindings ++ valid_subs) |