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
open Awso_apigatewayv2
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 create_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateApi input
let create_api_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateApiMapping input
let create_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAuthorizer input
let create_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDeployment input
let create_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDomainName input
let create_integration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIntegration input
let create_integration_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIntegrationResponse input
let create_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateModel input
let create_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePortal input
let create_portal_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePortalProduct input
let create_product_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProductPage input
let create_product_rest_endpoint_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateProductRestEndpointPage input
let create_route ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRoute input
let create_route_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRouteResponse input
let create_routing_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRoutingRule input
let create_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStage input
let create_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVpcLink input
let delete_access_log_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessLogSettings input
let delete_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteApi input
let delete_api_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteApiMapping input
let delete_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAuthorizer input
let delete_cors_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCorsConfiguration input
let delete_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDeployment input
let delete_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDomainName 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_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteModel input
let delete_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePortal input
let delete_portal_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePortalProduct input
let delete_portal_product_sharing_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePortalProductSharingPolicy input
let delete_product_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProductPage input
let delete_product_rest_endpoint_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteProductRestEndpointPage input
let delete_route ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRoute input
let delete_route_request_parameter ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouteRequestParameter input
let delete_route_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouteResponse input
let delete_route_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouteSettings input
let delete_routing_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRoutingRule input
let delete_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStage input
let delete_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVpcLink input
let export_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExportApi input
let disable_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisablePortal input
let reset_authorizers_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetAuthorizersCache input
let get_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApi input
let get_api_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApiMapping input
let get_api_mappings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApiMappings input
let get_apis ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApis 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_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_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainName input
let get_domain_names ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainNames 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_integration_responses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIntegrationResponses input
let get_integrations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIntegrations 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_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPortal input
let get_portal_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPortalProduct input
let get_portal_product_sharing_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPortalProductSharingPolicy input
let get_product_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProductPage input
let get_product_rest_endpoint_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetProductRestEndpointPage input
let get_route ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRoute input
let get_route_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouteResponse input
let get_route_responses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouteResponses input
let get_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRoutes input
let get_routing_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRoutingRule input
let list_routing_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRoutingRules 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_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 ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportApi input
let list_portal_products ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPortalProducts input
let list_portals ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPortals input
let list_product_pages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProductPages input
let list_product_rest_endpoint_pages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProductRestEndpointPages input
let preview_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PreviewPortal input
let publish_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PublishPortal input
let put_portal_product_sharing_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutPortalProductSharingPolicy input
let put_routing_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRoutingRule input
let reimport_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ReimportApi input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_api ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApi input
let update_api_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApiMapping input
let update_authorizer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAuthorizer input
let update_deployment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDeployment input
let update_domain_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDomainName 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_model ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateModel input
let update_portal ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePortal input
let update_portal_product ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePortalProduct input
let update_product_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProductPage input
let update_product_rest_endpoint_page ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateProductRestEndpointPage input
let update_route ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRoute input
let update_route_response ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRouteResponse input
let update_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStage input
let update_vpc_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateVpcLink input