diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-05 16:03:38 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-05 16:03:38 +0100 |
| commit | be691e1ffe90704d12e5c7bc9d64578b452fb101 (patch) | |
| tree | 679bab39e3675d39a74b2720b0961b72e490788e | |
| parent | 5ae0cea2cbd6777525e625397db941b81078120b (diff) | |
| download | haskell-be691e1ffe90704d12e5c7bc9d64578b452fb101.tar.gz | |
Remove another unnecessary Platform argument
| -rw-r--r-- | compiler/deSugar/Coverage.lhs | 9 | ||||
| -rw-r--r-- | compiler/deSugar/Desugar.lhs | 3 |
2 files changed, 5 insertions, 7 deletions
diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index 4e04a29a3c..d3fbe4cf47 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -23,7 +23,6 @@ import VarSet import Data.List import FastString import HscTypes -import Platform import StaticFlags import TyCon import Unique @@ -1158,9 +1157,9 @@ static void hpc_init_Main(void) hs_hpc_module("Main",8,1150288664,_hpc_tickboxes_Main_hpc);} \begin{code} -hpcInitCode :: Platform -> Module -> HpcInfo -> SDoc -hpcInitCode _ _ (NoHpcInfo {}) = empty -hpcInitCode platform this_mod (HpcInfo tickCount hashNo) +hpcInitCode :: Module -> HpcInfo -> SDoc +hpcInitCode _ (NoHpcInfo {}) = empty +hpcInitCode this_mod (HpcInfo tickCount hashNo) = vcat [ text "static void hpc_init_" <> ppr this_mod <> text "(void) __attribute__((constructor));" @@ -1178,7 +1177,7 @@ hpcInitCode platform this_mod (HpcInfo tickCount hashNo) ]) ] where - tickboxes = pprCLabel platform (mkHpcTicksLabel $ this_mod) + tickboxes = ppr (mkHpcTicksLabel $ this_mod) module_name = hcat (map (text.charToC) $ bytesFS (moduleNameFS (Module.moduleName this_mod))) diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs index 28b0582076..5d0e83f1f6 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -96,7 +96,6 @@ deSugar hsc_env tcg_hpc = other_hpc_info }) = do { let dflags = hsc_dflags hsc_env - platform = targetPlatform dflags ; showPass dflags "Desugar" -- Desugar the program @@ -131,7 +130,7 @@ deSugar hsc_env ; ds_rules <- mapMaybeM dsRule rules ; ds_vects <- mapM dsVect vects ; let hpc_init - | opt_Hpc = hpcInitCode platform mod ds_hpc_info + | opt_Hpc = hpcInitCode mod ds_hpc_info | otherwise = empty ; return ( ds_ev_binds , foreign_prs `appOL` core_prs `appOL` spec_prs |