-- ---------------------------------------------------------------------------
-- Integer printing functions
-- ---------------------------------------------------------------------------
-- Integer printing functions
showIntAtBase base toChr n r
| n < 0 = error ("Numeric.showIntAtBase: applied to negative number " ++ show n)
| otherwise =
case quotRem n base of { (n', d) ->
showIntAtBase base toChr n r
| n < 0 = error ("Numeric.showIntAtBase: applied to negative number " ++ show n)
| otherwise =
case quotRem n base of { (n', d) ->