Commit cd7f4d50 authored by sof's avatar sof
Browse files

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

new function: putDocRn
parent 87b07041
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment