diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-12-03 14:59:18 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-12-03 23:00:16 +0100 |
| commit | c5597bb6da612e0578290c3bccdac089d6519e19 (patch) | |
| tree | 9ee38fbc91f0ba18cfebc4621153320a765098f5 /compiler/main/DriverPipeline.hs | |
| parent | a034031a102bc08c76a6cdb104b72922ae22c96b (diff) | |
| download | haskell-c5597bb6da612e0578290c3bccdac089d6519e19.tar.gz | |
Revert "Create empty dump files when there was nothing to dump"
This reverts commit 8cba907ad404ba4005558b5a8966390159938172 which
broke `-ddump-to-file`.
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index f2bc57efd5..2e6bac81b8 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -649,13 +649,8 @@ runPipeline' start_phase hsc_env env input_fn = do -- Execute the pipeline... let state = PipeState{ hsc_env, maybe_loc, maybe_stub_o = maybe_stub_o } - dflags = extractDynFlags hsc_env - -- #10320: Open dump files for writing. Any existing dump specified - -- in 'dflags' will be truncated. - bracket_ (openDumpFiles dflags) - (closeDumpFiles dflags) - (evalP (pipeLoop start_phase input_fn) env state) + evalP (pipeLoop start_phase input_fn) env state -- --------------------------------------------------------------------------- -- outer pipeline loop |