Commit 06eac909 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-06-28 14:32:34 by simonmar]

dumps go to stdout now
parent 8041a4b3
......@@ -27,7 +27,7 @@ import Module ( Module, moduleString )
import VarEnv
import ErrUtils ( doIfSet, dumpIfSet )
import UniqSupply ( splitUniqSupply, UniqSupply )
import IO ( hPutStr, stderr )
import IO ( hPutStr, stdout )
import Outputable
\end{code}
......@@ -114,7 +114,7 @@ stg2stg stg_todos module_name us binds
end_pass us2 what ccs binds2
= -- report verbosely, if required
(if opt_D_verbose_stg2stg then
hPutStr stderr (showSDoc
hPutStr stdout (showSDoc
(text ("*** "++what++":") $$ vcat (map ppr binds2)
))
else return ()) >>
......
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