From: sof <unknown>
Date: Thu, 4 Sep 1997 20:08:30 +0000 (+0000)
Subject: [project @ 1997-09-04 20:08:30 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~15
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e43e83f4c7a3ab7e1561f19a38b8ebefb5d1a51c

[project @ 1997-09-04 20:08:30 by sof]
ppr wibble
---

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 37363ed..0d2748d 100644
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -52,7 +52,7 @@ import PrelInfo		( builtinNames )
 import TyCon		( TyCon {- instance NamedThing -} )
 import TysWiredIn	( boolTyCon )
 import Pretty
-import Outputable	( PprStyle(..) )
+import Outputable	( PprStyle(..), printErrs )
 import SrcLoc		( SrcLoc, mkGeneratedSrcLoc )
 import Unique		( Unique )
 import UniqFM		( UniqFM )
@@ -97,8 +97,7 @@ traceRn msg | opt_D_show_rn_trace = putDocRn msg
 	    | otherwise		  = returnRn ()
 
 putDocRn :: Doc -> RnMG ()
-putDocRn msg = ioToRnMG (hPutStr stderr (show msg) >> 
-	       hPutStr stderr "\n")	`thenRn_`
+putDocRn msg = ioToRnMG (printErrs msg)	`thenRn_`
 	       returnRn ()
 \end{code}