[project @ 2003-05-27 14:05:11 by simonmar]

Send "Result size =" messages to stderr.

diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index 0ed2a1c..15146ec 100644 (file)
--- a/ghc/compiler/coreSyn/CoreLint.lhs
+++ b/ghc/compiler/coreSyn/CoreLint.lhs
@@ -63,7 +63,7 @@ endPass dflags pass_name dump_flag binds
        -- Report result size if required
        -- This has the side effect of forcing the intermediate to be evaluated
        if verbosity dflags >= 2 then
-          hPutStrLn stdout ("    Result size = " ++ show (coreBindsSize binds))
+          hPutStrLn stderr ("    Result size = " ++ show (coreBindsSize binds))
         else
           return ()