1
1
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +03:00

s/Binary/BinaryExpression

This commit is contained in:
joshvera 2017-08-21 19:05:37 -04:00
parent 9437f2c411
commit 9b8b46d13a

View File

@ -903,7 +903,7 @@ unary = symbol Unary >>= \ location ->
<|> makeTerm location . Expression.Negate <$> children expression -- Unary minus (e.g. `-a`). HiddenUnaryMinus nodes are hidden, so we can't match on the symbol.
binary :: Assignment
binary = symbol Binary >>= \ loc -> children $ expression >>= \ lexpression -> go loc lexpression
binary = symbol BinaryExpression >>= \ loc -> children $ expression >>= \ lexpression -> go loc lexpression
where
go loc lexpression
= mk AnonAnd Expression.And