package paf

  1. Overview
  2. Docs
type error = [
  1. | `Read of TCP.error
  2. | `Tls_alert of Tls.Packet.alert_type
  3. | `Tls_failure of Tls.Engine.failure
  4. | `Write of TCP.write_error
]
type write_error = [
  1. | `Closed
  2. | `Read of TCP.error
  3. | `Tls_alert of Tls.Packet.alert_type
  4. | `Tls_failure of Tls.Engine.failure
  5. | `Write of TCP.write_error
]
val pp_error : error Fmt.t
val pp_write_error : write_error Fmt.t
val write : flow -> Cstruct.t -> (unit, write_error) result Lwt.t
val writev : flow -> Cstruct.t list -> (unit, write_error) result Lwt.t
val shutdown : flow -> [ `read | `read_write | `write ] -> unit Lwt.t
val close : flow -> unit Lwt.t
val underlying : flow -> TCP.flow
val reneg : ?authenticator:X509.Authenticator.t -> ?acceptable_cas:X509.Distinguished_name.t list -> ?cert:Tls.Config.own_cert -> ?drop:bool -> flow -> (unit, [ `Closed | `Msg of string | `Read of TCP.error | `Tls_alert of Tls.Packet.alert_type | `Tls_failure of Tls.Engine.failure | `Write of TCP.write_error ]) result Lwt.t
val key_update : ?request:bool -> flow -> (unit, [ `Closed | `Msg of string | `Read of TCP.error | `Tls_alert of Tls.Packet.alert_type | `Tls_failure of Tls.Engine.failure | `Write of TCP.write_error ]) result Lwt.t
val client_of_flow : Tls.Config.client -> ?host:[ `host ] Domain_name.t -> TCP.flow -> (flow, write_error) result Lwt.t
val server_of_flow : Tls.Config.server -> TCP.flow -> (flow, write_error) result Lwt.t
val epoch : flow -> (Tls.Core.epoch_data, unit) result
OCaml

Innovation. Community. Security.