Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Numeric/ReadHex.hs
module Numeric where import IsHexDigit import DigitToInt import ReadInt readHex :: (Integral a) => ReadS a readHex = readInt 16 isHexDigit digitToInt