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
156
157
158
159
160
161
162
163
164
165
166
167
168
open Awso_elasticache
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 add_tags_to_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTagsToResource input
let authorize_cache_security_group_ingress ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AuthorizeCacheSecurityGroupIngress input
let batch_apply_update_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchApplyUpdateAction input
let batch_stop_update_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchStopUpdateAction input
let complete_migration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CompleteMigration input
let copy_serverless_cache_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopyServerlessCacheSnapshot input
let copy_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CopySnapshot input
let create_cache_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCacheCluster input
let create_cache_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCacheParameterGroup input
let create_cache_security_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCacheSecurityGroup input
let create_cache_subnet_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCacheSubnetGroup input
let create_global_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGlobalReplicationGroup input
let create_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReplicationGroup input
let create_serverless_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServerlessCache input
let create_serverless_cache_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateServerlessCacheSnapshot input
let create_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSnapshot input
let create_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUser input
let create_user_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUserGroup input
let decrease_node_groups_in_global_replication_group ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.DecreaseNodeGroupsInGlobalReplicationGroup input
let decrease_replica_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DecreaseReplicaCount input
let delete_cache_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCacheCluster input
let delete_cache_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCacheParameterGroup input
let delete_cache_security_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCacheSecurityGroup input
let delete_cache_subnet_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCacheSubnetGroup input
let delete_global_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGlobalReplicationGroup input
let delete_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReplicationGroup input
let delete_serverless_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServerlessCache input
let delete_serverless_cache_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteServerlessCacheSnapshot input
let delete_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSnapshot input
let delete_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUser input
let delete_user_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUserGroup input
let describe_cache_clusters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCacheClusters input
let describe_cache_engine_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCacheEngineVersions input
let describe_cache_parameter_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCacheParameterGroups input
let describe_cache_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCacheParameters input
let describe_cache_security_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCacheSecurityGroups input
let describe_cache_subnet_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCacheSubnetGroups input
let describe_engine_default_parameters ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEngineDefaultParameters input
let describe_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeEvents input
let describe_global_replication_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGlobalReplicationGroups input
let describe_replication_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReplicationGroups input
let describe_reserved_cache_nodes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReservedCacheNodes input
let describe_reserved_cache_nodes_offerings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReservedCacheNodesOfferings input
let describe_serverless_cache_snapshots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServerlessCacheSnapshots input
let describe_serverless_caches ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServerlessCaches input
let describe_service_updates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeServiceUpdates input
let describe_snapshots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeSnapshots input
let describe_update_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeUpdateActions input
let describe_user_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeUserGroups input
let describe_users ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeUsers input
let disassociate_global_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateGlobalReplicationGroup input
let export_serverless_cache_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExportServerlessCacheSnapshot input
let failover_global_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.FailoverGlobalReplicationGroup input
let increase_node_groups_in_global_replication_group ?endpoint_url ?cfg input
=
eval ?endpoint_url ?cfg
Endpoints.IncreaseNodeGroupsInGlobalReplicationGroup input
let increase_replica_count ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.IncreaseReplicaCount input
let list_allowed_node_type_modifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAllowedNodeTypeModifications input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let modify_cache_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyCacheCluster input
let modify_cache_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyCacheParameterGroup input
let modify_cache_subnet_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyCacheSubnetGroup input
let modify_global_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyGlobalReplicationGroup input
let modify_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyReplicationGroup input
let modify_replication_group_shard_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyReplicationGroupShardConfiguration
input
let modify_serverless_cache ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyServerlessCache input
let modify_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyUser input
let modify_user_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ModifyUserGroup input
let purchase_reserved_cache_nodes_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PurchaseReservedCacheNodesOffering input
let rebalance_slots_in_global_replication_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RebalanceSlotsInGlobalReplicationGroup
input
let reboot_cache_cluster ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RebootCacheCluster input
let remove_tags_from_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTagsFromResource input
let reset_cache_parameter_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ResetCacheParameterGroup input
let revoke_cache_security_group_ingress ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RevokeCacheSecurityGroupIngress input
let start_migration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartMigration input
let test_failover ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestFailover input
let test_migration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TestMigration input