From: Don Stewart Date: Sun, 11 Jun 2006 07:10:41 +0000 (+0000) Subject: Emit 'linking not required' messages only with -v 2 or above. X-Git-Tag: Before_FC_branch_merge~395 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=dda45b7ae83033cf99630435c13054f3f6ac67d2;p=ghc-hetmet.git Emit 'linking not required' messages only with -v 2 or above. Similar in philosophy to the 'Skipping' patch, this is another case of printing noisy messages when no work is being done. This patch makes the building-when-nothing-to-do case smoother. --- diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index e20bc56..a39ca38 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -302,7 +302,7 @@ link BatchCompile dflags batch_attempt_linking hpt any (t <) (map linkableTime linkables) if dopt Opt_RecompChecking dflags && not linking_needed - then do debugTraceMsg dflags 1 (text exe_file <+> ptext SLIT("is up to date, linking not required.")) + then do debugTraceMsg dflags 2 (text exe_file <+> ptext SLIT("is up to date, linking not required.")) return Succeeded else do