Paf (letsencrypt-mirage.LE_http

type stack = Stack.TCP.t

type ipaddr = Stack.TCP.ipaddr

module TCP : sig ... end

module TLS : sig ... end

val tcp_protocol : (stack * ipaddr * int, TCP.flow) Mimic.protocol

val tcp_edn : (stack * ipaddr * int) Mimic.value

val tls_edn : 
  ([ `host ] Domain_name.t option * Tls.Config.client * stack * ipaddr * int)
    Mimic.value

val tls_protocol : 
  ([ `host ] Domain_name.t option * Tls.Config.client * stack * ipaddr * int,
    TLS.flow)
    Mimic.protocol

type t = Paf_mirage.Make(Stack.TCP).t

type dst = ipaddr * int

val init : port:int -> stack -> t Lwt.t

val accept : t -> (TCP.flow, [> `Closed ]) Stdlib.result Lwt.t

val close : t -> unit Lwt.t

val http_service : 
  ?config:H1.Config.t ->
  error_handler:(dst -> H1.Server_connection.error_handler) ->
  (TCP.flow -> dst -> H1.Server_connection.request_handler) ->
  t Paf.service

val https_service : 
  tls:Tls.Config.server ->
  ?config:H1.Config.t ->
  error_handler:(dst -> H1.Server_connection.error_handler) ->
  (TLS.flow -> dst -> H1.Server_connection.request_handler) ->
  t Paf.service

val alpn_service : 
  tls:Tls.Config.server ->
  ?config:(H1.Config.t * H2.Config.t) ->
  (TLS.flow, dst) Alpn.server_handler ->
  t Paf.service

val serve : 
  ?stop:Lwt_switch.t ->
  't Paf.service ->
  't ->
  [ `Initialized of unit Lwt.t ]