diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-23 13:30:45 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-23 13:30:45 +0100 |
| commit | 0a69e14bdb2e3a9a3e9405eee70addd878126e3c (patch) | |
| tree | 14eb5f3a2230fdf7a168a6e040b7f7e9715b24cc /libraries/base/GHC/Int.hs | |
| parent | 7359f8146c99354820221db9bae8c0722e189ae7 (diff) | |
| download | haskell-0a69e14bdb2e3a9a3e9405eee70addd878126e3c.tar.gz | |
Follow toInt# -> integerToInt renaming
Diffstat (limited to 'libraries/base/GHC/Int.hs')
| -rw-r--r-- | libraries/base/GHC/Int.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/GHC/Int.hs b/libraries/base/GHC/Int.hs index d9f131ebd7..42e5c9f083 100644 --- a/libraries/base/GHC/Int.hs +++ b/libraries/base/GHC/Int.hs @@ -68,7 +68,7 @@ instance Num Int8 where signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I8# (narrow8Int# (toInt# i)) + fromInteger i = I8# (narrow8Int# (integerToInt i)) instance Real Int8 where toRational x = toInteger x % 1 @@ -210,7 +210,7 @@ instance Num Int16 where signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I16# (narrow16Int# (toInt# i)) + fromInteger i = I16# (narrow16Int# (integerToInt i)) instance Real Int16 where toRational x = toInteger x % 1 @@ -500,7 +500,7 @@ instance Num Int32 where signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I32# (narrow32Int# (toInt# i)) + fromInteger i = I32# (narrow32Int# (integerToInt i)) instance Enum Int32 where succ x @@ -815,7 +815,7 @@ instance Num Int64 where signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I64# (toInt# i) + fromInteger i = I64# (integerToInt i) instance Enum Int64 where succ x |