diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-03-02 17:39:43 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-03-02 17:39:43 +0000 |
| commit | 253b0f2e0464b6c6bd0292319daa976148d43a80 (patch) | |
| tree | 516f299d689aa61a53c6d7a36013f49e1580b8f4 | |
| parent | 5f261b483b1792026065e4cec967db79adb2748d (diff) | |
| download | haskell-253b0f2e0464b6c6bd0292319daa976148d43a80.tar.gz | |
Don't redundantly set hscTarget to the same value it already was
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 0d86dcbdda..577cb61cf9 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -149,9 +149,8 @@ compile' (nothingCompiler, interactiveCompiler, batchCompiler) output_fn <- getOutputFilename next_phase Temporary basename dflags next_phase (Just location) - let dflags' = dflags { hscTarget = hsc_lang, - hscOutName = output_fn, - extCoreName = basename ++ ".hcr" } + let dflags' = dflags { hscOutName = output_fn, + extCoreName = basename ++ ".hcr" } let hsc_env' = hsc_env { hsc_dflags = dflags' } -- -fforce-recomp should also work with --make @@ -980,8 +979,7 @@ runPhase (Hsc src_flavour) input_fn dflags0 let next_phase = hscPostBackendPhase dflags src_flavour hsc_lang output_fn <- phaseOutputFilename next_phase - let dflags' = dflags { hscTarget = hsc_lang, - hscOutName = output_fn, + let dflags' = dflags { hscOutName = output_fn, extCoreName = basename ++ ".hcr" } setDynFlags dflags' @@ -1050,8 +1048,7 @@ runPhase Cmm input_fn dflags output_fn <- phaseOutputFilename next_phase - let dflags' = dflags { hscTarget = hsc_lang, - hscOutName = output_fn, + let dflags' = dflags { hscOutName = output_fn, extCoreName = src_basename ++ ".hcr" } setDynFlags dflags' |