1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

🔥 NBSP

This commit is contained in:
Rick Winfrey 2018-06-22 15:45:02 -07:00
parent 67823c7be7
commit ea02ff5a92

View File

@ -278,7 +278,7 @@ comparisonOperator = symbol ComparisonOperator *> children (expression `chainl1T
, (makeTerm1 .) . Expression.Member <$ symbol AnonIn , (makeTerm1 .) . Expression.Member <$ symbol AnonIn
, token AnonIs *> ((makeTerm1 .) . invert Expression.Equal <$ symbol AnonNot <|> pure ((makeTerm1 .) . Expression.Equal)) , token AnonIs *> ((makeTerm1 .) . invert Expression.Equal <$ symbol AnonNot <|> pure ((makeTerm1 .) . Expression.Equal))
]) ])
where invert cons a b = Expression.Not (makeTerm1 (cons a b)) where invert cons a b = Expression.Not (makeTerm1 (cons a b))
notOperator :: Assignment notOperator :: Assignment
notOperator = makeTerm <$> symbol NotOperator <*> children (Expression.Not <$> term expression) notOperator = makeTerm <$> symbol NotOperator <*> children (Expression.Not <$> term expression)