diff options
| author | basvandijk@home.nl <unknown> | 2006-10-19 15:23:28 +0000 |
|---|---|---|
| committer | basvandijk@home.nl <unknown> | 2006-10-19 15:23:28 +0000 |
| commit | d5e97410a9d7309b53a8df78d69172d3b1592ba7 (patch) | |
| tree | c0b6cfea9d833bfc65f6801bc50ae3d03aab3e79 | |
| parent | f39ff24bc78da5ba09db8864ecbd7d1055b332db (diff) | |
| download | haskell-d5e97410a9d7309b53a8df78d69172d3b1592ba7.tar.gz | |
A little abstraction
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 9e33f517e5..fddeb6d501 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -416,9 +416,7 @@ runPipeline stop_phase dflags (input_fn, mb_phase) output maybe_loc let (basename, suffix) = splitFilename input_fn -- If we were given a -x flag, then use that phase to start from - start_phase - | Just x_phase <- mb_phase = x_phase - | otherwise = startPhase suffix + start_phase = fromMaybe (startPhase suffix) mb_phase -- We want to catch cases of "you can't get there from here" before -- we start the pipeline, because otherwise it will just run off the |