diff options
author | David Terei <davidterei@gmail.com> | 2011-11-18 15:44:14 -0800 |
---|---|---|
committer | David Terei <davidterei@gmail.com> | 2011-11-22 11:05:14 -0800 |
commit | 3475561ee6210f8c570b5bbc47ed9355e435279f (patch) | |
tree | fa4195d5c4bc6ea5599391800377a986d69ca3f4 /compiler/main/DriverPipeline.hs | |
parent | 1f9ca81cff59ed6c0078437a992f40c13d2667c7 (diff) | |
download | haskell-3475561ee6210f8c570b5bbc47ed9355e435279f.tar.gz |
Tabs -> Spaces + cleaning
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 |