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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
open Awso_backup
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_backup_vault_mpa_approval_team ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateBackupVaultMpaApprovalTeam input
let cancel_legal_hold ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelLegalHold input
let create_backup_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBackupPlan input
let create_backup_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBackupSelection input
let create_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateBackupVault input
let create_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFramework input
let create_legal_hold ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLegalHold input
let create_logically_air_gapped_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLogicallyAirGappedBackupVault input
let create_report_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateReportPlan input
let create_restore_access_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRestoreAccessBackupVault input
let create_restore_testing_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRestoreTestingPlan input
let create_restore_testing_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRestoreTestingSelection input
let create_tiering_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTieringConfiguration input
let delete_backup_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBackupPlan input
let delete_backup_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBackupSelection input
let delete_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBackupVault input
let delete_backup_vault_access_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBackupVaultAccessPolicy input
let delete_backup_vault_lock_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBackupVaultLockConfiguration input
let delete_backup_vault_notifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteBackupVaultNotifications input
let delete_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFramework input
let delete_recovery_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRecoveryPoint input
let delete_report_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteReportPlan input
let delete_restore_testing_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRestoreTestingPlan input
let delete_restore_testing_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRestoreTestingSelection input
let delete_tiering_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTieringConfiguration input
let describe_backup_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeBackupJob input
let describe_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeBackupVault input
let describe_copy_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCopyJob input
let describe_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFramework input
let describe_global_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGlobalSettings input
let describe_protected_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeProtectedResource input
let describe_recovery_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRecoveryPoint input
let describe_region_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRegionSettings input
let describe_report_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReportJob input
let describe_report_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeReportPlan input
let describe_restore_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRestoreJob input
let describe_scan_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeScanJob input
let disassociate_backup_vault_mpa_approval_team ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateBackupVaultMpaApprovalTeam
input
let disassociate_recovery_point ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateRecoveryPoint input
let disassociate_recovery_point_from_parent ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateRecoveryPointFromParent input
let export_backup_plan_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExportBackupPlanTemplate input
let get_backup_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBackupPlan input
let get_backup_plan_from_j_s_o_n ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBackupPlanFromJSON input
let get_backup_plan_from_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBackupPlanFromTemplate input
let get_backup_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBackupSelection input
let get_backup_vault_access_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBackupVaultAccessPolicy input
let get_backup_vault_notifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetBackupVaultNotifications input
let get_legal_hold ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLegalHold input
let get_recovery_point_index_details ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRecoveryPointIndexDetails input
let get_recovery_point_restore_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRecoveryPointRestoreMetadata input
let get_restore_job_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRestoreJobMetadata input
let get_restore_testing_inferred_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRestoreTestingInferredMetadata input
let get_restore_testing_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRestoreTestingPlan input
let get_restore_testing_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRestoreTestingSelection input
let get_supported_resource_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSupportedResourceTypes input
let get_tiering_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTieringConfiguration input
let list_backup_job_summaries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupJobSummaries input
let list_backup_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupJobs input
let list_backup_plan_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupPlanTemplates input
let list_backup_plan_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupPlanVersions input
let list_backup_plans ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupPlans input
let list_backup_selections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupSelections input
let list_backup_vaults ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListBackupVaults input
let list_copy_job_summaries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCopyJobSummaries input
let list_copy_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCopyJobs input
let list_frameworks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFrameworks input
let list_indexed_recovery_points ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIndexedRecoveryPoints input
let list_legal_holds ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLegalHolds input
let list_protected_resources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProtectedResources input
let list_protected_resources_by_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListProtectedResourcesByBackupVault input
let list_recovery_points_by_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRecoveryPointsByBackupVault input
let list_recovery_points_by_legal_hold ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRecoveryPointsByLegalHold input
let list_recovery_points_by_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRecoveryPointsByResource input
let list_report_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReportJobs input
let list_report_plans ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReportPlans input
let list_restore_access_backup_vaults ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRestoreAccessBackupVaults input
let list_restore_job_summaries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRestoreJobSummaries input
let list_restore_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRestoreJobs input
let list_restore_jobs_by_protected_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRestoreJobsByProtectedResource input
let list_restore_testing_plans ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRestoreTestingPlans input
let list_restore_testing_selections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRestoreTestingSelections input
let list_scan_job_summaries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListScanJobSummaries input
let list_scan_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListScanJobs input
let list_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTags input
let list_tiering_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTieringConfigurations input
let put_backup_vault_access_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBackupVaultAccessPolicy input
let put_backup_vault_lock_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBackupVaultLockConfiguration input
let put_backup_vault_notifications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutBackupVaultNotifications input
let put_restore_validation_result ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRestoreValidationResult input
let revoke_restore_access_backup_vault ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RevokeRestoreAccessBackupVault input
let start_backup_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartBackupJob input
let start_copy_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartCopyJob input
let start_report_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartReportJob input
let start_restore_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartRestoreJob input
let start_scan_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartScanJob input
let stop_backup_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopBackupJob 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_backup_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateBackupPlan input
let update_framework ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFramework input
let update_global_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGlobalSettings input
let update_recovery_point_index_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRecoveryPointIndexSettings input
let update_recovery_point_lifecycle ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRecoveryPointLifecycle input
let update_region_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRegionSettings input
let update_report_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateReportPlan input
let update_restore_testing_plan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRestoreTestingPlan input
let update_restore_testing_selection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRestoreTestingSelection input
let update_tiering_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTieringConfiguration input