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(* 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_m2 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_batch_job_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CancelBatchJobExecution input let create_application ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateApplication input let create_data_set_export_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDataSetExportTask input let create_data_set_import_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDataSetImportTask input let create_deployment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDeployment input let create_environment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateEnvironment input let delete_application ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteApplication input let delete_application_from_environment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteApplicationFromEnvironment input let delete_environment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteEnvironment input let get_application ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetApplication input let get_application_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetApplicationVersion input let get_batch_job_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBatchJobExecution input let get_data_set_details ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDataSetDetails input let get_data_set_export_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDataSetExportTask input let get_data_set_import_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDataSetImportTask input let get_deployment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDeployment input let get_environment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetEnvironment input let get_signed_bluinsights_url ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSignedBluinsightsUrl input let list_application_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListApplicationVersions input let list_applications ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListApplications input let list_batch_job_definitions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListBatchJobDefinitions input let list_batch_job_executions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListBatchJobExecutions input let list_batch_job_restart_points ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListBatchJobRestartPoints input let list_data_set_export_history ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDataSetExportHistory input let list_data_set_import_history ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDataSetImportHistory input let list_data_sets ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDataSets input let list_deployments ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDeployments input let list_engine_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListEngineVersions input let list_environments ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListEnvironments input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let start_application ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartApplication input let start_batch_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartBatchJob input let stop_application ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopApplication 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_application ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateApplication input let update_environment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateEnvironment input