simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2026-03-07 21:37:57 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

eio: add 60s shutdown backstop, protect Flow.close from raising

Browse source
This commit is contained in:
Simon Cruanes 2026-02-15 21:26:25 +00:00
parent 3b631b7e4c
commit c6468dced8
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/eio/tiny_httpd_eio.ml
View file

@ -173,7 +173,13 @@ let io_backend ?addr ?port ?unix_sock ?max_connections ?max_buf_pool_size
running = (fun () -> Atomic.get running);
stop =
(fun () ->
Atomic.set running false);
Atomic.set running false;
(* Backstop: fail the switch after 60s if handlers don't complete *)
Eio.Fiber.fork_daemon ~sw (fun () ->
Eio.Time.sleep clock 60.0;
if Eio.Switch.get_error sw |> Option.is_none then
Eio.Switch.fail sw Exit;
`Stop_daemon));
endpoint = (fun () -> actual_addr, actual_port);
active_connections = (fun () -> Atomic.get active_conns);
}
@ -197,7 +203,7 @@ let io_backend ?addr ?port ?unix_sock ?max_connections ?max_buf_pool_size
k "Tiny_httpd_eio: client handler returned");
Atomic.decr active_conns;
Eio.Semaphore.release sem;
Eio.Flow.close conn)
(try Eio.Flow.close conn with Eio.Io _ -> ()))
in
(try
Eio_unix.Fd.use_exn "setsockopt"