udpate @since tags

This commit is contained in:
Simon Cruanes 2024-02-20 12:58:43 -05:00
parent 630a6226bc
commit 6d2d6a8f40
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
4 changed files with 8 additions and 8 deletions

View file

@ -7,11 +7,11 @@ include
and type out_channel = out_channel and type out_channel = out_channel
val n_bytes_written : int Atomic.t val n_bytes_written : int Atomic.t
(** @since NEXT_RELEASE *) (** @since 0.5 *)
val n_bytes_read : int Atomic.t val n_bytes_read : int Atomic.t
(** @since NEXT_RELEASE *) (** @since 0.5 *)
val default_spawn : (unit -> unit) -> unit val default_spawn : (unit -> unit) -> unit
(** Start a new thread. (** Start a new thread.
@since NEXT_RELEASE *) @since 0.5 *)

View file

@ -22,7 +22,7 @@ module type S = sig
val send_server_notification : t -> Lsp.Server_notification.t -> unit IO.t val send_server_notification : t -> Lsp.Server_notification.t -> unit IO.t
(** Send a notification from the server. (** Send a notification from the server.
@since NEXT_RELEASE *) @since 0.5 *)
val send_server_request : val send_server_request :
t -> t ->
@ -31,7 +31,7 @@ module type S = sig
Req_id.t IO.t Req_id.t IO.t
(** Send a request from the server, and pass a callback that will be (** Send a request from the server, and pass a callback that will be
called with the result in the future. called with the result in the future.
@since NEXT_RELEASE *) @since 0.5 *)
val run : ?shutdown:(unit -> bool) -> t -> unit IO.t val run : ?shutdown:(unit -> bool) -> t -> unit IO.t
(** Listen for incoming messages and responses. (** Listen for incoming messages and responses.

View file

@ -32,7 +32,7 @@ module IO_lwt :
end end
(** Spawn function. (** Spawn function.
@since NEXT_RELEASE *) @since 0.5 *)
let spawn f = let spawn f =
Lwt.async (fun () -> Lwt.async (fun () ->
Lwt.catch f (fun exn -> Lwt.catch f (fun exn ->

View file

@ -72,7 +72,7 @@ module Make (IO : IO) = struct
method virtual spawn_query_handler : (unit -> unit IO.t) -> unit method virtual spawn_query_handler : (unit -> unit IO.t) -> unit
(** How to start a new future/task/thread concurrently. This is used (** How to start a new future/task/thread concurrently. This is used
to process incoming user queries. to process incoming user queries.
@since NEXT_RELEASE *) @since 0.5 *)
end end
let async (self : #base_server) f : unit IO.t = let async (self : #base_server) f : unit IO.t =
@ -165,7 +165,7 @@ module Make (IO : IO) = struct
method get_status = status method get_status = status
(** Check if exit or shutdown request was made by the client. (** Check if exit or shutdown request was made by the client.
@since NEXT_RELEASE *) @since 0.5 *)
method find_doc (uri : DocumentUri.t) : doc_state option = method find_doc (uri : DocumentUri.t) : doc_state option =
try Some (Hashtbl.find docs uri) with Not_found -> None try Some (Hashtbl.find docs uri) with Not_found -> None