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
1 changed files with 2 additions and 2 deletions

View File

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