From 8a6737b0795ab908d331cf58742d92cb9714c63b Mon Sep 17 00:00:00 2001 From: Kevin Orr Date: Tue, 2 Jul 2019 16:38:17 -0400 Subject: [PATCH] [#188] Fix PHP strict inequality assignment --- src/Language/PHP/Assignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/PHP/Assignment.hs b/src/Language/PHP/Assignment.hs index 605744b383..0eab610abb 100644 --- a/src/Language/PHP/Assignment.hs +++ b/src/Language/PHP/Assignment.hs @@ -255,7 +255,7 @@ binaryExpression = makeTerm' <$> symbol BinaryExpression <*> children (infixTerm , (inject .) . Expression.Or <$ symbol AnonQuestionQuestion -- Not sure if this is right. , (inject .) . Expression.Equal <$ symbol AnonEqualEqual , (inject .) . Expression.StrictEqual <$ symbol AnonEqualEqualEqual - , (inject .) . invert Expression.Equal <$ (symbol AnonBangEqual <|> symbol AnonLAngleRAngle <|> symbol AnonBangEqualEqual) + , (inject .) . invert Expression.Equal <$ (symbol AnonBangEqual <|> symbol AnonLAngleRAngle) , (inject .) . invert Expression.StrictEqual <$ symbol AnonBangEqualEqual , (inject .) . Expression.LessThan <$ symbol AnonLAngle , (inject .) . Expression.GreaterThan <$ symbol AnonRAngle