diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-28 23:58:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-28 23:58:44 +0000 |
| commit | 2eb931b1c86a9598bb23e1300c5d0017ded3d81b (patch) | |
| tree | 3ab87e1f132c248caf2ac54b26d88cde5f8a6caf /compiler | |
| parent | e2792361ed3015f6ab824af417d1eed532b818ac (diff) | |
| download | haskell-2eb931b1c86a9598bb23e1300c5d0017ded3d81b.tar.gz | |
Use showCommandForUser when showing tracing commands
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/SysTools.lhs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 1693aa06a9..fb07875873 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -66,7 +66,7 @@ import Foreign import Foreign.C.String #endif -import System.Process ( runInteractiveProcess, getProcessExitCode ) +import System.Process import Control.Concurrent import FastString import SrcLoc ( SrcLoc, mkSrcLoc, noSrcSpan, mkSrcSpan ) @@ -597,7 +597,12 @@ runSomethingFiltered runSomethingFiltered dflags filter_fn phase_name pgm args mb_env = do let real_args = filter notNull (map showOpt args) - traceCmd dflags phase_name (unwords (pgm:real_args)) $ do +#if __GLASGOW_HASKELL__ >= 701 + cmdLine = showCommandForUser pgm real_args +#else + cmdLine = unwords (pgm:real_args) +#endif + traceCmd dflags phase_name cmdLine $ do (exit_code, doesn'tExist) <- IO.catch (do rc <- builderMainLoop dflags filter_fn pgm real_args mb_env |