forked from
jonmsterling.com/ocaml-forester
ocaml
LSP: add a debug log to a fatal assert that is happening sometimes
+3
-1
+3
-1
lib/language_server/Did_change.ml
+3
-1
lib/language_server/Did_change.ml
···
18
18
let uri = URI_scheme.lsp_uri_to_uri ~base: forest.config.url lsp_uri in
19
19
let@ tree = Option.iter @~ forest.={uri} in
20
20
match Tree.to_doc tree with
21
-
| None -> assert false
21
+
| None ->
22
+
Logs.debug (fun m -> m "Did_change.compute fatal error, could not find tree with uri %a from LSP uri %s" URI.pp uri (Lsp.Uri.to_string lsp_uri));
23
+
assert false
22
24
| Some doc ->
23
25
let new_doc = Lsp.Text_document.apply_content_changes doc params.contentChanges in
24
26
forest.={uri} <- Document new_doc;