Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3b3fd5689400522ab59a1ed053805db38ebfd768 >--------------------------------------------------------------- commit 3b3fd5689400522ab59a1ed053805db38ebfd768 Author: Simon Marlow <[email protected]> Date: Fri Nov 18 12:42:32 2011 +0000 The "Linking" message should go through compilationProgressMessage Currently it is appearing on stderr, whereas the rest of the messages from --make go to stdout, this change fixes that. >--------------------------------------------------------------- compiler/main/DriverPipeline.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index aaf9f00..f1cb36c 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -329,8 +329,8 @@ link' dflags batch_attempt_linking hpt return Succeeded else do - debugTraceMsg dflags 1 (ptext (sLit "Linking") <+> text exe_file - <+> text "...") + compilationProgressMsg dflags $ showSDoc $ + (ptext (sLit "Linking") <+> text exe_file <+> text "...") -- Don't showPass in Batch mode; doLink will do that for us. let link = case ghcLink dflags of _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
