package awso-async
Source file io.ml
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(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *) 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 ?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