Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[doc] Email: added some doc

  • Loading branch information...
commit 77b12fffcd3732f36f3e44cbee280620fa37921d 1 parent a982169
@Aqua-Ye Aqua-Ye authored
Showing with 13 additions and 9 deletions.
  1. +13 −9 stdlib/web/mail/email.opa
View
22 stdlib/web/mail/email.opa
@@ -228,22 +228,26 @@ Email = {{
end
send_mail(to_string_only_address(from), to_string_only_address(to), subject, text, html, files, k)
- try_send(from : Email.email,to : Email.email, subject : string, content : Email.content) : Email.send_status =
+ /** Try to send a mail synchronously */
+ try_send(from : Email.email, to : Email.email, subject : string, content : Email.content) : Email.send_status =
k(cont)=
- f(r)= Continuation.return(cont,r)
- private_send_async(from,to,subject,content,none,f)
+ f(r)= Continuation.return(cont, r)
+ private_send_async(from, to, subject, content, none, f)
@callcc(k)
- try_send_async(from : Email.email,to : Email.email, subject : string, content :Email.content , k : (Email.send_status -> void)) : void =
- private_send_async(from,to,subject,content,none,k)
+ /** Try to send a mail asynchronously */
+ try_send_async(from : Email.email, to : Email.email, subject : string, content :Email.content, k : (Email.send_status -> void)) : void =
+ private_send_async(from, to, subject, content, none, k)
+ /** Try to send a mail containing files synchronously */
try_send_with_files(from : Email.email,to : Email.email, subject : string, content : Email.content, files : Email.attachment) : Email.send_status =
k(cont)=
- f(r)= Continuation.return(cont,r)
- private_send_async(from,to,subject,content,some(files),f)
+ f(r)= Continuation.return(cont, r)
+ private_send_async(from, to, subject, content, some(files), f)
@callcc(k)
- try_send_with_files_async(from : Email.email,to : Email.email, subject : string, content :Email.content, files : Email.attachment, k : (Email.send_status -> void)) : void =
- private_send_async(from,to,subject,content,some(files),k)
+ /** Try to send a mail containing files asynchronously */
+ try_send_with_files_async(from : Email.email, to : Email.email, subject : string, content :Email.content, files : Email.attachment, k : (Email.send_status -> void)) : void =
+ private_send_async(from, to, subject, content, some(files), k)
}}
Please sign in to comment.
Something went wrong with that request. Please try again.