projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3effaf6
)
[project @ 1997-09-04 20:08:30 by sof]
author
sof
<unknown>
Thu, 4 Sep 1997 20:08:30 +0000
(20:08 +0000)
committer
sof
<unknown>
Thu, 4 Sep 1997 20:08:30 +0000
(20:08 +0000)
ppr wibble
ghc/compiler/rename/RnMonad.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnMonad.lhs
b/ghc/compiler/rename/RnMonad.lhs
index
37363ed
..
0d2748d
100644
(file)
--- 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 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 )
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 ()
| 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}
returnRn ()
\end{code}