simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add Server.run_exn

Browse source
This commit is contained in:
Simon Cruanes 2023-07-11 10:01:33 -04:00
parent ecc9f07748
commit ec2f2f6f2e
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 16 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Tiny_httpd_server.ml
View file

@ -1085,15 +1085,14 @@ let is_ipv6 (self : t) =
let (module B) = self.backend in let (module B) = self.backend in
is_ipv6_str (B.init_addr ()) is_ipv6_str (B.init_addr ())
(* TODO: init TCP server *) let run_exn ?(after_init = ignore) (self : t) : unit =
let run ?(after_init = ignore) (self : t) : (unit, _) result =
try
let (module B) = self.backend in let (module B) = self.backend in
let server = B.tcp_server () in let server = B.tcp_server () in
server.serve server.serve
~after_init:(fun tcp_server -> ~after_init:(fun tcp_server ->
self.tcp_server <- Some tcp_server; self.tcp_server <- Some tcp_server;
after_init ()) after_init ())
~handle:(client_handler self) (); ~handle:(client_handler self) ()
Ok ()
with e -> Error e let run ?after_init self : _ result =
try Ok (run_exn ?after_init self) with e -> Error e

6
src/Tiny_httpd_server.mli
View file

@ -606,9 +606,13 @@ val run : ?after_init:(unit -> unit) -> t -> (unit, exn) result
it exits with an error. it exits with an error.
@param after_init is called after the server starts listening. since 0.13 . @param after_init is called after the server starts listening. since 0.13 .
*) *)
val run_exn : ?after_init:(unit -> unit) -> t -> unit
(** [run_exn s] is like [run s] but re-raises an exception if the server exits
with an error.
@since NEXT_RELEASE *)
(**/**) (**/**)
val _debug : val _debug :