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_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