fix error parsing //
(opLetter characters)
This commit is contained in:
parent
4a271d0103
commit
ec5742a1a8
|
@ -76,10 +76,10 @@ reservedOp o = token $ try $ () <$
|
||||||
highlight ReservedOperator (string o) <* (notFollowedBy opLetter <?> "end of " ++ o)
|
highlight ReservedOperator (string o) <* (notFollowedBy opLetter <?> "end of " ++ o)
|
||||||
|
|
||||||
opStart :: CharParsing m => m Char
|
opStart :: CharParsing m => m Char
|
||||||
opStart = oneOf ":!#$%&*+./<=>?@\\^|-~"
|
opStart = oneOf ".+-*/=<>&|!?"
|
||||||
|
|
||||||
opLetter :: CharParsing m => m Char
|
opLetter :: CharParsing m => m Char
|
||||||
opLetter = oneOf "@>-+"
|
opLetter = oneOf ">-+/&|="
|
||||||
|
|
||||||
identStart :: CharParsing m => m Char
|
identStart :: CharParsing m => m Char
|
||||||
identStart = letter <|> char '_'
|
identStart = letter <|> char '_'
|
||||||
|
|
Loading…
Reference in a new issue