charLiteral :: TokenParser Char
charLiteral = token go P.<?> "char literal"
  where go (CharLiteral c) = Just c
        go _               = Nothing
charLiteral :: TokenParser Char
charLiteral = token go P.<?> "char literal"
  where go (CharLiteral c) = Just c
        go _               = Nothing
charLiteral = token go P.<?> "char literal"
  where go (CharLiteral c) = Just c
        go _               = Nothing