diff options
| author | simonmar <unknown> | 2000-06-28 14:32:34 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-06-28 14:32:34 +0000 |
| commit | 06eac90902e153197d2e5518d5521d0ee56f6539 (patch) | |
| tree | a9139e119e783e1121e4c79168d7938bfb440945 /ghc/compiler/simplStg | |
| parent | 8041a4b3e8340f09770035f03dc84de9ee1403df (diff) | |
| download | haskell-06eac90902e153197d2e5518d5521d0ee56f6539.tar.gz | |
[project @ 2000-06-28 14:32:34 by simonmar]
dumps go to stdout now
Diffstat (limited to 'ghc/compiler/simplStg')
| -rw-r--r-- | ghc/compiler/simplStg/SimplStg.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs index 2b579987d5..3f04f51b4e 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 ()) >> |