diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-05-24 15:37:33 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-25 08:49:28 +0100 |
| commit | 7256b301f0fde617e04c8dc47a223b30f1f6eae2 (patch) | |
| tree | 6523359d2ada470b2a573ba043f6bf27db6a392b /compiler/main/SysTools.lhs | |
| parent | af9e96991659185821632ff96383480c9dc9cbda (diff) | |
| download | haskell-7256b301f0fde617e04c8dc47a223b30f1f6eae2.tar.gz | |
deprecate the -n option (#5180)
Diffstat (limited to 'compiler/main/SysTools.lhs')
| -rw-r--r-- | compiler/main/SysTools.lhs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 497a938980..9c086cc80b 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -788,20 +788,16 @@ data BuildMessage | EOF traceCmd :: DynFlags -> String -> String -> IO () -> IO () --- a) trace the command (at two levels of verbosity) --- b) don't do it at all if dry-run is set +-- trace the command (at two levels of verbosity) traceCmd dflags phase_name cmd_line action = do { let verb = verbosity dflags ; showPass dflags phase_name ; debugTraceMsg dflags 3 (text cmd_line) ; hFlush stderr - -- Test for -n flag - ; unless (dopt Opt_DryRun dflags) $ do { - -- And run it! ; action `catchIO` handle_exn verb - }} + } where handle_exn _verb exn = do { debugTraceMsg dflags 2 (char '\n') ; debugTraceMsg dflags 2 (ptext (sLit "Failed:") <+> text cmd_line <+> text (show exn)) |