diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 17:36:47 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 17:36:47 +0100 |
| commit | ac6edfae76aac302c0190895d5203c584a3a2f4b (patch) | |
| tree | 2e15eea87f6b6e717d652956672cd442d35820cf /compiler/main/HscMain.hs | |
| parent | 5633b56169b49dfb96e4add8475e3c4303db7e1e (diff) | |
| download | haskell-ac6edfae76aac302c0190895d5203c584a3a2f4b.tar.gz | |
Remove more redundant Platform arguments
Diffstat (limited to 'compiler/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index ecfef91d5b..df85d06f1b 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -1355,11 +1355,10 @@ tryNewCodeGen :: HscEnv -> Module -> [TyCon] tryNewCodeGen hsc_env this_mod data_tycons cost_centre_info stg_binds hpc_info = do let dflags = hsc_dflags hsc_env - platform = targetPlatform dflags prog <- StgCmm.codeGen dflags this_mod data_tycons cost_centre_info stg_binds hpc_info dumpIfSet_dyn dflags Opt_D_dump_cmmz "Cmm produced by new codegen" - (pprCmms platform prog) + (pprCmms prog) -- We are building a single SRT for the entire module, so -- we must thread it through all the procedures as we cps-convert them. |