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_neptune
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_role_to_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddRoleToDBCluster input
let add_source_identifier_to_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddSourceIdentifierToSubscription input
let add_tags_to_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTagsToResource input
let apply_pending_maintenance_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ApplyPendingMaintenanceAction input
let copy_d_b_cluster_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopyDBClusterParameterGroup input
let copy_d_b_cluster_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopyDBClusterSnapshot input
let copy_d_b_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopyDBParameterGroup input
let create_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBCluster input
let create_d_b_cluster_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBClusterEndpoint input
let create_d_b_cluster_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBClusterParameterGroup input
let create_d_b_cluster_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBClusterSnapshot input
let create_d_b_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBInstance input
let create_d_b_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBParameterGroup input
let create_d_b_subnet_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDBSubnetGroup input
let create_event_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateEventSubscription input
let create_global_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGlobalCluster input
let delete_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBCluster input
let delete_d_b_cluster_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBClusterEndpoint input
let delete_d_b_cluster_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBClusterParameterGroup input
let delete_d_b_cluster_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBClusterSnapshot input
let delete_d_b_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBInstance input
let delete_d_b_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBParameterGroup input
let delete_d_b_subnet_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDBSubnetGroup input
let delete_event_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteEventSubscription input
let delete_global_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGlobalCluster input
let describe_d_b_cluster_endpoints ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBClusterEndpoints input
let describe_d_b_cluster_parameter_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBClusterParameterGroups input
let describe_d_b_cluster_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBClusterParameters input
let describe_d_b_cluster_snapshot_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBClusterSnapshotAttributes input
let describe_d_b_cluster_snapshots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBClusterSnapshots input
let describe_d_b_clusters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBClusters input
let describe_d_b_engine_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBEngineVersions input
let describe_d_b_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBInstances input
let describe_d_b_parameter_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBParameterGroups input
let describe_d_b_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBParameters input
let describe_d_b_subnet_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDBSubnetGroups input
let describe_engine_default_cluster_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEngineDefaultClusterParameters
input
let describe_engine_default_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEngineDefaultParameters input
let describe_event_categories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEventCategories input
let describe_event_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEventSubscriptions input
let describe_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEvents input
let describe_global_clusters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGlobalClusters input
let describe_orderable_d_b_instance_options ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeOrderableDBInstanceOptions input
let describe_pending_maintenance_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePendingMaintenanceActions input
let describe_valid_d_b_instance_modifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeValidDBInstanceModifications
input
let failover_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.FailoverDBCluster input
let failover_global_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.FailoverGlobalCluster input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let modify_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBCluster input
let modify_d_b_cluster_endpoint ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBClusterEndpoint input
let modify_d_b_cluster_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBClusterParameterGroup input
let modify_d_b_cluster_snapshot_attribute ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBClusterSnapshotAttribute input
let modify_d_b_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBInstance input
let modify_d_b_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBParameterGroup input
let modify_d_b_subnet_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyDBSubnetGroup input
let modify_event_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyEventSubscription input
let modify_global_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyGlobalCluster input
let promote_read_replica_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PromoteReadReplicaDBCluster input
let reboot_d_b_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RebootDBInstance input
let remove_from_global_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveFromGlobalCluster input
let remove_role_from_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveRoleFromDBCluster input
let remove_source_identifier_from_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveSourceIdentifierFromSubscription
input
let remove_tags_from_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTagsFromResource input
let reset_d_b_cluster_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetDBClusterParameterGroup input
let reset_d_b_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetDBParameterGroup input
let restore_d_b_cluster_from_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreDBClusterFromSnapshot input
let restore_d_b_cluster_to_point_in_time ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreDBClusterToPointInTime input
let start_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDBCluster input
let stop_d_b_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopDBCluster input
let switchover_global_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SwitchoverGlobalCluster input