This commit is contained in:
swrup 2025-11-05 22:54:19 +01:00
parent 9e9d74c53c
commit 42ce1233fd

View file

@ -228,7 +228,8 @@ struct
HTTP_server.http_service ~error_handler:Server.http_1_1_error_handler
http_1_1_request_handler
in
Paf.serve http_1_1_service http_server |> fun (`Initialized th) -> th
let (`Initialized th) = Paf.serve http_1_1_service http_server in
th
let start assets_ro certificate_ro key_ro tcpv4v6 http_server =
let open Lwt.Syntax in