-- | Parse a hexadeciaml digit.
hexDigit :: Stream s Char =>  Parser s Char
hexDigit = satisfy isHexDigit
hexDigit :: Stream s Char =>  Parser s Char
hexDigit = satisfy isHexDigit
hexDigit = satisfy isHexDigit