Sourceval tls_edn :
([ `host ] Domain_name.t option * Tls.Config.client * stack * ipaddr * int)
Mimic.value Sourceval tls_protocol :
([ `host ] Domain_name.t option * Tls.Config.client * stack * ipaddr * int,
TLS.flow)
Mimic.protocol Sourceval http_service :
?config:??? ->
error_handler:(dst -> H1.Server_connection.error_handler) ->
(TCP.flow -> dst -> H1.Server_connection.request_handler) ->
t Paf.service Sourceval https_service :
tls:Tls.Config.server ->
?config:??? ->
error_handler:(dst -> H1.Server_connection.error_handler) ->
(TLS.flow -> dst -> H1.Server_connection.request_handler) ->
t Paf.service Sourceval alpn_service :
tls:Tls.Config.server ->
?config:??? ->
(TLS.flow, dst) Alpn.server_handler ->
t Paf.service Sourceval serve : ?stop:??? -> 't Paf.service -> 't -> [ `Initialized of unit Lwt.t ]