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
open Awso_route53globalresolver
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 associate_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateHostedZone input
let batch_create_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchCreateFirewallRule input
let batch_delete_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteFirewallRule input
let batch_update_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchUpdateFirewallRule input
let create_access_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessSource input
let create_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessToken input
let create_d_n_s_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDNSView 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_global_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGlobalResolver input
let delete_access_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessSource input
let delete_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessToken input
let delete_d_n_s_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDNSView 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_global_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGlobalResolver input
let disable_d_n_s_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableDNSView input
let disassociate_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateHostedZone input
let enable_d_n_s_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableDNSView input
let get_access_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessSource input
let get_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessToken input
let get_d_n_s_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDNSView input
let get_firewall_domain_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallDomainList input
let get_firewall_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFirewallRule input
let get_global_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGlobalResolver input
let get_hosted_zone_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHostedZoneAssociation input
let get_managed_firewall_domain_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetManagedFirewallDomainList input
let import_firewall_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportFirewallDomains input
let list_access_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessSources input
let list_access_tokens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessTokens input
let list_d_n_s_views ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDNSViews 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_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFirewallRules input
let list_global_resolvers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGlobalResolvers input
let list_hosted_zone_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHostedZoneAssociations input
let list_managed_firewall_domain_lists ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListManagedFirewallDomainLists input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource 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_access_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccessSource input
let update_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccessToken input
let update_d_n_s_view ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDNSView 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_global_resolver ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGlobalResolver input
let update_hosted_zone_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateHostedZoneAssociation input