picnoir
/
hnix
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Allow 1>=-2 as a valid parse

This commit is contained in:
John Wiegley 2018-04-05 21:36:12 -07:00
parent 3561fc8144
commit 36985e170c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Nix/Parser/Library.hs
View File

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