diff options
| -rw-r--r-- | compiler/basicTypes/MkId.lhs | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs index 4c3a84f815..c8e5ab69e0 100644 --- a/compiler/basicTypes/MkId.lhs +++ b/compiler/basicTypes/MkId.lhs @@ -1074,18 +1074,21 @@ digitsSomeId = mkVanillaGlobal digitsSomeDataConName (mkFunTy digitsTy digitsTy)) shiftLIntegerId :: Id -shiftLIntegerId = mkVanillaGlobal shiftLIntegerName - (mkFunTy integerTy - (mkFunTy intPrimTy integerTy)) +shiftLIntegerId = mkVanillaGlobalWithInfo shiftLIntegerName + (mkFunTy integerTy (mkFunTy intPrimTy integerTy)) + noCafIdInfo +-- ToDo: we should not really be relying on noCafInfo here. +-- What if it's wrong?! negateIntegerId :: Id -negateIntegerId = mkVanillaGlobal negateIntegerName - (mkFunTy integerTy integerTy) +negateIntegerId = mkVanillaGlobalWithInfo negateIntegerName + (mkFunTy integerTy integerTy) + noCafIdInfo orIntegerId :: Id -orIntegerId = mkVanillaGlobal orIntegerName - (mkFunTy integerTy - (mkFunTy integerTy integerTy)) +orIntegerId = mkVanillaGlobalWithInfo orIntegerName + (mkFunTy integerTy (mkFunTy integerTy integerTy)) + noCafIdInfo \end{code} |