Module Direct

val iter : t -> spool_dir:((t, string) Fieldslib.Field.t -> t -> string -> unit) -> tmp_dir:((t, string option) Fieldslib.Field.t -> t -> string option -> unit) -> where_to_listen:((t, Where_to_listen.t list) Fieldslib.Field.t -> t -> Where_to_listen.t list -> unit) -> max_concurrent_send_jobs:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> max_concurrent_receive_jobs_per_port:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> rpc_port:((t, int) Fieldslib.Field.t -> t -> int -> unit) -> malformed_emails:((t, [ ]) Fieldslib.Field.t -> t -> [ ] -> unit) -> max_message_size:((t, Core.Std.Byte_units.t) Fieldslib.Field.t -> t -> Core.Std.Byte_units.t -> unit) -> tls_options:((t, Tls.t option) Fieldslib.Field.t -> t -> Tls.t option -> unit) -> client:((t, Client_config.t) Fieldslib.Field.t -> t -> Client_config.t -> unit) -> unit

val fold : t -> init:'acc__0 -> spool_dir:('acc__0 -> (t, string) Fieldslib.Field.t -> t -> string -> 'acc__1) -> tmp_dir:('acc__1 -> (t, string option) Fieldslib.Field.t -> t -> string option -> 'acc__2) -> where_to_listen:('acc__2 -> (t, Where_to_listen.t list) Fieldslib.Field.t -> t -> Where_to_listen.t list -> 'acc__3) -> max_concurrent_send_jobs:('acc__3 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__4) -> max_concurrent_receive_jobs_per_port:('acc__4 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__5) -> rpc_port:('acc__5 -> (t, int) Fieldslib.Field.t -> t -> int -> 'acc__6) -> malformed_emails:('acc__6 -> (t, [ ]) Fieldslib.Field.t -> t -> [ ] -> 'acc__7) -> max_message_size:('acc__7 -> (t, Core.Std.Byte_units.t) Fieldslib.Field.t -> t -> Core.Std.Byte_units.t -> 'acc__8) -> tls_options:('acc__8 -> (t, Tls.t option) Fieldslib.Field.t -> t -> Tls.t option -> 'acc__9) -> client:('acc__9 -> (t, Client_config.t) Fieldslib.Field.t -> t -> Client_config.t -> 'acc__10) -> 'acc__10

val for_all : t -> spool_dir:((t, string) Fieldslib.Field.t -> t -> string -> bool) -> tmp_dir:((t, string option) Fieldslib.Field.t -> t -> string option -> bool) -> where_to_listen:((t, Where_to_listen.t list) Fieldslib.Field.t -> t -> Where_to_listen.t list -> bool) -> max_concurrent_send_jobs:((t, int) Fieldslib.Field.t -> t -> int -> bool) -> max_concurrent_receive_jobs_per_port:((t, int) Fieldslib.Field.t -> t -> int -> bool) -> rpc_port:((t, int) Fieldslib.Field.t -> t -> int -> bool) -> malformed_emails:((t, [ ]) Fieldslib.Field.t -> t -> [ ] -> bool) -> max_message_size:((t, Core.Std.Byte_units.t) Fieldslib.Field.t -> t -> Core.Std.Byte_units.t -> bool) -> tls_options:((t, Tls.t option) Fieldslib.Field.t -> t -> Tls.t option -> bool) -> client:((t, Client_config.t) Fieldslib.Field.t -> t -> Client_config.t -> bool) -> bool

val exists : t -> spool_dir:((t, string) Fieldslib.Field.t -> t -> string -> bool) -> tmp_dir:((t, string option) Fieldslib.Field.t -> t -> string option -> bool) -> where_to_listen:((t, Where_to_listen.t list) Fieldslib.Field.t -> t -> Where_to_listen.t list -> bool) -> max_concurrent_send_jobs:((t, int) Fieldslib.Field.t -> t -> int -> bool) -> max_concurrent_receive_jobs_per_port:((t, int) Fieldslib.Field.t -> t -> int -> bool) -> rpc_port:((t, int) Fieldslib.Field.t -> t -> int -> bool) -> malformed_emails:((t, [ ]) Fieldslib.Field.t -> t -> [ ] -> bool) -> max_message_size:((t, Core.Std.Byte_units.t) Fieldslib.Field.t -> t -> Core.Std.Byte_units.t -> bool) -> tls_options:((t, Tls.t option) Fieldslib.Field.t -> t -> Tls.t option -> bool) -> client:((t, Client_config.t) Fieldslib.Field.t -> t -> Client_config.t -> bool) -> bool

val to_list : t -> spool_dir:((t, string) Fieldslib.Field.t -> t -> string -> 'elem__) -> tmp_dir:((t, string option) Fieldslib.Field.t -> t -> string option -> 'elem__) -> where_to_listen:((t, Where_to_listen.t list) Fieldslib.Field.t -> t -> Where_to_listen.t list -> 'elem__) -> max_concurrent_send_jobs:((t, int) Fieldslib.Field.t -> t -> int -> 'elem__) -> max_concurrent_receive_jobs_per_port:((t, int) Fieldslib.Field.t -> t -> int -> 'elem__) -> rpc_port:((t, int) Fieldslib.Field.t -> t -> int -> 'elem__) -> malformed_emails:((t, [ ]) Fieldslib.Field.t -> t -> [ ] -> 'elem__) -> max_message_size:((t, Core.Std.Byte_units.t) Fieldslib.Field.t -> t -> Core.Std.Byte_units.t -> 'elem__) -> tls_options:((t, Tls.t option) Fieldslib.Field.t -> t -> Tls.t option -> 'elem__) -> client:((t, Client_config.t) Fieldslib.Field.t -> t -> Client_config.t -> 'elem__) -> 'elem__ list

val map : t -> spool_dir:((t, string) Fieldslib.Field.t -> t -> string -> string) -> tmp_dir:((t, string option) Fieldslib.Field.t -> t -> string option -> string option) -> where_to_listen:((t, Where_to_listen.t list) Fieldslib.Field.t -> t -> Where_to_listen.t list -> Where_to_listen.t list) -> max_concurrent_send_jobs:((t, int) Fieldslib.Field.t -> t -> int -> int) -> max_concurrent_receive_jobs_per_port:((t, int) Fieldslib.Field.t -> t -> int -> int) -> rpc_port:((t, int) Fieldslib.Field.t -> t -> int -> int) -> malformed_emails:((t, [ ]) Fieldslib.Field.t -> t -> [ ] -> [ ]) -> max_message_size:((t, Core.Std.Byte_units.t) Fieldslib.Field.t -> t -> Core.Std.Byte_units.t -> Core.Std.Byte_units.t) -> tls_options:((t, Tls.t option) Fieldslib.Field.t -> t -> Tls.t option -> Tls.t option) -> client:((t, Client_config.t) Fieldslib.Field.t -> t -> Client_config.t -> Client_config.t) -> t

val set_all_mutable_fields : t -> unit