shithub: MicroHs

ref: d4d8306d5bd23fb6555662a7883a2d1a1cdda07c
dir: /ghc/Data/Integer.hs/

View raw version 
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