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_redshift
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 accept_reserved_node_exchange ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AcceptReservedNodeExchange input
let add_partner ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddPartner input
let associate_data_share_consumer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateDataShareConsumer input
let authorize_cluster_security_group_ingress ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AuthorizeClusterSecurityGroupIngress
    input
let authorize_data_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AuthorizeDataShare input
let authorize_endpoint_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AuthorizeEndpointAccess input
let authorize_snapshot_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AuthorizeSnapshotAccess input
let batch_delete_cluster_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchDeleteClusterSnapshots input
let batch_modify_cluster_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.BatchModifyClusterSnapshots input
let cancel_resize ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelResize input
let copy_cluster_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CopyClusterSnapshot input
let create_authentication_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAuthenticationProfile input
let create_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCluster input
let create_cluster_parameter_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateClusterParameterGroup input
let create_cluster_security_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateClusterSecurityGroup input
let create_cluster_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateClusterSnapshot input
let create_cluster_subnet_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateClusterSubnetGroup input
let create_custom_domain_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCustomDomainAssociation input
let create_endpoint_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEndpointAccess input
let create_event_subscription ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateEventSubscription input
let create_hsm_client_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateHsmClientCertificate input
let create_hsm_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateHsmConfiguration input
let create_integration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateIntegration input
let create_redshift_idc_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRedshiftIdcApplication input
let create_scheduled_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateScheduledAction input
let create_snapshot_copy_grant ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateSnapshotCopyGrant input
let create_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateSnapshotSchedule input
let create_tags ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateTags input
let create_usage_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateUsageLimit input
let deauthorize_data_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeauthorizeDataShare input
let delete_authentication_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAuthenticationProfile input
let delete_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCluster input
let delete_cluster_parameter_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteClusterParameterGroup input
let delete_cluster_security_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteClusterSecurityGroup input
let delete_cluster_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteClusterSnapshot input
let delete_cluster_subnet_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteClusterSubnetGroup input
let delete_custom_domain_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCustomDomainAssociation input
let delete_endpoint_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEndpointAccess input
let delete_event_subscription ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteEventSubscription input
let delete_hsm_client_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteHsmClientCertificate input
let delete_hsm_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteHsmConfiguration input
let delete_integration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteIntegration input
let delete_partner ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeletePartner input
let delete_redshift_idc_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRedshiftIdcApplication input
let delete_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_scheduled_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteScheduledAction input
let delete_snapshot_copy_grant ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteSnapshotCopyGrant input
let delete_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteSnapshotSchedule input
let delete_tags ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteTags input
let delete_usage_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteUsageLimit input
let deregister_namespace ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterNamespace input
let describe_account_attributes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAccountAttributes input
let describe_authentication_profiles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAuthenticationProfiles input
let describe_cluster_db_revisions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterDbRevisions input
let describe_cluster_parameter_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterParameterGroups input
let describe_cluster_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterParameters input
let describe_cluster_security_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterSecurityGroups input
let describe_cluster_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterSnapshots input
let describe_cluster_subnet_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterSubnetGroups input
let describe_cluster_tracks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterTracks input
let describe_cluster_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusterVersions input
let describe_clusters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeClusters input
let describe_custom_domain_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeCustomDomainAssociations input
let describe_data_shares ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDataShares input
let describe_data_shares_for_consumer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDataSharesForConsumer input
let describe_data_shares_for_producer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDataSharesForProducer input
let describe_default_cluster_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDefaultClusterParameters input
let describe_endpoint_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEndpointAccess input
let describe_endpoint_authorization ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEndpointAuthorization input
let describe_event_categories ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEventCategories input
let describe_event_subscriptions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEventSubscriptions input
let describe_events ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEvents input
let describe_hsm_client_certificates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeHsmClientCertificates input
let describe_hsm_configurations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeHsmConfigurations input
let describe_inbound_integrations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInboundIntegrations input
let describe_integrations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeIntegrations input
let describe_logging_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeLoggingStatus input
let describe_node_configuration_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeNodeConfigurationOptions input
let describe_orderable_cluster_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeOrderableClusterOptions input
let describe_partners ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePartners input
let describe_redshift_idc_applications ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeRedshiftIdcApplications input
let describe_reserved_node_exchange_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeReservedNodeExchangeStatus input
let describe_reserved_node_offerings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeReservedNodeOfferings input
let describe_reserved_nodes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeReservedNodes input
let describe_resize ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeResize input
let describe_scheduled_actions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeScheduledActions input
let describe_snapshot_copy_grants ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSnapshotCopyGrants input
let describe_snapshot_schedules ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSnapshotSchedules input
let describe_storage ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeStorage input
let describe_table_restore_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTableRestoreStatus input
let describe_tags ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeTags input
let describe_usage_limits ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeUsageLimits input
let disable_logging ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableLogging input
let disable_snapshot_copy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableSnapshotCopy input
let disassociate_data_share_consumer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateDataShareConsumer input
let enable_logging ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableLogging input
let enable_snapshot_copy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableSnapshotCopy input
let failover_primary_compute ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.FailoverPrimaryCompute input
let get_cluster_credentials ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetClusterCredentials input
let get_cluster_credentials_with_i_a_m ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetClusterCredentialsWithIAM input
let get_identity_center_auth_token ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetIdentityCenterAuthToken input
let get_reserved_node_exchange_configuration_options ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.GetReservedNodeExchangeConfigurationOptions input
let get_reserved_node_exchange_offerings ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetReservedNodeExchangeOfferings input
let get_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let list_recommendations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListRecommendations input
let modify_aqua_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyAquaConfiguration input
let modify_authentication_profile ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyAuthenticationProfile input
let modify_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyCluster input
let modify_cluster_db_revision ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterDbRevision input
let modify_cluster_iam_roles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterIamRoles input
let modify_cluster_maintenance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterMaintenance input
let modify_cluster_parameter_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterParameterGroup input
let modify_cluster_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterSnapshot input
let modify_cluster_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterSnapshotSchedule input
let modify_cluster_subnet_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyClusterSubnetGroup input
let modify_custom_domain_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyCustomDomainAssociation input
let modify_endpoint_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyEndpointAccess input
let modify_event_subscription ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyEventSubscription input
let modify_integration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyIntegration input
let modify_lakehouse_configuration ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyLakehouseConfiguration input
let modify_redshift_idc_application ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyRedshiftIdcApplication input
let modify_scheduled_action ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyScheduledAction input
let modify_snapshot_copy_retention_period ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifySnapshotCopyRetentionPeriod input
let modify_snapshot_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifySnapshotSchedule input
let modify_usage_limit ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyUsageLimit input
let pause_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PauseCluster input
let purchase_reserved_node_offering ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PurchaseReservedNodeOffering input
let put_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let reboot_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RebootCluster input
let register_namespace ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterNamespace input
let reject_data_share ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RejectDataShare input
let reset_cluster_parameter_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResetClusterParameterGroup input
let resize_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResizeCluster input
let restore_from_cluster_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RestoreFromClusterSnapshot input
let restore_table_from_cluster_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RestoreTableFromClusterSnapshot input
let resume_cluster ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResumeCluster input
let revoke_cluster_security_group_ingress ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RevokeClusterSecurityGroupIngress input
let revoke_endpoint_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RevokeEndpointAccess input
let revoke_snapshot_access ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RevokeSnapshotAccess input
let rotate_encryption_key ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RotateEncryptionKey input
let update_partner_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdatePartnerStatus input