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
open Awso_ses
open Awso_async
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 clone_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CloneReceiptRuleSet 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_configuration_set_tracking_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConfigurationSetTrackingOptions
input
let create_custom_verification_email_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCustomVerificationEmailTemplate
input
let create_receipt_filter ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReceiptFilter input
let create_receipt_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReceiptRule input
let create_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReceiptRuleSet input
let create_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTemplate 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_configuration_set_tracking_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConfigurationSetTrackingOptions
input
let delete_custom_verification_email_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCustomVerificationEmailTemplate
input
let delete_identity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIdentity input
let delete_identity_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIdentityPolicy input
let delete_receipt_filter ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReceiptFilter input
let delete_receipt_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReceiptRule input
let delete_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReceiptRuleSet input
let delete_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTemplate input
let delete_verified_email_address ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVerifiedEmailAddress input
let describe_active_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeActiveReceiptRuleSet input
let describe_configuration_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeConfigurationSet input
let describe_receipt_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReceiptRule input
let describe_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReceiptRuleSet input
let get_account_sending_enabled ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccountSendingEnabled input
let get_custom_verification_email_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCustomVerificationEmailTemplate input
let get_identity_dkim_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIdentityDkimAttributes input
let get_identity_mail_from_domain_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIdentityMailFromDomainAttributes input
let get_identity_notification_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIdentityNotificationAttributes input
let get_identity_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIdentityPolicies input
let get_identity_verification_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIdentityVerificationAttributes input
let get_send_quota ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSendQuota input
let get_send_statistics ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSendStatistics input
let get_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTemplate input
let list_configuration_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListConfigurationSets input
let list_custom_verification_email_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCustomVerificationEmailTemplates
input
let list_identities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIdentities input
let list_identity_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIdentityPolicies input
let list_receipt_filters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReceiptFilters input
let list_receipt_rule_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReceiptRuleSets input
let list_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTemplates input
let list_verified_email_addresses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListVerifiedEmailAddresses input
let put_configuration_set_delivery_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutConfigurationSetDeliveryOptions input
let put_identity_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutIdentityPolicy input
let reorder_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ReorderReceiptRuleSet input
let send_bounce ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SendBounce input
let send_bulk_templated_email ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SendBulkTemplatedEmail 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 send_raw_email ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SendRawEmail input
let send_templated_email ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SendTemplatedEmail input
let set_active_receipt_rule_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetActiveReceiptRuleSet input
let set_identity_dkim_enabled ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetIdentityDkimEnabled input
let set_identity_feedback_forwarding_enabled ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetIdentityFeedbackForwardingEnabled
input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetIdentityHeadersInNotificationsEnabled
input
let set_identity_mail_from_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetIdentityMailFromDomain input
let set_identity_notification_topic ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetIdentityNotificationTopic input
let set_receipt_rule_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetReceiptRulePosition input
let test_render_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestRenderTemplate input
let update_account_sending_enabled ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccountSendingEnabled input
let update_configuration_set_event_destination ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConfigurationSetEventDestination
input
let update_configuration_set_reputation_metrics_enabled ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.UpdateConfigurationSetReputationMetricsEnabled input
let update_configuration_set_sending_enabled ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConfigurationSetSendingEnabled
input
let update_configuration_set_tracking_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConfigurationSetTrackingOptions
input
let update_custom_verification_email_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCustomVerificationEmailTemplate
input
let update_receipt_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateReceiptRule input
let update_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTemplate input
let verify_domain_dkim ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyDomainDkim input
let verify_domain_identity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyDomainIdentity input
let verify_email_address ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyEmailAddress input
let verify_email_identity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyEmailIdentity input