diff options
Diffstat (limited to 'compiler/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 62a472037b..d9949db1e4 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -1400,7 +1400,7 @@ tryNewCodeGen hsc_env this_mod data_tycons -- we generate one SRT for the whole module. let pipeline_stream - | dopt Opt_SplitObjs dflags + | gopt Opt_SplitObjs dflags = {-# SCC "cmmPipeline" #-} let run_pipeline us cmmgroup = do let (topSRT', us') = initUs us emptySRT @@ -1733,7 +1733,7 @@ hscCompileCoreExpr hsc_env srcspan ds_expr | otherwise = do let dflags = hsc_dflags hsc_env - let lint_on = dopt Opt_DoCoreLinting dflags + let lint_on = gopt Opt_DoCoreLinting dflags {- Simplify it -} simpl_expr <- simplifyExpr dflags ds_expr @@ -1779,8 +1779,8 @@ dumpIfaceStats hsc_env = do (ifaceStats eps) where dflags = hsc_dflags hsc_env - dump_rn_stats = dopt Opt_D_dump_rn_stats dflags - dump_if_trace = dopt Opt_D_dump_if_trace dflags + dump_rn_stats = gopt Opt_D_dump_rn_stats dflags + dump_if_trace = gopt Opt_D_dump_if_trace dflags {- ********************************************************************** |