From: simonpj <unknown>
Date: Thu, 12 Feb 2004 14:31:53 +0000 (+0000)
Subject: [project @ 2004-02-12 14:31:53 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~87
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=42b6409dceccfa302b34b14fa3578db515f64eed;p=ghc-hetmet.git

[project @ 2004-02-12 14:31:53 by simonpj]
Make trace message more accurate
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 0908f2c..0cba9d2 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -735,7 +735,7 @@ runSomething phase_name pgm args = do
         case toArgs pgm of
 	  []     -> (pgm, real_args) -- let rawSystem be the bearer of bad news..
 	  (x:xs) -> (x, xs ++ real_args)
-  traceCmd phase_name (unwords (pgm:real_args)) $ do
+  traceCmd phase_name (unwords (real_pgm : argv)) $ do
   exit_code <- rawSystem real_pgm argv
   if (exit_code /= ExitSuccess)
 	then throwDyn (PhaseFailed phase_name exit_code)