Regenerate S3 library.

inhabitedtype · Jan 23, 2020 · b1b8df5 · b1b8df5
1 parent a80030d
commit b1b8df5
Show file tree

Hide file tree

Showing 54 changed files with 214 additions and 161 deletions.
diff --git a/libraries/s3/lib/abortMultipartUpload.ml b/libraries/s3/lib/abortMultipartUpload.ml
@@ -4,11 +4,12 @@ type input = AbortMultipartUploadRequest.t
 type output = AbortMultipartUploadOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["AbortMultipartUpload"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/completeMultipartUpload.ml b/libraries/s3/lib/completeMultipartUpload.ml
@@ -4,11 +4,12 @@ type input = CompleteMultipartUploadRequest.t
 type output = CompleteMultipartUploadOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]);
          ("Action", ["CompleteMultipartUpload"])]

diff --git a/libraries/s3/lib/copyObject.ml b/libraries/s3/lib/copyObject.ml
@@ -4,11 +4,12 @@ type input = CopyObjectRequest.t
 type output = CopyObjectOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append [("Version", ["2006-03-01"]); ("Action", ["CopyObject"])]
          (Util.drop_empty
             (Uri.query_of_encoded

diff --git a/libraries/s3/lib/createBucket.ml b/libraries/s3/lib/createBucket.ml
@@ -4,11 +4,12 @@ type input = CreateBucketRequest.t
 type output = CreateBucketOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["CreateBucket"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/createMultipartUpload.ml b/libraries/s3/lib/createMultipartUpload.ml
@@ -4,11 +4,12 @@ type input = CreateMultipartUploadRequest.t
 type output = CreateMultipartUploadOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["CreateMultipartUpload"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteBucket.ml b/libraries/s3/lib/deleteBucket.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteBucket"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteBucketCors.ml b/libraries/s3/lib/deleteBucketCors.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketCorsRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteBucketCors"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteBucketLifecycle.ml b/libraries/s3/lib/deleteBucketLifecycle.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketLifecycleRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteBucketLifecycle"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteBucketPolicy.ml b/libraries/s3/lib/deleteBucketPolicy.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketPolicyRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteBucketPolicy"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteBucketReplication.ml b/libraries/s3/lib/deleteBucketReplication.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketReplicationRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]);
          ("Action", ["DeleteBucketReplication"])]

diff --git a/libraries/s3/lib/deleteBucketTagging.ml b/libraries/s3/lib/deleteBucketTagging.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketTaggingRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteBucketTagging"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteBucketWebsite.ml b/libraries/s3/lib/deleteBucketWebsite.ml
@@ -4,11 +4,12 @@ type input = DeleteBucketWebsiteRequest.t
 type output = unit
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteBucketWebsite"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteObject.ml b/libraries/s3/lib/deleteObject.ml
@@ -4,11 +4,12 @@ type input = DeleteObjectRequest.t
 type output = DeleteObjectOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteObject"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/deleteObjects.ml b/libraries/s3/lib/deleteObjects.ml
@@ -4,11 +4,12 @@ type input = DeleteObjectsRequest.t
 type output = DeleteObjectsOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["DeleteObjects"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketAcl.ml b/libraries/s3/lib/getBucketAcl.ml
@@ -4,11 +4,12 @@ type input = GetBucketAclRequest.t
 type output = GetBucketAclOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketAcl"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketCors.ml b/libraries/s3/lib/getBucketCors.ml
@@ -4,11 +4,12 @@ type input = GetBucketCorsRequest.t
 type output = GetBucketCorsOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketCors"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketLifecycle.ml b/libraries/s3/lib/getBucketLifecycle.ml
@@ -4,11 +4,12 @@ type input = GetBucketLifecycleRequest.t
 type output = GetBucketLifecycleOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketLifecycle"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketLocation.ml b/libraries/s3/lib/getBucketLocation.ml
@@ -4,11 +4,12 @@ type input = GetBucketLocationRequest.t
 type output = GetBucketLocationOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketLocation"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketLogging.ml b/libraries/s3/lib/getBucketLogging.ml
@@ -4,11 +4,12 @@ type input = GetBucketLoggingRequest.t
 type output = GetBucketLoggingOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketLogging"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketNotification.ml b/libraries/s3/lib/getBucketNotification.ml
@@ -4,11 +4,12 @@ type input = GetBucketNotificationConfigurationRequest.t
 type output = NotificationConfigurationDeprecated.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketNotification"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketNotificationConfiguration.ml b/libraries/s3/lib/getBucketNotificationConfiguration.ml
@@ -4,11 +4,12 @@ type input = GetBucketNotificationConfigurationRequest.t
 type output = NotificationConfiguration.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]);
          ("Action", ["GetBucketNotificationConfiguration"])]

diff --git a/libraries/s3/lib/getBucketPolicy.ml b/libraries/s3/lib/getBucketPolicy.ml
@@ -4,11 +4,12 @@ type input = GetBucketPolicyRequest.t
 type output = GetBucketPolicyOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketPolicy"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketReplication.ml b/libraries/s3/lib/getBucketReplication.ml
@@ -4,11 +4,12 @@ type input = GetBucketReplicationRequest.t
 type output = GetBucketReplicationOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketReplication"])]
          (Util.drop_empty

diff --git a/libraries/s3/lib/getBucketRequestPayment.ml b/libraries/s3/lib/getBucketRequestPayment.ml
@@ -4,11 +4,12 @@ type input = GetBucketRequestPaymentRequest.t
 type output = GetBucketRequestPaymentOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]);
          ("Action", ["GetBucketRequestPayment"])]

diff --git a/libraries/s3/lib/getBucketTagging.ml b/libraries/s3/lib/getBucketTagging.ml
@@ -4,11 +4,12 @@ type input = GetBucketTaggingRequest.t
 type output = GetBucketTaggingOutput.t
 type error = Errors_internal.t
 let service = "s3"
-let to_http service region req =
+let to_http service region (req : input) =
   let uri =
     Uri.add_query_params
-      (Uri.of_string
-         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string @@
+         ((^) req.bucket
+            (Aws.Util.of_option_exn (Endpoints.url_of service region))))
       (List.append
          [("Version", ["2006-03-01"]); ("Action", ["GetBucketTagging"])]
          (Util.drop_empty