1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00

Allow multiple expressions for all of these

This commit is contained in:
Timothy Clem 2017-08-01 11:43:03 -07:00
parent 6d1b076316
commit 7503a48ef1

View File

@ -125,7 +125,7 @@ expression =
<|> until'
<|> while'
<|> parseError
where mk s construct = makeTerm <$> symbol s <*> children ((construct .) . fromMaybe <$> emptyTerm <*> optional (symbol ArgumentList *> children expression))
where mk s construct = makeTerm <$> symbol s <*> children ((construct .) . fromMaybe <$> emptyTerm <*> optional (symbol ArgumentList *> children expressions))
expressions :: Assignment
expressions = makeTerm <$> location <*> many expression