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
152
153
154
155
open Awso_route53
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 activate_key_signing_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ActivateKeySigningKey input
let associate_v_p_c_with_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateVPCWithHostedZone input
let change_cidr_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ChangeCidrCollection input
let change_resource_record_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ChangeResourceRecordSets input
let change_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ChangeTagsForResource input
let create_cidr_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCidrCollection input
let create_health_check ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateHealthCheck input
let create_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateHostedZone input
let create_key_signing_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateKeySigningKey input
let create_query_logging_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateQueryLoggingConfig input
let create_reusable_delegation_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReusableDelegationSet input
let create_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrafficPolicy input
let create_traffic_policy_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrafficPolicyInstance input
let create_traffic_policy_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrafficPolicyVersion input
let create_v_p_c_association_authorization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateVPCAssociationAuthorization input
let deactivate_key_signing_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeactivateKeySigningKey input
let delete_cidr_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCidrCollection input
let delete_health_check ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteHealthCheck input
let delete_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteHostedZone input
let delete_key_signing_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteKeySigningKey input
let delete_query_logging_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteQueryLoggingConfig input
let delete_reusable_delegation_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReusableDelegationSet input
let delete_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTrafficPolicy input
let delete_traffic_policy_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTrafficPolicyInstance input
let delete_v_p_c_association_authorization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteVPCAssociationAuthorization input
let disable_hosted_zone_d_n_s_s_e_c ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableHostedZoneDNSSEC input
let disassociate_v_p_c_from_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateVPCFromHostedZone input
let enable_hosted_zone_d_n_s_s_e_c ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableHostedZoneDNSSEC input
let get_account_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccountLimit input
let get_change ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChange input
let get_checker_ip_ranges ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCheckerIpRanges input
let get_d_n_s_s_e_c ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDNSSEC input
let get_geo_location ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGeoLocation input
let get_health_check ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHealthCheck input
let get_health_check_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHealthCheckCount input
let get_health_check_last_failure_reason ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHealthCheckLastFailureReason input
let get_health_check_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHealthCheckStatus input
let get_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHostedZone input
let get_hosted_zone_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHostedZoneCount input
let get_hosted_zone_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetHostedZoneLimit input
let get_query_logging_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetQueryLoggingConfig input
let get_reusable_delegation_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReusableDelegationSet input
let get_reusable_delegation_set_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReusableDelegationSetLimit input
let get_traffic_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrafficPolicy input
let get_traffic_policy_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrafficPolicyInstance input
let get_traffic_policy_instance_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrafficPolicyInstanceCount input
let list_cidr_blocks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCidrBlocks input
let list_cidr_collections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCidrCollections input
let list_cidr_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCidrLocations input
let list_geo_locations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGeoLocations input
let list_health_checks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHealthChecks input
let list_hosted_zones ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHostedZones input
let list_hosted_zones_by_name ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHostedZonesByName input
let list_hosted_zones_by_v_p_c ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListHostedZonesByVPC input
let list_query_logging_configs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListQueryLoggingConfigs input
let list_resource_record_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceRecordSets input
let list_reusable_delegation_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReusableDelegationSets input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tags_for_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResources input
let list_traffic_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrafficPolicies input
let list_traffic_policy_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrafficPolicyInstances input
let list_traffic_policy_instances_by_hosted_zone ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrafficPolicyInstancesByHostedZone
input
let list_traffic_policy_instances_by_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrafficPolicyInstancesByPolicy input
let list_traffic_policy_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrafficPolicyVersions input
let list_v_p_c_association_authorizations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListVPCAssociationAuthorizations input
let test_d_n_s_answer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestDNSAnswer input
let update_health_check ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateHealthCheck input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateHostedZoneComment input
let update_hosted_zone_features ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateHostedZoneFeatures input
let ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTrafficPolicyComment input
let update_traffic_policy_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTrafficPolicyInstance input