From 42b6409dceccfa302b34b14fa3578db515f64eed Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 12 Feb 2004 14:31:53 +0000
Subject: [PATCH] [project @ 2004-02-12 14:31:53 by simonpj] Make trace
 message more accurate

---
 ghc/compiler/main/SysTools.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
1.7.10.4