-- | Hexadecimal numbers @\'0\', \'1\', ... \'9\', \'A\', \'B\', ... \'F\',
-- \'a\', \'b\', ... \'f\'@
hexNumbers :: FromAscii a => (a -> t -> t) -> t -> t
hexNumbers cons = numbers cons . construct [65..70] cons
    . construct [97..102] cons
hexNumbers :: FromAscii a => (a -> t -> t) -> t -> t
hexNumbers cons = numbers cons . construct [65..70] cons
    . construct [97..102] cons
hexNumbers cons = numbers cons . construct [65..70] cons
    . construct [97..102] cons