Source file io.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
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