fix error parsing // (opLetter characters)

This commit is contained in:
Benno Fünfstück 2014-08-16 00:35:36 +02:00
parent 4a271d0103
commit ec5742a1a8

View file

@ -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 '_'