Commit 6b1119bd authored by simonmar's avatar simonmar

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

Send "Result size =" messages to stderr.
parent cd580b86
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment