use Construct arguments suggested by @voodoos

ocaml · Jul 7, 2021 · 040446a · 040446a
1 parent a6558c5
commit 040446a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/ocaml-lsp-server/src/compl.ml b/ocaml-lsp-server/src/compl.ml
@@ -168,8 +168,7 @@ let complete_prefix doc prefix pos =
     ~f:(completionItem_of_completion_entry ~range ~compl_params)
 
 let construct doc position =
-  let depth = 1 (* TODO: need to be more flexible with this value? discuss *) in
-  let command = Query_protocol.Construct (position, Some `Local, Some depth) in
+  let command = Query_protocol.Construct (position, None, None) in
   let open Fiber.O in
   let+ r = Document.dispatch doc command in
   match r with