From 044fbbbc202c6b96a2ad1708089768aea41f0ed8 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Tue, 17 Sep 2019 12:22:35 -0400 Subject: [PATCH] ExpressionCaseClause went away --- src/Language/Go/Assignment.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Language/Go/Assignment.hs b/src/Language/Go/Assignment.hs index 2ce93dcbf..4b2028ede 100644 --- a/src/Language/Go/Assignment.hs +++ b/src/Language/Go/Assignment.hs @@ -405,13 +405,13 @@ expressionCase :: Assignment Term expressionCase = makeTerm <$> symbol ExpressionCase <*> (Statement.Pattern <$> children expressions <*> expressions) expressionCaseClause :: Assignment Term -expressionCaseClause = symbol ExpressionCaseClause *> children (expressionCase <|> defaultExpressionCase) +expressionCaseClause = children (expressionCase <|> defaultExpressionCase) expressionList :: Assignment Term expressionList = symbol ExpressionList *> children expressions expressionSwitchStatement :: Assignment Term -expressionSwitchStatement = makeTerm <$> symbol ExpressionSwitchStatement <*> children (Statement.Match <$> (makeTerm <$> location <*> manyTermsTill expression (void (symbol ExpressionCaseClause)) <|> emptyTerm) <*> expressions) +expressionSwitchStatement = makeTerm <$> symbol ExpressionSwitchStatement <*> children (Statement.Match <$> (makeTerm <$> location <*> manyTermsTill expression (void (symbol ExpressionCase)) <|> emptyTerm) <*> expressions) fallThroughStatement :: Assignment Term fallThroughStatement = makeTerm <$> symbol FallthroughStatement <*> (Statement.Pattern <$> (makeTerm <$> location <*> (Syntax.Identifier . name <$> source)) <*> emptyTerm)