ocaml
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

cleanup, remove an assertion

authored by

Kento Okura and committed by
Jon Sterling
d60f5567 4915b159

+3 -9
+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