ignore semantic tokens at ghost locations

Author: jboillot

ocaml-lsp-server/src/semantic_highlighting.ml

@@ -188,6 +188,7 @@ end = struct
   let append_token : t -> Loc.t -> Token_type.t -> Token_modifiers_set.t -> unit
       =
    fun t loc token_type token_modifiers ->
+    if loc.loc_ghost then () else
     let range = Range.of_loc_opt loc in
     Option.iter range ~f:(fun ({ start; end_ } : Range.t) ->
         (* TODO: we currently don't handle multi-line range; could handle if
@@ -294,6 +295,7 @@ end = struct
      https://v2.ocaml.org/manual/names.html#sss:refer-named *)
   let lident ({ loc; _ } : Longident.t Loc.loc) rightmost_name
       ?(modifiers = Token_modifiers_set.empty) () =
+    if loc.loc_ghost then () else
     let start = Position.of_lexical_position loc.loc_start in
     match start with
     | None -> ()