From 6c4bd4a67569ed9bfe8276db72f87135a61b0224 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 5 Aug 2010 13:36:14 +0000 Subject: [PATCH] Ensure extension flags are flattened in the Cmm phase If we start with a .cmmcpp file then they don't get flattened in the CmmCpp phase, as we don't run that phase. --- compiler/main/DriverPipeline.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 2b9cd43..113348f 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -914,7 +914,7 @@ runPhase CmmCpp _stop hsc_env _basename _suff input_fn get_output_fn maybe_loc runPhase Cmm stop hsc_env basename _ input_fn get_output_fn maybe_loc = do - let dflags = hsc_dflags hsc_env + let dflags = ensureFlattenedExtensionFlags $ hsc_dflags hsc_env let hsc_lang = hscMaybeAdjustTarget dflags stop HsSrcFile (hscTarget dflags) let next_phase = hscNextPhase dflags HsSrcFile hsc_lang output_fn <- liftIO $ get_output_fn dflags next_phase maybe_loc -- 1.7.10.4