Source file values.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 Awso
open! Import
[@@@warning "-32"]
let service = Service.pcs
let apiVersion = "2023-02-10"
let endpointPrefix = "pcs"
let serviceFullName = "AWS Parallel Computing Service"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSParallelComputingService"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module SlurmCustomSetting =
  struct
    type nonrec t =
      {
      parameterName: String_.t
        [@ocaml.doc
          "PCS supports custom Slurm settings for clusters, compute node groups, and queues. For more information, see Configuring custom Slurm settings in PCS in the PCS User Guide."];
      parameterValue: String_.t
        [@ocaml.doc "The values for the configured Slurm settings."]}
    let context_ = "SlurmCustomSetting"
    let make ~parameterName =
      fun ~parameterValue -> fun () -> { parameterName; parameterValue }
    let to_value x =
      structure_to_value
        [("parameterName", (Some (String_.to_value x.parameterName)));
        ("parameterValue", (Some (String_.to_value x.parameterValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameterValue =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameterValue") in
      let parameterName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameterName") in
      make ~parameterValue ~parameterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameterValue =
        field_map_exn json__ "parameterValue" String_.of_json in
      let parameterName =
        field_map_exn json__ "parameterName" String_.of_json in
      make ~parameterValue ~parameterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional settings that directly map to Slurm settings. PCS supports a subset of Slurm settings. For more information, see Configuring custom Slurm settings in PCS in the PCS User Guide."]
module AccountingDefaultPurgeTimeInDaysInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000) >>=
             (fun () -> check_int_min i ~min:(-1)));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for AccountingDefaultPurgeTimeInDaysInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AccountingMode =
  struct
    type nonrec t =
      | STANDARD 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AccountingMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountingMode" j)
    let to_json = simple_to_json to_value
  end
module CgroupCustomSetting =
  struct
    type nonrec t =
      {
      parameterName: String_.t
        [@ocaml.doc
          "PCS supports custom Cgroup settings for clusters. For more information, see Configuring custom Cgroup settings in PCS in the PCS User Guide."];
      parameterValue: String_.t
        [@ocaml.doc "The values for the configured Cgroup settings."]}
    let context_ = "CgroupCustomSetting"
    let make ~parameterName =
      fun ~parameterValue -> fun () -> { parameterName; parameterValue }
    let to_value x =
      structure_to_value
        [("parameterName", (Some (String_.to_value x.parameterName)));
        ("parameterValue", (Some (String_.to_value x.parameterValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameterValue =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameterValue") in
      let parameterName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameterName") in
      make ~parameterValue ~parameterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameterValue =
        field_map_exn json__ "parameterValue" String_.of_json in
      let parameterName =
        field_map_exn json__ "parameterName" String_.of_json in
      make ~parameterValue ~parameterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional settings that directly map to Cgroup settings. PCS supports a subset of Cgroup settings. For more information, see Configuring custom Cgroup settings in PCS in the PCS User Guide."]
module JwtKey =
  struct
    type nonrec t =
      {
      secretArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services Secrets Manager secret containing the JWT key."];
      secretVersion: String_.t option
        [@ocaml.doc
          "The version of the Amazon Web Services Secrets Manager secret containing the JWT key."]}
    let make ?secretArn =
      fun ?secretVersion -> fun () -> { secretArn; secretVersion }
    let to_value x =
      structure_to_value
        [("secretArn", (Option.map x.secretArn ~f:String_.to_value));
        ("secretVersion", (Option.map x.secretVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "secretVersion") in
      let secretArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "secretArn") in
      make ?secretVersion ?secretArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretVersion = field_map json__ "secretVersion" String_.of_json in
      let secretArn = field_map json__ "secretArn" String_.of_json in
      make ?secretVersion ?secretArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The JWT key stored in Amazon Web Services Secrets Manager for Slurm REST API authentication."]
module SlurmRestMode =
  struct
    type nonrec t =
      | STANDARD 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SlurmRestMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SlurmRestMode" j)
    let to_json = simple_to_json to_value
  end
module SlurmdbdCustomSetting =
  struct
    type nonrec t =
      {
      parameterName: String_.t
        [@ocaml.doc
          "PCS supports custom SlurmDBD settings for clusters. For more information, see Configuring custom SlurmDBD settings in PCS in the PCS User Guide."];
      parameterValue: String_.t
        [@ocaml.doc "The values for the configured SlurmDBD settings."]}
    let context_ = "SlurmdbdCustomSetting"
    let make ~parameterName =
      fun ~parameterValue -> fun () -> { parameterName; parameterValue }
    let to_value x =
      structure_to_value
        [("parameterName", (Some (String_.to_value x.parameterName)));
        ("parameterValue", (Some (String_.to_value x.parameterValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameterValue =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameterValue") in
      let parameterName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parameterName") in
      make ~parameterValue ~parameterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameterValue =
        field_map_exn json__ "parameterValue" String_.of_json in
      let parameterName =
        field_map_exn json__ "parameterName" String_.of_json in
      make ~parameterValue ~parameterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional settings that directly map to SlurmDBD settings. PCS supports a subset of SlurmDBD settings. For more information, see Configuring custom SlurmDBD settings in PCS in the PCS User Guide."]
module EndpointType =
  struct
    type nonrec t =
      | SLURMCTLD 
      | SLURMDBD 
      | SLURMRESTD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SLURMCTLD -> "SLURMCTLD"
      | SLURMDBD -> "SLURMDBD"
      | SLURMRESTD -> "SLURMRESTD"
      | Non_static_id s -> s
    let of_string =
      function
      | "SLURMCTLD" -> SLURMCTLD
      | "SLURMDBD" -> SLURMDBD
      | "SLURMRESTD" -> SLURMRESTD
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EndpointType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EndpointType" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"sg-\\w{8,17}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"subnet-\\w{8,17}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module ComputeNodeGroupConfiguration =
  struct
    type nonrec t =
      {
      computeNodeGroupId: String_.t option
        [@ocaml.doc
          "The compute node group ID for the compute node group configuration."]}
    let make ?computeNodeGroupId = fun () -> { computeNodeGroupId }
    let to_value x =
      structure_to_value
        [("computeNodeGroupId",
           (Option.map x.computeNodeGroupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeNodeGroupId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "computeNodeGroupId") in
      make ?computeNodeGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeNodeGroupId =
        field_map json__ "computeNodeGroupId" String_.of_json in
      make ?computeNodeGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The compute node group configuration for a queue."]
module ErrorInfo =
  struct
    type nonrec t =
      {
      code: String_.t option [@ocaml.doc "The short-form error code."];
      message: String_.t option
        [@ocaml.doc "The detailed error information."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An error that occurred during resource creation."]
module SlurmCustomSettings =
  struct
    type nonrec t = SlurmCustomSetting.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SlurmCustomSetting.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SlurmCustomSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"SlurmCustomSettings"
        ~of_json:SlurmCustomSetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the exception."];
      message: String_.t option
        [@ocaml.doc "The message body of the exception."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores information about a field in a request that caused an exception."]
module InstanceConfig =
  struct
    type nonrec t =
      {
      instanceType: String_.t option
        [@ocaml.doc
          "The EC2 instance type that PCS can provision in the compute node group. Example: t2.xlarge"]}
    let make ?instanceType = fun () -> { instanceType }
    let to_value x =
      structure_to_value
        [("instanceType", (Option.map x.instanceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceType") in
      make ?instanceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceType = field_map json__ "instanceType" String_.of_json in
      make ?instanceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An EC2 instance configuration PCS uses to launch compute nodes."]
module ScalingConfigurationMaxInstanceCountInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ScalingConfigurationMaxInstanceCountInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ScalingConfigurationMinInstanceCountInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ScalingConfigurationMinInstanceCountInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module SpotAllocationStrategy =
  struct
    type nonrec t =
      | Lowest_price 
      | Capacity_optimized 
      | Price_capacity_optimized 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Lowest_price -> "lowest-price"
      | Capacity_optimized -> "capacity-optimized"
      | Price_capacity_optimized -> "price-capacity-optimized"
      | Non_static_id s -> s
    let of_string =
      function
      | "lowest-price" -> Lowest_price
      | "capacity-optimized" -> Capacity_optimized
      | "price-capacity-optimized" -> Price_capacity_optimized
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SpotAllocationStrategy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SpotAllocationStrategy" j)
    let to_json = simple_to_json to_value
  end
module Accounting =
  struct
    type nonrec t =
      {
      defaultPurgeTimeInDays:
        AccountingDefaultPurgeTimeInDaysInteger.t option
        [@ocaml.doc
          "The default value for all purge settings for slurmdbd.conf. For more information, see the slurmdbd.conf documentation at SchedMD. The default value for defaultPurgeTimeInDays is -1. A value of -1 means there is no purge time and records persist as long as the cluster exists. 0 isn't a valid value."];
      mode: AccountingMode.t option
        [@ocaml.doc
          "The default value for mode is NONE. A value of STANDARD means Slurm accounting is enabled."]}
    let make ?defaultPurgeTimeInDays =
      fun ?mode -> fun () -> { defaultPurgeTimeInDays; mode }
    let to_value x =
      structure_to_value
        [("defaultPurgeTimeInDays",
           (Option.map x.defaultPurgeTimeInDays
              ~f:AccountingDefaultPurgeTimeInDaysInteger.to_value));
        ("mode", (Option.map x.mode ~f:AccountingMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        (Option.map ~f:AccountingMode.of_xml) (Xml.child xml_arg0 "mode") in
      let defaultPurgeTimeInDays =
        (Option.map ~f:AccountingDefaultPurgeTimeInDaysInteger.of_xml)
          (Xml.child xml_arg0 "defaultPurgeTimeInDays") in
      make ?mode ?defaultPurgeTimeInDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "mode" AccountingMode.of_json in
      let defaultPurgeTimeInDays =
        field_map json__ "defaultPurgeTimeInDays"
          AccountingDefaultPurgeTimeInDaysInteger.of_json in
      make ?mode ?defaultPurgeTimeInDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The accounting configuration includes configurable settings for Slurm accounting. It's a property of the ClusterSlurmConfiguration object."]
module CgroupCustomSettings =
  struct
    type nonrec t = CgroupCustomSetting.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CgroupCustomSetting.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CgroupCustomSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"CgroupCustomSettings"
        ~of_json:CgroupCustomSetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClusterSlurmConfigurationScaleDownIdleTimeInSecondsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000000) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ClusterSlurmConfigurationScaleDownIdleTimeInSecondsInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module JwtAuth =
  struct
    type nonrec t =
      {
      jwtKey: JwtKey.t option
        [@ocaml.doc "The JWT key for Slurm REST API authentication."]}
    let make ?jwtKey = fun () -> { jwtKey }
    let to_value x =
      structure_to_value
        [("jwtKey", (Option.map x.jwtKey ~f:JwtKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jwtKey =
        (Option.map ~f:JwtKey.of_xml) (Xml.child xml_arg0 "jwtKey") in
      make ?jwtKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jwtKey = field_map json__ "jwtKey" JwtKey.of_json in
      make ?jwtKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The JWT authentication configuration for Slurm REST API access."]
module SlurmAuthKey =
  struct
    type nonrec t =
      {
      secretArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the shared Slurm key."];
      secretVersion: String_.t option
        [@ocaml.doc "The version of the shared Slurm key."]}
    let make ?secretArn =
      fun ?secretVersion -> fun () -> { secretArn; secretVersion }
    let to_value x =
      structure_to_value
        [("secretArn", (Option.map x.secretArn ~f:String_.to_value));
        ("secretVersion", (Option.map x.secretVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "secretVersion") in
      let secretArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "secretArn") in
      make ?secretVersion ?secretArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretVersion = field_map json__ "secretVersion" String_.of_json in
      let secretArn = field_map json__ "secretArn" String_.of_json in
      make ?secretVersion ?secretArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The shared Slurm key for authentication, also known as the cluster secret."]
module SlurmRest =
  struct
    type nonrec t =
      {
      mode: SlurmRestMode.t option
        [@ocaml.doc
          "The default value for mode is NONE. A value of STANDARD means the Slurm REST API is enabled."]}
    let make ?mode = fun () -> { mode }
    let to_value x =
      structure_to_value
        [("mode", (Option.map x.mode ~f:SlurmRestMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        (Option.map ~f:SlurmRestMode.of_xml) (Xml.child xml_arg0 "mode") in
      make ?mode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "mode" SlurmRestMode.of_json in
      make ?mode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Slurm REST API configuration includes settings for enabling and configuring the Slurm REST API. It's a property of the ClusterSlurmConfiguration object."]
module SlurmdbdCustomSettings =
  struct
    type nonrec t = SlurmdbdCustomSetting.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SlurmdbdCustomSetting.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SlurmdbdCustomSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"SlurmdbdCustomSettings"
        ~of_json:SlurmdbdCustomSetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module Endpoint =
  struct
    type nonrec t =
      {
      type_: EndpointType.t option
        [@ocaml.doc
          "Indicates the type of endpoint running at the specific IP address."];
      privateIpAddress: String_.t option
        [@ocaml.doc
          "For clusters that use IPv4, this is the endpoint's private IP address. Example: 10.1.2.3 For clusters configured to use IPv6, this is an empty string."];
      publicIpAddress: String_.t option
        [@ocaml.doc "The endpoint's public IP address. Example: 192.0.2.1"];
      ipv6Address: String_.t option
        [@ocaml.doc "The endpoint's IPv6 address. Example: 2001:db8::1"];
      port: String_.t option
        [@ocaml.doc "The endpoint's connection port number. Example: 1234"]}
    let make ?type_ =
      fun ?privateIpAddress ->
        fun ?publicIpAddress ->
          fun ?ipv6Address ->
            fun ?port ->
              fun () ->
                { type_; privateIpAddress; publicIpAddress; ipv6Address; port
                }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:EndpointType.to_value));
        ("privateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value));
        ("publicIpAddress",
          (Option.map x.publicIpAddress ~f:String_.to_value));
        ("ipv6Address", (Option.map x.ipv6Address ~f:String_.to_value));
        ("port", (Option.map x.port ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let port = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "port") in
      let ipv6Address =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6Address") in
      let publicIpAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "publicIpAddress") in
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      let type_ =
        (Option.map ~f:EndpointType.of_xml) (Xml.child xml_arg0 "type") in
      make ?port ?ipv6Address ?publicIpAddress ?privateIpAddress ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let port = field_map json__ "port" String_.of_json in
      let ipv6Address = field_map json__ "ipv6Address" String_.of_json in
      let publicIpAddress =
        field_map json__ "publicIpAddress" String_.of_json in
      let privateIpAddress =
        field_map json__ "privateIpAddress" String_.of_json in
      let type_ = field_map json__ "type" EndpointType.of_json in
      make ?port ?ipv6Address ?publicIpAddress ?privateIpAddress ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An endpoint available for interaction with the scheduler."]
module NetworkType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | IPV4 -> "IPV4" | IPV6 -> "IPV6" | Non_static_id s -> s
    let of_string =
      function | "IPV4" -> IPV4 | "IPV6" -> IPV6 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration NetworkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NetworkType" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupIdList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupIdList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SubnetIdList =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetIdList" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SchedulerType =
  struct
    type nonrec t =
      | SLURM 
      | Non_static_id of string 
    let make i = i
    let to_string = function | SLURM -> "SLURM" | Non_static_id s -> s
    let of_string = function | "SLURM" -> SLURM | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SchedulerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SchedulerType" j)
    let to_json = simple_to_json to_value
  end
module UpdateAccountingRequestDefaultPurgeTimeInDaysInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000) >>=
             (fun () -> check_int_min i ~min:(-1)));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for UpdateAccountingRequestDefaultPurgeTimeInDaysInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module QueueName =
  struct
    type nonrec t = string
    let context_ = "QueueName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:25) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!pcs_)^[A-Za-z][A-Za-z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueueName" j
    let to_json = simple_to_json to_value
  end
module QueueStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | UPDATING 
      | DELETING 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | UPDATE_FAILED 
      | SUSPENDING 
      | SUSPENDED 
      | RESUMING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | SUSPENDING -> "SUSPENDING"
      | SUSPENDED -> "SUSPENDED"
      | RESUMING -> "RESUMING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "SUSPENDING" -> SUSPENDING
      | "SUSPENDED" -> SUSPENDED
      | "RESUMING" -> RESUMING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration QueueStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QueueStatus" j)
    let to_json = simple_to_json to_value
  end
module SyntheticTimestamp_date_time =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ComputeNodeGroupName =
  struct
    type nonrec t = string
    let context_ = "ComputeNodeGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:25) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!pcs_)^[A-Za-z][A-Za-z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComputeNodeGroupName" j
    let to_json = simple_to_json to_value
  end
module ComputeNodeGroupStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | UPDATING 
      | DELETING 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | UPDATE_FAILED 
      | DELETED 
      | SUSPENDING 
      | SUSPENDED 
      | RESUMING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | DELETED -> "DELETED"
      | SUSPENDING -> "SUSPENDING"
      | SUSPENDED -> "SUSPENDED"
      | RESUMING -> "RESUMING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "DELETED" -> DELETED
      | "SUSPENDING" -> SUSPENDING
      | "SUSPENDED" -> SUSPENDED
      | "RESUMING" -> RESUMING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ComputeNodeGroupStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ComputeNodeGroupStatus" j)
    let to_json = simple_to_json to_value
  end
module ClusterStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | UPDATING 
      | DELETING 
      | CREATE_FAILED 
      | DELETE_FAILED 
      | UPDATE_FAILED 
      | SUSPENDING 
      | SUSPENDED 
      | RESUMING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | UPDATING -> "UPDATING"
      | DELETING -> "DELETING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_FAILED -> "DELETE_FAILED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | SUSPENDING -> "SUSPENDING"
      | SUSPENDED -> "SUSPENDED"
      | RESUMING -> "RESUMING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "UPDATING" -> UPDATING
      | "DELETING" -> DELETING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_FAILED" -> DELETE_FAILED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "SUSPENDING" -> SUSPENDING
      | "SUSPENDED" -> SUSPENDED
      | "RESUMING" -> RESUMING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ClusterStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClusterStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountingRequestDefaultPurgeTimeInDaysInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000) >>=
             (fun () -> check_int_min i ~min:(-1)));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for AccountingRequestDefaultPurgeTimeInDaysInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ComputeNodeGroupConfigurationList =
  struct
    type nonrec t = ComputeNodeGroupConfiguration.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ComputeNodeGroupConfiguration.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ComputeNodeGroupConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ComputeNodeGroupConfigurationList"
        ~of_json:ComputeNodeGroupConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ErrorInfoList =
  struct
    type nonrec t = ErrorInfo.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ErrorInfo.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ErrorInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"ErrorInfoList" ~of_json:ErrorInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueueSlurmConfiguration =
  struct
    type nonrec t =
      {
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."]}
    let make ?slurmCustomSettings = fun () -> { slurmCustomSettings }
    let to_value x =
      structure_to_value
        [("slurmCustomSettings",
           (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      make ?slurmCustomSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      make ?slurmCustomSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module AmiId =
  struct
    type nonrec t = string
    let context_ = "AmiId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"ami-[a-z0-9]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AmiId" j
    let to_json = simple_to_json to_value
  end
module ComputeNodeGroupSlurmConfiguration =
  struct
    type nonrec t =
      {
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."]}
    let make ?slurmCustomSettings = fun () -> { slurmCustomSettings }
    let to_value x =
      structure_to_value
        [("slurmCustomSettings",
           (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      make ?slurmCustomSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      make ?slurmCustomSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module CustomLaunchTemplate =
  struct
    type nonrec t =
      {
      id: String_.t
        [@ocaml.doc
          "The ID of the EC2 launch template to use to provision instances. Example: lt-xxxx"];
      version: String_.t
        [@ocaml.doc
          "The version of the EC2 launch template to use to provision instances."]}
    let context_ = "CustomLaunchTemplate"
    let make ~id = fun ~version -> fun () -> { id; version }
    let to_value x =
      structure_to_value
        [("id", (Some (String_.to_value x.id)));
        ("version", (Some (String_.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~version ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" String_.of_json in
      let id = field_map_exn json__ "id" String_.of_json in
      make ~version ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Amazon EC2 launch template PCS uses to launch compute nodes."]
module InstanceList =
  struct
    type nonrec t = InstanceConfig.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceConfig.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceList" ~of_json:InstanceConfig.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceProfileArn =
  struct
    type nonrec t = string
    let context_ = "InstanceProfileArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws([a-zA-Z-]{0,10})?:iam::[0-9]{12}:instance-profile/([!-~]{1,510}/)?([\\w+=,.@-]{1,128})");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InstanceProfileArn" j
    let to_json = simple_to_json to_value
  end
module PurchaseOption =
  struct
    type nonrec t =
      | ONDEMAND 
      | SPOT 
      | CAPACITY_BLOCK 
      | INTERRUPTIBLE_CAPACITY_RESERVATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ONDEMAND -> "ONDEMAND"
      | SPOT -> "SPOT"
      | CAPACITY_BLOCK -> "CAPACITY_BLOCK"
      | INTERRUPTIBLE_CAPACITY_RESERVATION ->
          "INTERRUPTIBLE_CAPACITY_RESERVATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "ONDEMAND" -> ONDEMAND
      | "SPOT" -> SPOT
      | "CAPACITY_BLOCK" -> CAPACITY_BLOCK
      | "INTERRUPTIBLE_CAPACITY_RESERVATION" ->
          INTERRUPTIBLE_CAPACITY_RESERVATION
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration PurchaseOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PurchaseOption" j)
    let to_json = simple_to_json to_value
  end
module ScalingConfiguration =
  struct
    type nonrec t =
      {
      minInstanceCount: ScalingConfigurationMinInstanceCountInteger.t option
        [@ocaml.doc
          "The lower bound of the number of instances allowed in the compute fleet."];
      maxInstanceCount: ScalingConfigurationMaxInstanceCountInteger.t option
        [@ocaml.doc
          "The upper bound of the number of instances allowed in the compute fleet."]}
    let make ?minInstanceCount =
      fun ?maxInstanceCount ->
        fun () -> { minInstanceCount; maxInstanceCount }
    let to_value x =
      structure_to_value
        [("minInstanceCount",
           (Option.map x.minInstanceCount
              ~f:ScalingConfigurationMinInstanceCountInteger.to_value));
        ("maxInstanceCount",
          (Option.map x.maxInstanceCount
             ~f:ScalingConfigurationMaxInstanceCountInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxInstanceCount =
        (Option.map ~f:ScalingConfigurationMaxInstanceCountInteger.of_xml)
          (Xml.child xml_arg0 "maxInstanceCount") in
      let minInstanceCount =
        (Option.map ~f:ScalingConfigurationMinInstanceCountInteger.of_xml)
          (Xml.child xml_arg0 "minInstanceCount") in
      make ?maxInstanceCount ?minInstanceCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxInstanceCount =
        field_map json__ "maxInstanceCount"
          ScalingConfigurationMaxInstanceCountInteger.of_json in
      let minInstanceCount =
        field_map json__ "minInstanceCount"
          ScalingConfigurationMinInstanceCountInteger.of_json in
      make ?maxInstanceCount ?minInstanceCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the boundaries of the compute node group auto scaling."]
module SpotOptions =
  struct
    type nonrec t =
      {
      allocationStrategy: SpotAllocationStrategy.t option
        [@ocaml.doc
          "The Amazon EC2 allocation strategy PCS uses to provision EC2 instances. PCS supports lowest price, capacity optimized, and price capacity optimized. For more information, see Use allocation strategies to determine how EC2 Fleet or Spot Fleet fulfills Spot and On-Demand capacity in the Amazon Elastic Compute Cloud User Guide. If you don't provide this option, it defaults to price capacity optimized."]}
    let make ?allocationStrategy = fun () -> { allocationStrategy }
    let to_value x =
      structure_to_value
        [("allocationStrategy",
           (Option.map x.allocationStrategy
              ~f:SpotAllocationStrategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allocationStrategy =
        (Option.map ~f:SpotAllocationStrategy.of_xml)
          (Xml.child xml_arg0 "allocationStrategy") in
      make ?allocationStrategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allocationStrategy =
        field_map json__ "allocationStrategy" SpotAllocationStrategy.of_json in
      make ?allocationStrategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional configuration when you specify SPOT as the purchaseOption for the CreateComputeNodeGroup API action."]
module ScalingConfigurationRequestMaxInstanceCountInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ScalingConfigurationRequestMaxInstanceCountInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ScalingConfigurationRequestMinInstanceCountInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ScalingConfigurationRequestMinInstanceCountInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ClusterSlurmConfiguration =
  struct
    type nonrec t =
      {
      scaleDownIdleTimeInSeconds:
        ClusterSlurmConfigurationScaleDownIdleTimeInSecondsInteger.t option
        [@ocaml.doc
          "The time (in seconds) before an idle node is scaled down. Default: 600"];
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."];
      slurmdbdCustomSettings: SlurmdbdCustomSettings.t option
        [@ocaml.doc
          "Additional SlurmDBD-specific configuration that directly maps to SlurmDBD settings."];
      cgroupCustomSettings: CgroupCustomSettings.t option
        [@ocaml.doc
          "Additional Cgroup-specific configuration that directly maps to Cgroup settings."];
      authKey: SlurmAuthKey.t option
        [@ocaml.doc
          "The shared Slurm key for authentication, also known as the cluster secret."];
      jwtAuth: JwtAuth.t option
        [@ocaml.doc
          "The JWT authentication configuration for Slurm REST API access."];
      accounting: Accounting.t option
        [@ocaml.doc
          "The accounting configuration includes configurable settings for Slurm accounting."];
      slurmRest: SlurmRest.t option
        [@ocaml.doc "The Slurm REST API configuration for the cluster."]}
    let make ?scaleDownIdleTimeInSeconds =
      fun ?slurmCustomSettings ->
        fun ?slurmdbdCustomSettings ->
          fun ?cgroupCustomSettings ->
            fun ?authKey ->
              fun ?jwtAuth ->
                fun ?accounting ->
                  fun ?slurmRest ->
                    fun () ->
                      {
                        scaleDownIdleTimeInSeconds;
                        slurmCustomSettings;
                        slurmdbdCustomSettings;
                        cgroupCustomSettings;
                        authKey;
                        jwtAuth;
                        accounting;
                        slurmRest
                      }
    let to_value x =
      structure_to_value
        [("scaleDownIdleTimeInSeconds",
           (Option.map x.scaleDownIdleTimeInSeconds
              ~f:ClusterSlurmConfigurationScaleDownIdleTimeInSecondsInteger.to_value));
        ("slurmCustomSettings",
          (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value));
        ("slurmdbdCustomSettings",
          (Option.map x.slurmdbdCustomSettings
             ~f:SlurmdbdCustomSettings.to_value));
        ("cgroupCustomSettings",
          (Option.map x.cgroupCustomSettings ~f:CgroupCustomSettings.to_value));
        ("authKey", (Option.map x.authKey ~f:SlurmAuthKey.to_value));
        ("jwtAuth", (Option.map x.jwtAuth ~f:JwtAuth.to_value));
        ("accounting", (Option.map x.accounting ~f:Accounting.to_value));
        ("slurmRest", (Option.map x.slurmRest ~f:SlurmRest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmRest =
        (Option.map ~f:SlurmRest.of_xml) (Xml.child xml_arg0 "slurmRest") in
      let accounting =
        (Option.map ~f:Accounting.of_xml) (Xml.child xml_arg0 "accounting") in
      let jwtAuth =
        (Option.map ~f:JwtAuth.of_xml) (Xml.child xml_arg0 "jwtAuth") in
      let authKey =
        (Option.map ~f:SlurmAuthKey.of_xml) (Xml.child xml_arg0 "authKey") in
      let cgroupCustomSettings =
        (Option.map ~f:CgroupCustomSettings.of_xml)
          (Xml.child xml_arg0 "cgroupCustomSettings") in
      let slurmdbdCustomSettings =
        (Option.map ~f:SlurmdbdCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmdbdCustomSettings") in
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      let scaleDownIdleTimeInSeconds =
        (Option.map
           ~f:ClusterSlurmConfigurationScaleDownIdleTimeInSecondsInteger.of_xml)
          (Xml.child xml_arg0 "scaleDownIdleTimeInSeconds") in
      make ?slurmRest ?accounting ?jwtAuth ?authKey ?cgroupCustomSettings
        ?slurmdbdCustomSettings ?slurmCustomSettings
        ?scaleDownIdleTimeInSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmRest = field_map json__ "slurmRest" SlurmRest.of_json in
      let accounting = field_map json__ "accounting" Accounting.of_json in
      let jwtAuth = field_map json__ "jwtAuth" JwtAuth.of_json in
      let authKey = field_map json__ "authKey" SlurmAuthKey.of_json in
      let cgroupCustomSettings =
        field_map json__ "cgroupCustomSettings" CgroupCustomSettings.of_json in
      let slurmdbdCustomSettings =
        field_map json__ "slurmdbdCustomSettings"
          SlurmdbdCustomSettings.of_json in
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      let scaleDownIdleTimeInSeconds =
        field_map json__ "scaleDownIdleTimeInSeconds"
          ClusterSlurmConfigurationScaleDownIdleTimeInSecondsInteger.of_json in
      make ?slurmRest ?accounting ?jwtAuth ?authKey ?cgroupCustomSettings
        ?slurmdbdCustomSettings ?slurmCustomSettings
        ?scaleDownIdleTimeInSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module Endpoints =
  struct
    type nonrec t = Endpoint.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Endpoint.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Endpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"Endpoints" ~of_json:Endpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module Networking =
  struct
    type nonrec t =
      {
      subnetIds: SubnetIdList.t option
        [@ocaml.doc
          "The ID of the subnet where PCS creates an Elastic Network Interface (ENI) to enable communication between managed controllers and PCS resources. The subnet must have an available IP address, cannot reside in Outposts, Wavelength, or an Amazon Web Services Local Zone. Example: subnet-abcd1234"];
      securityGroupIds: SecurityGroupIdList.t option
        [@ocaml.doc
          "The list of security group IDs associated with the Elastic Network Interface (ENI) created in subnets. The following rules are required: Inbound rule 1 Protocol: All Ports: All Source: Self Outbound rule 1 Protocol: All Ports: All Destination: 0.0.0.0/0 (IPv4) or ::/0 (IPv6) Outbound rule 2 Protocol: All Ports: All Destination: Self"];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The IP address version the cluster uses. The default is IPV4."]}
    let make ?subnetIds =
      fun ?securityGroupIds ->
        fun ?networkType ->
          fun () -> { subnetIds; securityGroupIds; networkType }
    let to_value x =
      structure_to_value
        [("subnetIds", (Option.map x.subnetIds ~f:SubnetIdList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIdList.to_value));
        ("networkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "networkType") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetIdList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      make ?networkType ?securityGroupIds ?subnetIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "networkType" NetworkType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupIdList.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIdList.of_json in
      make ?networkType ?securityGroupIds ?subnetIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The networking configuration for the cluster's control plane."]
module Scheduler =
  struct
    type nonrec t =
      {
      type_: SchedulerType.t option
        [@ocaml.doc
          "The software PCS uses to manage cluster scaling and job scheduling."];
      version: String_.t option
        [@ocaml.doc
          "The version of the specified scheduling software that PCS uses to manage cluster scaling and job scheduling. For more information, see Slurm versions in PCS in the PCS User Guide. Valid Values: 23.11 | 24.05 | 24.11 | 25.05 | 25.11"]}
    let make ?type_ = fun ?version -> fun () -> { type_; version }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:SchedulerType.to_value));
        ("version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      let type_ =
        (Option.map ~f:SchedulerType.of_xml) (Xml.child xml_arg0 "type") in
      make ?version ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" String_.of_json in
      let type_ = field_map json__ "type" SchedulerType.of_json in
      make ?version ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The cluster management and job scheduling software associated with the cluster."]
module Size =
  struct
    type nonrec t =
      | SMALL 
      | MEDIUM 
      | LARGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SMALL -> "SMALL"
      | MEDIUM -> "MEDIUM"
      | LARGE -> "LARGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SMALL" -> SMALL
      | "MEDIUM" -> MEDIUM
      | "LARGE" -> LARGE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Size" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Size" j)
    let to_json = simple_to_json to_value
  end
module UpdateAccountingRequest =
  struct
    type nonrec t =
      {
      defaultPurgeTimeInDays:
        UpdateAccountingRequestDefaultPurgeTimeInDaysInteger.t option
        [@ocaml.doc
          "The default value for all purge settings for slurmdbd.conf. For more information, see the slurmdbd.conf documentation at SchedMD. The default value for defaultPurgeTimeInDays is -1. A value of -1 means there is no purge time and records persist as long as the cluster exists. 0 isn't a valid value."];
      mode: AccountingMode.t option
        [@ocaml.doc
          "The default value for mode is NONE. A value of STANDARD means Slurm accounting is enabled."]}
    let make ?defaultPurgeTimeInDays =
      fun ?mode -> fun () -> { defaultPurgeTimeInDays; mode }
    let to_value x =
      structure_to_value
        [("defaultPurgeTimeInDays",
           (Option.map x.defaultPurgeTimeInDays
              ~f:UpdateAccountingRequestDefaultPurgeTimeInDaysInteger.to_value));
        ("mode", (Option.map x.mode ~f:AccountingMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        (Option.map ~f:AccountingMode.of_xml) (Xml.child xml_arg0 "mode") in
      let defaultPurgeTimeInDays =
        (Option.map
           ~f:UpdateAccountingRequestDefaultPurgeTimeInDaysInteger.of_xml)
          (Xml.child xml_arg0 "defaultPurgeTimeInDays") in
      make ?mode ?defaultPurgeTimeInDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "mode" AccountingMode.of_json in
      let defaultPurgeTimeInDays =
        field_map json__ "defaultPurgeTimeInDays"
          UpdateAccountingRequestDefaultPurgeTimeInDaysInteger.of_json in
      make ?mode ?defaultPurgeTimeInDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The accounting configuration includes configurable settings for Slurm accounting."]
module UpdateClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000000) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for UpdateClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module UpdateSlurmRestRequest =
  struct
    type nonrec t =
      {
      mode: SlurmRestMode.t option
        [@ocaml.doc
          "The default value for mode is NONE. A value of STANDARD means the Slurm REST API is enabled."]}
    let make ?mode = fun () -> { mode }
    let to_value x =
      structure_to_value
        [("mode", (Option.map x.mode ~f:SlurmRestMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        (Option.map ~f:SlurmRestMode.of_xml) (Xml.child xml_arg0 "mode") in
      make ?mode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "mode" SlurmRestMode.of_json in
      make ?mode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Slurm REST API configuration includes settings for enabling and configuring the Slurm REST API."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module QueueSummary =
  struct
    type nonrec t =
      {
      name: QueueName.t option
        [@ocaml.doc "The name that identifies the queue."];
      id: String_.t option
        [@ocaml.doc "The generated unique ID of the queue."];
      arn: String_.t option
        [@ocaml.doc "The unique Amazon Resource Name (ARN) of the queue."];
      clusterId: String_.t option
        [@ocaml.doc "The ID of the cluster of the queue."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was created."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was modified."];
      status: QueueStatus.t option
        [@ocaml.doc
          "The provisioning status of the queue. The provisioning status doesn't indicate the overall health of the queue. The resource enters the SUSPENDING and SUSPENDED states when the scheduler is beyond end of life and we have suspended the cluster. When in these states, you can't use the cluster. The cluster controller is down and all compute instances are terminated. The resources still count toward your service quotas. You can delete a resource if its status is SUSPENDED. For more information, see Frequently asked questions about Slurm versions in PCS in the PCS User Guide."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?clusterId ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?status ->
                  fun () ->
                    { name; id; arn; clusterId; createdAt; modifiedAt; status
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:QueueName.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("clusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:QueueStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:QueueStatus.of_xml) (Xml.child xml_arg0 "status") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clusterId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:QueueName.of_xml) (Xml.child xml_arg0 "name") in
      make ?status ?modifiedAt ?createdAt ?clusterId ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" QueueStatus.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let clusterId = field_map json__ "clusterId" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let name = field_map json__ "name" QueueName.of_json in
      make ?status ?modifiedAt ?createdAt ?clusterId ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The object returned by the ListQueues API action."]
module ComputeNodeGroupSummary =
  struct
    type nonrec t =
      {
      name: ComputeNodeGroupName.t option
        [@ocaml.doc "The name that identifies the compute node group."];
      id: String_.t option
        [@ocaml.doc "The generated unique ID of the compute node group."];
      arn: String_.t option
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) of the compute node group."];
      clusterId: String_.t option
        [@ocaml.doc "The ID of the cluster of the compute node group."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was created."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was modified."];
      status: ComputeNodeGroupStatus.t option
        [@ocaml.doc
          "The provisioning status of the compute node group. The provisioning status doesn't indicate the overall health of the compute node group. The resource enters the SUSPENDING and SUSPENDED states when the scheduler is beyond end of life and we have suspended the cluster. When in these states, you can't use the cluster. The cluster controller is down and all compute instances are terminated. The resources still count toward your service quotas. You can delete a resource if its status is SUSPENDED. For more information, see Frequently asked questions about Slurm versions in PCS in the PCS User Guide."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?clusterId ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?status ->
                  fun () ->
                    { name; id; arn; clusterId; createdAt; modifiedAt; status
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ComputeNodeGroupName.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("clusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:ComputeNodeGroupStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ComputeNodeGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clusterId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:ComputeNodeGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?status ?modifiedAt ?createdAt ?clusterId ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ComputeNodeGroupStatus.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let clusterId = field_map json__ "clusterId" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let name = field_map json__ "name" ComputeNodeGroupName.of_json in
      make ?status ?modifiedAt ?createdAt ?clusterId ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object returned by the ListComputeNodeGroups API action."]
module ClusterSummary =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name that identifies the cluster."];
      id: String_.t option
        [@ocaml.doc "The generated unique ID of the cluster."];
      arn: String_.t option
        [@ocaml.doc "The unique Amazon Resource Name (ARN) of the cluster."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was created."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was modified."];
      status: ClusterStatus.t option
        [@ocaml.doc
          "The provisioning status of the cluster. The provisioning status doesn't indicate the overall health of the cluster. The resource enters the SUSPENDING and SUSPENDED states when the scheduler is beyond end of life and we have suspended the cluster. When in these states, you can't use the cluster. The cluster controller is down and all compute instances are terminated. The resources still count toward your service quotas. You can delete a resource if its status is SUSPENDED. For more information, see Frequently asked questions about Slurm versions in PCS in the PCS User Guide."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?createdAt ->
            fun ?modifiedAt ->
              fun ?status ->
                fun () -> { name; id; arn; createdAt; modifiedAt; status }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:ClusterStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ClusterStatus.of_xml) (Xml.child xml_arg0 "status") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?status ?modifiedAt ?createdAt ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ClusterStatus.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?status ?modifiedAt ?createdAt ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The object returned by the ListClusters API action."]
module AccountingRequest =
  struct
    type nonrec t =
      {
      defaultPurgeTimeInDays:
        AccountingRequestDefaultPurgeTimeInDaysInteger.t option
        [@ocaml.doc
          "The default value for all purge settings for slurmdbd.conf. For more information, see the slurmdbd.conf documentation at SchedMD. The default value for defaultPurgeTimeInDays is -1. A value of -1 means there is no purge time and records persist as long as the cluster exists. 0 isn't a valid value."];
      mode: AccountingMode.t
        [@ocaml.doc
          "The default value for mode is NONE. A value of STANDARD means Slurm accounting is enabled."]}
    let context_ = "AccountingRequest"
    let make ?defaultPurgeTimeInDays =
      fun ~mode -> fun () -> { defaultPurgeTimeInDays; mode }
    let to_value x =
      structure_to_value
        [("defaultPurgeTimeInDays",
           (Option.map x.defaultPurgeTimeInDays
              ~f:AccountingRequestDefaultPurgeTimeInDaysInteger.to_value));
        ("mode", (Some (AccountingMode.to_value x.mode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        AccountingMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mode") in
      let defaultPurgeTimeInDays =
        (Option.map ~f:AccountingRequestDefaultPurgeTimeInDaysInteger.of_xml)
          (Xml.child xml_arg0 "defaultPurgeTimeInDays") in
      make ~mode ?defaultPurgeTimeInDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map_exn json__ "mode" AccountingMode.of_json in
      let defaultPurgeTimeInDays =
        field_map json__ "defaultPurgeTimeInDays"
          AccountingRequestDefaultPurgeTimeInDaysInteger.of_json in
      make ~mode ?defaultPurgeTimeInDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The accounting configuration includes configurable settings for Slurm accounting. It's a property of the ClusterSlurmConfiguration object."]
module ClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000000) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module SlurmRestRequest =
  struct
    type nonrec t =
      {
      mode: SlurmRestMode.t
        [@ocaml.doc
          "The default value for mode is NONE. A value of STANDARD means the Slurm REST API is enabled."]}
    let context_ = "SlurmRestRequest"
    let make ~mode = fun () -> { mode }
    let to_value x =
      structure_to_value [("mode", (Some (SlurmRestMode.to_value x.mode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        SlurmRestMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mode") in
      make ~mode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map_exn json__ "mode" SlurmRestMode.of_json in
      make ~mode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Slurm REST API configuration includes settings for enabling and configuring the Slurm REST API. It's a property of the ClusterSlurmConfiguration object."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You don't have permission to perform the action. Examples The launch template instance profile doesn't pass iam:PassRole verification. There is a mismatch between the account ID and cluster ID. The cluster ID doesn't exist. The EC2 instance isn't present."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc
          "The unique identifier of the resource that caused the conflict exception."];
      resourceType: String_.t option
        [@ocaml.doc
          "The type or category of the resource that caused the conflict exception.\""]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request has conflicting operations. This can occur if you're trying to perform more than 1 operation on the same resource at the same time. Examples A cluster with the same name already exists. A cluster isn't in ACTIVE status. A cluster to delete is in an unstable state. For example, because it still has ACTIVE node groups or queues. A queue already exists in a cluster."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "PCS can't process your request right now. Try again later."]
module Queue =
  struct
    type nonrec t =
      {
      name: QueueName.t option
        [@ocaml.doc "The name that identifies the queue."];
      id: String_.t option
        [@ocaml.doc "The generated unique ID of the queue."];
      arn: String_.t option
        [@ocaml.doc "The unique Amazon Resource Name (ARN) of the queue."];
      clusterId: String_.t option
        [@ocaml.doc "The ID of the cluster of the queue."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was created."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was modified."];
      status: QueueStatus.t option
        [@ocaml.doc
          "The provisioning status of the queue. The provisioning status doesn't indicate the overall health of the queue. The resource enters the SUSPENDING and SUSPENDED states when the scheduler is beyond end of life and we have suspended the cluster. When in these states, you can't use the cluster. The cluster controller is down and all compute instances are terminated. The resources still count toward your service quotas. You can delete a resource if its status is SUSPENDED. For more information, see Frequently asked questions about Slurm versions in PCS in the PCS User Guide."];
      computeNodeGroupConfigurations:
        ComputeNodeGroupConfigurationList.t option
        [@ocaml.doc
          "The list of compute node group configurations associated with the queue. Queues assign jobs to associated compute node groups."];
      slurmConfiguration: QueueSlurmConfiguration.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      errorInfo: ErrorInfoList.t option
        [@ocaml.doc
          "The list of errors that occurred during queue provisioning."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?clusterId ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?status ->
                  fun ?computeNodeGroupConfigurations ->
                    fun ?slurmConfiguration ->
                      fun ?errorInfo ->
                        fun () ->
                          {
                            name;
                            id;
                            arn;
                            clusterId;
                            createdAt;
                            modifiedAt;
                            status;
                            computeNodeGroupConfigurations;
                            slurmConfiguration;
                            errorInfo
                          }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:QueueName.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("clusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:QueueStatus.to_value));
        ("computeNodeGroupConfigurations",
          (Option.map x.computeNodeGroupConfigurations
             ~f:ComputeNodeGroupConfigurationList.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:QueueSlurmConfiguration.to_value));
        ("errorInfo", (Option.map x.errorInfo ~f:ErrorInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorInfo =
        (Option.map ~f:ErrorInfoList.of_xml) (Xml.child xml_arg0 "errorInfo") in
      let slurmConfiguration =
        (Option.map ~f:QueueSlurmConfiguration.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let computeNodeGroupConfigurations =
        (Option.map ~f:ComputeNodeGroupConfigurationList.of_xml)
          (Xml.child xml_arg0 "computeNodeGroupConfigurations") in
      let status =
        (Option.map ~f:QueueStatus.of_xml) (Xml.child xml_arg0 "status") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clusterId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:QueueName.of_xml) (Xml.child xml_arg0 "name") in
      make ?errorInfo ?slurmConfiguration ?computeNodeGroupConfigurations
        ?status ?modifiedAt ?createdAt ?clusterId ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorInfo = field_map json__ "errorInfo" ErrorInfoList.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration" QueueSlurmConfiguration.of_json in
      let computeNodeGroupConfigurations =
        field_map json__ "computeNodeGroupConfigurations"
          ComputeNodeGroupConfigurationList.of_json in
      let status = field_map json__ "status" QueueStatus.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let clusterId = field_map json__ "clusterId" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let name = field_map json__ "name" QueueName.of_json in
      make ?errorInfo ?slurmConfiguration ?computeNodeGroupConfigurations
        ?status ?modifiedAt ?createdAt ?clusterId ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A queue resource."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc
          "The unique identifier of the resource that was not found."];
      resourceType: String_.t option
        [@ocaml.doc
          "The type or category of the resource that was not found."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested resource can't be found. The cluster, node group, or queue you're attempting to get, update, list, or delete doesn't exist. Examples"]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option
        [@ocaml.doc
          "The service code associated with the quota that was exceeded."];
      resourceId: String_.t option
        [@ocaml.doc
          "The unique identifier of the resource that caused the quota to be exceeded."];
      resourceType: String_.t option
        [@ocaml.doc
          "The type or category of the resource that caused the quota to be exceeded."];
      quotaCode: String_.t option
        [@ocaml.doc "The quota code of the service quota that was exceeded."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?resourceId ->
          fun ?resourceType ->
            fun ?quotaCode ->
              fun () ->
                { message; serviceCode; resourceId; resourceType; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?resourceType ?resourceId ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?resourceType ?resourceId ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You exceeded your service quota. Service quotas, also referred to as limits, are the maximum number of service resources or operations for your Amazon Web Services account. To learn how to increase your service quota, see Requesting a quota increase in the Service Quotas User Guide Examples The max number of clusters or queues has been reached for the account. The max number of compute node groups has been reached for the associated cluster. The total of maxInstances across all compute node groups has been reached for associated cluster."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the request."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("retryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "retryAfterSeconds") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request exceeded a request rate quota. Check the resource's request rate quota and try again."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The specific reason or cause of the validation error."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "A list of fields or properties that failed validation."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request isn't valid. Examples Your request contains malformed JSON or unsupported characters. The scheduler version isn't supported. There are networking related errors, such as network validation failure. AMI type is CUSTOM and the launch template doesn't define the AMI ID, or the AMI type is AL2 and the launch template defines the AMI."]
module ClusterIdentifier =
  struct
    type nonrec t = string
    let context_ = "ClusterIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(pcs_[a-zA-Z0-9]+|[A-Za-z][A-Za-z0-9-]{2,40})");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClusterIdentifier" j
    let to_json = simple_to_json to_value
  end
module QueueIdentifier =
  struct
    type nonrec t = string
    let context_ = "QueueIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(pcs_[a-zA-Z0-9]+|[A-Za-z][A-Za-z0-9-]{2,25})");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueueIdentifier" j
    let to_json = simple_to_json to_value
  end
module SBClientToken =
  struct
    type nonrec t = string
    let context_ = "SBClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:8));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SBClientToken" j
    let to_json = simple_to_json to_value
  end
module UpdateQueueSlurmConfigurationRequest =
  struct
    type nonrec t =
      {
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."]}
    let make ?slurmCustomSettings = fun () -> { slurmCustomSettings }
    let to_value x =
      structure_to_value
        [("slurmCustomSettings",
           (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      make ?slurmCustomSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      make ?slurmCustomSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module ComputeNodeGroup =
  struct
    type nonrec t =
      {
      name: ComputeNodeGroupName.t option
        [@ocaml.doc "The name that identifies the compute node group."];
      id: String_.t option
        [@ocaml.doc "The generated unique ID of the compute node group."];
      arn: String_.t option
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) of the compute node group."];
      clusterId: String_.t option
        [@ocaml.doc "The ID of the cluster of the compute node group."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was created."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was modified."];
      status: ComputeNodeGroupStatus.t option
        [@ocaml.doc
          "The provisioning status of the compute node group. The provisioning status doesn't indicate the overall health of the compute node group. The resource enters the SUSPENDING and SUSPENDED states when the scheduler is beyond end of life and we have suspended the cluster. When in these states, you can't use the cluster. The cluster controller is down and all compute instances are terminated. The resources still count toward your service quotas. You can delete a resource if its status is SUSPENDED. For more information, see Frequently asked questions about Slurm versions in PCS in the PCS User Guide."];
      amiId: AmiId.t option
        [@ocaml.doc
          "The ID of the Amazon Machine Image (AMI) that PCS uses to launch instances. If not provided, PCS uses the AMI ID specified in the custom launch template."];
      subnetIds: SubnetIdList.t option
        [@ocaml.doc
          "The list of subnet IDs where instances are provisioned by the compute node group. The subnets must be in the same VPC as the cluster."];
      purchaseOption: PurchaseOption.t option
        [@ocaml.doc
          "Specifies how EC2 instances are purchased on your behalf. PCS supports On-Demand Instances, Spot Instances, Interruptible Capacity Reservations, On-Demand Capacity Reservations, and Amazon EC2 Capacity Blocks for ML. For more information, see Amazon EC2 billing and purchasing options in the Amazon Elastic Compute Cloud User Guide. For more information about PCS support for Capacity Blocks, see Using Amazon EC2 Capacity Blocks for ML with PCS in the PCS User Guide. For more information about PCS support for interruptible capacity reservations, see Using I-ODCRs with PCS in the PCS User Guide. Choose On-Demand if you plan to use an On-Demand Capacity Reservation (ODCR). For more information, see Using ODCRs with PCS. If you don't provide this option, it defaults to On-Demand."];
      customLaunchTemplate: CustomLaunchTemplate.t option ;
      iamInstanceProfileArn: InstanceProfileArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM instance profile used to pass an IAM role when launching EC2 instances. The role contained in your instance profile must have the pcs:RegisterComputeNodeGroupInstance permission and the role name must start with AWSPCS or must have the path /aws-pcs/. For more information, see IAM instance profiles for PCS in the PCS User Guide."];
      scalingConfiguration: ScalingConfiguration.t option ;
      instanceConfigs: InstanceList.t option
        [@ocaml.doc
          "A list of EC2 instance configurations that PCS can provision in the compute node group."];
      spotOptions: SpotOptions.t option ;
      slurmConfiguration: ComputeNodeGroupSlurmConfiguration.t option ;
      errorInfo: ErrorInfoList.t option
        [@ocaml.doc
          "The list of errors that occurred during compute node group provisioning."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?clusterId ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?status ->
                  fun ?amiId ->
                    fun ?subnetIds ->
                      fun ?purchaseOption ->
                        fun ?customLaunchTemplate ->
                          fun ?iamInstanceProfileArn ->
                            fun ?scalingConfiguration ->
                              fun ?instanceConfigs ->
                                fun ?spotOptions ->
                                  fun ?slurmConfiguration ->
                                    fun ?errorInfo ->
                                      fun () ->
                                        {
                                          name;
                                          id;
                                          arn;
                                          clusterId;
                                          createdAt;
                                          modifiedAt;
                                          status;
                                          amiId;
                                          subnetIds;
                                          purchaseOption;
                                          customLaunchTemplate;
                                          iamInstanceProfileArn;
                                          scalingConfiguration;
                                          instanceConfigs;
                                          spotOptions;
                                          slurmConfiguration;
                                          errorInfo
                                        }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ComputeNodeGroupName.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("clusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:ComputeNodeGroupStatus.to_value));
        ("amiId", (Option.map x.amiId ~f:AmiId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIdList.to_value));
        ("purchaseOption",
          (Option.map x.purchaseOption ~f:PurchaseOption.to_value));
        ("customLaunchTemplate",
          (Option.map x.customLaunchTemplate ~f:CustomLaunchTemplate.to_value));
        ("iamInstanceProfileArn",
          (Option.map x.iamInstanceProfileArn ~f:InstanceProfileArn.to_value));
        ("scalingConfiguration",
          (Option.map x.scalingConfiguration ~f:ScalingConfiguration.to_value));
        ("instanceConfigs",
          (Option.map x.instanceConfigs ~f:InstanceList.to_value));
        ("spotOptions", (Option.map x.spotOptions ~f:SpotOptions.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:ComputeNodeGroupSlurmConfiguration.to_value));
        ("errorInfo", (Option.map x.errorInfo ~f:ErrorInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorInfo =
        (Option.map ~f:ErrorInfoList.of_xml) (Xml.child xml_arg0 "errorInfo") in
      let slurmConfiguration =
        (Option.map ~f:ComputeNodeGroupSlurmConfiguration.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let spotOptions =
        (Option.map ~f:SpotOptions.of_xml) (Xml.child xml_arg0 "spotOptions") in
      let instanceConfigs =
        (Option.map ~f:InstanceList.of_xml)
          (Xml.child xml_arg0 "instanceConfigs") in
      let scalingConfiguration =
        (Option.map ~f:ScalingConfiguration.of_xml)
          (Xml.child xml_arg0 "scalingConfiguration") in
      let iamInstanceProfileArn =
        (Option.map ~f:InstanceProfileArn.of_xml)
          (Xml.child xml_arg0 "iamInstanceProfileArn") in
      let customLaunchTemplate =
        (Option.map ~f:CustomLaunchTemplate.of_xml)
          (Xml.child xml_arg0 "customLaunchTemplate") in
      let purchaseOption =
        (Option.map ~f:PurchaseOption.of_xml)
          (Xml.child xml_arg0 "purchaseOption") in
      let subnetIds =
        (Option.map ~f:SubnetIdList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let amiId = (Option.map ~f:AmiId.of_xml) (Xml.child xml_arg0 "amiId") in
      let status =
        (Option.map ~f:ComputeNodeGroupStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clusterId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:ComputeNodeGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?errorInfo ?slurmConfiguration ?spotOptions ?instanceConfigs
        ?scalingConfiguration ?iamInstanceProfileArn ?customLaunchTemplate
        ?purchaseOption ?subnetIds ?amiId ?status ?modifiedAt ?createdAt
        ?clusterId ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorInfo = field_map json__ "errorInfo" ErrorInfoList.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          ComputeNodeGroupSlurmConfiguration.of_json in
      let spotOptions = field_map json__ "spotOptions" SpotOptions.of_json in
      let instanceConfigs =
        field_map json__ "instanceConfigs" InstanceList.of_json in
      let scalingConfiguration =
        field_map json__ "scalingConfiguration" ScalingConfiguration.of_json in
      let iamInstanceProfileArn =
        field_map json__ "iamInstanceProfileArn" InstanceProfileArn.of_json in
      let customLaunchTemplate =
        field_map json__ "customLaunchTemplate" CustomLaunchTemplate.of_json in
      let purchaseOption =
        field_map json__ "purchaseOption" PurchaseOption.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIdList.of_json in
      let amiId = field_map json__ "amiId" AmiId.of_json in
      let status = field_map json__ "status" ComputeNodeGroupStatus.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let clusterId = field_map json__ "clusterId" String_.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let name = field_map json__ "name" ComputeNodeGroupName.of_json in
      make ?errorInfo ?slurmConfiguration ?spotOptions ?instanceConfigs
        ?scalingConfiguration ?iamInstanceProfileArn ?customLaunchTemplate
        ?purchaseOption ?subnetIds ?amiId ?status ?modifiedAt ?createdAt
        ?clusterId ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A compute node group associated with a cluster."]
module ComputeNodeGroupIdentifier =
  struct
    type nonrec t = string
    let context_ = "ComputeNodeGroupIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(pcs_[a-zA-Z0-9]+|[A-Za-z][A-Za-z0-9-]{2,25})");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComputeNodeGroupIdentifier" j
    let to_json = simple_to_json to_value
  end
module ScalingConfigurationRequest =
  struct
    type nonrec t =
      {
      minInstanceCount: ScalingConfigurationRequestMinInstanceCountInteger.t
        [@ocaml.doc
          "The lower bound of the number of instances allowed in the compute fleet."];
      maxInstanceCount: ScalingConfigurationRequestMaxInstanceCountInteger.t
        [@ocaml.doc
          "The upper bound of the number of instances allowed in the compute fleet."]}
    let context_ = "ScalingConfigurationRequest"
    let make ~minInstanceCount =
      fun ~maxInstanceCount ->
        fun () -> { minInstanceCount; maxInstanceCount }
    let to_value x =
      structure_to_value
        [("minInstanceCount",
           (Some
              (ScalingConfigurationRequestMinInstanceCountInteger.to_value
                 x.minInstanceCount)));
        ("maxInstanceCount",
          (Some
             (ScalingConfigurationRequestMaxInstanceCountInteger.to_value
                x.maxInstanceCount)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxInstanceCount =
        ScalingConfigurationRequestMaxInstanceCountInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxInstanceCount") in
      let minInstanceCount =
        ScalingConfigurationRequestMinInstanceCountInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "minInstanceCount") in
      make ~maxInstanceCount ~minInstanceCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxInstanceCount =
        field_map_exn json__ "maxInstanceCount"
          ScalingConfigurationRequestMaxInstanceCountInteger.of_json in
      let minInstanceCount =
        field_map_exn json__ "minInstanceCount"
          ScalingConfigurationRequestMinInstanceCountInteger.of_json in
      make ~maxInstanceCount ~minInstanceCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the boundaries of the compute node group auto scaling."]
module StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateComputeNodeGroupSlurmConfigurationRequest =
  struct
    type nonrec t =
      {
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."]}
    let make ?slurmCustomSettings = fun () -> { slurmCustomSettings }
    let to_value x =
      structure_to_value
        [("slurmCustomSettings",
           (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      make ?slurmCustomSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      make ?slurmCustomSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module Cluster =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name that identifies the cluster."];
      id: String_.t option
        [@ocaml.doc "The generated unique ID of the cluster."];
      arn: String_.t option
        [@ocaml.doc "The unique Amazon Resource Name (ARN) of the cluster."];
      status: ClusterStatus.t option
        [@ocaml.doc
          "The provisioning status of the cluster. The provisioning status doesn't indicate the overall health of the cluster. The resource enters the SUSPENDING and SUSPENDED states when the scheduler is beyond end of life and we have suspended the cluster. When in these states, you can't use the cluster. The cluster controller is down and all compute instances are terminated. The resources still count toward your service quotas. You can delete a resource if its status is SUSPENDED. For more information, see Frequently asked questions about Slurm versions in PCS in the PCS User Guide."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was created."];
      modifiedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time the resource was modified."];
      scheduler: Scheduler.t option ;
      size: Size.t option
        [@ocaml.doc
          "The size of the cluster. SMALL: 32 compute nodes and 256 jobs MEDIUM: 512 compute nodes and 8192 jobs LARGE: 2048 compute nodes and 16,384 jobs"];
      slurmConfiguration: ClusterSlurmConfiguration.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      networking: Networking.t option ;
      endpoints: Endpoints.t option
        [@ocaml.doc
          "The list of endpoints available for interaction with the scheduler."];
      errorInfo: ErrorInfoList.t option
        [@ocaml.doc
          "The list of errors that occurred during cluster provisioning."]}
    let make ?name =
      fun ?id ->
        fun ?arn ->
          fun ?status ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?scheduler ->
                  fun ?size ->
                    fun ?slurmConfiguration ->
                      fun ?networking ->
                        fun ?endpoints ->
                          fun ?errorInfo ->
                            fun () ->
                              {
                                name;
                                id;
                                arn;
                                status;
                                createdAt;
                                modifiedAt;
                                scheduler;
                                size;
                                slurmConfiguration;
                                networking;
                                endpoints;
                                errorInfo
                              }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:ClusterStatus.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("modifiedAt",
          (Option.map x.modifiedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("scheduler", (Option.map x.scheduler ~f:Scheduler.to_value));
        ("size", (Option.map x.size ~f:Size.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:ClusterSlurmConfiguration.to_value));
        ("networking", (Option.map x.networking ~f:Networking.to_value));
        ("endpoints", (Option.map x.endpoints ~f:Endpoints.to_value));
        ("errorInfo", (Option.map x.errorInfo ~f:ErrorInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorInfo =
        (Option.map ~f:ErrorInfoList.of_xml) (Xml.child xml_arg0 "errorInfo") in
      let endpoints =
        (Option.map ~f:Endpoints.of_xml) (Xml.child xml_arg0 "endpoints") in
      let networking =
        (Option.map ~f:Networking.of_xml) (Xml.child xml_arg0 "networking") in
      let slurmConfiguration =
        (Option.map ~f:ClusterSlurmConfiguration.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let size = (Option.map ~f:Size.of_xml) (Xml.child xml_arg0 "size") in
      let scheduler =
        (Option.map ~f:Scheduler.of_xml) (Xml.child xml_arg0 "scheduler") in
      let modifiedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:ClusterStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?errorInfo ?endpoints ?networking ?slurmConfiguration ?size
        ?scheduler ?modifiedAt ?createdAt ?status ?arn ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorInfo = field_map json__ "errorInfo" ErrorInfoList.of_json in
      let endpoints = field_map json__ "endpoints" Endpoints.of_json in
      let networking = field_map json__ "networking" Networking.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          ClusterSlurmConfiguration.of_json in
      let size = field_map json__ "size" Size.of_json in
      let scheduler = field_map json__ "scheduler" Scheduler.of_json in
      let modifiedAt =
        field_map json__ "modifiedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let status = field_map json__ "status" ClusterStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?errorInfo ?endpoints ?networking ?slurmConfiguration ?size
        ?scheduler ?modifiedAt ?createdAt ?status ?arn ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The cluster resource and configuration."]
module UpdateClusterSlurmConfigurationRequest =
  struct
    type nonrec t =
      {
      scaleDownIdleTimeInSeconds:
        UpdateClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.t
          option
        [@ocaml.doc
          "The time (in seconds) before an idle node is scaled down. Default: 600"];
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."];
      slurmdbdCustomSettings: SlurmdbdCustomSettings.t option
        [@ocaml.doc
          "Additional SlurmDBD-specific configuration that directly maps to SlurmDBD settings."];
      cgroupCustomSettings: CgroupCustomSettings.t option
        [@ocaml.doc
          "Additional Cgroup-specific configuration that directly maps to Cgroup settings."];
      accounting: UpdateAccountingRequest.t option
        [@ocaml.doc
          "The accounting configuration includes configurable settings for Slurm accounting."];
      slurmRest: UpdateSlurmRestRequest.t option
        [@ocaml.doc "The Slurm REST API configuration for the cluster."]}
    let make ?scaleDownIdleTimeInSeconds =
      fun ?slurmCustomSettings ->
        fun ?slurmdbdCustomSettings ->
          fun ?cgroupCustomSettings ->
            fun ?accounting ->
              fun ?slurmRest ->
                fun () ->
                  {
                    scaleDownIdleTimeInSeconds;
                    slurmCustomSettings;
                    slurmdbdCustomSettings;
                    cgroupCustomSettings;
                    accounting;
                    slurmRest
                  }
    let to_value x =
      structure_to_value
        [("scaleDownIdleTimeInSeconds",
           (Option.map x.scaleDownIdleTimeInSeconds
              ~f:UpdateClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.to_value));
        ("slurmCustomSettings",
          (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value));
        ("slurmdbdCustomSettings",
          (Option.map x.slurmdbdCustomSettings
             ~f:SlurmdbdCustomSettings.to_value));
        ("cgroupCustomSettings",
          (Option.map x.cgroupCustomSettings ~f:CgroupCustomSettings.to_value));
        ("accounting",
          (Option.map x.accounting ~f:UpdateAccountingRequest.to_value));
        ("slurmRest",
          (Option.map x.slurmRest ~f:UpdateSlurmRestRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmRest =
        (Option.map ~f:UpdateSlurmRestRequest.of_xml)
          (Xml.child xml_arg0 "slurmRest") in
      let accounting =
        (Option.map ~f:UpdateAccountingRequest.of_xml)
          (Xml.child xml_arg0 "accounting") in
      let cgroupCustomSettings =
        (Option.map ~f:CgroupCustomSettings.of_xml)
          (Xml.child xml_arg0 "cgroupCustomSettings") in
      let slurmdbdCustomSettings =
        (Option.map ~f:SlurmdbdCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmdbdCustomSettings") in
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      let scaleDownIdleTimeInSeconds =
        (Option.map
           ~f:UpdateClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.of_xml)
          (Xml.child xml_arg0 "scaleDownIdleTimeInSeconds") in
      make ?slurmRest ?accounting ?cgroupCustomSettings
        ?slurmdbdCustomSettings ?slurmCustomSettings
        ?scaleDownIdleTimeInSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmRest =
        field_map json__ "slurmRest" UpdateSlurmRestRequest.of_json in
      let accounting =
        field_map json__ "accounting" UpdateAccountingRequest.of_json in
      let cgroupCustomSettings =
        field_map json__ "cgroupCustomSettings" CgroupCustomSettings.of_json in
      let slurmdbdCustomSettings =
        field_map json__ "slurmdbdCustomSettings"
          SlurmdbdCustomSettings.of_json in
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      let scaleDownIdleTimeInSeconds =
        field_map json__ "scaleDownIdleTimeInSeconds"
          UpdateClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.of_json in
      make ?slurmRest ?accounting ?cgroupCustomSettings
        ?slurmdbdCustomSettings ?slurmCustomSettings
        ?scaleDownIdleTimeInSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws.*:pcs:.*:[0-9]{12}:.*/[a-z0-9_\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module RequestTagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SharedSecret =
  struct
    type nonrec t = string
    let context_ = "SharedSecret"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SharedSecret" j
    let to_json = simple_to_json to_value
  end
module BootstrapId =
  struct
    type nonrec t = string
    let context_ = "BootstrapId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BootstrapId" j
    let to_json = simple_to_json to_value
  end
module ResponseTagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueueList =
  struct
    type nonrec t = QueueSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:QueueSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:QueueSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"QueueList" ~of_json:QueueSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ComputeNodeGroupList =
  struct
    type nonrec t = ComputeNodeGroupSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ComputeNodeGroupSummary.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ComputeNodeGroupSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ComputeNodeGroupList"
        ~of_json:ComputeNodeGroupSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClusterList =
  struct
    type nonrec t = ClusterSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ClusterSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ClusterSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ClusterList" ~of_json:ClusterSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueueSlurmConfigurationRequest =
  struct
    type nonrec t =
      {
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."]}
    let make ?slurmCustomSettings = fun () -> { slurmCustomSettings }
    let to_value x =
      structure_to_value
        [("slurmCustomSettings",
           (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      make ?slurmCustomSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      make ?slurmCustomSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module ComputeNodeGroupSlurmConfigurationRequest =
  struct
    type nonrec t =
      {
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."]}
    let make ?slurmCustomSettings = fun () -> { slurmCustomSettings }
    let to_value x =
      structure_to_value
        [("slurmCustomSettings",
           (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      make ?slurmCustomSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      make ?slurmCustomSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module ClusterName =
  struct
    type nonrec t = string
    let context_ = "ClusterName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!pcs_)^[A-Za-z][A-Za-z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClusterName" j
    let to_json = simple_to_json to_value
  end
module ClusterSlurmConfigurationRequest =
  struct
    type nonrec t =
      {
      scaleDownIdleTimeInSeconds:
        ClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.t
          option
        [@ocaml.doc
          "The time (in seconds) before an idle node is scaled down. Default: 600"];
      slurmCustomSettings: SlurmCustomSettings.t option
        [@ocaml.doc
          "Additional Slurm-specific configuration that directly maps to Slurm settings."];
      slurmdbdCustomSettings: SlurmdbdCustomSettings.t option
        [@ocaml.doc
          "Additional SlurmDBD-specific configuration that directly maps to SlurmDBD settings."];
      cgroupCustomSettings: CgroupCustomSettings.t option
        [@ocaml.doc
          "Additional Cgroup-specific configuration that directly maps to Cgroup settings."];
      accounting: AccountingRequest.t option
        [@ocaml.doc
          "The accounting configuration includes configurable settings for Slurm accounting."];
      slurmRest: SlurmRestRequest.t option
        [@ocaml.doc "The Slurm REST API configuration for the cluster."]}
    let make ?scaleDownIdleTimeInSeconds =
      fun ?slurmCustomSettings ->
        fun ?slurmdbdCustomSettings ->
          fun ?cgroupCustomSettings ->
            fun ?accounting ->
              fun ?slurmRest ->
                fun () ->
                  {
                    scaleDownIdleTimeInSeconds;
                    slurmCustomSettings;
                    slurmdbdCustomSettings;
                    cgroupCustomSettings;
                    accounting;
                    slurmRest
                  }
    let to_value x =
      structure_to_value
        [("scaleDownIdleTimeInSeconds",
           (Option.map x.scaleDownIdleTimeInSeconds
              ~f:ClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.to_value));
        ("slurmCustomSettings",
          (Option.map x.slurmCustomSettings ~f:SlurmCustomSettings.to_value));
        ("slurmdbdCustomSettings",
          (Option.map x.slurmdbdCustomSettings
             ~f:SlurmdbdCustomSettings.to_value));
        ("cgroupCustomSettings",
          (Option.map x.cgroupCustomSettings ~f:CgroupCustomSettings.to_value));
        ("accounting",
          (Option.map x.accounting ~f:AccountingRequest.to_value));
        ("slurmRest", (Option.map x.slurmRest ~f:SlurmRestRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmRest =
        (Option.map ~f:SlurmRestRequest.of_xml)
          (Xml.child xml_arg0 "slurmRest") in
      let accounting =
        (Option.map ~f:AccountingRequest.of_xml)
          (Xml.child xml_arg0 "accounting") in
      let cgroupCustomSettings =
        (Option.map ~f:CgroupCustomSettings.of_xml)
          (Xml.child xml_arg0 "cgroupCustomSettings") in
      let slurmdbdCustomSettings =
        (Option.map ~f:SlurmdbdCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmdbdCustomSettings") in
      let slurmCustomSettings =
        (Option.map ~f:SlurmCustomSettings.of_xml)
          (Xml.child xml_arg0 "slurmCustomSettings") in
      let scaleDownIdleTimeInSeconds =
        (Option.map
           ~f:ClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.of_xml)
          (Xml.child xml_arg0 "scaleDownIdleTimeInSeconds") in
      make ?slurmRest ?accounting ?cgroupCustomSettings
        ?slurmdbdCustomSettings ?slurmCustomSettings
        ?scaleDownIdleTimeInSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmRest = field_map json__ "slurmRest" SlurmRestRequest.of_json in
      let accounting =
        field_map json__ "accounting" AccountingRequest.of_json in
      let cgroupCustomSettings =
        field_map json__ "cgroupCustomSettings" CgroupCustomSettings.of_json in
      let slurmdbdCustomSettings =
        field_map json__ "slurmdbdCustomSettings"
          SlurmdbdCustomSettings.of_json in
      let slurmCustomSettings =
        field_map json__ "slurmCustomSettings" SlurmCustomSettings.of_json in
      let scaleDownIdleTimeInSeconds =
        field_map json__ "scaleDownIdleTimeInSeconds"
          ClusterSlurmConfigurationRequestScaleDownIdleTimeInSecondsInteger.of_json in
      make ?slurmRest ?accounting ?cgroupCustomSettings
        ?slurmdbdCustomSettings ?slurmCustomSettings
        ?scaleDownIdleTimeInSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional options related to the Slurm scheduler."]
module NetworkingRequest =
  struct
    type nonrec t =
      {
      subnetIds: SubnetIdList.t option
        [@ocaml.doc
          "The list of subnet IDs where PCS creates an Elastic Network Interface (ENI) to enable communication between managed controllers and PCS resources. Subnet IDs have the form subnet-0123456789abcdef0. Subnets can't be in Outposts, Wavelength or an Amazon Web Services Local Zone. PCS currently supports only 1 subnet in this list."];
      securityGroupIds: SecurityGroupIdList.t option
        [@ocaml.doc
          "A list of security group IDs associated with the Elastic Network Interface (ENI) created in subnets."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The IP address version the cluster uses. The default is IPV4."]}
    let make ?subnetIds =
      fun ?securityGroupIds ->
        fun ?networkType ->
          fun () -> { subnetIds; securityGroupIds; networkType }
    let to_value x =
      structure_to_value
        [("subnetIds", (Option.map x.subnetIds ~f:SubnetIdList.to_value));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIdList.to_value));
        ("networkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "networkType") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIdList.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetIdList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      make ?networkType ?securityGroupIds ?subnetIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "networkType" NetworkType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" SecurityGroupIdList.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIdList.of_json in
      make ?networkType ?securityGroupIds ?subnetIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The networking configuration for the cluster's control plane."]
module SchedulerRequest =
  struct
    type nonrec t =
      {
      type_: SchedulerType.t
        [@ocaml.doc
          "The software PCS uses to manage cluster scaling and job scheduling."];
      version: String_.t
        [@ocaml.doc
          "The version of the specified scheduling software that PCS uses to manage cluster scaling and job scheduling. For more information, see Slurm versions in PCS in the PCS User Guide. Valid Values: 24.11 | 25.05 | 25.11"]}
    let context_ = "SchedulerRequest"
    let make ~type_ = fun ~version -> fun () -> { type_; version }
    let to_value x =
      structure_to_value
        [("type", (Some (SchedulerType.to_value x.type_)));
        ("version", (Some (String_.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let type_ =
        SchedulerType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~version ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" String_.of_json in
      let type_ = field_map_exn json__ "type" SchedulerType.of_json in
      make ~version ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The cluster management and job scheduling software associated with the cluster."]
module UpdateQueueResponse =
  struct
    type nonrec t = {
      queue: Queue.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queue = fun () -> { queue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("queue", (Option.map x.queue ~f:Queue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queue = (Option.map ~f:Queue.of_xml) (Xml.child xml_arg0 "queue") in
      make ?queue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queue = field_map json__ "queue" Queue.of_json in make ?queue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the compute node group configuration of a queue. Use this API to change the compute node groups that the queue can send jobs to."]
module UpdateQueueRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster of the queue."];
      queueIdentifier: QueueIdentifier.t
        [@ocaml.doc "The name or ID of the queue."];
      computeNodeGroupConfigurations:
        ComputeNodeGroupConfigurationList.t option
        [@ocaml.doc
          "The list of compute node group configurations to associate with the queue. Queues assign jobs to associated compute node groups."];
      slurmConfiguration: UpdateQueueSlurmConfigurationRequest.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."]}
    let context_ = "UpdateQueueRequest"
    let make ?computeNodeGroupConfigurations =
      fun ?slurmConfiguration ->
        fun ?clientToken ->
          fun ~clusterIdentifier ->
            fun ~queueIdentifier ->
              fun () ->
                {
                  computeNodeGroupConfigurations;
                  slurmConfiguration;
                  clientToken;
                  clusterIdentifier;
                  queueIdentifier
                }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("queueIdentifier",
          (Some (QueueIdentifier.to_value x.queueIdentifier)));
        ("computeNodeGroupConfigurations",
          (Option.map x.computeNodeGroupConfigurations
             ~f:ComputeNodeGroupConfigurationList.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:UpdateQueueSlurmConfigurationRequest.to_value));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let slurmConfiguration =
        (Option.map ~f:UpdateQueueSlurmConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let computeNodeGroupConfigurations =
        (Option.map ~f:ComputeNodeGroupConfigurationList.of_xml)
          (Xml.child xml_arg0 "computeNodeGroupConfigurations") in
      let queueIdentifier =
        QueueIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "queueIdentifier") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?clientToken ?slurmConfiguration ?computeNodeGroupConfigurations
        ~queueIdentifier ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          UpdateQueueSlurmConfigurationRequest.of_json in
      let computeNodeGroupConfigurations =
        field_map json__ "computeNodeGroupConfigurations"
          ComputeNodeGroupConfigurationList.of_json in
      let queueIdentifier =
        field_map_exn json__ "queueIdentifier" QueueIdentifier.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?clientToken ?slurmConfiguration ?computeNodeGroupConfigurations
        ~queueIdentifier ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the compute node group configuration of a queue. Use this API to change the compute node groups that the queue can send jobs to."]
module UpdateComputeNodeGroupResponse =
  struct
    type nonrec t = {
      computeNodeGroup: ComputeNodeGroup.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?computeNodeGroup = fun () -> { computeNodeGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("computeNodeGroup",
           (Option.map x.computeNodeGroup ~f:ComputeNodeGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeNodeGroup =
        (Option.map ~f:ComputeNodeGroup.of_xml)
          (Xml.child xml_arg0 "computeNodeGroup") in
      make ?computeNodeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeNodeGroup =
        field_map json__ "computeNodeGroup" ComputeNodeGroup.of_json in
      make ?computeNodeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a compute node group. You can update many of the fields related to your compute node group including the configurations for networking, compute nodes, and settings specific to your scheduler (such as Slurm)."]
module UpdateComputeNodeGroupRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc
          "The name or ID of the cluster of the compute node group."];
      computeNodeGroupIdentifier: ComputeNodeGroupIdentifier.t
        [@ocaml.doc "The name or ID of the compute node group."];
      amiId: AmiId.t option
        [@ocaml.doc
          "The ID of the Amazon Machine Image (AMI) that PCS uses to launch instances. If not provided, PCS uses the AMI ID specified in the custom launch template."];
      subnetIds: StringList.t option
        [@ocaml.doc
          "The list of subnet IDs where the compute node group provisions instances. The subnets must be in the same VPC as the cluster."];
      customLaunchTemplate: CustomLaunchTemplate.t option ;
      purchaseOption: PurchaseOption.t option
        [@ocaml.doc
          "Specifies how EC2 instances are purchased on your behalf. PCS supports On-Demand Instances, Spot Instances, Interruptible Capacity Reservations, On-Demand Capacity Reservations, and Amazon EC2 Capacity Blocks for ML. For more information, see Amazon EC2 billing and purchasing options in the Amazon Elastic Compute Cloud User Guide. For more information about PCS support for Capacity Blocks, see Using Amazon EC2 Capacity Blocks for ML with PCS in the PCS User Guide. For more information about PCS support for interruptible capacity reservations, see Using I-ODCRs with PCS in the PCS User Guide. Choose On-Demand if you plan to use an On-Demand Capacity Reservation (ODCR). For more information, see Using ODCRs with PCS. If you don't provide this option, it defaults to On-Demand."];
      spotOptions: SpotOptions.t option ;
      scalingConfiguration: ScalingConfigurationRequest.t option
        [@ocaml.doc
          "Specifies the boundaries of the compute node group auto scaling."];
      iamInstanceProfileArn: InstanceProfileArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM instance profile used to pass an IAM role when launching EC2 instances. The role contained in your instance profile must have the pcs:RegisterComputeNodeGroupInstance permission and the role name must start with AWSPCS or must have the path /aws-pcs/. For more information, see IAM instance profiles for PCS in the PCS User Guide."];
      slurmConfiguration:
        UpdateComputeNodeGroupSlurmConfigurationRequest.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."]}
    let context_ = "UpdateComputeNodeGroupRequest"
    let make ?amiId =
      fun ?subnetIds ->
        fun ?customLaunchTemplate ->
          fun ?purchaseOption ->
            fun ?spotOptions ->
              fun ?scalingConfiguration ->
                fun ?iamInstanceProfileArn ->
                  fun ?slurmConfiguration ->
                    fun ?clientToken ->
                      fun ~clusterIdentifier ->
                        fun ~computeNodeGroupIdentifier ->
                          fun () ->
                            {
                              amiId;
                              subnetIds;
                              customLaunchTemplate;
                              purchaseOption;
                              spotOptions;
                              scalingConfiguration;
                              iamInstanceProfileArn;
                              slurmConfiguration;
                              clientToken;
                              clusterIdentifier;
                              computeNodeGroupIdentifier
                            }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("computeNodeGroupIdentifier",
          (Some
             (ComputeNodeGroupIdentifier.to_value
                x.computeNodeGroupIdentifier)));
        ("amiId", (Option.map x.amiId ~f:AmiId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:StringList.to_value));
        ("customLaunchTemplate",
          (Option.map x.customLaunchTemplate ~f:CustomLaunchTemplate.to_value));
        ("purchaseOption",
          (Option.map x.purchaseOption ~f:PurchaseOption.to_value));
        ("spotOptions", (Option.map x.spotOptions ~f:SpotOptions.to_value));
        ("scalingConfiguration",
          (Option.map x.scalingConfiguration
             ~f:ScalingConfigurationRequest.to_value));
        ("iamInstanceProfileArn",
          (Option.map x.iamInstanceProfileArn ~f:InstanceProfileArn.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:UpdateComputeNodeGroupSlurmConfigurationRequest.to_value));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let slurmConfiguration =
        (Option.map ~f:UpdateComputeNodeGroupSlurmConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let iamInstanceProfileArn =
        (Option.map ~f:InstanceProfileArn.of_xml)
          (Xml.child xml_arg0 "iamInstanceProfileArn") in
      let scalingConfiguration =
        (Option.map ~f:ScalingConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "scalingConfiguration") in
      let spotOptions =
        (Option.map ~f:SpotOptions.of_xml) (Xml.child xml_arg0 "spotOptions") in
      let purchaseOption =
        (Option.map ~f:PurchaseOption.of_xml)
          (Xml.child xml_arg0 "purchaseOption") in
      let customLaunchTemplate =
        (Option.map ~f:CustomLaunchTemplate.of_xml)
          (Xml.child xml_arg0 "customLaunchTemplate") in
      let subnetIds =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let amiId = (Option.map ~f:AmiId.of_xml) (Xml.child xml_arg0 "amiId") in
      let computeNodeGroupIdentifier =
        ComputeNodeGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "computeNodeGroupIdentifier") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?clientToken ?slurmConfiguration ?iamInstanceProfileArn
        ?scalingConfiguration ?spotOptions ?purchaseOption
        ?customLaunchTemplate ?subnetIds ?amiId ~computeNodeGroupIdentifier
        ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          UpdateComputeNodeGroupSlurmConfigurationRequest.of_json in
      let iamInstanceProfileArn =
        field_map json__ "iamInstanceProfileArn" InstanceProfileArn.of_json in
      let scalingConfiguration =
        field_map json__ "scalingConfiguration"
          ScalingConfigurationRequest.of_json in
      let spotOptions = field_map json__ "spotOptions" SpotOptions.of_json in
      let purchaseOption =
        field_map json__ "purchaseOption" PurchaseOption.of_json in
      let customLaunchTemplate =
        field_map json__ "customLaunchTemplate" CustomLaunchTemplate.of_json in
      let subnetIds = field_map json__ "subnetIds" StringList.of_json in
      let amiId = field_map json__ "amiId" AmiId.of_json in
      let computeNodeGroupIdentifier =
        field_map_exn json__ "computeNodeGroupIdentifier"
          ComputeNodeGroupIdentifier.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?clientToken ?slurmConfiguration ?iamInstanceProfileArn
        ?scalingConfiguration ?spotOptions ?purchaseOption
        ?customLaunchTemplate ?subnetIds ?amiId ~computeNodeGroupIdentifier
        ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a compute node group. You can update many of the fields related to your compute node group including the configurations for networking, compute nodes, and settings specific to your scheduler (such as Slurm)."]
module UpdateClusterResponse =
  struct
    type nonrec t = {
      cluster: Cluster.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cluster = fun () -> { cluster }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cluster", (Option.map x.cluster ~f:Cluster.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cluster =
        (Option.map ~f:Cluster.of_xml) (Xml.child xml_arg0 "cluster") in
      make ?cluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cluster = field_map json__ "cluster" Cluster.of_json in
      make ?cluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a cluster configuration. You can modify Slurm scheduler settings, accounting configuration, and security groups for an existing cluster. You can only update clusters that are in ACTIVE, UPDATE_FAILED, or SUSPENDED state. All associated resources (queues and compute node groups) must be in ACTIVE state before you can update the cluster."]
module UpdateClusterRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster to update."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."];
      slurmConfiguration: UpdateClusterSlurmConfigurationRequest.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."]}
    let context_ = "UpdateClusterRequest"
    let make ?clientToken =
      fun ?slurmConfiguration ->
        fun ~clusterIdentifier ->
          fun () -> { clientToken; slurmConfiguration; clusterIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:UpdateClusterSlurmConfigurationRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slurmConfiguration =
        (Option.map ~f:UpdateClusterSlurmConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?slurmConfiguration ?clientToken ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          UpdateClusterSlurmConfigurationRequest.of_json in
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?slurmConfiguration ?clientToken ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a cluster configuration. You can modify Slurm scheduler settings, accounting configuration, and security groups for an existing cluster. You can only update clusters that are in ACTIVE, UPDATE_FAILED, or SUSPENDED state. All associated resources (queues and compute node groups) must be in ACTIVE state before you can update the cluster."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tags from an PCS resource. To delete a tag, specify the tag key and the Amazon Resource Name (ARN) of the PCS resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "1 or more tag keys to remove from the resource. Specify only tag keys and not tag values."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tags from an PCS resource. To delete a tag, specify the tag key and the Amazon Resource Name (ARN) of the PCS resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or edits tags on an PCS resource. Each tag consists of a tag key and a tag value. The tag key and tag value are case-sensitive strings. The tag value can be an empty (null) string. To add a tag, specify a new tag key and a tag value. To edit a tag, specify an existing tag key and a new tag value."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: RequestTagMap.t
        [@ocaml.doc
          "1 or more tags added to the resource. Each tag consists of a tag key and tag value. The tag value is optional and can be an empty string."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (RequestTagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        RequestTagMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" RequestTagMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or edits tags on an PCS resource. Each tag consists of a tag key and a tag value. The tag key and tag value are case-sensitive strings. The tag value can be an empty (null) string. To add a tag, specify a new tag key and a tag value. To edit a tag, specify an existing tag key and a new tag value."]
module RegisterComputeNodeGroupInstanceResponse =
  struct
    type nonrec t =
      {
      nodeID: String_.t option
        [@ocaml.doc "The scheduler node ID for this instance."];
      sharedSecret: SharedSecret.t option
        [@ocaml.doc
          "For the Slurm scheduler, this is the shared Munge key the scheduler uses to authenticate compute node group instances."];
      endpoints: Endpoints.t option
        [@ocaml.doc
          "The list of endpoints available for interaction with the scheduler."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nodeID =
      fun ?sharedSecret ->
        fun ?endpoints -> fun () -> { nodeID; sharedSecret; endpoints }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nodeID", (Option.map x.nodeID ~f:String_.to_value));
        ("sharedSecret",
          (Option.map x.sharedSecret ~f:SharedSecret.to_value));
        ("endpoints", (Option.map x.endpoints ~f:Endpoints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoints =
        (Option.map ~f:Endpoints.of_xml) (Xml.child xml_arg0 "endpoints") in
      let sharedSecret =
        (Option.map ~f:SharedSecret.of_xml)
          (Xml.child xml_arg0 "sharedSecret") in
      let nodeID =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nodeID") in
      make ?endpoints ?sharedSecret ?nodeID ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoints = field_map json__ "endpoints" Endpoints.of_json in
      let sharedSecret = field_map json__ "sharedSecret" SharedSecret.of_json in
      let nodeID = field_map json__ "nodeID" String_.of_json in
      make ?endpoints ?sharedSecret ?nodeID ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API action isn't intended for you to use. PCS uses this API action to register the compute nodes it launches in your account."]
module RegisterComputeNodeGroupInstanceRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc
          "The name or ID of the cluster to register the compute node group instance in."];
      bootstrapId: BootstrapId.t
        [@ocaml.doc "The client-generated token to allow for retries."]}
    let context_ = "RegisterComputeNodeGroupInstanceRequest"
    let make ~clusterIdentifier =
      fun ~bootstrapId -> fun () -> { clusterIdentifier; bootstrapId }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("bootstrapId", (Some (BootstrapId.to_value x.bootstrapId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bootstrapId =
        BootstrapId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bootstrapId") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ~bootstrapId ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bootstrapId =
        field_map_exn json__ "bootstrapId" BootstrapId.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ~bootstrapId ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This API action isn't intended for you to use. PCS uses this API action to register the compute nodes it launches in your account."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: ResponseTagMap.t option
        [@ocaml.doc
          "1 or more tags added to the resource. Each tag consists of a tag key and tag value. The tag value is optional and can be an empty string."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tags", (Option.map x.tags ~f:ResponseTagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:ResponseTagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" ResponseTagMap.of_json in
      make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all tags on an PCS resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which to list tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all tags on an PCS resource."]
module ListQueuesResponse =
  struct
    type nonrec t =
      {
      queues: QueueList.t option
        [@ocaml.doc "The list of queues associated with the cluster."];
      nextToken: String_.t option
        [@ocaml.doc
          "The value of nextToken is a unique pagination token for each page of results returned. If nextToken is returned, there are more results available. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token returns an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queues = fun ?nextToken -> fun () -> { queues; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("queues", (Option.map x.queues ~f:QueueList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let queues =
        (Option.map ~f:QueueList.of_xml) (Xml.child xml_arg0 "queues") in
      make ?nextToken ?queues ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let queues = field_map json__ "queues" QueueList.of_json in
      make ?nextToken ?queues ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all queues associated with a cluster."]
module ListQueuesRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster to list queues for."];
      nextToken: String_.t option
        [@ocaml.doc
          "The value of nextToken is a unique pagination token for each page of results returned. If nextToken is returned, there are more results available. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token returns an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. The default is 10 results, and the maximum allowed page size is 100 results. A value of 0 uses the default."]}
    let context_ = "ListQueuesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~clusterIdentifier ->
          fun () -> { nextToken; maxResults; clusterIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?maxResults ?nextToken ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?maxResults ?nextToken ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all queues associated with a cluster."]
module ListComputeNodeGroupsResponse =
  struct
    type nonrec t =
      {
      computeNodeGroups: ComputeNodeGroupList.t option
        [@ocaml.doc "The list of compute node groups for the cluster."];
      nextToken: String_.t option
        [@ocaml.doc
          "The value of nextToken is a unique pagination token for each page of results returned. If nextToken is returned, there are more results available. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token returns an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?computeNodeGroups =
      fun ?nextToken -> fun () -> { computeNodeGroups; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("computeNodeGroups",
           (Option.map x.computeNodeGroups ~f:ComputeNodeGroupList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let computeNodeGroups =
        (Option.map ~f:ComputeNodeGroupList.of_xml)
          (Xml.child xml_arg0 "computeNodeGroups") in
      make ?nextToken ?computeNodeGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let computeNodeGroups =
        field_map json__ "computeNodeGroups" ComputeNodeGroupList.of_json in
      make ?nextToken ?computeNodeGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all compute node groups associated with a cluster."]
module ListComputeNodeGroupsRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc
          "The name or ID of the cluster to list compute node groups for."];
      nextToken: String_.t option
        [@ocaml.doc
          "The value of nextToken is a unique pagination token for each page of results returned. If nextToken is returned, there are more results available. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token returns an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. The default is 10 results, and the maximum allowed page size is 100 results. A value of 0 uses the default."]}
    let context_ = "ListComputeNodeGroupsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~clusterIdentifier ->
          fun () -> { nextToken; maxResults; clusterIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?maxResults ?nextToken ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?maxResults ?nextToken ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all compute node groups associated with a cluster."]
module ListClustersResponse =
  struct
    type nonrec t =
      {
      clusters: ClusterList.t option [@ocaml.doc "The list of clusters."];
      nextToken: String_.t option
        [@ocaml.doc
          "The value of nextToken is a unique pagination token for each page of results returned. If nextToken is returned, there are more results available. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token returns an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clusters = fun ?nextToken -> fun () -> { clusters; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("clusters", (Option.map x.clusters ~f:ClusterList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let clusters =
        (Option.map ~f:ClusterList.of_xml) (Xml.child xml_arg0 "clusters") in
      make ?nextToken ?clusters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let clusters = field_map json__ "clusters" ClusterList.of_json in
      make ?nextToken ?clusters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of running clusters in your account."]
module ListClustersRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The value of nextToken is a unique pagination token for each page of results returned. If nextToken is returned, there are more results available. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token returns an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. The default is 10 results, and the maximum allowed page size is 100 results. A value of 0 uses the default."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of running clusters in your account."]
module GetQueueResponse =
  struct
    type nonrec t = {
      queue: Queue.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queue = fun () -> { queue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("queue", (Option.map x.queue ~f:Queue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queue = (Option.map ~f:Queue.of_xml) (Xml.child xml_arg0 "queue") in
      make ?queue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queue = field_map json__ "queue" Queue.of_json in make ?queue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about a queue. The information includes the compute node groups that the queue uses to schedule jobs."]
module GetQueueRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster of the queue."];
      queueIdentifier: QueueIdentifier.t
        [@ocaml.doc "The name or ID of the queue."]}
    let context_ = "GetQueueRequest"
    let make ~clusterIdentifier =
      fun ~queueIdentifier ->
        fun () -> { clusterIdentifier; queueIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("queueIdentifier",
          (Some (QueueIdentifier.to_value x.queueIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueIdentifier =
        QueueIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "queueIdentifier") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ~queueIdentifier ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueIdentifier =
        field_map_exn json__ "queueIdentifier" QueueIdentifier.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ~queueIdentifier ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about a queue. The information includes the compute node groups that the queue uses to schedule jobs."]
module GetComputeNodeGroupResponse =
  struct
    type nonrec t = {
      computeNodeGroup: ComputeNodeGroup.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?computeNodeGroup = fun () -> { computeNodeGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("computeNodeGroup",
           (Option.map x.computeNodeGroup ~f:ComputeNodeGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeNodeGroup =
        (Option.map ~f:ComputeNodeGroup.of_xml)
          (Xml.child xml_arg0 "computeNodeGroup") in
      make ?computeNodeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeNodeGroup =
        field_map json__ "computeNodeGroup" ComputeNodeGroup.of_json in
      make ?computeNodeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about a compute node group. This API action provides networking information, EC2 instance type, compute node group status, and scheduler (such as Slurm) configuration."]
module GetComputeNodeGroupRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster."];
      computeNodeGroupIdentifier: ComputeNodeGroupIdentifier.t
        [@ocaml.doc "The name or ID of the compute node group."]}
    let context_ = "GetComputeNodeGroupRequest"
    let make ~clusterIdentifier =
      fun ~computeNodeGroupIdentifier ->
        fun () -> { clusterIdentifier; computeNodeGroupIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("computeNodeGroupIdentifier",
          (Some
             (ComputeNodeGroupIdentifier.to_value
                x.computeNodeGroupIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeNodeGroupIdentifier =
        ComputeNodeGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "computeNodeGroupIdentifier") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ~computeNodeGroupIdentifier ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeNodeGroupIdentifier =
        field_map_exn json__ "computeNodeGroupIdentifier"
          ComputeNodeGroupIdentifier.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ~computeNodeGroupIdentifier ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about a compute node group. This API action provides networking information, EC2 instance type, compute node group status, and scheduler (such as Slurm) configuration."]
module GetClusterResponse =
  struct
    type nonrec t =
      {
      cluster: Cluster.t option [@ocaml.doc "The cluster resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cluster = fun () -> { cluster }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cluster", (Option.map x.cluster ~f:Cluster.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cluster =
        (Option.map ~f:Cluster.of_xml) (Xml.child xml_arg0 "cluster") in
      make ?cluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cluster = field_map json__ "cluster" Cluster.of_json in
      make ?cluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about a running cluster in your account. This API action provides networking information, endpoint information for communication with the scheduler, and provisioning status."]
module GetClusterRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster."]}
    let context_ = "GetClusterRequest"
    let make ~clusterIdentifier = fun () -> { clusterIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns detailed information about a running cluster in your account. This API action provides networking information, endpoint information for communication with the scheduler, and provisioning status."]
module DeleteQueueResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a job queue. If the compute node group associated with this queue isn't associated with any other queues, PCS terminates all the compute nodes for this queue."]
module DeleteQueueRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster of the queue."];
      queueIdentifier: QueueIdentifier.t
        [@ocaml.doc "The name or ID of the queue to delete."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."]}
    let context_ = "DeleteQueueRequest"
    let make ?clientToken =
      fun ~clusterIdentifier ->
        fun ~queueIdentifier ->
          fun () -> { clientToken; clusterIdentifier; queueIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("queueIdentifier",
          (Some (QueueIdentifier.to_value x.queueIdentifier)));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let queueIdentifier =
        QueueIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "queueIdentifier") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?clientToken ~queueIdentifier ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let queueIdentifier =
        field_map_exn json__ "queueIdentifier" QueueIdentifier.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?clientToken ~queueIdentifier ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a job queue. If the compute node group associated with this queue isn't associated with any other queues, PCS terminates all the compute nodes for this queue."]
module DeleteComputeNodeGroupResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a compute node group. You must delete all queues associated with the compute node group first."]
module DeleteComputeNodeGroupRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc
          "The name or ID of the cluster of the compute node group."];
      computeNodeGroupIdentifier: ComputeNodeGroupIdentifier.t
        [@ocaml.doc "The name or ID of the compute node group to delete."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."]}
    let context_ = "DeleteComputeNodeGroupRequest"
    let make ?clientToken =
      fun ~clusterIdentifier ->
        fun ~computeNodeGroupIdentifier ->
          fun () ->
            { clientToken; clusterIdentifier; computeNodeGroupIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("computeNodeGroupIdentifier",
          (Some
             (ComputeNodeGroupIdentifier.to_value
                x.computeNodeGroupIdentifier)));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let computeNodeGroupIdentifier =
        ComputeNodeGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "computeNodeGroupIdentifier") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?clientToken ~computeNodeGroupIdentifier ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let computeNodeGroupIdentifier =
        field_map_exn json__ "computeNodeGroupIdentifier"
          ComputeNodeGroupIdentifier.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?clientToken ~computeNodeGroupIdentifier ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a compute node group. You must delete all queues associated with the compute node group first."]
module DeleteClusterResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a cluster and all its linked resources. You must delete all queues and compute node groups associated with the cluster before you can delete the cluster."]
module DeleteClusterRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc "The name or ID of the cluster to delete."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."]}
    let context_ = "DeleteClusterRequest"
    let make ?clientToken =
      fun ~clusterIdentifier -> fun () -> { clientToken; clusterIdentifier }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?clientToken ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?clientToken ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a cluster and all its linked resources. You must delete all queues and compute node groups associated with the cluster before you can delete the cluster."]
module CreateQueueResponse =
  struct
    type nonrec t = {
      queue: Queue.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queue = fun () -> { queue }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("queue", (Option.map x.queue ~f:Queue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queue = (Option.map ~f:Queue.of_xml) (Xml.child xml_arg0 "queue") in
      make ?queue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queue = field_map json__ "queue" Queue.of_json in make ?queue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a job queue. You must associate 1 or more compute node groups with the queue. You can associate 1 compute node group with multiple queues."]
module CreateQueueRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc
          "The name or ID of the cluster for which to create a queue."];
      queueName: QueueName.t [@ocaml.doc "A name to identify the queue."];
      computeNodeGroupConfigurations:
        ComputeNodeGroupConfigurationList.t option
        [@ocaml.doc
          "The list of compute node group configurations to associate with the queue. Queues assign jobs to associated compute node groups."];
      slurmConfiguration: QueueSlurmConfigurationRequest.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."];
      tags: RequestTagMap.t option
        [@ocaml.doc
          "1 or more tags added to the resource. Each tag consists of a tag key and tag value. The tag value is optional and can be an empty string."]}
    let context_ = "CreateQueueRequest"
    let make ?computeNodeGroupConfigurations =
      fun ?slurmConfiguration ->
        fun ?clientToken ->
          fun ?tags ->
            fun ~clusterIdentifier ->
              fun ~queueName ->
                fun () ->
                  {
                    computeNodeGroupConfigurations;
                    slurmConfiguration;
                    clientToken;
                    tags;
                    clusterIdentifier;
                    queueName
                  }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("queueName", (Some (QueueName.to_value x.queueName)));
        ("computeNodeGroupConfigurations",
          (Option.map x.computeNodeGroupConfigurations
             ~f:ComputeNodeGroupConfigurationList.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:QueueSlurmConfigurationRequest.to_value));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value));
        ("tags", (Option.map x.tags ~f:RequestTagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:RequestTagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let slurmConfiguration =
        (Option.map ~f:QueueSlurmConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let computeNodeGroupConfigurations =
        (Option.map ~f:ComputeNodeGroupConfigurationList.of_xml)
          (Xml.child xml_arg0 "computeNodeGroupConfigurations") in
      let queueName =
        QueueName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "queueName") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?tags ?clientToken ?slurmConfiguration
        ?computeNodeGroupConfigurations ~queueName ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" RequestTagMap.of_json in
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          QueueSlurmConfigurationRequest.of_json in
      let computeNodeGroupConfigurations =
        field_map json__ "computeNodeGroupConfigurations"
          ComputeNodeGroupConfigurationList.of_json in
      let queueName = field_map_exn json__ "queueName" QueueName.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?tags ?clientToken ?slurmConfiguration
        ?computeNodeGroupConfigurations ~queueName ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a job queue. You must associate 1 or more compute node groups with the queue. You can associate 1 compute node group with multiple queues."]
module CreateComputeNodeGroupResponse =
  struct
    type nonrec t = {
      computeNodeGroup: ComputeNodeGroup.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?computeNodeGroup = fun () -> { computeNodeGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("computeNodeGroup",
           (Option.map x.computeNodeGroup ~f:ComputeNodeGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeNodeGroup =
        (Option.map ~f:ComputeNodeGroup.of_xml)
          (Xml.child xml_arg0 "computeNodeGroup") in
      make ?computeNodeGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeNodeGroup =
        field_map json__ "computeNodeGroup" ComputeNodeGroup.of_json in
      make ?computeNodeGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a managed set of compute nodes. You associate a compute node group with a cluster through 1 or more PCS queues or as part of the login fleet. A compute node group includes the definition of the compute properties and lifecycle management. PCS uses the information you provide to this API action to launch compute nodes in your account. You can only specify subnets in the same Amazon VPC as your cluster. You receive billing charges for the compute nodes that PCS launches in your account. You must already have a launch template before you call this API. For more information, see Launch an instance from a launch template in the Amazon Elastic Compute Cloud User Guide for Linux Instances."]
module CreateComputeNodeGroupRequest =
  struct
    type nonrec t =
      {
      clusterIdentifier: ClusterIdentifier.t
        [@ocaml.doc
          "The name or ID of the cluster to create a compute node group in."];
      computeNodeGroupName: ComputeNodeGroupName.t
        [@ocaml.doc "A name to identify the cluster. Example: MyCluster"];
      amiId: AmiId.t option
        [@ocaml.doc
          "The ID of the Amazon Machine Image (AMI) that PCS uses to launch compute nodes (Amazon EC2 instances). If you don't provide this value, PCS uses the AMI ID specified in the custom launch template."];
      subnetIds: StringList.t
        [@ocaml.doc
          "The list of subnet IDs where the compute node group launches instances. Subnets must be in the same VPC as the cluster."];
      purchaseOption: PurchaseOption.t option
        [@ocaml.doc
          "Specifies how EC2 instances are purchased on your behalf. PCS supports On-Demand Instances, Spot Instances, Interruptible Capacity Reservations, On-Demand Capacity Reservations, and Amazon EC2 Capacity Blocks for ML. For more information, see Amazon EC2 billing and purchasing options in the Amazon Elastic Compute Cloud User Guide. For more information about PCS support for Capacity Blocks, see Using Amazon EC2 Capacity Blocks for ML with PCS in the PCS User Guide. For more information about PCS support for interruptible capacity reservations, see Using I-ODCRs with PCS in the PCS User Guide. Choose On-Demand if you plan to use an On-Demand Capacity Reservation (ODCR). For more information, see Using ODCRs with PCS. If you don't provide this option, it defaults to On-Demand."];
      customLaunchTemplate: CustomLaunchTemplate.t ;
      iamInstanceProfileArn: InstanceProfileArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM instance profile used to pass an IAM role when launching EC2 instances. The role contained in your instance profile must have the pcs:RegisterComputeNodeGroupInstance permission and the role name must start with AWSPCS or must have the path /aws-pcs/. For more information, see IAM instance profiles for PCS in the PCS User Guide."];
      scalingConfiguration: ScalingConfigurationRequest.t
        [@ocaml.doc
          "Specifies the boundaries of the compute node group auto scaling."];
      instanceConfigs: InstanceList.t
        [@ocaml.doc
          "A list of EC2 instance configurations that PCS can provision in the compute node group."];
      spotOptions: SpotOptions.t option ;
      slurmConfiguration: ComputeNodeGroupSlurmConfigurationRequest.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."];
      tags: RequestTagMap.t option
        [@ocaml.doc
          "1 or more tags added to the resource. Each tag consists of a tag key and tag value. The tag value is optional and can be an empty string."]}
    let context_ = "CreateComputeNodeGroupRequest"
    let make ?amiId =
      fun ?purchaseOption ->
        fun ?spotOptions ->
          fun ?slurmConfiguration ->
            fun ?clientToken ->
              fun ?tags ->
                fun ~clusterIdentifier ->
                  fun ~computeNodeGroupName ->
                    fun ~subnetIds ->
                      fun ~customLaunchTemplate ->
                        fun ~iamInstanceProfileArn ->
                          fun ~scalingConfiguration ->
                            fun ~instanceConfigs ->
                              fun () ->
                                {
                                  amiId;
                                  purchaseOption;
                                  spotOptions;
                                  slurmConfiguration;
                                  clientToken;
                                  tags;
                                  clusterIdentifier;
                                  computeNodeGroupName;
                                  subnetIds;
                                  customLaunchTemplate;
                                  iamInstanceProfileArn;
                                  scalingConfiguration;
                                  instanceConfigs
                                }
    let to_value x =
      structure_to_value
        [("clusterIdentifier",
           (Some (ClusterIdentifier.to_value x.clusterIdentifier)));
        ("computeNodeGroupName",
          (Some (ComputeNodeGroupName.to_value x.computeNodeGroupName)));
        ("amiId", (Option.map x.amiId ~f:AmiId.to_value));
        ("subnetIds", (Some (StringList.to_value x.subnetIds)));
        ("purchaseOption",
          (Option.map x.purchaseOption ~f:PurchaseOption.to_value));
        ("customLaunchTemplate",
          (Some (CustomLaunchTemplate.to_value x.customLaunchTemplate)));
        ("iamInstanceProfileArn",
          (Some (InstanceProfileArn.to_value x.iamInstanceProfileArn)));
        ("scalingConfiguration",
          (Some (ScalingConfigurationRequest.to_value x.scalingConfiguration)));
        ("instanceConfigs", (Some (InstanceList.to_value x.instanceConfigs)));
        ("spotOptions", (Option.map x.spotOptions ~f:SpotOptions.to_value));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:ComputeNodeGroupSlurmConfigurationRequest.to_value));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value));
        ("tags", (Option.map x.tags ~f:RequestTagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:RequestTagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let slurmConfiguration =
        (Option.map ~f:ComputeNodeGroupSlurmConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let spotOptions =
        (Option.map ~f:SpotOptions.of_xml) (Xml.child xml_arg0 "spotOptions") in
      let instanceConfigs =
        InstanceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instanceConfigs") in
      let scalingConfiguration =
        ScalingConfigurationRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "scalingConfiguration") in
      let iamInstanceProfileArn =
        InstanceProfileArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "iamInstanceProfileArn") in
      let customLaunchTemplate =
        CustomLaunchTemplate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "customLaunchTemplate") in
      let purchaseOption =
        (Option.map ~f:PurchaseOption.of_xml)
          (Xml.child xml_arg0 "purchaseOption") in
      let subnetIds =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subnetIds") in
      let amiId = (Option.map ~f:AmiId.of_xml) (Xml.child xml_arg0 "amiId") in
      let computeNodeGroupName =
        ComputeNodeGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "computeNodeGroupName") in
      let clusterIdentifier =
        ClusterIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterIdentifier") in
      make ?tags ?clientToken ?slurmConfiguration ?spotOptions
        ~instanceConfigs ~scalingConfiguration ~iamInstanceProfileArn
        ~customLaunchTemplate ?purchaseOption ~subnetIds ?amiId
        ~computeNodeGroupName ~clusterIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" RequestTagMap.of_json in
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          ComputeNodeGroupSlurmConfigurationRequest.of_json in
      let spotOptions = field_map json__ "spotOptions" SpotOptions.of_json in
      let instanceConfigs =
        field_map_exn json__ "instanceConfigs" InstanceList.of_json in
      let scalingConfiguration =
        field_map_exn json__ "scalingConfiguration"
          ScalingConfigurationRequest.of_json in
      let iamInstanceProfileArn =
        field_map_exn json__ "iamInstanceProfileArn"
          InstanceProfileArn.of_json in
      let customLaunchTemplate =
        field_map_exn json__ "customLaunchTemplate"
          CustomLaunchTemplate.of_json in
      let purchaseOption =
        field_map json__ "purchaseOption" PurchaseOption.of_json in
      let subnetIds = field_map_exn json__ "subnetIds" StringList.of_json in
      let amiId = field_map json__ "amiId" AmiId.of_json in
      let computeNodeGroupName =
        field_map_exn json__ "computeNodeGroupName"
          ComputeNodeGroupName.of_json in
      let clusterIdentifier =
        field_map_exn json__ "clusterIdentifier" ClusterIdentifier.of_json in
      make ?tags ?clientToken ?slurmConfiguration ?spotOptions
        ~instanceConfigs ~scalingConfiguration ~iamInstanceProfileArn
        ~customLaunchTemplate ?purchaseOption ~subnetIds ?amiId
        ~computeNodeGroupName ~clusterIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a managed set of compute nodes. You associate a compute node group with a cluster through 1 or more PCS queues or as part of the login fleet. A compute node group includes the definition of the compute properties and lifecycle management. PCS uses the information you provide to this API action to launch compute nodes in your account. You can only specify subnets in the same Amazon VPC as your cluster. You receive billing charges for the compute nodes that PCS launches in your account. You must already have a launch template before you call this API. For more information, see Launch an instance from a launch template in the Amazon Elastic Compute Cloud User Guide for Linux Instances."]
module CreateClusterResponse =
  struct
    type nonrec t =
      {
      cluster: Cluster.t option [@ocaml.doc "The cluster resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cluster = fun () -> { cluster }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cluster", (Option.map x.cluster ~f:Cluster.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cluster =
        (Option.map ~f:Cluster.of_xml) (Xml.child xml_arg0 "cluster") in
      make ?cluster ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cluster = field_map json__ "cluster" Cluster.of_json in
      make ?cluster ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a cluster in your account. PCS creates the cluster controller in a service-owned account. The cluster controller communicates with the cluster resources in your account. The subnets and security groups for the cluster must already exist before you use this API action. It takes time for PCS to create the cluster. The cluster is in a Creating state until it is ready to use. There can only be 1 cluster in a Creating state per Amazon Web Services Region per Amazon Web Services account. CreateCluster fails with a ServiceQuotaExceededException if there is already a cluster in a Creating state."]
module CreateClusterRequest =
  struct
    type nonrec t =
      {
      clusterName: ClusterName.t
        [@ocaml.doc "A name to identify the cluster. Example: MyCluster"];
      scheduler: SchedulerRequest.t
        [@ocaml.doc
          "The cluster management and job scheduling software associated with the cluster."];
      size: Size.t
        [@ocaml.doc
          "A value that determines the maximum number of compute nodes in the cluster and the maximum number of jobs (active and queued). SMALL: 32 compute nodes and 256 jobs MEDIUM: 512 compute nodes and 8192 jobs LARGE: 2048 compute nodes and 16,384 jobs"];
      networking: NetworkingRequest.t
        [@ocaml.doc
          "The networking configuration used to set up the cluster's control plane."];
      slurmConfiguration: ClusterSlurmConfigurationRequest.t option
        [@ocaml.doc "Additional options related to the Slurm scheduler."];
      clientToken: SBClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries with the same client token return the result from the original successful request and they have no additional effect. If you don't specify a client token, the CLI and SDK automatically generate 1 for you."];
      tags: RequestTagMap.t option
        [@ocaml.doc
          "1 or more tags added to the resource. Each tag consists of a tag key and tag value. The tag value is optional and can be an empty string."]}
    let context_ = "CreateClusterRequest"
    let make ?slurmConfiguration =
      fun ?clientToken ->
        fun ?tags ->
          fun ~clusterName ->
            fun ~scheduler ->
              fun ~size ->
                fun ~networking ->
                  fun () ->
                    {
                      slurmConfiguration;
                      clientToken;
                      tags;
                      clusterName;
                      scheduler;
                      size;
                      networking
                    }
    let to_value x =
      structure_to_value
        [("clusterName", (Some (ClusterName.to_value x.clusterName)));
        ("scheduler", (Some (SchedulerRequest.to_value x.scheduler)));
        ("size", (Some (Size.to_value x.size)));
        ("networking", (Some (NetworkingRequest.to_value x.networking)));
        ("slurmConfiguration",
          (Option.map x.slurmConfiguration
             ~f:ClusterSlurmConfigurationRequest.to_value));
        ("clientToken", (Option.map x.clientToken ~f:SBClientToken.to_value));
        ("tags", (Option.map x.tags ~f:RequestTagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:RequestTagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:SBClientToken.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let slurmConfiguration =
        (Option.map ~f:ClusterSlurmConfigurationRequest.of_xml)
          (Xml.child xml_arg0 "slurmConfiguration") in
      let networking =
        NetworkingRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "networking") in
      let size =
        Size.of_xml (Xml.child_exn ~context:context_ xml_arg0 "size") in
      let scheduler =
        SchedulerRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "scheduler") in
      let clusterName =
        ClusterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clusterName") in
      make ?tags ?clientToken ?slurmConfiguration ~networking ~size
        ~scheduler ~clusterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" RequestTagMap.of_json in
      let clientToken = field_map json__ "clientToken" SBClientToken.of_json in
      let slurmConfiguration =
        field_map json__ "slurmConfiguration"
          ClusterSlurmConfigurationRequest.of_json in
      let networking =
        field_map_exn json__ "networking" NetworkingRequest.of_json in
      let size = field_map_exn json__ "size" Size.of_json in
      let scheduler =
        field_map_exn json__ "scheduler" SchedulerRequest.of_json in
      let clusterName =
        field_map_exn json__ "clusterName" ClusterName.of_json in
      make ?tags ?clientToken ?slurmConfiguration ~networking ~size
        ~scheduler ~clusterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a cluster in your account. PCS creates the cluster controller in a service-owned account. The cluster controller communicates with the cluster resources in your account. The subnets and security groups for the cluster must already exist before you use this API action. It takes time for PCS to create the cluster. The cluster is in a Creating state until it is ready to use. There can only be 1 cluster in a Creating state per Amazon Web Services Region per Amazon Web Services account. CreateCluster fails with a ServiceQuotaExceededException if there is already a cluster in a Creating state."]