Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Numeric/ShowInt.hs
module Numeric where import ShowIntBase import Char (intToDigit) showInt :: (Integral a) => a -> ShowS showInt = showIntAtBase 10 intToDigit