From 040446a32add7a8f29d1ebb825c87c0b68535b68 Mon Sep 17 00:00:00 2001 From: Ulugbek Abdullaev Date: Wed, 7 Jul 2021 16:57:04 +0500 Subject: [PATCH] use `Construct` arguments suggested by @voodoos --- ocaml-lsp-server/src/compl.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/ocaml-lsp-server/src/compl.ml b/ocaml-lsp-server/src/compl.ml index 0fac01fb1..8018b5cc9 100644 --- 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