ref: 763763f37fb5d16de3c91da15bb604ec33d762ba
dir: /ghc/Data/Integer.hs/
module Data.Integer(_integerToIntList, readInteger) where
-- Same as in Data.Integer
_integerToIntList :: Integer -> [Int]
_integerToIntList i | i < 0 = -1 : to (-i)
| otherwise = to i
where to 0 = []
to n = fromInteger r : to q where (q, r) = quotRem n 2147483648
readInteger :: String -> Integer
readInteger = read