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
open Awso_networkmanager
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_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptAttachment input
let associate_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateConnectPeer input
let associate_customer_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateCustomerGateway input
let associate_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateLink input
let associate_transit_gateway_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateTransitGatewayConnectPeer input
let create_connect_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConnectAttachment input
let create_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConnectPeer input
let create_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConnection input
let create_core_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCoreNetwork input
let create_core_network_prefix_list_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCoreNetworkPrefixListAssociation
input
let create_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDevice input
let create_direct_connect_gateway_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDirectConnectGatewayAttachment
input
let create_global_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGlobalNetwork input
let create_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLink input
let create_site ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSite input
let create_site_to_site_vpn_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSiteToSiteVpnAttachment input
let create_transit_gateway_peering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTransitGatewayPeering input
let create_transit_gateway_route_table_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTransitGatewayRouteTableAttachment
input
let create_vpc_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVpcAttachment input
let delete_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAttachment input
let delete_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConnectPeer input
let delete_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConnection input
let delete_core_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCoreNetwork input
let delete_core_network_policy_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCoreNetworkPolicyVersion input
let delete_core_network_prefix_list_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCoreNetworkPrefixListAssociation
input
let delete_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDevice input
let delete_global_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGlobalNetwork input
let delete_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLink input
let delete_peering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePeering input
let delete_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_site ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSite input
let deregister_transit_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterTransitGateway input
let describe_global_networks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGlobalNetworks input
let disassociate_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateConnectPeer input
let disassociate_customer_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateCustomerGateway input
let disassociate_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateLink input
let disassociate_transit_gateway_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateTransitGatewayConnectPeer
input
let execute_core_network_change_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExecuteCoreNetworkChangeSet input
let get_connect_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnectAttachment input
let get_connect_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnectPeer input
let get_connect_peer_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnectPeerAssociations input
let get_connections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetConnections input
let get_core_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCoreNetwork input
let get_core_network_change_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCoreNetworkChangeEvents input
let get_core_network_change_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCoreNetworkChangeSet input
let get_core_network_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCoreNetworkPolicy input
let get_customer_gateway_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCustomerGatewayAssociations input
let get_devices ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevices input
let get_direct_connect_gateway_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDirectConnectGatewayAttachment input
let get_link_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLinkAssociations input
let get_links ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLinks input
let get_network_resource_counts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkResourceCounts input
let get_network_resource_relationships ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkResourceRelationships input
let get_network_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkResources input
let get_network_routes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkRoutes input
let get_network_telemetry ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNetworkTelemetry input
let get_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let get_route_analysis ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRouteAnalysis input
let get_site_to_site_vpn_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSiteToSiteVpnAttachment input
let get_sites ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSites input
let get_transit_gateway_connect_peer_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTransitGatewayConnectPeerAssociations
input
let get_transit_gateway_peering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTransitGatewayPeering input
let get_transit_gateway_registrations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTransitGatewayRegistrations input
let get_transit_gateway_route_table_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTransitGatewayRouteTableAttachment
input
let get_vpc_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetVpcAttachment input
let list_attachment_routing_policy_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAttachmentRoutingPolicyAssociations
input
let list_attachments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAttachments input
let list_connect_peers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListConnectPeers input
let list_core_network_policy_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCoreNetworkPolicyVersions input
let list_core_network_prefix_list_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCoreNetworkPrefixListAssociations
input
let list_core_network_routing_information ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCoreNetworkRoutingInformation input
let list_core_networks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCoreNetworks input
let list_organization_service_access_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOrganizationServiceAccessStatus input
let list_peerings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPeerings input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_attachment_routing_policy_label ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAttachmentRoutingPolicyLabel input
let put_core_network_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutCoreNetworkPolicy input
let put_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let register_transit_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterTransitGateway input
let reject_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RejectAttachment input
let remove_attachment_routing_policy_label ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveAttachmentRoutingPolicyLabel input
let restore_core_network_policy_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreCoreNetworkPolicyVersion input
let start_organization_service_access_update ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartOrganizationServiceAccessUpdate
input
let start_route_analysis ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartRouteAnalysis 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_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateConnection input
let update_core_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCoreNetwork input
let update_device ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDevice input
let update_direct_connect_gateway_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDirectConnectGatewayAttachment
input
let update_global_network ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGlobalNetwork input
let update_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLink input
let update_network_resource_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNetworkResourceMetadata input
let update_site ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSite input
let update_vpc_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateVpcAttachment input