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
open Awso_vpc_lattice
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 batch_update_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchUpdateRule input
let create_access_log_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessLogSubscription input
let create_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateListener input
let create_resource_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResourceConfiguration input
let create_resource_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResourceGateway input
let create_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRule input
let create_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateService input
let create_service_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServiceNetwork input
let create_service_network_resource_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServiceNetworkResourceAssociation
input
let create_service_network_service_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServiceNetworkServiceAssociation
input
let create_service_network_vpc_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServiceNetworkVpcAssociation input
let create_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTargetGroup input
let delete_access_log_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessLogSubscription input
let delete_auth_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAuthPolicy input
let delete_domain_verification ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDomainVerification input
let delete_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteListener input
let delete_resource_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourceConfiguration input
let delete_resource_endpoint_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourceEndpointAssociation input
let delete_resource_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourceGateway input
let delete_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRule input
let delete_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteService input
let delete_service_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServiceNetwork input
let delete_service_network_resource_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServiceNetworkResourceAssociation
input
let delete_service_network_service_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServiceNetworkServiceAssociation
input
let delete_service_network_vpc_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServiceNetworkVpcAssociation input
let delete_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTargetGroup input
let deregister_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterTargets input
let get_access_log_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessLogSubscription input
let get_auth_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAuthPolicy input
let get_domain_verification ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDomainVerification input
let get_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetListener input
let get_resource_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourceConfiguration input
let get_resource_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourceGateway input
let get_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let get_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRule input
let get_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetService input
let get_service_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceNetwork input
let get_service_network_resource_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceNetworkResourceAssociation
input
let get_service_network_service_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceNetworkServiceAssociation input
let get_service_network_vpc_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceNetworkVpcAssociation input
let get_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTargetGroup input
let list_access_log_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessLogSubscriptions input
let list_domain_verifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDomainVerifications input
let list_listeners ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListListeners input
let list_resource_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceConfigurations input
let list_resource_endpoint_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceEndpointAssociations input
let list_resource_gateways ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceGateways input
let list_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRules input
let list_service_network_resource_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceNetworkResourceAssociations
input
let list_service_network_service_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceNetworkServiceAssociations
input
let list_service_network_vpc_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceNetworkVpcAssociations input
let list_service_network_vpc_endpoint_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceNetworkVpcEndpointAssociations
input
let list_service_networks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServiceNetworks input
let list_services ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListServices input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_target_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTargetGroups input
let list_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTargets input
let put_auth_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAuthPolicy input
let put_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let register_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterTargets input
let start_domain_verification ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDomainVerification 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_access_log_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccessLogSubscription input
let update_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateListener input
let update_resource_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResourceConfiguration input
let update_resource_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResourceGateway input
let update_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRule input
let update_service ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateService input
let update_service_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateServiceNetwork input
let update_service_network_vpc_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateServiceNetworkVpcAssociation input
let update_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTargetGroup input