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
open Awso_s3
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 abort_multipart_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AbortMultipartUpload input
let complete_multipart_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CompleteMultipartUpload input
let copy_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopyObject input
let create_bucket ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBucket input
let create_bucket_metadata_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBucketMetadataConfiguration input
let create_bucket_metadata_table_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBucketMetadataTableConfiguration
input
let create_multipart_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMultipartUpload input
let create_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSession input
let delete_bucket ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucket input
let delete_bucket_analytics_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketAnalyticsConfiguration input
let delete_bucket_cors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketCors input
let delete_bucket_encryption ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketEncryption input
let delete_bucket_intelligent_tiering_configuration ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.DeleteBucketIntelligentTieringConfiguration input
let delete_bucket_inventory_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketInventoryConfiguration input
let delete_bucket_lifecycle ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketLifecycle input
let delete_bucket_metadata_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketMetadataConfiguration input
let delete_bucket_metadata_table_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketMetadataTableConfiguration
input
let delete_bucket_metrics_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketMetricsConfiguration input
let delete_bucket_ownership_controls ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketOwnershipControls 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_bucket_website ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBucketWebsite input
let delete_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteObject input
let delete_object_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteObjectTagging input
let delete_objects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteObjects input
let delete_public_access_block ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePublicAccessBlock input
let get_bucket_abac ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketAbac input
let get_bucket_accelerate_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketAccelerateConfiguration input
let get_bucket_acl ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketAcl input
let get_bucket_analytics_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketAnalyticsConfiguration input
let get_bucket_cors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketCors input
let get_bucket_encryption ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketEncryption input
let get_bucket_intelligent_tiering_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketIntelligentTieringConfiguration
input
let get_bucket_inventory_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketInventoryConfiguration input
let get_bucket_lifecycle ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketLifecycle input
let get_bucket_lifecycle_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketLifecycleConfiguration input
let get_bucket_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketLocation input
let get_bucket_logging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketLogging input
let get_bucket_metadata_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketMetadataConfiguration input
let get_bucket_metadata_table_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketMetadataTableConfiguration input
let get_bucket_metrics_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketMetricsConfiguration input
let get_bucket_notification ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketNotification input
let get_bucket_notification_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketNotificationConfiguration input
let get_bucket_ownership_controls ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketOwnershipControls input
let get_bucket_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketPolicy input
let get_bucket_policy_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketPolicyStatus input
let get_bucket_replication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketReplication input
let get_bucket_request_payment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketRequestPayment 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_bucket_website ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBucketWebsite input
let get_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObject input
let get_object_acl ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectAcl input
let get_object_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectAttributes input
let get_object_legal_hold ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectLegalHold input
let get_object_lock_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectLockConfiguration input
let get_object_retention ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectRetention input
let get_object_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectTagging input
let get_object_torrent ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectTorrent input
let get_public_access_block ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPublicAccessBlock input
let head_bucket ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.HeadBucket input
let head_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.HeadObject input
let list_bucket_analytics_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBucketAnalyticsConfigurations input
let list_bucket_intelligent_tiering_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.ListBucketIntelligentTieringConfigurations input
let list_bucket_inventory_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBucketInventoryConfigurations input
let list_bucket_metrics_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBucketMetricsConfigurations input
let list_buckets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBuckets input
let list_directory_buckets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDirectoryBuckets input
let list_multipart_uploads ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMultipartUploads input
let list_object_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectVersions input
let list_objects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjects input
let list_objects_v2 ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectsV2 input
let list_parts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListParts input
let put_bucket_abac ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketAbac input
let put_bucket_accelerate_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketAccelerateConfiguration input
let put_bucket_acl ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketAcl input
let put_bucket_analytics_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketAnalyticsConfiguration input
let put_bucket_cors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketCors input
let put_bucket_encryption ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketEncryption input
let put_bucket_intelligent_tiering_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketIntelligentTieringConfiguration
input
let put_bucket_inventory_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketInventoryConfiguration input
let put_bucket_lifecycle ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketLifecycle input
let put_bucket_lifecycle_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketLifecycleConfiguration input
let put_bucket_logging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketLogging input
let put_bucket_metrics_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketMetricsConfiguration input
let put_bucket_notification ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketNotification input
let put_bucket_notification_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketNotificationConfiguration input
let put_bucket_ownership_controls ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketOwnershipControls 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_request_payment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketRequestPayment 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_bucket_website ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBucketWebsite input
let put_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutObject input
let put_object_acl ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutObjectAcl input
let put_object_legal_hold ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutObjectLegalHold input
let put_object_lock_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutObjectLockConfiguration input
let put_object_retention ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutObjectRetention input
let put_object_tagging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutObjectTagging input
let put_public_access_block ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutPublicAccessBlock input
let rename_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RenameObject input
let restore_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreObject input
let select_object_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SelectObjectContent input
let update_bucket_metadata_inventory_table_configuration ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.UpdateBucketMetadataInventoryTableConfiguration input
let update_bucket_metadata_journal_table_configuration ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.UpdateBucketMetadataJournalTableConfiguration input
let update_object_encryption ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateObjectEncryption input
let upload_part ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UploadPart input
let upload_part_copy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UploadPartCopy input
let write_get_object_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.WriteGetObjectResponse input