Fix: ! is represented internally as "not".

Author: cristianoc

analysis/src/SemanticTokens.ml

@@ -236,8 +236,9 @@ let parser ~debug ~emitter ~path =
       emitter |> emitFromLoc ~loc:e.pexp_loc ~type_;
       Ast_mapper.default_mapper.expr mapper e
     | Pexp_ident {txt = lid; loc} ->
-      emitter
-      |> emitLongident ~pos:(Utils.tupleOfLexing loc.loc_start) ~lid ~debug;
+      if lid <> Lident "not" then
+        emitter
+        |> emitLongident ~pos:(Utils.tupleOfLexing loc.loc_start) ~lid ~debug;
       Ast_mapper.default_mapper.expr mapper e
     | Pexp_apply ({pexp_desc = Pexp_ident lident; pexp_loc}, args)
       when Res_parsetree_viewer.isJsxExpression e ->

analysis/tests/src/Parser.res

@@ -29,7 +29,7 @@ type pairIntString = list<
   >,
 >
 
-let _ = 3 < 4 || 3 > 4
+let _ = !(3 < 4) || 3 > 4
 
 module type MT = {
   module DDF: {

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

@@ -45,8 +45,8 @@ TypeArg: (26,4)->(26,50)
 TypeArg: (27,4)->(27,53)
 Lident: looooooooooooooooooooooooooooooooooooooong_int (26,4) Type
 Lident: looooooooooooooooooooooooooooooooooooooong_string (27,4) Type
-Binary operator < (31,10)->(31,11)
-Binary operator > (31,19)->(31,20)
+Binary operator < (31,12)->(31,13)
+Binary operator > (31,22)->(31,23)
 Lident: MT (33,12) Type
 Lident: DDF (34,9) Namespace
 Lident: DDF (39,7) Namespace