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
open Awso_redshift_serverless
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 convert_recovery_point_to_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConvertRecoveryPointToSnapshot input
let create_custom_domain_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCustomDomainAssociation input
let create_endpoint_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateEndpointAccess input
let create_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateNamespace input
let create_reservation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReservation input
let create_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateScheduledAction input
let create_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSnapshot input
let create_snapshot_copy_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSnapshotCopyConfiguration input
let create_usage_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUsageLimit input
let create_workgroup ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWorkgroup input
let delete_custom_domain_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCustomDomainAssociation input
let delete_endpoint_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteEndpointAccess input
let delete_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteNamespace input
let delete_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteScheduledAction input
let delete_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSnapshot input
let delete_snapshot_copy_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSnapshotCopyConfiguration input
let delete_usage_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUsageLimit input
let delete_workgroup ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWorkgroup input
let get_credentials ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCredentials input
let get_custom_domain_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetCustomDomainAssociation input
let get_endpoint_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEndpointAccess input
let get_identity_center_auth_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIdentityCenterAuthToken input
let get_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNamespace input
let get_recovery_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRecoveryPoint input
let get_reservation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReservation input
let get_reservation_offering ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetReservationOffering input
let get_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let get_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetScheduledAction input
let get_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSnapshot input
let get_table_restore_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTableRestoreStatus input
let get_track ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrack input
let get_usage_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUsageLimit input
let get_workgroup ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWorkgroup input
let list_custom_domain_associations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCustomDomainAssociations input
let list_endpoint_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEndpointAccess input
let list_managed_workgroups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListManagedWorkgroups input
let list_namespaces ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListNamespaces input
let list_recovery_points ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRecoveryPoints input
let list_reservation_offerings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReservationOfferings input
let list_reservations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReservations input
let list_scheduled_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListScheduledActions input
let list_snapshot_copy_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSnapshotCopyConfigurations input
let list_snapshots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSnapshots input
let list_table_restore_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTableRestoreStatus input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tracks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTracks input
let list_usage_limits ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListUsageLimits input
let list_workgroups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWorkgroups input
let put_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let restore_from_recovery_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreFromRecoveryPoint input
let restore_from_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreFromSnapshot input
let restore_table_from_recovery_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreTableFromRecoveryPoint input
let restore_table_from_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreTableFromSnapshot 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_custom_domain_association ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCustomDomainAssociation input
let update_endpoint_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateEndpointAccess input
let update_lakehouse_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLakehouseConfiguration input
let update_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateNamespace input
let update_scheduled_action ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateScheduledAction input
let update_snapshot ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSnapshot input
let update_snapshot_copy_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSnapshotCopyConfiguration input
let update_usage_limit ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUsageLimit input
let update_workgroup ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWorkgroup input