Up
module
Client
:
sig
#
module
Smtp_error :
sig
#
type
t = [
| `Bad_sender
of
Types
.Reply.t
| `Bad_data
of
Types
.Reply.t
| `Bad_recipients
of
(string *
Types
.Reply.t) list
| `Other
of
Types
.Reply.t
]
#
val
to_string :
t
->
string
#
val
to_error :
t
->
Core.Std.Error.t
#
val
t_of_sexp : Sexplib.Sexp.t
->
t
#
val
__t_of_sexp__ : Sexplib.Sexp.t
->
t
#
val
sexp_of_t :
t
->
Sexplib.Sexp.t
end
#
module
Smtp_result :
sig
#
type
('a, 'err) t = ('a, 'err) Core.Std.Result.t Core.Std.Or_error.t Async.Std.Deferred.t
#
val
ok_exn : (unit,
Smtp_error
.
t
)
t
->
unit Async.Std.Deferred.t
end
#
val
write : Async.Std.Writer.t
->
?helo:string
->
Types
.Envelope.t Async.Std.Pipe.Reader.t
->
unit Core.Std.Or_error.t Async.Std.Deferred.t
#
val
send : Core.Std.Host_and_port.t
->
Types
.Envelope.t
->
(unit,
Smtp_error
.
t
)
Smtp_result
.
t
#
val
send_raw : Core.Std.Host_and_port.t
->
Async.Std.Reader.t
->
([
| `Ok_summary
of
string
| `Eof
],
Smtp_error
.
t
)
Smtp_result
.
t
end