From: simonmar <unknown>
Date: Tue, 27 May 2003 14:05:11 +0000 (+0000)
Subject: [project @ 2003-05-27 14:05:11 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~857
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6b1119bd56511dbf4563efddcd485893f3bff8bf

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