Module Fields

val names : string list

val client : (t, Client_config.t) Fieldslib.Field.t

val tls_options : (t, Tls.t option) Fieldslib.Field.t

val max_message_size : (t, Core.Std.Byte_units.t) Fieldslib.Field.t

val malformed_emails : (t, [ ]) Fieldslib.Field.t

val rpc_port : (t, int) Fieldslib.Field.t

val max_concurrent_receive_jobs_per_port : (t, int) Fieldslib.Field.t

val max_concurrent_send_jobs : (t, int) Fieldslib.Field.t

val where_to_listen : (t, Where_to_listen.t list) Fieldslib.Field.t

val tmp_dir : (t, string option) Fieldslib.Field.t

val spool_dir : (t, string) Fieldslib.Field.t

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

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

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

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

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

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

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

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

val map_poly : ([< ], t, 'x0) Fieldslib.Field.user -> 'x0 list