diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-07 12:14:54 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-07 12:14:54 +0000 |
| commit | 01ecefa4b97106fec5c139c5514e5d56e59ecbaf (patch) | |
| tree | 5fe97b253ff544ee2c8b8ebb13780c9d7fc883e2 /compiler/codeGen/CgHpc.hs | |
| parent | a65481fce16930ff0cd343c9278d9b8961bee94f (diff) | |
| download | haskell-01ecefa4b97106fec5c139c5514e5d56e59ecbaf.tar.gz | |
Warning police: eliminate all defaulting within stage1
Defaulting makes compilation of multiple modules more complicated (re: #1405)
Although it was all locally within functions, not because of the module
monomorphism-restriction... but it's better to be clear what's meant, anyway.
I changed some that were defaulting to Integer, to explicit Int, where Int
seemed appropriate rather than Integer.
Diffstat (limited to 'compiler/codeGen/CgHpc.hs')
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index 6da243b804..811029bb18 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -48,7 +48,7 @@ hpcTable this_mod (HpcInfo hpc_tickCount _) = do emitData Data $ [ CmmDataLabel (mkHpcTicksLabel this_mod) ] ++ [ CmmStaticLit (CmmInt 0 I64) - | _ <- take hpc_tickCount [0..] + | _ <- take hpc_tickCount [0::Int ..] ] where module_name_str = moduleNameString (Module.moduleName this_mod) |