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(* 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_imagebuilder 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 cancel_image_creation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CancelImageCreation input let cancel_lifecycle_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CancelLifecycleExecution input let create_component ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateComponent input let create_container_recipe ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateContainerRecipe input let create_distribution_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDistributionConfiguration input let create_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateImage input let create_image_pipeline ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateImagePipeline input let create_image_recipe ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateImageRecipe input let create_infrastructure_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateInfrastructureConfiguration input let create_lifecycle_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateLifecyclePolicy input let create_workflow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateWorkflow input let delete_component ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteComponent input let delete_container_recipe ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteContainerRecipe input let delete_distribution_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDistributionConfiguration input let delete_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteImage input let delete_image_pipeline ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteImagePipeline input let delete_image_recipe ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteImageRecipe input let delete_infrastructure_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteInfrastructureConfiguration input let delete_lifecycle_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteLifecyclePolicy input let delete_workflow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteWorkflow input let distribute_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DistributeImage input let get_component ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetComponent input let get_component_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetComponentPolicy input let get_container_recipe ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetContainerRecipe input let get_container_recipe_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetContainerRecipePolicy input let get_distribution_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDistributionConfiguration input let get_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetImage input let get_image_pipeline ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetImagePipeline input let get_image_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetImagePolicy input let get_image_recipe ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetImageRecipe input let get_image_recipe_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetImageRecipePolicy input let get_infrastructure_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetInfrastructureConfiguration input let get_lifecycle_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLifecycleExecution input let get_lifecycle_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLifecyclePolicy input let get_marketplace_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMarketplaceResource input let get_workflow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetWorkflow input let get_workflow_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetWorkflowExecution input let get_workflow_step_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetWorkflowStepExecution input let import_component ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportComponent input let import_disk_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportDiskImage input let import_vm_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ImportVmImage input let list_component_build_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListComponentBuildVersions input let list_components ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListComponents input let list_container_recipes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListContainerRecipes input let list_distribution_configurations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDistributionConfigurations input let list_image_build_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImageBuildVersions input let list_image_packages ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImagePackages input let list_image_pipeline_images ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImagePipelineImages input let list_image_pipelines ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImagePipelines input let list_image_recipes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImageRecipes input let list_image_scan_finding_aggregations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImageScanFindingAggregations input let list_image_scan_findings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImageScanFindings input let list_images ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListImages input let list_infrastructure_configurations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListInfrastructureConfigurations input let list_lifecycle_execution_resources ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLifecycleExecutionResources input let list_lifecycle_executions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLifecycleExecutions input let list_lifecycle_policies ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListLifecyclePolicies input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let list_waiting_workflow_steps ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWaitingWorkflowSteps input let list_workflow_build_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkflowBuildVersions input let list_workflow_executions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkflowExecutions input let list_workflow_step_executions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkflowStepExecutions input let list_workflows ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkflows input let put_component_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutComponentPolicy input let put_container_recipe_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutContainerRecipePolicy input let put_image_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutImagePolicy input let put_image_recipe_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutImageRecipePolicy input let retry_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RetryImage input let send_workflow_step_action ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SendWorkflowStepAction input let start_image_pipeline_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartImagePipelineExecution input let start_resource_state_update ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartResourceStateUpdate 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_distribution_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDistributionConfiguration input let update_image_pipeline ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateImagePipeline input let update_infrastructure_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateInfrastructureConfiguration input let update_lifecycle_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateLifecyclePolicy input