package letsencrypt-mirage

You can search for identifiers within the package.

in-package search v0.2.0

letsencrypt-mirage
- LE
  - Make
letsencrypt-mirage.http-server
- LE_http_server
  - Make
    
    Paf
    
    TCP
    
    TLS

Legend:
Library
Module
Module type
Parameter
Class
Class type

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:Httpaf.Config.t ->
  error_handler:(dst -> Httpaf.Server_connection.error_handler) ->
  (TCP.flow -> dst -> Httpaf.Server_connection.request_handler) ->
  t Paf.service

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

val alpn_service : 
  tls:Tls.Config.server ->
  ?config:(Httpaf.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 ]