From e43e83f4c7a3ab7e1561f19a38b8ebefb5d1a51c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 20:08:30 +0000
Subject: [PATCH] [project @ 1997-09-04 20:08:30 by sof] ppr wibble
---
ghc/compiler/rename/RnMonad.lhs | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 37363ed75c3b..0d2748d8ff5f 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}
--
GitLab