From ce0f8f38ce3c273627315142b1585362ffc85730 Mon Sep 17 00:00:00 2001 From: Aaron Bauer Date: Thu, 19 Dec 2024 10:15:39 -0500 Subject: [PATCH] Fix bug in t_of_yojson for merlin call compatible request params --- .../src/custom_requests/req_merlin_call_compatible.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ocaml-lsp-server/src/custom_requests/req_merlin_call_compatible.ml b/ocaml-lsp-server/src/custom_requests/req_merlin_call_compatible.ml index 41ec7633c..8d4fca9a0 100644 --- a/ocaml-lsp-server/src/custom_requests/req_merlin_call_compatible.ml +++ b/ocaml-lsp-server/src/custom_requests/req_merlin_call_compatible.ml @@ -70,7 +70,9 @@ module Request_params = struct let result_as_sexp = json |> member "resultAsSexp" |> to_bool in let command = json |> member "command" |> to_string in let args = args_of_yojson json in - let text_document = TextDocumentIdentifier.t_of_yojson json in + let text_document = + json |> member "textDocument" |> TextDocumentIdentifier.t_of_yojson + in { text_document; result_as_sexp; command; args } ;;