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_lightsail
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 allocate_static_ip ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AllocateStaticIp input
let attach_certificate_to_distribution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachCertificateToDistribution input
let attach_disk ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachDisk input
let attach_instances_to_load_balancer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachInstancesToLoadBalancer input
let attach_load_balancer_tls_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachLoadBalancerTlsCertificate input
let attach_static_ip ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AttachStaticIp input
let close_instance_public_ports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CloseInstancePublicPorts input
let copy_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CopySnapshot input
let create_bucket ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateBucket input
let create_bucket_access_key ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateBucketAccessKey input
let create_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCertificate input
let create_cloud_formation_stack ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateCloudFormationStack input
let create_contact_method ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateContactMethod input
let create_container_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateContainerService input
let create_container_service_deployment ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateContainerServiceDeployment input
let create_container_service_registry_login ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateContainerServiceRegistryLogin input
let create_disk ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDisk input
let create_disk_from_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDiskFromSnapshot input
let create_disk_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDiskSnapshot input
let create_distribution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDistribution input
let create_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDomain input
let create_domain_entry ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDomainEntry input
let create_g_u_i_session_access_details ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateGUISessionAccessDetails input
let create_instance_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateInstanceSnapshot input
let create_instances ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateInstances input
let create_instances_from_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateInstancesFromSnapshot input
let create_key_pair ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateKeyPair input
let create_load_balancer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateLoadBalancer input
let create_load_balancer_tls_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateLoadBalancerTlsCertificate input
let create_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRelationalDatabase input
let create_relational_database_from_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRelationalDatabaseFromSnapshot
    input
let create_relational_database_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateRelationalDatabaseSnapshot input
let delete_alarm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAlarm input
let delete_auto_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAutoSnapshot input
let delete_bucket ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteBucket input
let delete_bucket_access_key ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteBucketAccessKey input
let delete_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteCertificate input
let delete_contact_method ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteContactMethod input
let delete_container_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteContainerImage input
let delete_container_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteContainerService input
let delete_disk ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDisk input
let delete_disk_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDiskSnapshot input
let delete_distribution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDistribution input
let delete_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDomain input
let delete_domain_entry ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDomainEntry input
let delete_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteInstance input
let delete_instance_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteInstanceSnapshot input
let delete_key_pair ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteKeyPair input
let delete_known_host_keys ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteKnownHostKeys input
let delete_load_balancer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteLoadBalancer input
let delete_load_balancer_tls_certificate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteLoadBalancerTlsCertificate input
let delete_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRelationalDatabase input
let delete_relational_database_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteRelationalDatabaseSnapshot input
let detach_certificate_from_distribution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DetachCertificateFromDistribution input
let detach_disk ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DetachDisk input
let detach_instances_from_load_balancer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DetachInstancesFromLoadBalancer input
let detach_static_ip ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DetachStaticIp input
let disable_add_on ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisableAddOn input
let download_default_key_pair ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DownloadDefaultKeyPair input
let enable_add_on ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.EnableAddOn input
let export_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ExportSnapshot input
let get_active_names ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetActiveNames input
let get_alarms ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAlarms input
let get_auto_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAutoSnapshots input
let get_blueprints ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBlueprints input
let get_bucket_access_keys ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBucketAccessKeys input
let get_bucket_bundles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBucketBundles input
let get_bucket_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBucketMetricData input
let get_buckets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBuckets input
let get_bundles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetBundles input
let get_certificates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCertificates input
let get_cloud_formation_stack_records ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCloudFormationStackRecords input
let get_contact_methods ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContactMethods input
let get_container_a_p_i_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerAPIMetadata input
let get_container_images ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerImages input
let get_container_log ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerLog input
let get_container_service_deployments ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerServiceDeployments input
let get_container_service_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerServiceMetricData input
let get_container_service_powers ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerServicePowers input
let get_container_services ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetContainerServices input
let get_cost_estimate ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCostEstimate input
let get_disk ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDisk input
let get_disk_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDiskSnapshot input
let get_disk_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDiskSnapshots input
let get_disks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDisks input
let get_distribution_bundles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDistributionBundles input
let get_distribution_latest_cache_reset ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDistributionLatestCacheReset input
let get_distribution_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDistributionMetricData input
let get_distributions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDistributions input
let get_domain ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDomain input
let get_domains ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDomains input
let get_export_snapshot_records ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetExportSnapshotRecords input
let get_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstance input
let get_instance_access_details ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstanceAccessDetails input
let get_instance_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstanceMetricData input
let get_instance_port_states ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstancePortStates input
let get_instance_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstanceSnapshot input
let get_instance_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstanceSnapshots input
let get_instance_state ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstanceState input
let get_instances ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInstances input
let get_key_pair ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetKeyPair input
let get_key_pairs ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetKeyPairs input
let get_load_balancer ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLoadBalancer input
let get_load_balancer_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLoadBalancerMetricData input
let get_load_balancer_tls_certificates ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLoadBalancerTlsCertificates input
let get_load_balancer_tls_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLoadBalancerTlsPolicies input
let get_load_balancers ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetLoadBalancers input
let get_operation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOperation input
let get_operations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOperations input
let get_operations_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOperationsForResource input
let get_regions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRegions input
let get_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabase input
let get_relational_database_blueprints ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseBlueprints input
let get_relational_database_bundles ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseBundles input
let get_relational_database_events ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseEvents input
let get_relational_database_log_events ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseLogEvents input
let get_relational_database_log_streams ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseLogStreams input
let get_relational_database_master_user_password ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseMasterUserPassword
    input
let get_relational_database_metric_data ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseMetricData input
let get_relational_database_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseParameters input
let get_relational_database_snapshot ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseSnapshot input
let get_relational_database_snapshots ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabaseSnapshots input
let get_relational_databases ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetRelationalDatabases input
let get_setup_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetSetupHistory input
let get_static_ip ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetStaticIp input
let get_static_ips ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetStaticIps input
let import_key_pair ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ImportKeyPair input
let is_vpc_peered ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.IsVpcPeered input
let open_instance_public_ports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.OpenInstancePublicPorts input
let peer_vpc ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PeerVpc input
let put_alarm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutAlarm input
let put_instance_public_ports ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutInstancePublicPorts input
let reboot_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RebootInstance input
let reboot_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RebootRelationalDatabase input
let register_container_image ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterContainerImage input
let release_static_ip ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ReleaseStaticIp input
let reset_distribution_cache ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResetDistributionCache input
let send_contact_method_verification ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendContactMethodVerification input
let set_ip_address_type ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SetIpAddressType input
let set_resource_access_for_bucket ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SetResourceAccessForBucket input
let setup_instance_https ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SetupInstanceHttps input
let start_g_u_i_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartGUISession input
let start_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartInstance input
let start_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartRelationalDatabase input
let stop_g_u_i_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopGUISession input
let stop_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopInstance input
let stop_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopRelationalDatabase input
let tag_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TagResource input
let test_alarm ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TestAlarm input
let unpeer_vpc ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UnpeerVpc input
let untag_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_bucket ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateBucket input
let update_bucket_bundle ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateBucketBundle input
let update_container_service ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateContainerService input
let update_distribution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDistribution input
let update_distribution_bundle ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDistributionBundle input
let update_domain_entry ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDomainEntry input
let update_instance_metadata_options ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateInstanceMetadataOptions input
let update_load_balancer_attribute ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateLoadBalancerAttribute input
let update_relational_database ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateRelationalDatabase input
let update_relational_database_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateRelationalDatabaseParameters input