package awso-eio
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(* 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_emr open Awso_eio 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 add_instance_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddInstanceFleet input let add_instance_groups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddInstanceGroups input let add_job_flow_steps ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddJobFlowSteps input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddTags input let cancel_steps ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CancelSteps input let create_persistent_app_u_i ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreatePersistentAppUI input let create_security_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSecurityConfiguration input let create_studio ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateStudio input let create_studio_session_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateStudioSessionMapping input let delete_security_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteSecurityConfiguration input let delete_studio ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteStudio input let delete_studio_session_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteStudioSessionMapping input let describe_cluster ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeCluster input let describe_job_flows ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeJobFlows input let describe_notebook_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeNotebookExecution input let describe_persistent_app_u_i ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribePersistentAppUI input let describe_release_label ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeReleaseLabel input let describe_security_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeSecurityConfiguration input let describe_step ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeStep input let describe_studio ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeStudio input let get_auto_termination_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAutoTerminationPolicy input let get_block_public_access_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBlockPublicAccessConfiguration input let get_cluster_session_credentials ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetClusterSessionCredentials input let get_managed_scaling_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetManagedScalingPolicy input let get_on_cluster_app_u_i_presigned_u_r_l ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetOnClusterAppUIPresignedURL input let get_persistent_app_u_i_presigned_u_r_l ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetPersistentAppUIPresignedURL input let get_studio_session_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetStudioSessionMapping input let list_bootstrap_actions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListBootstrapActions input let list_clusters ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListClusters input let list_instance_fleets ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListInstanceFleets input let list_instance_groups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListInstanceGroups input let list_instances ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListInstances input let list_notebook_executions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListNotebookExecutions input let list_release_labels ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListReleaseLabels input let list_security_configurations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSecurityConfigurations input let list_steps ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSteps input let list_studio_session_mappings ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListStudioSessionMappings input let list_studios ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListStudios input let list_supported_instance_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSupportedInstanceTypes input let modify_cluster ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ModifyCluster input let modify_instance_fleet ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ModifyInstanceFleet input let modify_instance_groups ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ModifyInstanceGroups input let put_auto_scaling_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutAutoScalingPolicy input let put_auto_termination_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutAutoTerminationPolicy input let put_block_public_access_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutBlockPublicAccessConfiguration input let put_managed_scaling_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutManagedScalingPolicy input let remove_auto_scaling_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RemoveAutoScalingPolicy input let remove_auto_termination_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RemoveAutoTerminationPolicy input let remove_managed_scaling_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RemoveManagedScalingPolicy input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RemoveTags input let run_job_flow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RunJobFlow input let set_keep_job_flow_alive_when_no_steps ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetKeepJobFlowAliveWhenNoSteps input let set_termination_protection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetTerminationProtection input let set_unhealthy_node_replacement ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetUnhealthyNodeReplacement input let set_visible_to_all_users ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetVisibleToAllUsers input let start_notebook_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartNotebookExecution input let stop_notebook_execution ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopNotebookExecution input let terminate_job_flows ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TerminateJobFlows input let update_studio ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateStudio input let update_studio_session_mapping ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateStudioSessionMapping input