Module Sendmail_with_starttls.Make_with_tls

Parameters

module Value : VALUE

Signature

type 'x send = 'x Value.send
type 'x recv = 'x Value.recv
type value_error = Value.error
type error = [
  1. | `Tls_alert of Tls.Packet.alert_type
  2. | `Tls_failure of Tls.Engine.failure
  3. | `Tls_closed
  4. | `Value of value_error
]
val starttls_as_client : encoder -> Tls.Config.client -> (unit, [> error ]) Colombe.State.t
val starttls_as_server : decoder -> Tls.Config.server -> (unit, [> error ]) Colombe.State.t
val close : encoder -> (unit, [> error ]) Colombe.State.t
val encode : encoder -> 'a send -> 'a -> (unit, [> error ]) Colombe.State.t
val decode : decoder -> 'a recv -> ('a, [> error ]) Colombe.State.t