diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 17:20:46 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 17:20:46 +0100 |
| commit | 5633b56169b49dfb96e4add8475e3c4303db7e1e (patch) | |
| tree | 50c75ef840104093d661a4a5605e4e7a53163bcc /compiler/profiling | |
| parent | 2b015ce92253f6c64230b80603091c1fa426cf2e (diff) | |
| download | haskell-5633b56169b49dfb96e4add8475e3c4303db7e1e.tar.gz | |
Remove some more Platform arguments
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/ProfInit.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/profiling/ProfInit.hs b/compiler/profiling/ProfInit.hs index 6934a079b5..7e223f80e9 100644 --- a/compiler/profiling/ProfInit.hs +++ b/compiler/profiling/ProfInit.hs @@ -11,7 +11,6 @@ module ProfInit (profilingInitCode) where import CLabel import CostCentre import Outputable -import Platform import StaticFlags import FastString import Module @@ -22,8 +21,8 @@ import Module -- We must produce declarations for the cost-centres defined in this -- module; -profilingInitCode :: Platform -> Module -> CollectedCCs -> SDoc -profilingInitCode _ this_mod (local_CCs, ___extern_CCs, singleton_CCSs) +profilingInitCode :: Module -> CollectedCCs -> SDoc +profilingInitCode this_mod (local_CCs, ___extern_CCs, singleton_CCSs) | not opt_SccProfilingOn = empty | otherwise = vcat |