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
open Awso_globalaccelerator
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 add_custom_routing_endpoints ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddCustomRoutingEndpoints input
let add_endpoints ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddEndpoints input
let advertise_byoip_cidr ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AdvertiseByoipCidr input
let allow_custom_routing_traffic ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AllowCustomRoutingTraffic input
let create_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccelerator input
let create_cross_account_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCrossAccountAttachment input
let create_custom_routing_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCustomRoutingAccelerator input
let create_custom_routing_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCustomRoutingEndpointGroup input
let create_custom_routing_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCustomRoutingListener input
let create_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateEndpointGroup input
let create_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateListener input
let delete_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccelerator input
let delete_cross_account_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCrossAccountAttachment input
let delete_custom_routing_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCustomRoutingAccelerator input
let delete_custom_routing_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCustomRoutingEndpointGroup input
let delete_custom_routing_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCustomRoutingListener input
let delete_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteEndpointGroup input
let delete_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteListener input
let deny_custom_routing_traffic ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DenyCustomRoutingTraffic input
let deprovision_byoip_cidr ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeprovisionByoipCidr input
let describe_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAccelerator input
let describe_accelerator_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAcceleratorAttributes input
let describe_cross_account_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCrossAccountAttachment input
let describe_custom_routing_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCustomRoutingAccelerator input
let describe_custom_routing_accelerator_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg
Endpoints.DescribeCustomRoutingAcceleratorAttributes input
let describe_custom_routing_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCustomRoutingEndpointGroup input
let describe_custom_routing_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCustomRoutingListener input
let describe_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEndpointGroup input
let describe_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeListener input
let list_accelerators ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccelerators input
let list_byoip_cidrs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListByoipCidrs input
let list_cross_account_attachments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCrossAccountAttachments input
let list_cross_account_resource_accounts ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCrossAccountResourceAccounts input
let list_cross_account_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCrossAccountResources input
let list_custom_routing_accelerators ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCustomRoutingAccelerators input
let list_custom_routing_endpoint_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCustomRoutingEndpointGroups input
let list_custom_routing_listeners ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCustomRoutingListeners input
let list_custom_routing_port_mappings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCustomRoutingPortMappings input
let list_custom_routing_port_mappings_by_destination ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.ListCustomRoutingPortMappingsByDestination input
let list_endpoint_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEndpointGroups input
let list_listeners ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListListeners input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let provision_byoip_cidr ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ProvisionByoipCidr input
let remove_custom_routing_endpoints ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveCustomRoutingEndpoints input
let remove_endpoints ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveEndpoints 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_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccelerator input
let update_accelerator_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAcceleratorAttributes input
let update_cross_account_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCrossAccountAttachment input
let update_custom_routing_accelerator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCustomRoutingAccelerator input
let update_custom_routing_accelerator_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCustomRoutingAcceleratorAttributes
input
let update_custom_routing_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCustomRoutingListener input
let update_endpoint_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateEndpointGroup input
let update_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateListener input
let withdraw_byoip_cidr ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.WithdrawByoipCidr input