X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnMonad.lhs;h=c1c7495a40b779b7c464839040afda3babddd8b9;hb=4161ba13916463f8e67259498eacf22744160e1f;hp=6b2fa195c0161b2b9fe2b509c43c9b3958a56065;hpb=db95d6e8d319b0c5cee1ccc23751e8190152ade3;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 6b2fa19..c1c7495 100644
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -102,7 +102,7 @@ traceHiDiffsRn msg
      if b then putDocRn msg else returnRn ()
 
 putDocRn :: SDoc -> RnM d ()
-putDocRn msg = ioToRnM (printDump msg)	`thenRn_`
+putDocRn msg = ioToRnM (printErrs alwaysQualify msg)	`thenRn_`
 	       returnRn ()
 \end{code}