Module type Sendmail_with_starttls.S

type 'x send
type 'x recv
type encoder
type decoder
type 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