From 9b8b46d13a3dea8ac525ab0aca814419fa4af680 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Mon, 21 Aug 2017 19:05:37 -0400
Subject: [PATCH] s/Binary/BinaryExpression

---
 src/Language/TypeScript/Syntax.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Language/TypeScript/Syntax.hs b/src/Language/TypeScript/Syntax.hs
index c3734f8d8..852179ca8 100644
--- a/src/Language/TypeScript/Syntax.hs
+++ b/src/Language/TypeScript/Syntax.hs
@@ -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