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

Allow 1>=-2 as a valid parse

Browse source
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 reserved = reserve identStyle
reservedOp :: TokenParsing m => String -> m () reservedOp :: TokenParsing m => String -> m ()
reservedOp o = token $ try $ () <$ reservedOp o = token $ try $ void $
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 '_'