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
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
open Awso_apigateway
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 create_api_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateApiKey input
let create_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAuthorizer input
let create_base_path_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBasePathMapping input
let create_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDeployment input
let create_documentation_part ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDocumentationPart input
let create_documentation_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDocumentationVersion input
let create_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDomainName input
let create_domain_name_access_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDomainNameAccessAssociation input
let create_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateModel input
let create_request_validator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRequestValidator input
let create_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResource input
let create_rest_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRestApi input
let create_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStage input
let create_usage_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUsagePlan input
let create_usage_plan_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUsagePlanKey input
let create_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVpcLink input
let delete_api_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteApiKey input
let delete_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAuthorizer input
let delete_base_path_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBasePathMapping input
let delete_client_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteClientCertificate input
let delete_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDeployment input
let delete_documentation_part ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDocumentationPart input
let delete_documentation_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDocumentationVersion input
let delete_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDomainName input
let delete_domain_name_access_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDomainNameAccessAssociation input
let delete_gateway_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGatewayResponse input
let delete_integration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIntegration input
let delete_integration_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIntegrationResponse input
let delete_method ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMethod input
let delete_method_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMethodResponse input
let delete_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteModel input
let delete_request_validator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRequestValidator input
let delete_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResource input
let delete_rest_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRestApi input
let delete_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStage input
let delete_usage_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUsagePlan input
let delete_usage_plan_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUsagePlanKey input
let delete_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVpcLink input
let flush_stage_authorizers_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.FlushStageAuthorizersCache input
let flush_stage_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.FlushStageCache input
let generate_client_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateClientCertificate input
let get_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccount input
let get_api_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApiKey input
let get_api_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApiKeys input
let get_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAuthorizer input
let get_authorizers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAuthorizers input
let get_base_path_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBasePathMapping input
let get_base_path_mappings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBasePathMappings input
let get_client_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetClientCertificate input
let get_client_certificates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetClientCertificates input
let get_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeployment input
let get_deployments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDeployments input
let get_documentation_part ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDocumentationPart input
let get_documentation_parts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDocumentationParts input
let get_documentation_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDocumentationVersion input
let get_documentation_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDocumentationVersions input
let get_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainName input
let get_domain_name_access_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainNameAccessAssociations input
let get_domain_names ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainNames input
let get_export ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetExport input
let get_gateway_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGatewayResponse input
let get_gateway_responses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGatewayResponses input
let get_integration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIntegration input
let get_integration_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIntegrationResponse input
let get_method ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMethod input
let get_method_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMethodResponse input
let get_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetModel input
let get_model_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetModelTemplate input
let get_models ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetModels input
let get_request_validator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRequestValidator input
let get_request_validators ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRequestValidators input
let get_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResource input
let get_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResources input
let get_rest_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRestApi input
let get_rest_apis ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRestApis input
let get_sdk ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSdk input
let get_sdk_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSdkType input
let get_sdk_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSdkTypes input
let get_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStage input
let get_stages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStages input
let get_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTags input
let get_usage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsage input
let get_usage_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsagePlan input
let get_usage_plan_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsagePlanKey input
let get_usage_plan_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsagePlanKeys input
let get_usage_plans ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsagePlans input
let get_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetVpcLink input
let get_vpc_links ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetVpcLinks input
let import_api_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportApiKeys input
let import_documentation_parts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportDocumentationParts input
let import_rest_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportRestApi input
let put_gateway_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutGatewayResponse input
let put_integration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutIntegration input
let put_integration_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutIntegrationResponse input
let put_method ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutMethod input
let put_method_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutMethodResponse input
let put_rest_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRestApi input
let reject_domain_name_access_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RejectDomainNameAccessAssociation input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let test_invoke_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestInvokeAuthorizer input
let test_invoke_method ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestInvokeMethod input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_account ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccount input
let update_api_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApiKey input
let update_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAuthorizer input
let update_base_path_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBasePathMapping input
let update_client_certificate ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateClientCertificate input
let update_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDeployment input
let update_documentation_part ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDocumentationPart input
let update_documentation_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDocumentationVersion input
let update_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDomainName input
let update_gateway_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGatewayResponse input
let update_integration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIntegration input
let update_integration_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIntegrationResponse input
let update_method ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMethod input
let update_method_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMethodResponse input
let update_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateModel input
let update_request_validator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRequestValidator input
let update_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResource input
let update_rest_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRestApi input
let update_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStage input
let update_usage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUsage input
let update_usage_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUsagePlan input
let update_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateVpcLink input