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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
open Awso_opensearch
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_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptInboundConnection input
let add_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddDataSource input
let add_direct_query_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddDirectQueryDataSource 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 associate_packages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociatePackages 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_service_software_update ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelServiceSoftwareUpdate input
let create_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateApplication input
let create_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDomain input
let create_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIndex input
let create_outbound_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateOutboundConnection 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_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteApplication input
let delete_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDataSource input
let delete_direct_query_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDirectQueryDataSource input
let delete_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDomain input
let delete_inbound_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteInboundConnection input
let delete_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIndex input
let delete_outbound_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteOutboundConnection 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 deregister_capability ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterCapability input
let describe_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomain 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_domain_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomainConfig input
let describe_domain_health ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomainHealth input
let describe_domain_nodes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomainNodes input
let describe_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomains input
let describe_dry_run_progress ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDryRunProgress input
let describe_inbound_connections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInboundConnections input
let describe_insight_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInsightDetails input
let describe_instance_type_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInstanceTypeLimits input
let describe_outbound_connections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOutboundConnections input
let describe_packages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePackages input
let describe_reserved_instance_offerings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReservedInstanceOfferings input
let describe_reserved_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReservedInstances 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 dissociate_packages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DissociatePackages input
let get_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApplication input
let get_capability ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCapability input
let get_compatible_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCompatibleVersions input
let get_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDataSource input
let get_default_application_setting ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDefaultApplicationSetting input
let get_direct_query_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDirectQueryDataSource input
let get_domain_maintenance_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainMaintenanceStatus input
let get_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIndex 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_applications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListApplications input
let list_data_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDataSources input
let list_direct_query_data_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDirectQueryDataSources input
let list_domain_maintenances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDomainMaintenances 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_insights ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInsights input
let list_instance_type_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInstanceTypeDetails input
let list_packages_for_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPackagesForDomain input
let list_scheduled_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListScheduledActions input
let list_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTags input
let list_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListVersions 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_instance_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PurchaseReservedInstanceOffering input
let put_default_application_setting ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutDefaultApplicationSetting input
let register_capability ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterCapability input
let reject_inbound_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RejectInboundConnection 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 rollback_service_software_update ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RollbackServiceSoftwareUpdate input
let start_domain_maintenance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDomainMaintenance input
let start_service_software_update ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartServiceSoftwareUpdate input
let update_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApplication input
let update_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDataSource input
let update_direct_query_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDirectQueryDataSource input
let update_domain_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDomainConfig input
let update_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIndex input
let update_package ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePackage input
let update_package_scope ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePackageScope input
let update_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateScheduledAction input
let update_vpc_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateVpcEndpoint input
let upgrade_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpgradeDomain input