diff options
| -rw-r--r-- | libraries/integer-simple/GHC/Integer/Type.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/integer-simple/GHC/Integer/Type.hs b/libraries/integer-simple/GHC/Integer/Type.hs index ee2c08f6f0..f87f1c314f 100644 --- a/libraries/integer-simple/GHC/Integer/Type.hs +++ b/libraries/integer-simple/GHC/Integer/Type.hs @@ -318,8 +318,8 @@ shiftRInteger Naught _ = Naught -- reimplementation of the default Data.Bits instance, so that we can -- implement the Integer interface testBitInteger :: Integer -> Int# -> Bool -testBitInteger x i = (x `andInteger` (smallInteger 1# `shiftLInteger` i)) - `neqInteger` smallInteger 0# +testBitInteger x i = (x `andInteger` (oneInteger `shiftLInteger` i)) + `neqInteger` Naught twosComplementPositive :: Positive -> DigitsOnes twosComplementPositive p = flipBits (p `minusPositive` onePositive) |