diff options
Diffstat (limited to 'compiler/GHC/Tc/Utils/Monad.hs')
| -rw-r--r-- | compiler/GHC/Tc/Utils/Monad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Tc/Utils/Monad.hs b/compiler/GHC/Tc/Utils/Monad.hs index 730e666a2a..2d9298e12b 100644 --- a/compiler/GHC/Tc/Utils/Monad.hs +++ b/compiler/GHC/Tc/Utils/Monad.hs @@ -1038,7 +1038,7 @@ mkLongErrAt loc msg extra let msg' = pprWithUnitState unit_state msg in return $ mkErrorMsgEnvelope loc printer $ TcRnUnknownMessage - $ mkDecoratedError [msg', extra] } + $ mkDecoratedError noHints [msg', extra] } mkTcRnMessage :: DiagnosticReason -> SrcSpan @@ -1058,7 +1058,7 @@ mkTcRnMessage reason loc important context extra in return $ mkMsgEnvelope dflags loc printer $ TcRnUnknownMessage - $ mkDecoratedDiagnostic reason errDocs } + $ mkDecoratedDiagnostic reason noHints errDocs } addLongErrAt :: SrcSpan -> SDoc -> SDoc -> TcRn () addLongErrAt loc msg extra = mkLongErrAt loc msg extra >>= reportDiagnostic @@ -1585,7 +1585,7 @@ add_diagnostic_at reason loc msg extra_info dflags <- getDynFlags ; let { dia = mkMsgEnvelope dflags loc printer $ TcRnUnknownMessage $ - mkDecoratedDiagnostic reason [msg, extra_info] } ; + mkDecoratedDiagnostic reason noHints [msg, extra_info] } ; reportDiagnostic dia } |