Fix == and ===.

Author: cristianoc

analysis/src/SemanticTokens.ml

@@ -224,9 +224,10 @@ let parser ~debug ~emitter ~path =
   let expr (mapper : Ast_mapper.mapper) (e : Parsetree.expression) =
     match e.pexp_desc with
     | Pexp_ident {txt = Lident id}
-      when snd (Utils.tupleOfLexing e.pexp_loc.loc_end)
-           - snd (Utils.tupleOfLexing e.pexp_loc.loc_start)
-           > String.length id
+      when id <> "=" && id <> "=="
+           && snd (Utils.tupleOfLexing e.pexp_loc.loc_end)
+              - snd (Utils.tupleOfLexing e.pexp_loc.loc_start)
+              > String.length id
            (* /"stuff" *) ->
       let type_ = Token.Variable in
       if debug then

analysis/tests/src/Parser.res

@@ -126,3 +126,5 @@ let _ = x =>
   | #stuff => 3
   | #...QQ.somePolyEnumType => 4
   }
+
+let _ = 3 == 3 || 3 === 3

analysis/tests/src/expected/Parser.res.txt

@@ -1,5 +1,5 @@
 Parse tests/src/Parser.res
-structure items:35 diagnostics:0 
+structure items:36 diagnostics:0 
 Lident: M (0,7) Namespace
 Lident: C (1,9) Namespace
 Lident: Component (1,13) Namespace