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

dumps go to stdout now

diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs
index 2b57998..3f04f51 100644 (file)
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -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 ()) >>