The "Linking" message should go through compilationProgressMessage
authorSimon Marlow <marlowsd@gmail.com>
Fri, 18 Nov 2011 12:42:32 +0000 (12:42 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 18 Nov 2011 12:42:32 +0000 (12:42 +0000)
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

index aaf9f00..f1cb36c 100644 (file)
@@ -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