Source file cli.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Core
open Async
let json_arg = Command.Arg_type.create Yojson.Safe.from_string
let call ?endpoint_url ?profile ?region f m result_to_json error_to_json =
  let region =
    match region with
    | Some region -> Some (Awso.Region.of_string region)
    | None -> None in
  (Awso_async.Cfg.get_exn ?profile ?region ()) >>=
    (fun cfg ->
       (f ?endpoint_url ?cfg:(Some cfg) m) >>=
         (fun result ->
            match result with
            | Error err ->
                (match error_to_json with
                 | None ->
                     failwithf
                       "endpoint error, but no error values defined in boto"
                       ()
                 | Some to_json ->
                     let s = (err |> to_json) |> Yojson.Safe.to_string in
                     failwithf "AWS error: %s" s ())
            | Ok result ->
                ((match result_to_json with
                  | None -> print_endline "ok response from endpoint"
                  | Some to_json ->
                      ((result |> to_json) |> Yojson.Safe.to_string) |>
                        print_endline);
                 return ())))
let add_instance_fleet =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and instanceFleet =
         flag "instance-fleet" (required json_arg)
           ~doc:"JSON InstanceFleetConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.add_instance_fleet
           (Values.AddInstanceFleetInput.make ~clusterId
              ~instanceFleet:(Values.InstanceFleetConfig.of_json
                                instanceFleet) ())
           (Some Values.AddInstanceFleetOutput.to_json)
           (Some Values.AddInstanceFleetOutput.error_to_json)])
let add_instance_groups =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and instanceGroups =
         flag "instance-groups" (required json_arg)
           ~doc:"JSON InstanceGroupConfigList"
       and jobFlowId =
         flag "job-flow-id" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.add_instance_groups
           (Values.AddInstanceGroupsInput.make
              ~instanceGroups:(Values.InstanceGroupConfigList.of_json
                                 instanceGroups) ~jobFlowId ())
           (Some Values.AddInstanceGroupsOutput.to_json)
           (Some Values.AddInstanceGroupsOutput.error_to_json)])
let add_job_flow_steps =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and executionRoleArn =
         flag "execution-role-arn" (optional string) ~doc:"STRING ArnType"
       and jobFlowId =
         flag "job-flow-id" (required string)
           ~doc:"STRING XmlStringMaxLen256"
       and steps =
         flag "steps" (required json_arg) ~doc:"JSON StepConfigList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.add_job_flow_steps
           (Values.AddJobFlowStepsInput.make ?executionRoleArn ~jobFlowId
              ~steps:(Values.StepConfigList.of_json steps) ())
           (Some Values.AddJobFlowStepsOutput.to_json)
           (Some Values.AddJobFlowStepsOutput.error_to_json)])
let add_tags =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and resourceId =
         flag "resource-id" (required string) ~doc:"STRING ResourceId"
       and tags = flag "tags" (required json_arg) ~doc:"JSON TagList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.add_tags
           (Values.AddTagsInput.make ~resourceId
              ~tags:(Values.TagList.of_json tags) ())
           (Some Values.AddTagsOutput.to_json)
           (Some Values.AddTagsOutput.error_to_json)])
let cancel_steps =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and stepCancellationOption =
         flag "step-cancellation-option" (optional json_arg)
           ~doc:"JSON StepCancellationOption"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and stepIds =
         flag "step-ids" (required json_arg) ~doc:"JSON StepIdsList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.cancel_steps
           (Values.CancelStepsInput.make
              ?stepCancellationOption:(Option.map
                                         ~f:Values.StepCancellationOption.of_json
                                         stepCancellationOption) ~clusterId
              ~stepIds:(Values.StepIdsList.of_json stepIds) ())
           (Some Values.CancelStepsOutput.to_json)
           (Some Values.CancelStepsOutput.error_to_json)])
let create_persistent_app_u_i =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and eMRContainersConfig =
         flag "e-m-r-containers-config" (optional json_arg)
           ~doc:"JSON EMRContainersConfig"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and xReferer = flag "x-referer" (optional string) ~doc:"STRING String"
       and profilerType =
         flag "profiler-type" (optional json_arg) ~doc:"JSON ProfilerType"
       and targetResourceArn =
         flag "target-resource-arn" (required string) ~doc:"STRING ArnType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_persistent_app_u_i
           (Values.CreatePersistentAppUIInput.make
              ?eMRContainersConfig:(Option.map
                                      ~f:Values.EMRContainersConfig.of_json
                                      eMRContainersConfig)
              ?tags:(Option.map ~f:Values.TagList.of_json tags) ?xReferer
              ?profilerType:(Option.map ~f:Values.ProfilerType.of_json
                               profilerType) ~targetResourceArn ())
           (Some Values.CreatePersistentAppUIOutput.to_json)
           (Some Values.CreatePersistentAppUIOutput.error_to_json)])
let create_security_configuration =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and name = flag "name" (required string) ~doc:"STRING XmlString"
       and securityConfiguration =
         flag "security-configuration" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_security_configuration
           (Values.CreateSecurityConfigurationInput.make ~name
              ~securityConfiguration ())
           (Some Values.CreateSecurityConfigurationOutput.to_json)
           (Some Values.CreateSecurityConfigurationOutput.error_to_json)])
let create_studio =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and description =
         flag "description" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and userRole =
         flag "user-role" (optional string) ~doc:"STRING XmlString"
       and idpAuthUrl =
         flag "idp-auth-url" (optional string) ~doc:"STRING XmlString"
       and idpRelayStateParameterName =
         flag "idp-relay-state-parameter-name" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and trustedIdentityPropagationEnabled =
         flag "trusted-identity-propagation-enabled" (optional bool)
           ~doc:"BOOL BooleanObject"
       and idcUserAssignment =
         flag "idc-user-assignment" (optional json_arg)
           ~doc:"JSON IdcUserAssignment"
       and idcInstanceArn =
         flag "idc-instance-arn" (optional string) ~doc:"STRING ArnType"
       and encryptionKeyArn =
         flag "encryption-key-arn" (optional string) ~doc:"STRING XmlString"
       and name =
         flag "name" (required string) ~doc:"STRING XmlStringMaxLen256"
       and authMode =
         flag "auth-mode" (required json_arg) ~doc:"JSON AuthMode"
       and vpcId =
         flag "vpc-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and subnetIds =
         flag "subnet-ids" (required json_arg) ~doc:"JSON SubnetIdList"
       and serviceRole =
         flag "service-role" (required string) ~doc:"STRING XmlString"
       and workspaceSecurityGroupId =
         flag "workspace-security-group-id" (required string)
           ~doc:"STRING XmlStringMaxLen256"
       and engineSecurityGroupId =
         flag "engine-security-group-id" (required string)
           ~doc:"STRING XmlStringMaxLen256"
       and defaultS3Location =
         flag "default-s3-location" (required string) ~doc:"STRING XmlString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_studio
           (Values.CreateStudioInput.make ?description ?userRole ?idpAuthUrl
              ?idpRelayStateParameterName
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ?trustedIdentityPropagationEnabled
              ?idcUserAssignment:(Option.map
                                    ~f:Values.IdcUserAssignment.of_json
                                    idcUserAssignment) ?idcInstanceArn
              ?encryptionKeyArn ~name
              ~authMode:(Values.AuthMode.of_json authMode) ~vpcId
              ~subnetIds:(Values.SubnetIdList.of_json subnetIds) ~serviceRole
              ~workspaceSecurityGroupId ~engineSecurityGroupId
              ~defaultS3Location ()) (Some Values.CreateStudioOutput.to_json)
           (Some Values.CreateStudioOutput.error_to_json)])
let create_studio_session_mapping =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and identityId =
         flag "identity-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and identityName =
         flag "identity-name" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and identityType =
         flag "identity-type" (required json_arg) ~doc:"JSON IdentityType"
       and sessionPolicyArn =
         flag "session-policy-arn" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_studio_session_mapping
           (Values.CreateStudioSessionMappingInput.make ?identityId
              ?identityName ~studioId
              ~identityType:(Values.IdentityType.of_json identityType)
              ~sessionPolicyArn ()) None None])
let delete_security_configuration =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and name = flag "name" (required string) ~doc:"STRING XmlString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_security_configuration
           (Values.DeleteSecurityConfigurationInput.make ~name ())
           (Some Values.DeleteSecurityConfigurationOutput.to_json)
           (Some Values.DeleteSecurityConfigurationOutput.error_to_json)])
let delete_studio =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_studio (Values.DeleteStudioInput.make ~studioId ()) None
           None])
let delete_studio_session_mapping =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and identityId =
         flag "identity-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and identityName =
         flag "identity-name" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and identityType =
         flag "identity-type" (required json_arg) ~doc:"JSON IdentityType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_studio_session_mapping
           (Values.DeleteStudioSessionMappingInput.make ?identityId
              ?identityName ~studioId
              ~identityType:(Values.IdentityType.of_json identityType) ())
           None None])
let describe_cluster =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_cluster
           (Values.DescribeClusterInput.make ~clusterId ())
           (Some Values.DescribeClusterOutput.to_json)
           (Some Values.DescribeClusterOutput.error_to_json)])
let describe_job_flows =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and createdAfter =
         flag "created-after" (optional json_arg) ~doc:"JSON Date"
       and createdBefore =
         flag "created-before" (optional json_arg) ~doc:"JSON Date"
       and jobFlowIds =
         flag "job-flow-ids" (optional json_arg) ~doc:"JSON XmlStringList"
       and jobFlowStates =
         flag "job-flow-states" (optional json_arg)
           ~doc:"JSON JobFlowExecutionStateList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_job_flows
           (Values.DescribeJobFlowsInput.make
              ?createdAfter:(Option.map ~f:Values.Date.of_json createdAfter)
              ?createdBefore:(Option.map ~f:Values.Date.of_json createdBefore)
              ?jobFlowIds:(Option.map ~f:Values.XmlStringList.of_json
                             jobFlowIds)
              ?jobFlowStates:(Option.map
                                ~f:Values.JobFlowExecutionStateList.of_json
                                jobFlowStates) ())
           (Some Values.DescribeJobFlowsOutput.to_json)
           (Some Values.DescribeJobFlowsOutput.error_to_json)])
let describe_notebook_execution =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and notebookExecutionId =
         flag "notebook-execution-id" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_notebook_execution
           (Values.DescribeNotebookExecutionInput.make ~notebookExecutionId
              ()) (Some Values.DescribeNotebookExecutionOutput.to_json)
           (Some Values.DescribeNotebookExecutionOutput.error_to_json)])
let describe_persistent_app_u_i =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and persistentAppUIId =
         flag "persistent-app-u-i-id" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_persistent_app_u_i
           (Values.DescribePersistentAppUIInput.make ~persistentAppUIId ())
           (Some Values.DescribePersistentAppUIOutput.to_json)
           (Some Values.DescribePersistentAppUIOutput.error_to_json)])
let describe_release_label =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and releaseLabel =
         flag "release-label" (optional string) ~doc:"STRING String"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING String"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResultsNumber" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_release_label
           (Values.DescribeReleaseLabelInput.make ?releaseLabel ?nextToken
              ?maxResults ())
           (Some Values.DescribeReleaseLabelOutput.to_json)
           (Some Values.DescribeReleaseLabelOutput.error_to_json)])
let describe_security_configuration =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and name = flag "name" (required string) ~doc:"STRING XmlString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_security_configuration
           (Values.DescribeSecurityConfigurationInput.make ~name ())
           (Some Values.DescribeSecurityConfigurationOutput.to_json)
           (Some Values.DescribeSecurityConfigurationOutput.error_to_json)])
let describe_step =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId"
       and stepId = flag "step-id" (required string) ~doc:"STRING StepId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_step
           (Values.DescribeStepInput.make ~clusterId ~stepId ())
           (Some Values.DescribeStepOutput.to_json)
           (Some Values.DescribeStepOutput.error_to_json)])
let describe_studio =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_studio (Values.DescribeStudioInput.make ~studioId ())
           (Some Values.DescribeStudioOutput.to_json)
           (Some Values.DescribeStudioOutput.error_to_json)])
let get_auto_termination_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_auto_termination_policy
           (Values.GetAutoTerminationPolicyInput.make ~clusterId ())
           (Some Values.GetAutoTerminationPolicyOutput.to_json)
           (Some Values.GetAutoTerminationPolicyOutput.error_to_json)])
let get_block_public_access_configuration =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_block_public_access_configuration
           (Values.GetBlockPublicAccessConfigurationInput.make ())
           (Some Values.GetBlockPublicAccessConfigurationOutput.to_json)
           (Some Values.GetBlockPublicAccessConfigurationOutput.error_to_json)])
let get_cluster_session_credentials =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and executionRoleArn =
         flag "execution-role-arn" (optional string) ~doc:"STRING ArnType"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_cluster_session_credentials
           (Values.GetClusterSessionCredentialsInput.make ?executionRoleArn
              ~clusterId ())
           (Some Values.GetClusterSessionCredentialsOutput.to_json)
           (Some Values.GetClusterSessionCredentialsOutput.error_to_json)])
let get_managed_scaling_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_managed_scaling_policy
           (Values.GetManagedScalingPolicyInput.make ~clusterId ())
           (Some Values.GetManagedScalingPolicyOutput.to_json)
           (Some Values.GetManagedScalingPolicyOutput.error_to_json)])
let get_on_cluster_app_u_i_presigned_u_r_l =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and onClusterAppUIType =
         flag "on-cluster-app-u-i-type" (optional json_arg)
           ~doc:"JSON OnClusterAppUIType"
       and applicationId =
         flag "application-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and dryRun = flag "dry-run" (optional bool) ~doc:"BOOL BooleanObject"
       and executionRoleArn =
         flag "execution-role-arn" (optional string) ~doc:"STRING ArnType"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_on_cluster_app_u_i_presigned_u_r_l
           (Values.GetOnClusterAppUIPresignedURLInput.make
              ?onClusterAppUIType:(Option.map
                                     ~f:Values.OnClusterAppUIType.of_json
                                     onClusterAppUIType) ?applicationId
              ?dryRun ?executionRoleArn ~clusterId ())
           (Some Values.GetOnClusterAppUIPresignedURLOutput.to_json)
           (Some Values.GetOnClusterAppUIPresignedURLOutput.error_to_json)])
let get_persistent_app_u_i_presigned_u_r_l =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and persistentAppUIType =
         flag "persistent-app-u-i-type" (optional json_arg)
           ~doc:"JSON PersistentAppUIType"
       and applicationId =
         flag "application-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and authProxyCall =
         flag "auth-proxy-call" (optional bool) ~doc:"BOOL BooleanObject"
       and executionRoleArn =
         flag "execution-role-arn" (optional string) ~doc:"STRING ArnType"
       and persistentAppUIId =
         flag "persistent-app-u-i-id" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_persistent_app_u_i_presigned_u_r_l
           (Values.GetPersistentAppUIPresignedURLInput.make
              ?persistentAppUIType:(Option.map
                                      ~f:Values.PersistentAppUIType.of_json
                                      persistentAppUIType) ?applicationId
              ?authProxyCall ?executionRoleArn ~persistentAppUIId ())
           (Some Values.GetPersistentAppUIPresignedURLOutput.to_json)
           (Some Values.GetPersistentAppUIPresignedURLOutput.error_to_json)])
let get_studio_session_mapping =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and identityId =
         flag "identity-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and identityName =
         flag "identity-name" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and identityType =
         flag "identity-type" (required json_arg) ~doc:"JSON IdentityType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_studio_session_mapping
           (Values.GetStudioSessionMappingInput.make ?identityId
              ?identityName ~studioId
              ~identityType:(Values.IdentityType.of_json identityType) ())
           (Some Values.GetStudioSessionMappingOutput.to_json)
           (Some Values.GetStudioSessionMappingOutput.error_to_json)])
let list_bootstrap_actions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_bootstrap_actions
           (Values.ListBootstrapActionsInput.make ?marker ~clusterId ())
           (Some Values.ListBootstrapActionsOutput.to_json)
           (Some Values.ListBootstrapActionsOutput.error_to_json)])
let list_clusters =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and createdAfter =
         flag "created-after" (optional json_arg) ~doc:"JSON Date"
       and createdBefore =
         flag "created-before" (optional json_arg) ~doc:"JSON Date"
       and clusterStates =
         flag "cluster-states" (optional json_arg)
           ~doc:"JSON ClusterStateList"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_clusters
           (Values.ListClustersInput.make
              ?createdAfter:(Option.map ~f:Values.Date.of_json createdAfter)
              ?createdBefore:(Option.map ~f:Values.Date.of_json createdBefore)
              ?clusterStates:(Option.map ~f:Values.ClusterStateList.of_json
                                clusterStates) ?marker ())
           (Some Values.ListClustersOutput.to_json)
           (Some Values.ListClustersOutput.error_to_json)])
let list_instance_fleets =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_instance_fleets
           (Values.ListInstanceFleetsInput.make ?marker ~clusterId ())
           (Some Values.ListInstanceFleetsOutput.to_json)
           (Some Values.ListInstanceFleetsOutput.error_to_json)])
let list_instance_groups =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_instance_groups
           (Values.ListInstanceGroupsInput.make ?marker ~clusterId ())
           (Some Values.ListInstanceGroupsOutput.to_json)
           (Some Values.ListInstanceGroupsOutput.error_to_json)])
let list_instances =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and instanceGroupId =
         flag "instance-group-id" (optional string)
           ~doc:"STRING InstanceGroupId"
       and instanceGroupTypes =
         flag "instance-group-types" (optional json_arg)
           ~doc:"JSON InstanceGroupTypeList"
       and instanceFleetId =
         flag "instance-fleet-id" (optional string)
           ~doc:"STRING InstanceFleetId"
       and instanceFleetType =
         flag "instance-fleet-type" (optional json_arg)
           ~doc:"JSON InstanceFleetType"
       and instanceStates =
         flag "instance-states" (optional json_arg)
           ~doc:"JSON InstanceStateList"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_instances
           (Values.ListInstancesInput.make ?instanceGroupId
              ?instanceGroupTypes:(Option.map
                                     ~f:Values.InstanceGroupTypeList.of_json
                                     instanceGroupTypes) ?instanceFleetId
              ?instanceFleetType:(Option.map
                                    ~f:Values.InstanceFleetType.of_json
                                    instanceFleetType)
              ?instanceStates:(Option.map ~f:Values.InstanceStateList.of_json
                                 instanceStates) ?marker ~clusterId ())
           (Some Values.ListInstancesOutput.to_json)
           (Some Values.ListInstancesOutput.error_to_json)])
let list_notebook_executions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and editorId =
         flag "editor-id" (optional string) ~doc:"STRING XmlStringMaxLen256"
       and status =
         flag "status" (optional json_arg)
           ~doc:"JSON NotebookExecutionStatus"
       and from = flag "from" (optional json_arg) ~doc:"JSON Date"
       and to_ = flag "to-" (optional json_arg) ~doc:"JSON Date"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and executionEngineId =
         flag "execution-engine-id" (optional string) ~doc:"STRING XmlString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_notebook_executions
           (Values.ListNotebookExecutionsInput.make ?editorId
              ?status:(Option.map ~f:Values.NotebookExecutionStatus.of_json
                         status)
              ?from:(Option.map ~f:Values.Date.of_json from)
              ?to_:(Option.map ~f:Values.Date.of_json to_) ?marker
              ?executionEngineId ())
           (Some Values.ListNotebookExecutionsOutput.to_json)
           (Some Values.ListNotebookExecutionsOutput.error_to_json)])
let list_release_labels =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and filters =
         flag "filters" (optional json_arg) ~doc:"JSON ReleaseLabelFilter"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING String"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResultsNumber" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_release_labels
           (Values.ListReleaseLabelsInput.make
              ?filters:(Option.map ~f:Values.ReleaseLabelFilter.of_json
                          filters) ?nextToken ?maxResults ())
           (Some Values.ListReleaseLabelsOutput.to_json)
           (Some Values.ListReleaseLabelsOutput.error_to_json)])
let list_security_configurations =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_security_configurations
           (Values.ListSecurityConfigurationsInput.make ?marker ())
           (Some Values.ListSecurityConfigurationsOutput.to_json)
           (Some Values.ListSecurityConfigurationsOutput.error_to_json)])
let list_steps =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and stepStates =
         flag "step-states" (optional json_arg) ~doc:"JSON StepStateList"
       and stepIds =
         flag "step-ids" (optional json_arg) ~doc:"JSON XmlStringList"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_steps
           (Values.ListStepsInput.make
              ?stepStates:(Option.map ~f:Values.StepStateList.of_json
                             stepStates)
              ?stepIds:(Option.map ~f:Values.XmlStringList.of_json stepIds)
              ?marker ~clusterId ()) (Some Values.ListStepsOutput.to_json)
           (Some Values.ListStepsOutput.error_to_json)])
let list_studio_session_mappings =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and studioId =
         flag "studio-id" (optional string) ~doc:"STRING XmlStringMaxLen256"
       and identityType =
         flag "identity-type" (optional json_arg) ~doc:"JSON IdentityType"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_studio_session_mappings
           (Values.ListStudioSessionMappingsInput.make ?studioId
              ?identityType:(Option.map ~f:Values.IdentityType.of_json
                               identityType) ?marker ())
           (Some Values.ListStudioSessionMappingsOutput.to_json)
           (Some Values.ListStudioSessionMappingsOutput.error_to_json)])
let list_studios =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING Marker" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_studios (Values.ListStudiosInput.make ?marker ())
           (Some Values.ListStudiosOutput.to_json)
           (Some Values.ListStudiosOutput.error_to_json)])
let list_supported_instance_types =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and marker = flag "marker" (optional string) ~doc:"STRING String"
       and releaseLabel =
         flag "release-label" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_supported_instance_types
           (Values.ListSupportedInstanceTypesInput.make ?marker ~releaseLabel
              ()) (Some Values.ListSupportedInstanceTypesOutput.to_json)
           (Some Values.ListSupportedInstanceTypesOutput.error_to_json)])
let modify_cluster =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and stepConcurrencyLevel =
         flag "step-concurrency-level" (optional int) ~doc:"INT Integer"
       and extendedSupport =
         flag "extended-support" (optional bool) ~doc:"BOOL BooleanObject"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.modify_cluster
           (Values.ModifyClusterInput.make ?stepConcurrencyLevel
              ?extendedSupport ~clusterId ())
           (Some Values.ModifyClusterOutput.to_json)
           (Some Values.ModifyClusterOutput.error_to_json)])
let modify_instance_fleet =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId"
       and instanceFleet =
         flag "instance-fleet" (required json_arg)
           ~doc:"JSON InstanceFleetModifyConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.modify_instance_fleet
           (Values.ModifyInstanceFleetInput.make ~clusterId
              ~instanceFleet:(Values.InstanceFleetModifyConfig.of_json
                                instanceFleet) ()) None None])
let modify_instance_groups =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (optional string) ~doc:"STRING ClusterId"
       and instanceGroups =
         flag "instance-groups" (optional json_arg)
           ~doc:"JSON InstanceGroupModifyConfigList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.modify_instance_groups
           (Values.ModifyInstanceGroupsInput.make ?clusterId
              ?instanceGroups:(Option.map
                                 ~f:Values.InstanceGroupModifyConfigList.of_json
                                 instanceGroups) ()) None None])
let put_auto_scaling_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId"
       and instanceGroupId =
         flag "instance-group-id" (required string)
           ~doc:"STRING InstanceGroupId"
       and autoScalingPolicy =
         flag "auto-scaling-policy" (required json_arg)
           ~doc:"JSON AutoScalingPolicy" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_auto_scaling_policy
           (Values.PutAutoScalingPolicyInput.make ~clusterId ~instanceGroupId
              ~autoScalingPolicy:(Values.AutoScalingPolicy.of_json
                                    autoScalingPolicy) ())
           (Some Values.PutAutoScalingPolicyOutput.to_json)
           (Some Values.PutAutoScalingPolicyOutput.error_to_json)])
let put_auto_termination_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and autoTerminationPolicy =
         flag "auto-termination-policy" (optional json_arg)
           ~doc:"JSON AutoTerminationPolicy"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_auto_termination_policy
           (Values.PutAutoTerminationPolicyInput.make
              ?autoTerminationPolicy:(Option.map
                                        ~f:Values.AutoTerminationPolicy.of_json
                                        autoTerminationPolicy) ~clusterId ())
           (Some Values.PutAutoTerminationPolicyOutput.to_json)
           (Some Values.PutAutoTerminationPolicyOutput.error_to_json)])
let put_block_public_access_configuration =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and blockPublicAccessConfiguration =
         flag "block-public-access-configuration" (required json_arg)
           ~doc:"JSON BlockPublicAccessConfiguration" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_block_public_access_configuration
           (Values.PutBlockPublicAccessConfigurationInput.make
              ~blockPublicAccessConfiguration:(Values.BlockPublicAccessConfiguration.of_json
                                                 blockPublicAccessConfiguration)
              ())
           (Some Values.PutBlockPublicAccessConfigurationOutput.to_json)
           (Some Values.PutBlockPublicAccessConfigurationOutput.error_to_json)])
let put_managed_scaling_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId"
       and managedScalingPolicy =
         flag "managed-scaling-policy" (required json_arg)
           ~doc:"JSON ManagedScalingPolicy" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_managed_scaling_policy
           (Values.PutManagedScalingPolicyInput.make ~clusterId
              ~managedScalingPolicy:(Values.ManagedScalingPolicy.of_json
                                       managedScalingPolicy) ())
           (Some Values.PutManagedScalingPolicyOutput.to_json)
           (Some Values.PutManagedScalingPolicyOutput.error_to_json)])
let remove_auto_scaling_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId"
       and instanceGroupId =
         flag "instance-group-id" (required string)
           ~doc:"STRING InstanceGroupId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.remove_auto_scaling_policy
           (Values.RemoveAutoScalingPolicyInput.make ~clusterId
              ~instanceGroupId ())
           (Some Values.RemoveAutoScalingPolicyOutput.to_json)
           (Some Values.RemoveAutoScalingPolicyOutput.error_to_json)])
let remove_auto_termination_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.remove_auto_termination_policy
           (Values.RemoveAutoTerminationPolicyInput.make ~clusterId ())
           (Some Values.RemoveAutoTerminationPolicyOutput.to_json)
           (Some Values.RemoveAutoTerminationPolicyOutput.error_to_json)])
let remove_managed_scaling_policy =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clusterId =
         flag "cluster-id" (required string) ~doc:"STRING ClusterId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.remove_managed_scaling_policy
           (Values.RemoveManagedScalingPolicyInput.make ~clusterId ())
           (Some Values.RemoveManagedScalingPolicyOutput.to_json)
           (Some Values.RemoveManagedScalingPolicyOutput.error_to_json)])
let remove_tags =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and resourceId =
         flag "resource-id" (required string) ~doc:"STRING ResourceId"
       and tagKeys =
         flag "tag-keys" (required json_arg) ~doc:"JSON StringList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.remove_tags
           (Values.RemoveTagsInput.make ~resourceId
              ~tagKeys:(Values.StringList.of_json tagKeys) ())
           (Some Values.RemoveTagsOutput.to_json)
           (Some Values.RemoveTagsOutput.error_to_json)])
let run_job_flow =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and logUri = flag "log-uri" (optional string) ~doc:"STRING XmlString"
       and logEncryptionKmsKeyId =
         flag "log-encryption-kms-key-id" (optional string)
           ~doc:"STRING XmlString"
       and additionalInfo =
         flag "additional-info" (optional string) ~doc:"STRING XmlString"
       and amiVersion =
         flag "ami-version" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and releaseLabel =
         flag "release-label" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and steps =
         flag "steps" (optional json_arg) ~doc:"JSON StepConfigList"
       and stepExecutionRoleArn =
         flag "step-execution-role-arn" (optional string)
           ~doc:"STRING ArnType"
       and bootstrapActions =
         flag "bootstrap-actions" (optional json_arg)
           ~doc:"JSON BootstrapActionConfigList"
       and supportedProducts =
         flag "supported-products" (optional json_arg)
           ~doc:"JSON SupportedProductsList"
       and newSupportedProducts =
         flag "new-supported-products" (optional json_arg)
           ~doc:"JSON NewSupportedProductsList"
       and applications =
         flag "applications" (optional json_arg) ~doc:"JSON ApplicationList"
       and configurations =
         flag "configurations" (optional json_arg)
           ~doc:"JSON ConfigurationList"
       and visibleToAllUsers =
         flag "visible-to-all-users" (optional bool) ~doc:"BOOL Boolean"
       and jobFlowRole =
         flag "job-flow-role" (optional string) ~doc:"STRING XmlString"
       and serviceRole =
         flag "service-role" (optional string) ~doc:"STRING XmlString"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and securityConfiguration =
         flag "security-configuration" (optional string)
           ~doc:"STRING XmlString"
       and autoScalingRole =
         flag "auto-scaling-role" (optional string) ~doc:"STRING XmlString"
       and scaleDownBehavior =
         flag "scale-down-behavior" (optional json_arg)
           ~doc:"JSON ScaleDownBehavior"
       and customAmiId =
         flag "custom-ami-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and ebsRootVolumeSize =
         flag "ebs-root-volume-size" (optional int) ~doc:"INT Integer"
       and repoUpgradeOnBoot =
         flag "repo-upgrade-on-boot" (optional json_arg)
           ~doc:"JSON RepoUpgradeOnBoot"
       and kerberosAttributes =
         flag "kerberos-attributes" (optional json_arg)
           ~doc:"JSON KerberosAttributes"
       and stepConcurrencyLevel =
         flag "step-concurrency-level" (optional int) ~doc:"INT Integer"
       and managedScalingPolicy =
         flag "managed-scaling-policy" (optional json_arg)
           ~doc:"JSON ManagedScalingPolicy"
       and placementGroupConfigs =
         flag "placement-group-configs" (optional json_arg)
           ~doc:"JSON PlacementGroupConfigList"
       and autoTerminationPolicy =
         flag "auto-termination-policy" (optional json_arg)
           ~doc:"JSON AutoTerminationPolicy"
       and oSReleaseLabel =
         flag "o-s-release-label" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and ebsRootVolumeIops =
         flag "ebs-root-volume-iops" (optional int) ~doc:"INT Integer"
       and ebsRootVolumeThroughput =
         flag "ebs-root-volume-throughput" (optional int) ~doc:"INT Integer"
       and extendedSupport =
         flag "extended-support" (optional bool) ~doc:"BOOL BooleanObject"
       and monitoringConfiguration =
         flag "monitoring-configuration" (optional json_arg)
           ~doc:"JSON MonitoringConfiguration"
       and name =
         flag "name" (required string) ~doc:"STRING XmlStringMaxLen256"
       and instances =
         flag "instances" (required json_arg)
           ~doc:"JSON JobFlowInstancesConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.run_job_flow
           (Values.RunJobFlowInput.make ?logUri ?logEncryptionKmsKeyId
              ?additionalInfo ?amiVersion ?releaseLabel
              ?steps:(Option.map ~f:Values.StepConfigList.of_json steps)
              ?stepExecutionRoleArn
              ?bootstrapActions:(Option.map
                                   ~f:Values.BootstrapActionConfigList.of_json
                                   bootstrapActions)
              ?supportedProducts:(Option.map
                                    ~f:Values.SupportedProductsList.of_json
                                    supportedProducts)
              ?newSupportedProducts:(Option.map
                                       ~f:Values.NewSupportedProductsList.of_json
                                       newSupportedProducts)
              ?applications:(Option.map ~f:Values.ApplicationList.of_json
                               applications)
              ?configurations:(Option.map ~f:Values.ConfigurationList.of_json
                                 configurations) ?visibleToAllUsers
              ?jobFlowRole ?serviceRole
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ?securityConfiguration ?autoScalingRole
              ?scaleDownBehavior:(Option.map
                                    ~f:Values.ScaleDownBehavior.of_json
                                    scaleDownBehavior) ?customAmiId
              ?ebsRootVolumeSize
              ?repoUpgradeOnBoot:(Option.map
                                    ~f:Values.RepoUpgradeOnBoot.of_json
                                    repoUpgradeOnBoot)
              ?kerberosAttributes:(Option.map
                                     ~f:Values.KerberosAttributes.of_json
                                     kerberosAttributes)
              ?stepConcurrencyLevel
              ?managedScalingPolicy:(Option.map
                                       ~f:Values.ManagedScalingPolicy.of_json
                                       managedScalingPolicy)
              ?placementGroupConfigs:(Option.map
                                        ~f:Values.PlacementGroupConfigList.of_json
                                        placementGroupConfigs)
              ?autoTerminationPolicy:(Option.map
                                        ~f:Values.AutoTerminationPolicy.of_json
                                        autoTerminationPolicy)
              ?oSReleaseLabel ?ebsRootVolumeIops ?ebsRootVolumeThroughput
              ?extendedSupport
              ?monitoringConfiguration:(Option.map
                                          ~f:Values.MonitoringConfiguration.of_json
                                          monitoringConfiguration) ~name
              ~instances:(Values.JobFlowInstancesConfig.of_json instances) ())
           (Some Values.RunJobFlowOutput.to_json)
           (Some Values.RunJobFlowOutput.error_to_json)])
let set_keep_job_flow_alive_when_no_steps =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and jobFlowIds =
         flag "job-flow-ids" (required json_arg) ~doc:"JSON XmlStringList"
       and keepJobFlowAliveWhenNoSteps =
         flag "keep-job-flow-alive-when-no-steps" (required bool)
           ~doc:"BOOL Boolean" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_keep_job_flow_alive_when_no_steps
           (Values.SetKeepJobFlowAliveWhenNoStepsInput.make
              ~jobFlowIds:(Values.XmlStringList.of_json jobFlowIds)
              ~keepJobFlowAliveWhenNoSteps ()) None None])
let set_termination_protection =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and jobFlowIds =
         flag "job-flow-ids" (required json_arg) ~doc:"JSON XmlStringList"
       and terminationProtected =
         flag "termination-protected" (required bool) ~doc:"BOOL Boolean" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_termination_protection
           (Values.SetTerminationProtectionInput.make
              ~jobFlowIds:(Values.XmlStringList.of_json jobFlowIds)
              ~terminationProtected ()) None None])
let set_unhealthy_node_replacement =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and jobFlowIds =
         flag "job-flow-ids" (required json_arg) ~doc:"JSON XmlStringList"
       and unhealthyNodeReplacement =
         flag "unhealthy-node-replacement" (required bool)
           ~doc:"BOOL BooleanObject" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_unhealthy_node_replacement
           (Values.SetUnhealthyNodeReplacementInput.make
              ~jobFlowIds:(Values.XmlStringList.of_json jobFlowIds)
              ~unhealthyNodeReplacement ()) None None])
let set_visible_to_all_users =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and jobFlowIds =
         flag "job-flow-ids" (required json_arg) ~doc:"JSON XmlStringList"
       and visibleToAllUsers =
         flag "visible-to-all-users" (required bool) ~doc:"BOOL Boolean" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.set_visible_to_all_users
           (Values.SetVisibleToAllUsersInput.make
              ~jobFlowIds:(Values.XmlStringList.of_json jobFlowIds)
              ~visibleToAllUsers ()) None None])
let start_notebook_execution =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and editorId =
         flag "editor-id" (optional string) ~doc:"STRING XmlStringMaxLen256"
       and relativePath =
         flag "relative-path" (optional string) ~doc:"STRING XmlString"
       and notebookExecutionName =
         flag "notebook-execution-name" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and notebookParams =
         flag "notebook-params" (optional string) ~doc:"STRING XmlString"
       and notebookInstanceSecurityGroupId =
         flag "notebook-instance-security-group-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and notebookS3Location =
         flag "notebook-s3-location" (optional json_arg)
           ~doc:"JSON NotebookS3LocationFromInput"
       and outputNotebookS3Location =
         flag "output-notebook-s3-location" (optional json_arg)
           ~doc:"JSON OutputNotebookS3LocationFromInput"
       and outputNotebookFormat =
         flag "output-notebook-format" (optional json_arg)
           ~doc:"JSON OutputNotebookFormat"
       and environmentVariables =
         flag "environment-variables" (optional json_arg)
           ~doc:"JSON EnvironmentVariablesMap"
       and executionEngine =
         flag "execution-engine" (required json_arg)
           ~doc:"JSON ExecutionEngineConfig"
       and serviceRole =
         flag "service-role" (required string) ~doc:"STRING XmlString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_notebook_execution
           (Values.StartNotebookExecutionInput.make ?editorId ?relativePath
              ?notebookExecutionName ?notebookParams
              ?notebookInstanceSecurityGroupId
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ?notebookS3Location:(Option.map
                                     ~f:Values.NotebookS3LocationFromInput.of_json
                                     notebookS3Location)
              ?outputNotebookS3Location:(Option.map
                                           ~f:Values.OutputNotebookS3LocationFromInput.of_json
                                           outputNotebookS3Location)
              ?outputNotebookFormat:(Option.map
                                       ~f:Values.OutputNotebookFormat.of_json
                                       outputNotebookFormat)
              ?environmentVariables:(Option.map
                                       ~f:Values.EnvironmentVariablesMap.of_json
                                       environmentVariables)
              ~executionEngine:(Values.ExecutionEngineConfig.of_json
                                  executionEngine) ~serviceRole ())
           (Some Values.StartNotebookExecutionOutput.to_json)
           (Some Values.StartNotebookExecutionOutput.error_to_json)])
let stop_notebook_execution =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and notebookExecutionId =
         flag "notebook-execution-id" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.stop_notebook_execution
           (Values.StopNotebookExecutionInput.make ~notebookExecutionId ())
           None None])
let terminate_job_flows =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and jobFlowIds =
         flag "job-flow-ids" (required json_arg) ~doc:"JSON XmlStringList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.terminate_job_flows
           (Values.TerminateJobFlowsInput.make
              ~jobFlowIds:(Values.XmlStringList.of_json jobFlowIds) ()) None
           None])
let update_studio =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and name =
         flag "name" (optional string) ~doc:"STRING XmlStringMaxLen256"
       and description =
         flag "description" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and subnetIds =
         flag "subnet-ids" (optional json_arg) ~doc:"JSON SubnetIdList"
       and defaultS3Location =
         flag "default-s3-location" (optional string) ~doc:"STRING XmlString"
       and encryptionKeyArn =
         flag "encryption-key-arn" (optional string) ~doc:"STRING XmlString"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_studio
           (Values.UpdateStudioInput.make ?name ?description
              ?subnetIds:(Option.map ~f:Values.SubnetIdList.of_json subnetIds)
              ?defaultS3Location ?encryptionKeyArn ~studioId ()) None None])
let update_studio_session_mapping =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and identityId =
         flag "identity-id" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and identityName =
         flag "identity-name" (optional string)
           ~doc:"STRING XmlStringMaxLen256"
       and studioId =
         flag "studio-id" (required string) ~doc:"STRING XmlStringMaxLen256"
       and identityType =
         flag "identity-type" (required json_arg) ~doc:"JSON IdentityType"
       and sessionPolicyArn =
         flag "session-policy-arn" (required string)
           ~doc:"STRING XmlStringMaxLen256" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_studio_session_mapping
           (Values.UpdateStudioSessionMappingInput.make ?identityId
              ?identityName ~studioId
              ~identityType:(Values.IdentityType.of_json identityType)
              ~sessionPolicyArn ()) None None])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("add-instance-fleet", add_instance_fleet);
    ("add-instance-groups", add_instance_groups);
    ("add-job-flow-steps", add_job_flow_steps);
    ("add-tags", add_tags);
    ("cancel-steps", cancel_steps);
    ("create-persistent-app-u-i", create_persistent_app_u_i);
    ("create-security-configuration", create_security_configuration);
    ("create-studio", create_studio);
    ("create-studio-session-mapping", create_studio_session_mapping);
    ("delete-security-configuration", delete_security_configuration);
    ("delete-studio", delete_studio);
    ("delete-studio-session-mapping", delete_studio_session_mapping);
    ("describe-cluster", describe_cluster);
    ("describe-job-flows", describe_job_flows);
    ("describe-notebook-execution", describe_notebook_execution);
    ("describe-persistent-app-u-i", describe_persistent_app_u_i);
    ("describe-release-label", describe_release_label);
    ("describe-security-configuration", describe_security_configuration);
    ("describe-step", describe_step);
    ("describe-studio", describe_studio);
    ("get-auto-termination-policy", get_auto_termination_policy);
    ("get-block-public-access-configuration",
      get_block_public_access_configuration);
    ("get-cluster-session-credentials", get_cluster_session_credentials);
    ("get-managed-scaling-policy", get_managed_scaling_policy);
    ("get-on-cluster-app-u-i-presigned-u-r-l",
      get_on_cluster_app_u_i_presigned_u_r_l);
    ("get-persistent-app-u-i-presigned-u-r-l",
      get_persistent_app_u_i_presigned_u_r_l);
    ("get-studio-session-mapping", get_studio_session_mapping);
    ("list-bootstrap-actions", list_bootstrap_actions);
    ("list-clusters", list_clusters);
    ("list-instance-fleets", list_instance_fleets);
    ("list-instance-groups", list_instance_groups);
    ("list-instances", list_instances);
    ("list-notebook-executions", list_notebook_executions);
    ("list-release-labels", list_release_labels);
    ("list-security-configurations", list_security_configurations);
    ("list-steps", list_steps);
    ("list-studio-session-mappings", list_studio_session_mappings);
    ("list-studios", list_studios);
    ("list-supported-instance-types", list_supported_instance_types);
    ("modify-cluster", modify_cluster);
    ("modify-instance-fleet", modify_instance_fleet);
    ("modify-instance-groups", modify_instance_groups);
    ("put-auto-scaling-policy", put_auto_scaling_policy);
    ("put-auto-termination-policy", put_auto_termination_policy);
    ("put-block-public-access-configuration",
      put_block_public_access_configuration);
    ("put-managed-scaling-policy", put_managed_scaling_policy);
    ("remove-auto-scaling-policy", remove_auto_scaling_policy);
    ("remove-auto-termination-policy", remove_auto_termination_policy);
    ("remove-managed-scaling-policy", remove_managed_scaling_policy);
    ("remove-tags", remove_tags);
    ("run-job-flow", run_job_flow);
    ("set-keep-job-flow-alive-when-no-steps",
      set_keep_job_flow_alive_when_no_steps);
    ("set-termination-protection", set_termination_protection);
    ("set-unhealthy-node-replacement", set_unhealthy_node_replacement);
    ("set-visible-to-all-users", set_visible_to_all_users);
    ("start-notebook-execution", start_notebook_execution);
    ("stop-notebook-execution", stop_notebook_execution);
    ("terminate-job-flows", terminate_job_flows);
    ("update-studio", update_studio);
    ("update-studio-session-mapping", update_studio_session_mapping)]