This commit is contained in:
Simon Cruanes 2020-08-03 21:40:42 -04:00
parent 13dca59afd
commit a679ddf1d1

View file

@ -538,7 +538,7 @@ val stop : t -> unit
val run : t -> (unit, exn) result val run : t -> (unit, exn) result
(** Run the main loop of the server, listening on a socket (** Run the main loop of the server, listening on a socket
described at the server's creation time, using [new_thread] to described at the server's creation time, using [new_thread] to
start a thread for each new client. start a thread for each new client.
This returns [Ok ()] if the server exits gracefully, or [Error e] if This returns [Ok ()] if the server exits gracefully, or [Error e] if
it exits with an error. *) it exits with an error. *)