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
open Awso_workmail
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 associate_delegate_to_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateDelegateToResource input
let associate_member_to_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateMemberToGroup input
let assume_impersonation_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssumeImpersonationRole input
let cancel_mailbox_export_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelMailboxExportJob input
let create_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAlias input
let create_availability_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAvailabilityConfiguration input
let create_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGroup input
let create_identity_center_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIdentityCenterApplication input
let create_impersonation_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateImpersonationRole input
let create_mobile_device_access_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMobileDeviceAccessRule input
let create_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateOrganization input
let create_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResource input
let create_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUser input
let delete_access_control_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessControlRule input
let delete_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAlias input
let delete_availability_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAvailabilityConfiguration input
let delete_email_monitoring_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteEmailMonitoringConfiguration input
let delete_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGroup input
let delete_identity_center_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIdentityCenterApplication input
let delete_identity_provider_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIdentityProviderConfiguration input
let delete_impersonation_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteImpersonationRole input
let delete_mailbox_permissions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMailboxPermissions input
let delete_mobile_device_access_override ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMobileDeviceAccessOverride input
let delete_mobile_device_access_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMobileDeviceAccessRule input
let delete_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteOrganization input
let delete_personal_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePersonalAccessToken input
let delete_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResource input
let delete_retention_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRetentionPolicy input
let delete_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUser input
let deregister_from_work_mail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterFromWorkMail input
let deregister_mail_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterMailDomain input
let describe_email_monitoring_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEmailMonitoringConfiguration
input
let describe_entity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEntity input
let describe_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGroup input
let describe_identity_provider_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeIdentityProviderConfiguration
input
let describe_inbound_dmarc_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInboundDmarcSettings input
let describe_mailbox_export_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMailboxExportJob input
let describe_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOrganization input
let describe_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeResource input
let describe_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeUser input
let disassociate_delegate_from_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateDelegateFromResource input
let disassociate_member_from_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateMemberFromGroup input
let get_access_control_effect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessControlEffect input
let get_default_retention_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDefaultRetentionPolicy input
let get_impersonation_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetImpersonationRole input
let get_impersonation_role_effect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetImpersonationRoleEffect input
let get_mail_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMailDomain input
let get_mailbox_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMailboxDetails input
let get_mobile_device_access_effect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMobileDeviceAccessEffect input
let get_mobile_device_access_override ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMobileDeviceAccessOverride input
let get_personal_access_token_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPersonalAccessTokenMetadata input
let list_access_control_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessControlRules input
let list_aliases ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAliases input
let list_availability_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAvailabilityConfigurations input
let list_group_members ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroupMembers input
let list_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroups input
let list_groups_for_entity ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroupsForEntity input
let list_impersonation_roles ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListImpersonationRoles input
let list_mail_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMailDomains input
let list_mailbox_export_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMailboxExportJobs input
let list_mailbox_permissions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMailboxPermissions input
let list_mobile_device_access_overrides ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMobileDeviceAccessOverrides input
let list_mobile_device_access_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMobileDeviceAccessRules input
let list_organizations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOrganizations input
let list_personal_access_tokens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPersonalAccessTokens input
let list_resource_delegates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceDelegates input
let list_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResources input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListUsers input
let put_access_control_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccessControlRule input
let put_email_monitoring_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutEmailMonitoringConfiguration input
let put_identity_provider_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutIdentityProviderConfiguration input
let put_inbound_dmarc_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutInboundDmarcSettings input
let put_mailbox_permissions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutMailboxPermissions input
let put_mobile_device_access_override ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutMobileDeviceAccessOverride input
let put_retention_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRetentionPolicy input
let register_mail_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterMailDomain input
let register_to_work_mail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterToWorkMail input
let reset_password ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetPassword input
let start_mailbox_export_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartMailboxExportJob input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let test_availability_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestAvailabilityConfiguration input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_availability_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAvailabilityConfiguration input
let update_default_mail_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDefaultMailDomain input
let update_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGroup input
let update_impersonation_role ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateImpersonationRole input
let update_mailbox_quota ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMailboxQuota input
let update_mobile_device_access_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMobileDeviceAccessRule input
let update_primary_email_address ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePrimaryEmailAddress input
let update_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResource input
let update_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUser input