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_route53resolver
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 associate_firewall_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateFirewallRuleGroup input
let associate_resolver_endpoint_ip_address ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateResolverEndpointIpAddress input
let associate_resolver_query_log_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateResolverQueryLogConfig input
let associate_resolver_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateResolverRule input
let create_firewall_domain_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFirewallDomainList input
let create_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFirewallRule input
let create_firewall_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFirewallRuleGroup input
let create_outpost_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateOutpostResolver input
let create_resolver_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResolverEndpoint input
let create_resolver_query_log_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResolverQueryLogConfig input
let create_resolver_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateResolverRule input
let delete_firewall_domain_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFirewallDomainList input
let delete_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFirewallRule input
let delete_firewall_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFirewallRuleGroup input
let delete_outpost_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteOutpostResolver input
let delete_resolver_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResolverEndpoint input
let delete_resolver_query_log_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResolverQueryLogConfig input
let delete_resolver_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResolverRule input
let disassociate_firewall_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateFirewallRuleGroup input
let disassociate_resolver_endpoint_ip_address ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateResolverEndpointIpAddress
input
let disassociate_resolver_query_log_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateResolverQueryLogConfig input
let disassociate_resolver_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateResolverRule input
let get_firewall_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallConfig input
let get_firewall_domain_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallDomainList input
let get_firewall_rule_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallRuleGroup input
let get_firewall_rule_group_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallRuleGroupAssociation input
let get_firewall_rule_group_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallRuleGroupPolicy input
let get_outpost_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetOutpostResolver input
let get_resolver_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverConfig input
let get_resolver_dnssec_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverDnssecConfig input
let get_resolver_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverEndpoint input
let get_resolver_query_log_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverQueryLogConfig input
let get_resolver_query_log_config_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverQueryLogConfigAssociation
input
let get_resolver_query_log_config_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverQueryLogConfigPolicy input
let get_resolver_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverRule input
let get_resolver_rule_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverRuleAssociation input
let get_resolver_rule_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResolverRulePolicy input
let import_firewall_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportFirewallDomains input
let list_firewall_configs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallConfigs input
let list_firewall_domain_lists ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallDomainLists input
let list_firewall_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallDomains input
let list_firewall_rule_group_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallRuleGroupAssociations input
let list_firewall_rule_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallRuleGroups input
let list_firewall_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallRules input
let list_outpost_resolvers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOutpostResolvers input
let list_resolver_configs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverConfigs input
let list_resolver_dnssec_configs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverDnssecConfigs input
let list_resolver_endpoint_ip_addresses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverEndpointIpAddresses input
let list_resolver_endpoints ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverEndpoints input
let list_resolver_query_log_config_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverQueryLogConfigAssociations
input
let list_resolver_query_log_configs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverQueryLogConfigs input
let list_resolver_rule_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverRuleAssociations input
let list_resolver_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResolverRules input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_firewall_rule_group_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutFirewallRuleGroupPolicy input
let put_resolver_query_log_config_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResolverQueryLogConfigPolicy input
let put_resolver_rule_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResolverRulePolicy 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_firewall_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFirewallConfig input
let update_firewall_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFirewallDomains input
let update_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFirewallRule input
let update_firewall_rule_group_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFirewallRuleGroupAssociation input
let update_outpost_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateOutpostResolver input
let update_resolver_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResolverConfig input
let update_resolver_dnssec_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResolverDnssecConfig input
let update_resolver_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResolverEndpoint input
let update_resolver_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateResolverRule input