include Async_smtp.Std.Smtp_client.Config
module Tls = Async_smtp.Client_config.Tls
module Domain_suffix = Async_smtp.Client_config.Domain_suffix
type t
=
{
greeting : string Core.sexp_option; |
tls : (Domain_suffix.t * Tls.t) list; |
send_receive_timeout : [ `Default | `This of Core.Time.Span.t ]; |
final_ok_timeout : [ `Default | `This of Core.Time.Span.t ]; |
}
include sig ... end
val final_ok_timeout : t ‑> [ `Default | `This of Core.Time.Span.t ]
val send_receive_timeout : t ‑> [ `Default | `This of Core.Time.Span.t ]
val tls : t ‑> (Domain_suffix.t * Tls.t) list
val greeting : t ‑> string Core.sexp_option
module Fields : sig ... end
val t_of_sexp : Sexplib.Sexp.t ‑> t
val sexp_of_t : t ‑> Sexplib.Sexp.t
val default : t
val load_exn : string ‑> t Async.Deferred.t
val has_tls : t ‑> bool
val send_receive_timeout : t ‑> Core.Time.Span.t
val final_ok_timeout : t ‑> Core.Time.Span.t
val file_arg_type : t Async.Command.Spec.Arg_type.t
val load_sync : string ‑> t option
val default : t
val arg_spec : unit ‑> (smtp_config:t ‑> 'a, 'a) Async.Command.Spec.t