diff options
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index e5906585ff..6228d109d3 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1000,11 +1000,6 @@ runPhase Cmm input_fn dflags io $ hscCompileCmmFile hsc_env input_fn - -- XXX: catch errors above and convert them into ghcError? Original - -- code was: - -- - --when (not ok) $ ghcError (PhaseFailed "cmm" (ExitFailure 1)) - return (next_phase, output_fn) ----------------------------------------------------------------------------- @@ -1063,7 +1058,6 @@ runPhase cc_phase input_fn dflags | otherwise = "-O" -- Decide next phase - let next_phase = As output_fn <- phaseOutputFilename next_phase @@ -1136,8 +1130,6 @@ runPhase cc_phase input_fn dflags return (next_phase, output_fn) - -- ToDo: postprocess the output from gcc - ----------------------------------------------------------------------------- -- Splitting phase |