Source file io.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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso_sesv2
open Awso_lwt
module Io = Http.Io
let eval ?endpoint_url ?cfg endpoint input =
  Io.bind (Io.resolve_cfg cfg)
    (fun cfg ->
       let meth = Endpoints.method_of_endpoint endpoint in
       let uri = Endpoints.uri_of_endpoint endpoint input in
       Io.map
         (Io.call ?endpoint_url ~cfg ~service:Values.service meth
            (Endpoints.to_request endpoint input) uri)
         (fun resp_result -> Endpoints.of_response endpoint resp_result))
let batch_get_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchGetMetricData input
let cancel_export_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelExportJob input
let create_configuration_set ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConfigurationSet input
let create_configuration_set_event_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateConfigurationSetEventDestination
    input
let create_contact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateContact input
let create_contact_list ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateContactList input
let create_custom_verification_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCustomVerificationEmailTemplate
    input
let create_dedicated_ip_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDedicatedIpPool input
let create_deliverability_test_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDeliverabilityTestReport input
let create_email_identity ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEmailIdentity input
let create_email_identity_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEmailIdentityPolicy input
let create_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEmailTemplate input
let create_export_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateExportJob input
let create_import_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateImportJob input
let create_multi_region_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateMultiRegionEndpoint input
let create_tenant ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTenant input
let create_tenant_resource_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTenantResourceAssociation input
let delete_configuration_set ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConfigurationSet input
let delete_configuration_set_event_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteConfigurationSetEventDestination
    input
let delete_contact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteContact input
let delete_contact_list ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteContactList input
let delete_custom_verification_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCustomVerificationEmailTemplate
    input
let delete_dedicated_ip_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDedicatedIpPool input
let delete_email_identity ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEmailIdentity input
let delete_email_identity_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEmailIdentityPolicy input
let delete_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEmailTemplate input
let delete_multi_region_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteMultiRegionEndpoint input
let delete_suppressed_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteSuppressedDestination input
let delete_tenant ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTenant input
let delete_tenant_resource_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTenantResourceAssociation input
let get_account ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAccount input
let get_blacklist_reports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBlacklistReports input
let get_configuration_set ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConfigurationSet input
let get_configuration_set_event_destinations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConfigurationSetEventDestinations
    input
let get_contact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContact input
let get_contact_list ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContactList input
let get_custom_verification_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCustomVerificationEmailTemplate input
let get_dedicated_ip ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDedicatedIp input
let get_dedicated_ip_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDedicatedIpPool input
let get_dedicated_ips ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDedicatedIps input
let get_deliverability_dashboard_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDeliverabilityDashboardOptions input
let get_deliverability_test_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDeliverabilityTestReport input
let get_domain_deliverability_campaign ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDomainDeliverabilityCampaign input
let get_domain_statistics_report ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDomainStatisticsReport input
let get_email_address_insights ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEmailAddressInsights input
let get_email_identity ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEmailIdentity input
let get_email_identity_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEmailIdentityPolicies input
let get_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetEmailTemplate input
let get_export_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetExportJob input
let get_import_job ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetImportJob input
let get_message_insights ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMessageInsights input
let get_multi_region_endpoint ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMultiRegionEndpoint input
let get_reputation_entity ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetReputationEntity input
let get_suppressed_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSuppressedDestination input
let get_tenant ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetTenant input
let list_configuration_sets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListConfigurationSets input
let list_contact_lists ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListContactLists input
let list_contacts ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListContacts input
let list_custom_verification_email_templates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCustomVerificationEmailTemplates
    input
let list_dedicated_ip_pools ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDedicatedIpPools input
let list_deliverability_test_reports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDeliverabilityTestReports input
let list_domain_deliverability_campaigns ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDomainDeliverabilityCampaigns input
let list_email_identities ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEmailIdentities input
let list_email_templates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListEmailTemplates input
let list_export_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListExportJobs input
let list_import_jobs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListImportJobs input
let list_multi_region_endpoints ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListMultiRegionEndpoints input
let list_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListRecommendations input
let list_reputation_entities ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListReputationEntities input
let list_resource_tenants ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListResourceTenants input
let list_suppressed_destinations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListSuppressedDestinations input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tenant_resources ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTenantResources input
let list_tenants ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTenants input
let put_account_dedicated_ip_warmup_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAccountDedicatedIpWarmupAttributes
    input
let put_account_details ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAccountDetails input
let put_account_sending_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAccountSendingAttributes input
let put_account_suppression_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAccountSuppressionAttributes input
let put_account_vdm_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAccountVdmAttributes input
let put_configuration_set_archiving_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetArchivingOptions input
let put_configuration_set_delivery_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetDeliveryOptions input
let put_configuration_set_reputation_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetReputationOptions
    input
let put_configuration_set_sending_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetSendingOptions input
let put_configuration_set_suppression_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetSuppressionOptions
    input
let put_configuration_set_tracking_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetTrackingOptions input
let put_configuration_set_vdm_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetVdmOptions input
let put_dedicated_ip_in_pool ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDedicatedIpInPool input
let put_dedicated_ip_pool_scaling_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDedicatedIpPoolScalingAttributes input
let put_dedicated_ip_warmup_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDedicatedIpWarmupAttributes input
let put_deliverability_dashboard_option ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutDeliverabilityDashboardOption input
let put_email_identity_configuration_set_attributes ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.PutEmailIdentityConfigurationSetAttributes input
let put_email_identity_dkim_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutEmailIdentityDkimAttributes input
let put_email_identity_dkim_signing_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutEmailIdentityDkimSigningAttributes
    input
let put_email_identity_feedback_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutEmailIdentityFeedbackAttributes input
let put_email_identity_mail_from_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutEmailIdentityMailFromAttributes input
let put_suppressed_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutSuppressedDestination input
let send_bulk_email ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendBulkEmail input
let send_custom_verification_email ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendCustomVerificationEmail input
let send_email ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendEmail input
let tag_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TagResource input
let test_render_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TestRenderEmailTemplate input
let untag_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_configuration_set_event_destination ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateConfigurationSetEventDestination
    input
let update_contact ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateContact input
let update_contact_list ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateContactList input
let update_custom_verification_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateCustomVerificationEmailTemplate
    input
let update_email_identity_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEmailIdentityPolicy input
let update_email_template ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateEmailTemplate input
let update_reputation_entity_customer_managed_status ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.UpdateReputationEntityCustomerManagedStatus input
let update_reputation_entity_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateReputationEntityPolicy input