1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

Contextualize rather than term rhs of binary expression

This commit is contained in:
Rick Winfrey 2017-11-20 10:42:24 -08:00
parent 4d92c9ce4e
commit 31f07845d5

View File

@ -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