diff options
| -rw-r--r-- | libraries/base/GHC/Natural.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Natural.hs b/libraries/base/GHC/Natural.hs index 3adfd40d46..e9b37b1c30 100644 --- a/libraries/base/GHC/Natural.hs +++ b/libraries/base/GHC/Natural.hs @@ -332,7 +332,7 @@ instance Bits Natural where rotateR = shiftR popCount (NatS# w) = popCount (W# w) - popCount (NatJ# bn) = popCount (Jp# bn) + popCount (NatJ# bn) = I# (popCountBigNat bn) zeroBits = NatS# 0## |