A minor simplification in the parser

This commit is contained in:
John Wiegley 2018-04-16 18:45:28 -07:00
parent 136708ae8a
commit 8c4b134622

View file

@ -83,12 +83,13 @@ nixTerm = do
_ -> choice $
[ nixSelect nixSet | c == 'r' ] ++
[ nixPath | pathChar c ] ++
[ nixUri | isAlpha c ] ++
(if isDigit c then [ nixFloat
, nixInt ] else []) ++
[ nixBool | c == 't' || c == 'f' ] ++
[ nixNull | c == 'n' ] ++
[ nixSelect nixSym ]
if isDigit c
then [ nixFloat
, nixInt ]
else [ nixUri | isAlpha c ] ++
[ nixBool | c == 't' || c == 'f' ] ++
[ nixNull | c == 'n' ] ++
[ nixSelect nixSym ]
nixToplevelForm :: Parser NExprLoc
nixToplevelForm = keywords <|> nixLambda <|> nixExprLoc