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
open Awso_es
open Awso_lwt
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 add_tags ?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 authorize_vpc_endpoint_access ?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 list_tags ?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 remove_tags ?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