Specify -index 0 in type-enclosing queries.

This change might greatly improve performances in some cases where Merlin would format big types that were discarded by ocaml-lsp anyway.
ocaml · Sep 26, 2023 · 5f5e1f2 · 5f5e1f2
1 parent 26b52dd
commit 5f5e1f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml-lsp-server/src/document.ml b/ocaml-lsp-server/src/document.ml
@@ -289,7 +289,7 @@ module Merlin = struct
 
   let type_enclosing doc pos verbosity =
     with_pipeline_exn doc (fun pipeline ->
-        let command = Query_protocol.Type_enclosing (None, pos, None) in
+        let command = Query_protocol.Type_enclosing (None, pos, Some 0) in
         let pipeline =
           match verbosity with
           | 0 -> pipeline