projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e4f2ad
)
[project @ 2004-02-12 14:31:53 by simonpj]
author
simonpj
<unknown>
Thu, 12 Feb 2004 14:31:53 +0000
(14:31 +0000)
committer
simonpj
<unknown>
Thu, 12 Feb 2004 14:31:53 +0000
(14:31 +0000)
Make trace message more accurate
ghc/compiler/main/SysTools.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/SysTools.lhs
b/ghc/compiler/main/SysTools.lhs
index
0908f2c
..
0cba9d2
100644
(file)
--- 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)