diff options
| author | simonpj <unknown> | 2004-02-12 14:31:53 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2004-02-12 14:31:53 +0000 |
| commit | 42b6409dceccfa302b34b14fa3578db515f64eed (patch) | |
| tree | 87fe2e9f66077ebb9de194db95ecf0941073eb31 /ghc | |
| parent | 4e4f2add26cad9bf7adcf99e6f90a26a5205fc04 (diff) | |
| download | haskell-42b6409dceccfa302b34b14fa3578db515f64eed.tar.gz | |
[project @ 2004-02-12 14:31:53 by simonpj]
Make trace message more accurate
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/compiler/main/SysTools.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs index 0908f2cc45..0cba9d2968 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) |