package awso-async
Source file io.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133(* 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_es 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_inbound_cross_cluster_search_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AcceptInboundCrossClusterSearchConnection input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddTags input let associate_package ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociatePackage input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AuthorizeVpcEndpointAccess input let cancel_domain_config_change ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CancelDomainConfigChange input let cancel_elasticsearch_service_software_update ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CancelElasticsearchServiceSoftwareUpdate input let create_elasticsearch_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateElasticsearchDomain input let create_outbound_cross_cluster_search_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateOutboundCrossClusterSearchConnection input let create_package ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreatePackage input let create_vpc_endpoint ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateVpcEndpoint input let delete_elasticsearch_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteElasticsearchDomain input let delete_elasticsearch_service_role ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteElasticsearchServiceRole input let delete_inbound_cross_cluster_search_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteInboundCrossClusterSearchConnection input let delete_outbound_cross_cluster_search_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteOutboundCrossClusterSearchConnection input let delete_package ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeletePackage input let delete_vpc_endpoint ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteVpcEndpoint input let describe_domain_auto_tunes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeDomainAutoTunes input let describe_domain_change_progress ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeDomainChangeProgress input let describe_elasticsearch_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeElasticsearchDomain input let describe_elasticsearch_domain_config ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeElasticsearchDomainConfig input let describe_elasticsearch_domains ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeElasticsearchDomains input let describe_elasticsearch_instance_type_limits ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeElasticsearchInstanceTypeLimits input let describe_inbound_cross_cluster_search_connections ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeInboundCrossClusterSearchConnections input let describe_outbound_cross_cluster_search_connections ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeOutboundCrossClusterSearchConnections input let describe_packages ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribePackages input let describe_reserved_elasticsearch_instance_offerings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeReservedElasticsearchInstanceOfferings input let describe_reserved_elasticsearch_instances ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeReservedElasticsearchInstances input let describe_vpc_endpoints ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeVpcEndpoints input let dissociate_package ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DissociatePackage input let get_compatible_elasticsearch_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCompatibleElasticsearchVersions input let get_package_version_history ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetPackageVersionHistory input let get_upgrade_history ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUpgradeHistory input let get_upgrade_status ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUpgradeStatus input let list_domain_names ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDomainNames input let list_domains_for_package ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDomainsForPackage input let list_elasticsearch_instance_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListElasticsearchInstanceTypes input let list_elasticsearch_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListElasticsearchVersions input let list_packages_for_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPackagesForDomain input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTags input let list_vpc_endpoint_access ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListVpcEndpointAccess input let list_vpc_endpoints ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListVpcEndpoints input let list_vpc_endpoints_for_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListVpcEndpointsForDomain input let purchase_reserved_elasticsearch_instance_offering ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PurchaseReservedElasticsearchInstanceOffering input let reject_inbound_cross_cluster_search_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RejectInboundCrossClusterSearchConnection input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RemoveTags input let revoke_vpc_endpoint_access ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RevokeVpcEndpointAccess input let start_elasticsearch_service_software_update ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartElasticsearchServiceSoftwareUpdate input let update_elasticsearch_domain_config ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateElasticsearchDomainConfig input let update_package ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdatePackage input let update_vpc_endpoint ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateVpcEndpoint input let upgrade_elasticsearch_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpgradeElasticsearchDomain input