summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
4e4f2ad)
Make trace message more accurate
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)