1
1
mirror of https://github.com/github/semantic.git synced 2024-12-30 10:27:45 +03:00

Unparenthesize a thing.

This commit is contained in:
Rob Rix 2017-08-14 15:13:39 -04:00
parent 525c31694a
commit c0c479c302

View File

@ -283,7 +283,7 @@ comparisonOperator = symbol ComparisonOperator >>= \ loc -> children (expression
<|> makeTerm loc <$ symbol AnonNot <*> (Expression.Not <$> (makeTerm <$> location <*> (Expression.Member lexpression <$> expressions))) <|> makeTerm loc <$ symbol AnonNot <*> (Expression.Not <$> (makeTerm <$> location <*> (Expression.Member lexpression <$> expressions)))
<|> makeTerm loc <$ symbol AnonIn <*> (Expression.Member lexpression <$> expressions) <|> makeTerm loc <$ symbol AnonIn <*> (Expression.Member lexpression <$> expressions)
<|> token AnonIs *> (symbol AnonNot *> (makeTerm loc <$> Expression.Not <$> (makeTerm <$> location <*> (Expression.Equal lexpression <$> expressions))) <|> token AnonIs *> (symbol AnonNot *> (makeTerm loc <$> Expression.Not <$> (makeTerm <$> location <*> (Expression.Equal lexpression <$> expressions)))
<|> (makeTerm loc <$> Expression.Equal lexpression <$> expressions)) <|> makeTerm loc <$> Expression.Equal lexpression <$> expressions)
notOperator :: Assignment notOperator :: Assignment
notOperator = makeTerm <$> symbol NotOperator <*> children (Expression.Not <$> expression) notOperator = makeTerm <$> symbol NotOperator <*> children (Expression.Not <$> expression)