From d8afca91db837cc59ae505d113210c655d68c7b6 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 28 Oct 2005 11:29:19 +0000 Subject: [PATCH] [project @ 2005-10-28 11:29:19 by simonmar] Fix double "Linking ..." message, and mention the name of the executable in the message. --- ghc/compiler/main/DriverPipeline.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index 698cb42..a8fa8ce 100644 --- 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 -- 1.7.10.4