Up

Module Server

Signature

module Callbacks = Server_callbacks

type t

val start : config:Server_config.t -> log:Mail_log.t -> (module Server_callbacks.S) -> t Async.Std.Deferred.Or_error.t

val config : t -> Server_config.t

val close : ?timeout:unit Async.Std.Deferred.t -> t -> unit Async.Std.Deferred.Or_error.t

val read_bsmtp : ?log:Mail_log.t -> Async.Std.Reader.t -> Types.Envelope.t Core.Std.Or_error.t Async.Std.Pipe.Reader.t

val read_mbox : ?log:Mail_log.t -> Async.Std.Reader.t -> Types.Envelope.t Core.Std.Or_error.t Async.Std.Pipe.Reader.t

val ports : t -> int list