forked from
jonmsterling.com/ocaml-forester
ocaml
cleanup, remove an assertion
authored by
Kento Okura
and committed by
Jon Sterling
d60f5567
4915b159
+3
-9
+3
-9
lib/language_server/Definitions.ml
+3
-9
lib/language_server/Definitions.ml
···
13
13
14
14
let (let*) = Option.bind
15
15
16
-
let compute
17
-
(params : L.DefinitionParams.t)
18
-
: L.Locations.t option
19
-
=
16
+
let compute (params : L.DefinitionParams.t) =
20
17
match params with
21
-
| {textDocument;
22
-
position;
23
-
_;
24
-
} ->
18
+
| {textDocument; position; _;} ->
25
19
let Lsp_state.{forest; _} = Lsp_state.get () in
26
20
let host = forest.config.host in
27
21
let uri = URI_scheme.lsp_uri_to_uri ~host textDocument.uri in
···
29
23
| None -> None
30
24
| Some code ->
31
25
match Analysis.addr_at ~position code.nodes with
32
-
| None -> assert false
26
+
| None -> None
33
27
| Some addr ->
34
28
let uri = URI_scheme.user_uri ~host addr in
35
29
let path = URI.Tbl.find forest.resolver uri in