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
open Awso_s3control
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 associate_access_grants_identity_center ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateAccessGrantsIdentityCenter input
let create_access_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessGrant input
let create_access_grants_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessGrantsInstance input
let create_access_grants_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessGrantsLocation input
let create_access_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessPoint input
let create_access_point_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessPointForObjectLambda input
let create_bucket ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBucket input
let create_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateJob input
let create_multi_region_access_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMultiRegionAccessPoint input
let create_storage_lens_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStorageLensGroup input
let delete_access_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessGrant input
let delete_access_grants_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessGrantsInstance input
let delete_access_grants_instance_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessGrantsInstanceResourcePolicy
input
let delete_access_grants_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessGrantsLocation input
let delete_access_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessPoint input
let delete_access_point_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessPointForObjectLambda input
let delete_access_point_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessPointPolicy input
let delete_access_point_policy_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessPointPolicyForObjectLambda
input
let delete_access_point_scope ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessPointScope input
let delete_bucket ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucket input
let delete_bucket_lifecycle_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketLifecycleConfiguration input
let delete_bucket_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketPolicy input
let delete_bucket_replication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketReplication input
let delete_bucket_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketTagging input
let delete_job_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteJobTagging input
let delete_multi_region_access_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMultiRegionAccessPoint input
let delete_public_access_block ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePublicAccessBlock input
let delete_storage_lens_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStorageLensConfiguration input
let delete_storage_lens_configuration_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStorageLensConfigurationTagging
input
let delete_storage_lens_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStorageLensGroup input
let describe_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeJob input
let describe_multi_region_access_point_operation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMultiRegionAccessPointOperation
input
let dissociate_access_grants_identity_center ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DissociateAccessGrantsIdentityCenter
input
let get_access_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessGrant input
let get_access_grants_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessGrantsInstance input
let get_access_grants_instance_for_prefix ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessGrantsInstanceForPrefix input
let get_access_grants_instance_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessGrantsInstanceResourcePolicy
input
let get_access_grants_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessGrantsLocation input
let get_access_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessPoint input
let get_access_point_configuration_for_object_lambda ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.GetAccessPointConfigurationForObjectLambda input
let get_access_point_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessPointForObjectLambda input
let get_access_point_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessPointPolicy input
let get_access_point_policy_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessPointPolicyForObjectLambda input
let get_access_point_policy_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessPointPolicyStatus input
let get_access_point_policy_status_for_object_lambda ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg Endpoints.GetAccessPointPolicyStatusForObjectLambda
input
let get_access_point_scope ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessPointScope input
let get_bucket ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucket input
let get_bucket_lifecycle_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketLifecycleConfiguration input
let get_bucket_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketPolicy input
let get_bucket_replication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketReplication input
let get_bucket_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketTagging input
let get_bucket_versioning ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketVersioning input
let get_data_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDataAccess input
let get_job_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetJobTagging input
let get_multi_region_access_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMultiRegionAccessPoint input
let get_multi_region_access_point_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMultiRegionAccessPointPolicy input
let get_multi_region_access_point_policy_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMultiRegionAccessPointPolicyStatus
input
let get_multi_region_access_point_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMultiRegionAccessPointRoutes input
let get_public_access_block ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPublicAccessBlock input
let get_storage_lens_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStorageLensConfiguration input
let get_storage_lens_configuration_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStorageLensConfigurationTagging input
let get_storage_lens_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStorageLensGroup input
let list_access_grants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessGrants input
let list_access_grants_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessGrantsInstances input
let list_access_grants_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessGrantsLocations input
let list_access_points ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessPoints input
let list_access_points_for_directory_buckets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessPointsForDirectoryBuckets input
let list_access_points_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessPointsForObjectLambda input
let list_caller_access_grants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCallerAccessGrants input
let list_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListJobs input
let list_multi_region_access_points ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMultiRegionAccessPoints input
let list_regional_buckets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRegionalBuckets input
let list_storage_lens_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStorageLensConfigurations input
let list_storage_lens_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStorageLensGroups input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_access_grants_instance_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccessGrantsInstanceResourcePolicy
input
let put_access_point_configuration_for_object_lambda ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.PutAccessPointConfigurationForObjectLambda input
let put_access_point_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccessPointPolicy input
let put_access_point_policy_for_object_lambda ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccessPointPolicyForObjectLambda input
let put_access_point_scope ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccessPointScope input
let put_bucket_lifecycle_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketLifecycleConfiguration input
let put_bucket_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketPolicy input
let put_bucket_replication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketReplication input
let put_bucket_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketTagging input
let put_bucket_versioning ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketVersioning input
let put_job_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutJobTagging input
let put_multi_region_access_point_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutMultiRegionAccessPointPolicy input
let put_public_access_block ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutPublicAccessBlock input
let put_storage_lens_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutStorageLensConfiguration input
let put_storage_lens_configuration_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutStorageLensConfigurationTagging input
let submit_multi_region_access_point_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SubmitMultiRegionAccessPointRoutes input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_access_grants_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccessGrantsLocation input
let update_job_priority ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateJobPriority input
let update_job_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateJobStatus input
let update_storage_lens_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStorageLensGroup input