Paf (p.letsencrypt-mirage.1.0.0.doc.letsencrypt-mirage.http-server.LE_http

Sourcetype stack = Stack.TCP.t

Sourcetype ipaddr = Stack.TCP.ipaddr

Sourcemodule TCP : sig ... end

Sourcemodule TLS : sig ... end

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

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

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

Source

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

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

Sourcetype dst = ipaddr * int

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

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

Sourceval close : t -> unit Lwt.t

Source

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

Source

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

Source

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

Source

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