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
open Awso_directconnect
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_direct_connect_gateway_association_proposal ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.AcceptDirectConnectGatewayAssociationProposal input
let allocate_connection_on_interconnect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AllocateConnectionOnInterconnect input
let allocate_hosted_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AllocateHostedConnection input
let allocate_private_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AllocatePrivateVirtualInterface input
let allocate_public_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AllocatePublicVirtualInterface input
let allocate_transit_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AllocateTransitVirtualInterface input
let associate_connection_with_lag ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateConnectionWithLag input
let associate_hosted_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateHostedConnection input
let associate_mac_sec_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateMacSecKey input
let associate_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateVirtualInterface input
let confirm_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConfirmConnection input
let confirm_customer_agreement ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConfirmCustomerAgreement input
let confirm_private_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConfirmPrivateVirtualInterface input
let confirm_public_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConfirmPublicVirtualInterface input
let confirm_transit_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConfirmTransitVirtualInterface input
let create_b_g_p_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBGPPeer input
let create_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateConnection input
let create_direct_connect_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDirectConnectGateway input
let create_direct_connect_gateway_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDirectConnectGatewayAssociation
input
let create_direct_connect_gateway_association_proposal ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.CreateDirectConnectGatewayAssociationProposal input
let create_interconnect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateInterconnect input
let create_lag ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLag input
let create_private_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePrivateVirtualInterface input
let create_public_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePublicVirtualInterface input
let create_transit_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTransitVirtualInterface input
let delete_b_g_p_peer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBGPPeer input
let delete_connection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConnection input
let delete_direct_connect_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDirectConnectGateway input
let delete_direct_connect_gateway_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDirectConnectGatewayAssociation
input
let delete_direct_connect_gateway_association_proposal ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.DeleteDirectConnectGatewayAssociationProposal input
let delete_interconnect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteInterconnect input
let delete_lag ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLag input
let delete_virtual_interface ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVirtualInterface input
let describe_connection_loa ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeConnectionLoa input
let describe_connections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeConnections input
let describe_connections_on_interconnect ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeConnectionsOnInterconnect input
let describe_customer_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCustomerMetadata input
let describe_direct_connect_gateway_association_proposals ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.DescribeDirectConnectGatewayAssociationProposals input
let describe_direct_connect_gateway_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDirectConnectGatewayAssociations
input
let describe_direct_connect_gateway_attachments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDirectConnectGatewayAttachments
input
let describe_direct_connect_gateways ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDirectConnectGateways input
let describe_hosted_connections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeHostedConnections input
let describe_interconnect_loa ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInterconnectLoa input
let describe_interconnects ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeInterconnects input
let describe_lags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLags input
let describe_loa ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLoa input
let describe_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLocations input
let describe_router_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRouterConfiguration input
let describe_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTags input
let describe_virtual_gateways ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeVirtualGateways input
let describe_virtual_interfaces ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeVirtualInterfaces input
let disassociate_connection_from_lag ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateConnectionFromLag input
let disassociate_mac_sec_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateMacSecKey input
let list_virtual_interface_test_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListVirtualInterfaceTestHistory input
let start_bgp_failover_test ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartBgpFailoverTest input
let stop_bgp_failover_test ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopBgpFailoverTest 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_direct_connect_gateway ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDirectConnectGateway input
let update_direct_connect_gateway_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDirectConnectGatewayAssociation
input
let update_lag ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLag input
let update_virtual_interface_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateVirtualInterfaceAttributes input