reply_to in ezSendgrid

src/tools/sendgrid/ezSendgrid.ml

@@ -21,10 +21,11 @@ let send ?encoding ~api_key input =
     sendgrid_host
     (send encoding)
 
-let send_one ~api_key ~dst ~from ~subject content =
+let send_one ?reply_to ~api_key ~dst ~from ~subject content =
   let person = {
     dst = [ {email = fst dst; name = snd dst} ];
     cc = None; bcc = None; psubject = None; data = None } in
+  let reply_to = Option.map (fun (email, name) -> {email; name}) reply_to in
   let content =
     List.map
       (fun (content_type, content_value) ->
@@ -35,18 +36,21 @@ let send_one ~api_key ~dst ~from ~subject content =
     subject = Some subject;
     content = Some content;
     template_id = None;
+    reply_to;
     more_fields = None;
   } in
   send ~api_key mail
 
-let send_template ~api_key ~dst ~from template_id data =
+let send_template ?reply_to ~api_key ~dst ~from template_id data =
   let person = {
     dst = List.map (fun (email, name) -> {email; name}) dst;
     cc = None; bcc = None; psubject = None;
     data = Some (EzEncoding.destruct Json_encoding.any_value data) } in
+  let reply_to = Option.map (fun (email, name) -> {email; name}) reply_to in
   let mail = {
     person = [ person ];
     from = {email = fst from; name = snd from};
+    reply_to;
     subject = None;
     content = None;
     template_id = Some template_id;

src/tools/sendgrid/ezSendgrid_encoding.ml

@@ -43,17 +43,18 @@ let person = conv
 
 let mail more_encoding =
   conv
-    (fun {person; from; subject; content; template_id; more_fields}
-      -> (person, from, subject, content, template_id), more_fields)
-    (fun ((person, from, subject, content, template_id), more_fields)
-      -> {person; from; subject; content; template_id; more_fields}) @@
+    (fun {person; from; subject; content; template_id; reply_to; more_fields}
+      -> (person, from, subject, content, template_id, reply_to), more_fields)
+    (fun ((person, from, subject, content, template_id, reply_to), more_fields)
+      -> {person; from; subject; content; template_id; reply_to; more_fields}) @@
   merge_objs
-    (obj5
+    (obj6
        (req "personalizations" (list person))
        (req "from" email_address)
        (opt "subject" string)
        (opt "content" (list content_element))
-       (opt "template_id" string))
+       (opt "template_id" string)
+       (opt "reply_to" email_address))
     (opt_encoding more_encoding)
 
 let contact = conv

src/tools/sendgrid/ezSendgrid_types.ml

@@ -32,6 +32,7 @@ type 'a mail = {
   subject : string option;
   content: content_element list option;
   template_id : string option;
+  reply_to: email_address option;
   more_fields : 'a option;
 }