From 06eac90902e153197d2e5518d5521d0ee56f6539 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 28 Jun 2000 14:32:34 +0000
Subject: [PATCH] [project @ 2000-06-28 14:32:34 by simonmar] dumps go to
 stdout now

---
 ghc/compiler/simplStg/SimplStg.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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