projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-02-12 14:31:53 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
SysTools.lhs
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)
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)
exit_code <- rawSystem real_pgm argv
if (exit_code /= ExitSuccess)
then throwDyn (PhaseFailed phase_name exit_code)