Allow 1>=-2 as a valid parse
This commit is contained in:
parent
3561fc8144
commit
36985e170c
|
@ -102,14 +102,15 @@ reserved :: (TokenParsing m, Monad m) => String -> m ()
|
|||
reserved = reserve identStyle
|
||||
|
||||
reservedOp :: TokenParsing m => String -> m ()
|
||||
reservedOp o = token $ try $ () <$
|
||||
highlight ReservedOperator (string o) <* (notFollowedBy opLetter <?> "end of " ++ o)
|
||||
reservedOp o = token $ try $ void $
|
||||
highlight ReservedOperator (string o)
|
||||
<* (notFollowedBy opLetter <?> "end of " ++ o)
|
||||
|
||||
opStart :: CharParsing m => m Char
|
||||
opStart = oneOf ".+-*/=<>&|!?"
|
||||
|
||||
opLetter :: CharParsing m => m Char
|
||||
opLetter = oneOf ">-+/&|="
|
||||
opLetter = oneOf ">+/&|="
|
||||
|
||||
identStart :: CharParsing m => m Char
|
||||
identStart = letter <|> char '_'
|
||||
|
|
Loading…
Reference in a new issue