package ez_api
Easy API library and tools
Install
Dune Dependency
github.com
Readme
LGPL-2.1-only WITH OCaml-LGPL-linking-exception License
Edit opam file
Versions (6)
Authors
Maintainers
Sources
v1.0.0.tar.gz
md5=d4dcb8a0be9cf87fca6471cecf083d9a
sha512=452a5de00bf0b51926d9c4c5c9062981c372ebce9ccfd0586b1e1b9b42c96721035dc7cd405e4bdd936ae0a7e69f442e4063713756b7cdac246319198fb89e2c
doc/src/ez_api.sendgrid_services/ezSendgrid_services.ml.html
Source file ezSendgrid_services.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76open EzSendgrid_types open EzSendgrid_encoding open EzAPI let sendgrid_section = Doc.section "Sendgrid Requests" let sendgrid_host = BASE "https://api.sendgrid.com/v3" let arg_id = Arg.string ~example:"base64_hash" "id" let ids_param = Param.string ~descr:"Sendgrid contact ids" ~name:"ids" "ids" let contact_ids_param = Param.string ~descr:"Sendgrid contact ids" ~name:"contact_ids" "contact_ids" 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 ~section:sendgrid_section ~name:"sendgrid_send" ~input:(mail encoding) ~output:Json_encoding.empty EzAPI.Path.(root // "mail" // "send") let add_contacts : (string list option * contact list, string, string option, EzAPI.Security.bearer) EzAPI.post_service0 = EzAPI.post_service ~register:false ~section:sendgrid_section ~name:"sendgrid_add_contacts" ~input:add_contacts_enc ~output:job_output ~meth:`PUT EzAPI.Path.(root // "marketing" // "contacts") let delete_contacts : (unit, string, string option, Security.bearer) EzAPI.post_service0 = EzAPI.raw_service ~register:false ~section:sendgrid_section ~name:"sendgrid_delete_contacts" ~input:Empty ~output:(Json job_output) ~meth:`DELETE ~params:[ids_param; delete_all_param] EzAPI.Path.(root // "marketing" // "contacts") let contacts_count : (int, string option, Security.bearer) EzAPI.service0 = EzAPI.service ~register:false ~section:sendgrid_section ~name:"sendgrid_contacts_count" ~output:contacts_count EzAPI.Path.(root // "marketing" // "contacts" // "count") let get_contact : (string, contact * contact_more, string option, Security.bearer) EzAPI.service1 = EzAPI.service ~register:false ~section:sendgrid_section ~name:"sendgrid_get_contact" ~output:get_contact EzAPI.Path.(root // "marketing" // "contacts" /: arg_id) let search_contacts : (string, int * (contact * contact_more) list, string option, Security.bearer) EzAPI.post_service0 = EzAPI.post_service ~register:false ~section:sendgrid_section ~name:"sendgrid_search_contacts" ~input:query ~output:(search_output EzSendgrid_encoding.get_contact) EzAPI.Path.(root // "marketing" // "contacts" // "search") let remove_contact_list : (string, string, string option, Security.bearer) EzAPI.service1 = EzAPI.service ~register:false ~section:sendgrid_section ~name:"sendgrid_remove_contact_list" ~output:job_output ~meth:`DELETE ~params:[contact_ids_param] EzAPI.Path.(root // "marketing" // "lists" /: arg_id // "contacts")