diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-16 15:28:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-16 16:08:38 +0100 |
| commit | cd33eefd0467ae7ee4d22f16fcaaccfd33f18cb5 (patch) | |
| tree | 30fb18578f1c5c81fef7ccc6ec5879a41fd4e5c0 /compiler/main/HscMain.hs | |
| parent | 6759e5a482d927870c90efe97b820d492785a6fd (diff) | |
| download | haskell-cd33eefd0467ae7ee4d22f16fcaaccfd33f18cb5.tar.gz | |
Some alpha renaming
Mostly d -> g (matching DynFlag -> GeneralFlag).
Also renamed if* to when*, matching the Haskell if/when names
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 {- ********************************************************************** |