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:
parent
6d1b076316
commit
7503a48ef1
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user