From ceb949d672a8f79efbeec994af4f94ee4d277e79 Mon Sep 17 00:00:00 2001 From: Maxime Levillain Date: Wed, 29 Jan 2025 18:59:29 +0100 Subject: [PATCH] fix sendgrid output --- src/tools/sendgrid/ezSendgrid_services.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/tools/sendgrid/ezSendgrid_services.ml b/src/tools/sendgrid/ezSendgrid_services.ml index 8bec325..3db9ff2 100644 --- a/src/tools/sendgrid/ezSendgrid_services.ml +++ b/src/tools/sendgrid/ezSendgrid_services.ml @@ -22,11 +22,11 @@ let contact_ids_param = Param.string ~descr:"Sendgrid contact ids" ~name:"contac let delete_all_param = Param.bool ~descr:"Sendgrid delete all contacts" ~name:"delete_all_contacts" "delete_all_contacts" let send encoding : ('a mail, unit, string option, Security.bearer) post_service0 = - post_service + raw_service ~section:sendgrid_section ~name:"sendgrid_send" - ~input:(mail encoding) - ~output:Json_encoding.empty + ~input:(Json (mail encoding)) + ~output:Empty EzAPI.Path.(root // "mail" // "send") let add_contacts : (string list option * contact list, string, string option, EzAPI.Security.bearer) EzAPI.post_service0 =