X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=fddeb6d50147544ca40d05ae561ba0f2af6e9fac;hp=9e33f517e5e69dc72bd1cc19103b1fe9a25fbfd9;hb=d5e97410a9d7309b53a8df78d69172d3b1592ba7;hpb=f39ff24bc78da5ba09db8864ecbd7d1055b332db diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 9e33f51..fddeb6d 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