From: simonmar <unknown>
Date: Wed, 28 Jun 2000 14:32:34 +0000 (+0000)
Subject: [project @ 2000-06-28 14:32:34 by simonmar]
X-Git-Tag: Approximately_9120_patches~4127
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=06eac90902e153197d2e5518d5521d0ee56f6539;p=ghc-hetmet.git

[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
--- 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 ()) >>