forked from
jonmsterling.com/ocaml-forester
ocaml
LSP/completion: don't auto-insert closing bracket
+1
-8
+1
-8
lib/language_server/Completion.ml
+1
-8
lib/language_server/Completion.ml
···
352
352
in
353
353
Some (`String content)
354
354
in
355
-
let insertText =
356
-
(* TODO if host = current_host insert shortform else insert fully qualified uri*)
357
-
match triggerCharacter with
358
-
| Some "{" -> URI_scheme.name uri ^ "}"
359
-
| Some "(" -> URI_scheme.name uri ^ ")"
360
-
| Some "[" -> URI_scheme.name uri ^ "]"
361
-
| _ -> URI_scheme.name uri
362
-
in
355
+
let insertText = URI_scheme.name uri in
363
356
let title_text = Option.map render title in
364
357
let filterText = Option.fold ~none: insertText ~some: (fun s -> insertText ^ " " ^ s) title_text in
365
358
L.CompletionItem.create