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)
|
||||
|
||||
opStart :: CharParsing m => m Char
|
||||
opStart = oneOf ":!#$%&*+./<=>?@\\^|-~"
|
||||
opStart = oneOf ".+-*/=<>&|!?"
|
||||
|
||||
opLetter :: CharParsing m => m Char
|
||||
opLetter = oneOf "@>-+"
|
||||
opLetter = oneOf ">-+/&|="
|
||||
|
||||
identStart :: CharParsing m => m Char
|
||||
identStart = letter <|> char '_'
|
||||
|
|
Loading…
Reference in New Issue