[project @ 2005-10-28 11:29:19 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / DriverPipeline.hs

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 698cb42..a8fa8ce 100644 (file)
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -307,8 +307,6 @@ link BatchCompile dflags batch_attempt_linking hpt
                  return Succeeded
          else do
 
-       debugTraceMsg dflags 1 (text "Linking ...")
-
        let getOfiles (LM _ _ us) = map nameOfObject (filter isObject us)
            obj_files = concatMap getOfiles linkables
 
@@ -328,7 +326,8 @@ link BatchCompile dflags batch_attempt_linking hpt
                   return Succeeded
           else do
 
-       debugTraceMsg dflags 1 (ptext SLIT("Linking ..."))
+       debugTraceMsg dflags 1 (ptext SLIT("Linking") <+> text exe_file
+                                <+> text "...")
 
        -- Don't showPass in Batch mode; doLink will do that for us.
         staticLink dflags obj_files pkg_deps