1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00

CommunicationClause went away

This commit is contained in:
Patrick Thomson 2019-09-17 12:23:38 -04:00
parent 044fbbbc20
commit 3ea0361bb0

View File

@ -571,7 +571,7 @@ breakStatement :: Assignment Term
breakStatement = makeTerm <$> symbol BreakStatement <*> children (Statement.Break <$> (expression <|> emptyTerm)) breakStatement = makeTerm <$> symbol BreakStatement <*> children (Statement.Break <$> (expression <|> emptyTerm))
communicationClause :: Assignment Term communicationClause :: Assignment Term
communicationClause = makeTerm <$> symbol CommunicationClause <*> children (Statement.Pattern <$> (communicationCase <|> expression) <*> expressions) communicationClause = makeTerm <$> location <*> children (Statement.Pattern <$> (communicationCase <|> expression) <*> expressions)
where where
communicationCase = symbol CommunicationCase *> children expression communicationCase = symbol CommunicationCase *> children expression