mirror of
https://github.com/github/semantic.git
synced 2025-01-03 13:02:37 +03:00
Allow multiple expressions for all of these
This commit is contained in:
parent
6d1b076316
commit
7503a48ef1
@ -125,7 +125,7 @@ expression =
|
|||||||
<|> until'
|
<|> until'
|
||||||
<|> while'
|
<|> while'
|
||||||
<|> parseError
|
<|> 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 :: Assignment
|
||||||
expressions = makeTerm <$> location <*> many expression
|
expressions = makeTerm <$> location <*> many expression
|
||||||
|
Loading…
Reference in New Issue
Block a user