Up

Module Smtp_envelope_with_next_hop = Types.Envelope_with_next_hop

Signature

type t = {
envelope
: Types.Envelope.t ;
next_hop_choices
: Types.Address.t list ;
retry_intervals
: Core.Std.Time.Span.t list ;
}
val compare : t -> t -> int
val __bin_read_t__ : (int -> t) Core.Std.Bin_prot.Read.reader
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val retry_intervals : t -> Core.Std.Time.Span.t list
val next_hop_choices : t -> Types.Address.t list
val envelope : t -> Types.Envelope.t
module Fields : sig .. end
include Core.Std.Comparable.S with type t := t
include Comparable_intf.S_common
include Comparable_intf.Polymorphic_compare
include Polymorphic_compare_intf.Infix
type t
val (>=) : t -> t -> bool
val (<=) : t -> t -> bool
val (=) : t -> t -> bool
val (>) : t -> t -> bool
val (<) : t -> t -> bool
val (<>) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val ascending : t -> t -> int

ascending is identical to compare. descending x y = ascending y x. These are intended to be mnemonic when used like List.sort ~cmp:ascending and List.sort ~cmp:descending, since they cause the list to be sorted in ascending or descending order, respectively.

val descending : t -> t -> int
val between : t -> low:t -> high:t -> bool
val clamp_exn : t -> min:t -> max:t -> t

clamp_exn t ~min ~max returns t', the closest value to t such that between t' ~low:min ~high:max is true.

Raises if not (min <= max).

val clamp : t -> min:t -> max:t -> t Or_error.t
include Comparator.S with type t := t
type t
type comparator_witness
include Comparable_intf.Validate with type t := t
type t
val validate_lbound : min:t Maybe_bound.t -> t Validate.check
val validate_ubound : max:t Maybe_bound.t -> t Validate.check
val validate_bound : min:t Maybe_bound.t -> max:t Maybe_bound.t -> t Validate.check
include Core.Std.Hashable.S with type t := t
type t
val hash : t -> int
val compare : t -> t -> int
module Table : Hashable.Hashtbl.S with type key = t
module Hash_set : Core_kernel.Hash_set.S with type elt = t
val create : envelope:Types.Envelope.t -> next_hop_choices:Types.Address.t list -> retry_intervals:Core.Std.Time.Span.t list -> t
val sender : t -> Types.Sender.t
val string_sender : t -> string
val recipients : t -> Types.Email_address.t list
val string_recipients : t -> string list
val id : t -> Types.Envelope.Id.t
val set : t -> ?sender:Types.Sender.t -> ?recipients:Types.Email_address.t list -> unit -> t