diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Monad.hs')
-rw-r--r-- | compiler/GHC/HsToCore/Monad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Monad.hs b/compiler/GHC/HsToCore/Monad.hs index 9bc893f814..691f78b4ef 100644 --- a/compiler/GHC/HsToCore/Monad.hs +++ b/compiler/GHC/HsToCore/Monad.hs @@ -474,7 +474,7 @@ diagnosticDs reason warn ; dflags <- getDynFlags ; let msg = mkMsgEnvelope dflags loc (ds_unqual env) $ DsUnknownMessage $ - mkPlainDiagnostic reason warn + mkPlainDiagnostic reason noHints warn ; updMutVar (ds_msgs env) (\ msgs -> msg `addMessage` msgs) } -- | Emit a warning only if the correct WarningWithoutFlag is set in the DynFlags @@ -489,7 +489,7 @@ errDs err ; loc <- getSrcSpanDs ; let msg = mkErrorMsgEnvelope loc (ds_unqual env) $ DsUnknownMessage $ - mkPlainError err + mkPlainError noHints err ; updMutVar (ds_msgs env) (\ msgs -> msg `addMessage` msgs) } -- | Issue an error, but return the expression for (), so that we can continue |