From 31f07845d5f3aaa3eb2451ce607c267767b547f8 Mon Sep 17 00:00:00 2001 From: Rick Winfrey Date: Mon, 20 Nov 2017 10:42:24 -0800 Subject: [PATCH] Contextualize rather than term rhs of binary expression --- src/Language/Go/Assignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/Go/Assignment.hs b/src/Language/Go/Assignment.hs index ce510bea6..cd7f5173c 100644 --- a/src/Language/Go/Assignment.hs +++ b/src/Language/Go/Assignment.hs @@ -425,7 +425,7 @@ unaryExpression = symbol UnaryExpression >>= \ location -> (notExpression locati unaryComplement = children (makeTerm <$> symbol AnonCaret <*> (Expression.Complement <$> term expression)) binaryExpression :: Assignment -binaryExpression = makeTerm' <$> symbol BinaryExpression <*> children (infixTerm expression (term expression) +binaryExpression = makeTerm' <$> symbol BinaryExpression <*> children (infixTerm expression (contextualize comment expression) [ (inj .) . Expression.Plus <$ symbol AnonPlus , (inj .) . Expression.Minus <$ symbol AnonMinus , (inj .) . Expression.Times <$ symbol AnonStar