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
open Awso_elbv2
open Awso_sync
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_listener_certificates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddListenerCertificates input
let add_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTags input
let add_trust_store_revocations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTrustStoreRevocations input
let create_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateListener input
let create_load_balancer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLoadBalancer input
let create_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRule input
let create_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTargetGroup input
let create_trust_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrustStore input
let delete_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteListener input
let delete_load_balancer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLoadBalancer input
let delete_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRule input
let delete_shared_trust_store_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSharedTrustStoreAssociation input
let delete_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTargetGroup input
let delete_trust_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTrustStore input
let deregister_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterTargets input
let describe_account_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAccountLimits input
let describe_capacity_reservation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCapacityReservation input
let describe_listener_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeListenerAttributes input
let describe_listener_certificates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeListenerCertificates input
let describe_listeners ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeListeners input
let describe_load_balancer_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLoadBalancerAttributes input
let describe_load_balancers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeLoadBalancers input
let describe_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRules input
let describe_s_s_l_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeSSLPolicies input
let describe_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTags input
let describe_target_group_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTargetGroupAttributes input
let describe_target_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTargetGroups input
let describe_target_health ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTargetHealth input
let describe_trust_store_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTrustStoreAssociations input
let describe_trust_store_revocations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTrustStoreRevocations input
let describe_trust_stores ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTrustStores input
let get_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let get_trust_store_ca_certificates_bundle ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrustStoreCaCertificatesBundle input
let get_trust_store_revocation_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrustStoreRevocationContent input
let modify_capacity_reservation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyCapacityReservation input
let modify_ip_pools ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyIpPools input
let modify_listener ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyListener input
let modify_listener_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyListenerAttributes input
let modify_load_balancer_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyLoadBalancerAttributes input
let modify_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyRule input
let modify_target_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyTargetGroup input
let modify_target_group_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyTargetGroupAttributes input
let modify_trust_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyTrustStore input
let register_targets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterTargets input
let remove_listener_certificates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveListenerCertificates input
let remove_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTags input
let remove_trust_store_revocations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTrustStoreRevocations input
let set_ip_address_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetIpAddressType input
let set_rule_priorities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetRulePriorities input
let set_security_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetSecurityGroups input
let set_subnets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetSubnets input