urbit-atom: don't use unboxed tuples (breaks ghci)
@@ -69,7 +69,7 @@ bigNatBitWidth# :: BigNat -> Word#
bigNatBitWidth# nat =
lswBits `plusWord#` ((int2Word# lastIdx) `timesWord#` BIT##)
where
- (# lastIdx, _ #) = subIntC# (sizeofBigNat# nat) 1#
+ I# lastIdx = (I# (sizeofBigNat# nat)) - 1
lswBits = wordBitWidth# (indexBigNat# nat lastIdx)
atomBitWidth# :: Natural -> Word#
