diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 12:13:00 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 12:13:00 +0100 |
| commit | d06edb8e93d6d19bbd898e2b2e26755598bb11f3 (patch) | |
| tree | 88a6adbbd663f1a575c8b6a4d67f55ffd806ea2d /compiler/profiling | |
| parent | 2901e3ff1acaea9689d38e65b58080d515215414 (diff) | |
| download | haskell-d06edb8e93d6d19bbd898e2b2e26755598bb11f3.tar.gz | |
Remove PlatformOutputable
We can now get the Platform from the DynFlags inside an SDoc, so we
no longer need to pass the Platform in.
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/ProfInit.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/profiling/ProfInit.hs b/compiler/profiling/ProfInit.hs index fa99a752d1..6934a079b5 100644 --- a/compiler/profiling/ProfInit.hs +++ b/compiler/profiling/ProfInit.hs @@ -23,7 +23,7 @@ import Module -- module; profilingInitCode :: Platform -> Module -> CollectedCCs -> SDoc -profilingInitCode platform this_mod (local_CCs, ___extern_CCs, singleton_CCSs) +profilingInitCode _ this_mod (local_CCs, ___extern_CCs, singleton_CCSs) | not opt_SccProfilingOn = empty | otherwise = vcat @@ -39,8 +39,8 @@ profilingInitCode platform this_mod (local_CCs, ___extern_CCs, singleton_CCSs) emitRegisterCC cc = ptext (sLit "extern CostCentre ") <> cc_lbl <> ptext (sLit "[];") $$ ptext (sLit "REGISTER_CC(") <> cc_lbl <> char ')' <> semi - where cc_lbl = pprPlatform platform (mkCCLabel cc) + where cc_lbl = ppr (mkCCLabel cc) emitRegisterCCS ccs = ptext (sLit "extern CostCentreStack ") <> ccs_lbl <> ptext (sLit "[];") $$ ptext (sLit "REGISTER_CCS(") <> ccs_lbl <> char ')' <> semi - where ccs_lbl = pprPlatform platform (mkCCSLabel ccs) + where ccs_lbl = ppr (mkCCSLabel ccs) |