[project @ 1997-07-25 22:57:21 by sof]

new function: putDocRn

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index c824df5..37363ed 100644 (file)
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -93,10 +93,13 @@ ioToRnMG :: IO r -> RnMG (Either IOError13 r)
 ioToRnMG (MkIO io) rn_down g_down = stToSST io
 
 traceRn :: Doc -> RnMG ()
-traceRn msg | opt_D_show_rn_trace = ioToRnMG (hPutStr stderr (show msg) >> 
-                                             hPutStr stderr "\n")      `thenRn_`
-                                   returnRn ()
+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_`
+              returnRn ()
 \end{code}