fix: remove unused code

ps-id: 1BCE56E0-0364-4F2A-98A7-E8CBBD3011B7

Author: rgrinberg

ocaml-lsp-server/src/document_store.ml

@@ -27,33 +27,6 @@ let remove_document store uri =
         let+ () = Document.close doc in
         Table.remove store uri)
 
-let unregister_promotions t uris =
-  let* () = Fiber.return () in
-  List.filter uris ~f:(fun uri ->
-      match Table.find t.db uri with
-      | None -> false
-      | Some doc ->
-        let doc = { doc with promotions = doc.promotions - 1 } in
-        let unsubscribe = doc.promotions = 0 in
-        if unsubscribe && doc.document = None then
-          Table.remove t.db uri
-        else
-          Table.set t.db uri doc;
-        unsubscribe)
-  |> unregister_request t
-
-let register_promotions t uris =
-  let* () = Fiber.return () in
-  List.filter uris ~f:(fun uri ->
-      let doc, subscribe =
-        match Table.find t.db uri with
-        | None -> ({ document = None; promotions = 0 }, true)
-        | Some doc -> ({ doc with promotions = doc.promotions + 1 }, false)
-      in
-      Table.set t.db uri doc;
-      subscribe)
-  |> register_request t
-
 let close t =
   Fiber.of_thunk (fun () ->
       let docs = Table.fold t ~init:[] ~f:(fun doc acc -> doc :: acc) in

ocaml-lsp-server/src/document_store.mli

@@ -12,8 +12,4 @@ val get_opt : t -> Uri.t -> Document.t option
 
 val remove_document : t -> Uri.t -> unit Fiber.t
 
-val unregister_promotions : t -> Uri.t list -> unit Fiber.t
-
-val register_promotions : t -> Uri.t list -> unit Fiber.t
-
 val close : t -> unit Fiber.t