TLS (paf.Paf_mirage.Make.TLS)

type error = [

| `Tls_alert of Tls.Packet.alert_type
| `Tls_failure of Tls.Engine.failure
| `Read of TCP.error
| `Write of TCP.write_error

]

type write_error = [

| `Closed
| error

]

include Mirage_flow.S
  with type error := error
   and type write_error := write_error

val pp_error : error Fmt.t

val pp_write_error : write_error Fmt.t

type flow

val read : flow -> (Cstruct.t Mirage_flow.or_eof, error) Stdlib.result Lwt.t

val write : flow -> Cstruct.t -> (unit, write_error) Stdlib.result Lwt.t

val writev : flow -> Cstruct.t list -> (unit, write_error) Stdlib.result Lwt.t

val shutdown : flow -> [ `read | `read_write | `write ] -> unit Lwt.t

val close : flow -> unit Lwt.t

val no_close : flow -> unit

val to_close : flow -> unit

val epoch : flow -> (Tls.Core.epoch_data, unit) Stdlib.result

val reneg : 
  ?authenticator:X509.Authenticator.t ->
  ?acceptable_cas:X509.Distinguished_name.t list ->
  ?cert:Tls.Config.own_cert ->
  ?drop:bool ->
  flow ->
  (unit, [ write_error | `Msg of string ]) Stdlib.result Lwt.t

val key_update : 
  ?request:bool ->
  flow ->
  (unit, [ write_error | `Msg of string ]) Stdlib.result Lwt.t

val server_of_flow : 
  Tls.Config.server ->
  TCP.flow ->
  (flow, write_error) Stdlib.result Lwt.t

val client_of_flow : 
  Tls.Config.client ->
  ?host:[ `host ] Domain_name.t ->
  TCP.flow ->
  (flow, write_error) Stdlib.result Lwt.t