From 289f6f67f1680f4649689d3c829644c6bf259dea Mon Sep 17 00:00:00 2001 From: joshvera Date: Tue, 22 Aug 2017 12:30:41 -0400 Subject: [PATCH] remove assignment' --- src/Language/TypeScript/Syntax.hs | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/src/Language/TypeScript/Syntax.hs b/src/Language/TypeScript/Syntax.hs index 7f7a03571..27f7291d9 100644 --- a/src/Language/TypeScript/Syntax.hs +++ b/src/Language/TypeScript/Syntax.hs @@ -883,28 +883,6 @@ rescue = rescue' ex = makeTerm <$> symbol Exceptions <*> children (many expression) <|> makeTerm <$> symbol ExceptionVariable <*> children (many expression) -assignment' :: Assignment -assignment' - = makeTerm <$> symbol Assignment <*> children (Statement.Assignment <$> lhs <*> rhs) - <|> makeTerm <$> symbol OperatorAssignment <*> children (lhs >>= \ var -> Statement.Assignment var <$> - (makeTerm <$> symbol AnonPlusEqual <*> (Expression.Plus var <$> expression) - <|> makeTerm <$> symbol AnonMinusEqual <*> (Expression.Minus var <$> expression) - <|> makeTerm <$> symbol AnonStarEqual <*> (Expression.Times var <$> expression) - <|> makeTerm <$> symbol AnonSlashEqual <*> (Expression.DividedBy var <$> expression) - <|> makeTerm <$> symbol AnonPipePipeEqual <*> (Expression.And var <$> expression) - <|> makeTerm <$> symbol AnonPipeEqual <*> (Expression.BOr var <$> expression) - <|> makeTerm <$> symbol AnonAmpersandAmpersandEqual <*> (Expression.And var <$> expression) - <|> makeTerm <$> symbol AnonAmpersandEqual <*> (Expression.BAnd var <$> expression) - <|> makeTerm <$> symbol AnonPercentEqual <*> (Expression.Modulo var <$> expression) - <|> makeTerm <$> symbol AnonRAngleRAngleEqual <*> (Expression.RShift var <$> expression) - <|> makeTerm <$> symbol AnonLAngleLAngleEqual <*> (Expression.LShift var <$> expression) - <|> makeTerm <$> symbol AnonCaretEqual <*> (Expression.BXOr var <$> expression))) - where - lhs = makeTerm <$> symbol LeftAssignmentList <*> children (many expr) <|> expr - rhs = makeTerm <$> symbol RightAssignmentList <*> children (many expr) <|> expr - expr = - makeTerm <$> symbol RestAssignment <*> (Syntax.Identifier <$> source) - <|> argument tryStatement :: Assignment tryStatement = makeTerm <$> symbol TryStatement <*> children (Statement.Try <$> expressions <*> many rescue)