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.workspaces_instances
let apiVersion = "2022-07-26"
let endpointPrefix = "workspaces-instances"
let serviceFullName = "Amazon Workspaces Instances"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "EUCMIFrontendAPIService"
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 Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module Ipv4Prefix =
  struct
    type nonrec t = string
    let context_ = "Ipv4Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:".*(?:(?:\\d|[01]?\\d\\d|2[0-4]\\d|25[0-5])\\.){3}(?:25[0-5]|2[0-4]\\d|[01]?\\d\\d|\\d)(?:/\\d{1,2})?.*");
        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:"Ipv4Prefix" j
    let to_json = simple_to_json to_value
  end
module Ipv6Address =
  struct
    type nonrec t = string
    let context_ = "Ipv6Address"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"Ipv6Address" j
    let to_json = simple_to_json to_value
  end
module Ipv6Prefix =
  struct
    type nonrec t = string
    let context_ = "Ipv6Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(([0-9a-fA-F]{1,4}:){7,7}[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,7}:|([0-9a-fA-F]{1,4}:){1,6}:[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2}|([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3}|([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4}|([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5}|[0-9a-fA-F]{1,4}:((:[0-9a-fA-F]{1,4}){1,6})|:((:[0-9a-fA-F]{1,4}){1,7}|:)|fe80:(:[0-9a-fA-F]{0,4}){0,4}%[0-9a-zA-Z]{1,}|::(ffff(:0{1,4}){0,1}:){0,1}((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\.){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])|([0-9a-fA-F]{1,4}:){1,4}:((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\.){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]))\\/([0-9]{1,2}|1[01][0-9]|12[0-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:"Ipv6Prefix" j
    let to_json = simple_to_json to_value
  end
module Ipv4Address =
  struct
    type nonrec t = string
    let context_ = "Ipv4Address"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(\\b25[0-5]|\\b2[0-4][0-9]|\\b[01]?[0-9][0-9]?)(\\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)){3}");
        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:"Ipv4Address" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]+)")));
        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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)")));
        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 BillingMode =
  struct
    type nonrec t =
      | MONTHLY 
      | HOURLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MONTHLY -> "MONTHLY"
      | HOURLY -> "HOURLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "MONTHLY" -> MONTHLY
      | "HOURLY" -> HOURLY
      | 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 BillingMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillingMode" j)
    let to_json = simple_to_json to_value
  end
module InstanceConfigurationTenancyEnum =
  struct
    type nonrec t =
      | SHARED 
      | DEDICATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SHARED -> "SHARED"
      | DEDICATED -> "DEDICATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SHARED" -> SHARED
      | "DEDICATED" -> DEDICATED
      | 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 InstanceConfigurationTenancyEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceConfigurationTenancyEnum" j)
    let to_json = simple_to_json to_value
  end
module PlatformTypeEnum =
  struct
    type nonrec t =
      | Windows 
      | Windows_BYOL 
      | Linux_UNIX 
      | Ubuntu_Pro_Linux 
      | Red_Hat_Enterprise_Linux 
      | Red_Hat_BYOL_Linux 
      | SUSE_Linux 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Windows -> "Windows"
      | Windows_BYOL -> "Windows BYOL"
      | Linux_UNIX -> "Linux/UNIX"
      | Ubuntu_Pro_Linux -> "Ubuntu Pro Linux"
      | Red_Hat_Enterprise_Linux -> "Red Hat Enterprise Linux"
      | Red_Hat_BYOL_Linux -> "Red Hat BYOL Linux"
      | SUSE_Linux -> "SUSE Linux"
      | Non_static_id s -> s
    let of_string =
      function
      | "Windows" -> Windows
      | "Windows BYOL" -> Windows_BYOL
      | "Linux/UNIX" -> Linux_UNIX
      | "Ubuntu Pro Linux" -> Ubuntu_Pro_Linux
      | "Red Hat Enterprise Linux" -> Red_Hat_Enterprise_Linux
      | "Red Hat BYOL Linux" -> Red_Hat_BYOL_Linux
      | "SUSE Linux" -> SUSE_Linux
      | 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 PlatformTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PlatformTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module KmsKeyId =
  struct
    type nonrec t = string
    let context_ = "KmsKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end
module NonNegativeInteger =
  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 NonNegativeInteger" 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 VolumeTypeEnum =
  struct
    type nonrec t =
      | Standard 
      | Io1 
      | Io2 
      | Gp2 
      | Sc1 
      | St1 
      | Gp3 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Io1 -> "io1"
      | Io2 -> "io2"
      | Gp2 -> "gp2"
      | Sc1 -> "sc1"
      | St1 -> "st1"
      | Gp3 -> "gp3"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "io1" -> Io1
      | "io2" -> Io2
      | "gp2" -> Gp2
      | "sc1" -> Sc1
      | "st1" -> St1
      | "gp3" -> Gp3
      | 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 VolumeTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VolumeTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module EnaSrdUdpSpecificationRequest =
  struct
    type nonrec t =
      {
      enaSrdUdpEnabled: Boolean.t option
        [@ocaml.doc "Enables or disables ENA SRD for UDP traffic."]}
    let make ?enaSrdUdpEnabled = fun () -> { enaSrdUdpEnabled }
    let to_value x =
      structure_to_value
        [("EnaSrdUdpEnabled",
           (Option.map x.enaSrdUdpEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnaSrdUdpEnabled") in
      make ?enaSrdUdpEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpEnabled =
        field_map json__ "EnaSrdUdpEnabled" Boolean.of_json in
      make ?enaSrdUdpEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies UDP configuration for ENA SRD."]
module Ipv4PrefixSpecificationRequest =
  struct
    type nonrec t =
      {
      ipv4Prefix: Ipv4Prefix.t option
        [@ocaml.doc
          "Specific IPv4 prefix for network interface configuration."]}
    let make ?ipv4Prefix = fun () -> { ipv4Prefix }
    let to_value x =
      structure_to_value
        [("Ipv4Prefix", (Option.map x.ipv4Prefix ~f:Ipv4Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv4Prefix =
        (Option.map ~f:Ipv4Prefix.of_xml) (Xml.child xml_arg0 "Ipv4Prefix") in
      make ?ipv4Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv4Prefix = field_map json__ "Ipv4Prefix" Ipv4Prefix.of_json in
      make ?ipv4Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies IPv4 prefix configuration for network interfaces."]
module InstanceIpv6Address =
  struct
    type nonrec t =
      {
      ipv6Address: Ipv6Address.t option
        [@ocaml.doc "Specific IPv6 address assigned to the instance."];
      isPrimaryIpv6: Boolean.t option
        [@ocaml.doc
          "Indicates if this is the primary IPv6 address for the instance."]}
    let make ?ipv6Address =
      fun ?isPrimaryIpv6 -> fun () -> { ipv6Address; isPrimaryIpv6 }
    let to_value x =
      structure_to_value
        [("Ipv6Address", (Option.map x.ipv6Address ~f:Ipv6Address.to_value));
        ("IsPrimaryIpv6", (Option.map x.isPrimaryIpv6 ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isPrimaryIpv6 =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsPrimaryIpv6") in
      let ipv6Address =
        (Option.map ~f:Ipv6Address.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      make ?isPrimaryIpv6 ?ipv6Address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isPrimaryIpv6 = field_map json__ "IsPrimaryIpv6" Boolean.of_json in
      let ipv6Address = field_map json__ "Ipv6Address" Ipv6Address.of_json in
      make ?isPrimaryIpv6 ?ipv6Address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an IPv6 address configuration for a WorkSpace Instance."]
module Ipv6PrefixSpecificationRequest =
  struct
    type nonrec t =
      {
      ipv6Prefix: Ipv6Prefix.t option
        [@ocaml.doc
          "Specific IPv6 prefix for network interface configuration."]}
    let make ?ipv6Prefix = fun () -> { ipv6Prefix }
    let to_value x =
      structure_to_value
        [("Ipv6Prefix", (Option.map x.ipv6Prefix ~f:Ipv6Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Prefix =
        (Option.map ~f:Ipv6Prefix.of_xml) (Xml.child xml_arg0 "Ipv6Prefix") in
      make ?ipv6Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Prefix = field_map json__ "Ipv6Prefix" Ipv6Prefix.of_json in
      make ?ipv6Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies IPv6 prefix configuration for network interfaces."]
module PrivateIpAddressSpecification =
  struct
    type nonrec t =
      {
      primary: Boolean.t option
        [@ocaml.doc "Indicates if this is the primary private IP address."];
      privateIpAddress: Ipv4Address.t option
        [@ocaml.doc "Specific private IP address for the network interface."]}
    let make ?primary =
      fun ?privateIpAddress -> fun () -> { primary; privateIpAddress }
    let to_value x =
      structure_to_value
        [("Primary", (Option.map x.primary ~f:Boolean.to_value));
        ("PrivateIpAddress",
          (Option.map x.privateIpAddress ~f:Ipv4Address.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:Ipv4Address.of_xml)
          (Xml.child xml_arg0 "PrivateIpAddress") in
      let primary =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Primary") in
      make ?privateIpAddress ?primary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" Ipv4Address.of_json in
      let primary = field_map json__ "Primary" Boolean.of_json in
      make ?privateIpAddress ?primary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines private IP address configuration for network interface."]
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-[0-9a-zA-Z]{1,63}"); 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 Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t option [@ocaml.doc "Unique identifier for the tag."];
      value: TagValue.t option
        [@ocaml.doc "Value associated with the tag key."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagKey.to_value));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:TagKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" TagValue.of_json in
      let key = field_map json__ "Key" TagKey.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a key-value metadata tag."]
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 SupportedInstanceConfiguration =
  struct
    type nonrec t =
      {
      billingMode: BillingMode.t option
        [@ocaml.doc
          "Specifies the billing mode supported in this configuration combination."];
      platformType: PlatformTypeEnum.t option
        [@ocaml.doc
          "Specifies the operating system platform supported in this configuration combination."];
      tenancy: InstanceConfigurationTenancyEnum.t option
        [@ocaml.doc
          "Specifies the tenancy model supported in this configuration combination."]}
    let make ?billingMode =
      fun ?platformType ->
        fun ?tenancy -> fun () -> { billingMode; platformType; tenancy }
    let to_value x =
      structure_to_value
        [("BillingMode", (Option.map x.billingMode ~f:BillingMode.to_value));
        ("PlatformType",
          (Option.map x.platformType ~f:PlatformTypeEnum.to_value));
        ("Tenancy",
          (Option.map x.tenancy ~f:InstanceConfigurationTenancyEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenancy =
        (Option.map ~f:InstanceConfigurationTenancyEnum.of_xml)
          (Xml.child xml_arg0 "Tenancy") in
      let platformType =
        (Option.map ~f:PlatformTypeEnum.of_xml)
          (Xml.child xml_arg0 "PlatformType") in
      let billingMode =
        (Option.map ~f:BillingMode.of_xml) (Xml.child xml_arg0 "BillingMode") in
      make ?tenancy ?platformType ?billingMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenancy =
        field_map json__ "Tenancy" InstanceConfigurationTenancyEnum.of_json in
      let platformType =
        field_map json__ "PlatformType" PlatformTypeEnum.of_json in
      let billingMode = field_map json__ "BillingMode" BillingMode.of_json in
      make ?tenancy ?platformType ?billingMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a single valid configuration combination that an instance type supports, combining tenancy, platform type, and billing mode into one complete configuration specification."]
module DeviceName =
  struct
    type nonrec t = string
    let context_ = "DeviceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (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:"DeviceName" j
    let to_json = simple_to_json to_value
  end
module EbsBlockDevice =
  struct
    type nonrec t =
      {
      volumeType: VolumeTypeEnum.t option
        [@ocaml.doc "Type of EBS volume (e.g., gp2, io1)."];
      encrypted: Boolean.t option
        [@ocaml.doc "Indicates if the volume is encrypted."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc "KMS key used for volume encryption."];
      iops: NonNegativeInteger.t option
        [@ocaml.doc "Input/output operations per second for the volume."];
      throughput: NonNegativeInteger.t option
        [@ocaml.doc "Volume data transfer rate."];
      volumeSize: NonNegativeInteger.t option
        [@ocaml.doc "Size of the EBS volume in gigabytes."]}
    let make ?volumeType =
      fun ?encrypted ->
        fun ?kmsKeyId ->
          fun ?iops ->
            fun ?throughput ->
              fun ?volumeSize ->
                fun () ->
                  {
                    volumeType;
                    encrypted;
                    kmsKeyId;
                    iops;
                    throughput;
                    volumeSize
                  }
    let to_value x =
      structure_to_value
        [("VolumeType", (Option.map x.volumeType ~f:VolumeTypeEnum.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("Iops", (Option.map x.iops ~f:NonNegativeInteger.to_value));
        ("Throughput",
          (Option.map x.throughput ~f:NonNegativeInteger.to_value));
        ("VolumeSize",
          (Option.map x.volumeSize ~f:NonNegativeInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeSize =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "VolumeSize") in
      let throughput =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "Throughput") in
      let iops =
        (Option.map ~f:NonNegativeInteger.of_xml) (Xml.child xml_arg0 "Iops") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let volumeType =
        (Option.map ~f:VolumeTypeEnum.of_xml)
          (Xml.child xml_arg0 "VolumeType") in
      make ?volumeSize ?throughput ?iops ?kmsKeyId ?encrypted ?volumeType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeSize =
        field_map json__ "VolumeSize" NonNegativeInteger.of_json in
      let throughput =
        field_map json__ "Throughput" NonNegativeInteger.of_json in
      let iops = field_map json__ "Iops" NonNegativeInteger.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeTypeEnum.of_json in
      make ?volumeSize ?throughput ?iops ?kmsKeyId ?encrypted ?volumeType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines configuration for an Elastic Block Store volume."]
module VirtualName =
  struct
    type nonrec t = string
    let context_ = "VirtualName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"ephemeral(0|[1-9][0-9]{0,2})");
        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:"VirtualName" j
    let to_json = simple_to_json to_value
  end
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:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.*")));
        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 String128 =
  struct
    type nonrec t = string
    let context_ = "String128"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"String128" j
    let to_json = simple_to_json to_value
  end
module InstanceInterruptionBehaviorEnum =
  struct
    type nonrec t =
      | Hibernate 
      | Stop 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Hibernate -> "hibernate"
      | Stop -> "stop"
      | Non_static_id s -> s
    let of_string =
      function
      | "hibernate" -> Hibernate
      | "stop" -> Stop
      | 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 InstanceInterruptionBehaviorEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceInterruptionBehaviorEnum" j)
    let to_json = simple_to_json to_value
  end
module SpotInstanceTypeEnum =
  struct
    type nonrec t =
      | One_time 
      | Persistent 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | One_time -> "one-time"
      | Persistent -> "persistent"
      | Non_static_id s -> s
    let of_string =
      function
      | "one-time" -> One_time
      | "persistent" -> Persistent
      | 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 SpotInstanceTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SpotInstanceTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module String64 =
  struct
    type nonrec t = string
    let context_ = "String64"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"String64" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  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 ConnectionTrackingSpecificationRequest =
  struct
    type nonrec t =
      {
      tcpEstablishedTimeout: NonNegativeInteger.t option
        [@ocaml.doc "Timeout for established TCP connections."];
      udpStreamTimeout: NonNegativeInteger.t option
        [@ocaml.doc "Timeout for UDP stream connections."];
      udpTimeout: NonNegativeInteger.t option
        [@ocaml.doc "General timeout for UDP connections."]}
    let make ?tcpEstablishedTimeout =
      fun ?udpStreamTimeout ->
        fun ?udpTimeout ->
          fun () -> { tcpEstablishedTimeout; udpStreamTimeout; udpTimeout }
    let to_value x =
      structure_to_value
        [("TcpEstablishedTimeout",
           (Option.map x.tcpEstablishedTimeout ~f:NonNegativeInteger.to_value));
        ("UdpStreamTimeout",
          (Option.map x.udpStreamTimeout ~f:NonNegativeInteger.to_value));
        ("UdpTimeout",
          (Option.map x.udpTimeout ~f:NonNegativeInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let udpTimeout =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "UdpTimeout") in
      let udpStreamTimeout =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "UdpStreamTimeout") in
      let tcpEstablishedTimeout =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "TcpEstablishedTimeout") in
      make ?udpTimeout ?udpStreamTimeout ?tcpEstablishedTimeout ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let udpTimeout =
        field_map json__ "UdpTimeout" NonNegativeInteger.of_json in
      let udpStreamTimeout =
        field_map json__ "UdpStreamTimeout" NonNegativeInteger.of_json in
      let tcpEstablishedTimeout =
        field_map json__ "TcpEstablishedTimeout" NonNegativeInteger.of_json in
      make ?udpTimeout ?udpStreamTimeout ?tcpEstablishedTimeout ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines connection tracking parameters for network interfaces."]
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\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:"Description" j
    let to_json = simple_to_json to_value
  end
module EnaSrdSpecificationRequest =
  struct
    type nonrec t =
      {
      enaSrdEnabled: Boolean.t option
        [@ocaml.doc "Enables or disables ENA SRD for network performance."];
      enaSrdUdpSpecification: EnaSrdUdpSpecificationRequest.t option
        [@ocaml.doc "Configures UDP-specific ENA SRD settings."]}
    let make ?enaSrdEnabled =
      fun ?enaSrdUdpSpecification ->
        fun () -> { enaSrdEnabled; enaSrdUdpSpecification }
    let to_value x =
      structure_to_value
        [("EnaSrdEnabled", (Option.map x.enaSrdEnabled ~f:Boolean.to_value));
        ("EnaSrdUdpSpecification",
          (Option.map x.enaSrdUdpSpecification
             ~f:EnaSrdUdpSpecificationRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpSpecification =
        (Option.map ~f:EnaSrdUdpSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "EnaSrdUdpSpecification") in
      let enaSrdEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EnaSrdEnabled") in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpSpecification =
        field_map json__ "EnaSrdUdpSpecification"
          EnaSrdUdpSpecificationRequest.of_json in
      let enaSrdEnabled = field_map json__ "EnaSrdEnabled" Boolean.of_json in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines Elastic Network Adapter (ENA) Scalable Reliable Datagram (SRD) configuration."]
module InterfaceTypeEnum =
  struct
    type nonrec t =
      | Interface 
      | Efa 
      | Efa_only 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Interface -> "interface"
      | Efa -> "efa"
      | Efa_only -> "efa-only"
      | Non_static_id s -> s
    let of_string =
      function
      | "interface" -> Interface
      | "efa" -> Efa
      | "efa-only" -> Efa_only
      | 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 InterfaceTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InterfaceTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module Ipv4Prefixes =
  struct
    type nonrec t = Ipv4PrefixSpecificationRequest.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:Ipv4PrefixSpecificationRequest.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:Ipv4PrefixSpecificationRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv4Prefixes"
        ~of_json:Ipv4PrefixSpecificationRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv6Addresses =
  struct
    type nonrec t = InstanceIpv6Address.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:InstanceIpv6Address.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:InstanceIpv6Address.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv6Addresses" ~of_json:InstanceIpv6Address.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Ipv6Prefixes =
  struct
    type nonrec t = Ipv6PrefixSpecificationRequest.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:Ipv6PrefixSpecificationRequest.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:Ipv6PrefixSpecificationRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv6Prefixes"
        ~of_json:Ipv6PrefixSpecificationRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkInterfaceId =
  struct
    type nonrec t = string
    let context_ = "NetworkInterfaceId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"eni-[0-9a-zA-Z]{1,63}"); 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:"NetworkInterfaceId" j
    let to_json = simple_to_json to_value
  end
module PrivateIpAddresses =
  struct
    type nonrec t = PrivateIpAddressSpecification.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:PrivateIpAddressSpecification.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:PrivateIpAddressSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateIpAddresses"
        ~of_json:PrivateIpAddressSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityGroupIds =
  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:"SecurityGroupIds" ~of_json:SecurityGroupId.of_json
        j
    let to_json v = composed_to_json to_value v
  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-[0-9a-zA-Z]{1,63}");
        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 ResourceTypeEnum =
  struct
    type nonrec t =
      | Instance 
      | Volume 
      | Spot_instances_request 
      | Network_interface 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Instance -> "instance"
      | Volume -> "volume"
      | Spot_instances_request -> "spot-instances-request"
      | Network_interface -> "network-interface"
      | Non_static_id s -> s
    let of_string =
      function
      | "instance" -> Instance
      | "volume" -> Volume
      | "spot-instances-request" -> Spot_instances_request
      | "network-interface" -> Network_interface
      | 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 ResourceTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.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:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.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 "Name of the field that failed validation."];
      reason: String_.t option
        [@ocaml.doc "Reason for the validation failure."];
      message: String_.t option
        [@ocaml.doc
          "Detailed error message describing the validation issue."]}
    let make ?name =
      fun ?reason -> fun ?message -> fun () -> { name; reason; message }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Reason", (Option.map x.reason ~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 reason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Reason") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?message ?reason ?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 reason = field_map json__ "Reason" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?message ?reason ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a validation error field in an API request."]
module EC2ManagedInstance =
  struct
    type nonrec t =
      {
      instanceId: String_.t option
        [@ocaml.doc "Unique identifier of the managed EC2 instance."]}
    let make ?instanceId = fun () -> { instanceId }
    let to_value x =
      structure_to_value
        [("InstanceId", (Option.map x.instanceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InstanceId") in
      make ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceId = field_map json__ "InstanceId" String_.of_json in
      make ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents an EC2 instance managed by WorkSpaces."]
module ProvisionStateEnum =
  struct
    type nonrec t =
      | ALLOCATING 
      | ALLOCATED 
      | DEALLOCATING 
      | DEALLOCATED 
      | ERROR_ALLOCATING 
      | ERROR_DEALLOCATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALLOCATING -> "ALLOCATING"
      | ALLOCATED -> "ALLOCATED"
      | DEALLOCATING -> "DEALLOCATING"
      | DEALLOCATED -> "DEALLOCATED"
      | ERROR_ALLOCATING -> "ERROR_ALLOCATING"
      | ERROR_DEALLOCATING -> "ERROR_DEALLOCATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALLOCATING" -> ALLOCATING
      | "ALLOCATED" -> ALLOCATED
      | "DEALLOCATING" -> DEALLOCATING
      | "DEALLOCATED" -> DEALLOCATED
      | "ERROR_ALLOCATING" -> ERROR_ALLOCATING
      | "ERROR_DEALLOCATING" -> ERROR_DEALLOCATING
      | 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 ProvisionStateEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProvisionStateEnum" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceInstanceId =
  struct
    type nonrec t = string
    let context_ = "WorkspaceInstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:70) >>=
                  (fun () ->
                     check_pattern i ~pattern:"wsinst-[0-9a-zA-Z]{8,63}")));
        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:"WorkspaceInstanceId" j
    let to_json = simple_to_json to_value
  end
module RegionName =
  struct
    type nonrec t = string
    let context_ = "RegionName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[-0-9a-z]{1,31}"); 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:"RegionName" j
    let to_json = simple_to_json to_value
  end
module InstanceType =
  struct
    type nonrec t = string
    let context_ = "InstanceType"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"([a-z0-9-]+)\\.([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:"InstanceType" j
    let to_json = simple_to_json to_value
  end
module SupportedInstanceConfigurations =
  struct
    type nonrec t = SupportedInstanceConfiguration.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:SupportedInstanceConfiguration.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:SupportedInstanceConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedInstanceConfigurations"
        ~of_json:SupportedInstanceConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlockDeviceMappingRequest =
  struct
    type nonrec t =
      {
      deviceName: DeviceName.t option
        [@ocaml.doc "Name of the device for storage mapping."];
      ebs: EbsBlockDevice.t option
        [@ocaml.doc "EBS volume configuration for the device."];
      noDevice: DeviceName.t option
        [@ocaml.doc "Indicates device should not be mapped."];
      virtualName: VirtualName.t option
        [@ocaml.doc "Virtual device name for ephemeral storage."]}
    let make ?deviceName =
      fun ?ebs ->
        fun ?noDevice ->
          fun ?virtualName ->
            fun () -> { deviceName; ebs; noDevice; virtualName }
    let to_value x =
      structure_to_value
        [("DeviceName", (Option.map x.deviceName ~f:DeviceName.to_value));
        ("Ebs", (Option.map x.ebs ~f:EbsBlockDevice.to_value));
        ("NoDevice", (Option.map x.noDevice ~f:DeviceName.to_value));
        ("VirtualName", (Option.map x.virtualName ~f:VirtualName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let virtualName =
        (Option.map ~f:VirtualName.of_xml) (Xml.child xml_arg0 "VirtualName") in
      let noDevice =
        (Option.map ~f:DeviceName.of_xml) (Xml.child xml_arg0 "NoDevice") in
      let ebs =
        (Option.map ~f:EbsBlockDevice.of_xml) (Xml.child xml_arg0 "Ebs") in
      let deviceName =
        (Option.map ~f:DeviceName.of_xml) (Xml.child xml_arg0 "DeviceName") in
      make ?virtualName ?noDevice ?ebs ?deviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let virtualName = field_map json__ "VirtualName" VirtualName.of_json in
      let noDevice = field_map json__ "NoDevice" DeviceName.of_json in
      let ebs = field_map json__ "Ebs" EbsBlockDevice.of_json in
      let deviceName = field_map json__ "DeviceName" DeviceName.of_json in
      make ?virtualName ?noDevice ?ebs ?deviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines device mapping for WorkSpace Instance storage."]
module CapacityReservationPreferenceEnum =
  struct
    type nonrec t =
      | Capacity_reservations_only 
      | Open 
      | None 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Capacity_reservations_only -> "capacity-reservations-only"
      | Open -> "open"
      | None -> "none"
      | Non_static_id s -> s
    let of_string =
      function
      | "capacity-reservations-only" -> Capacity_reservations_only
      | "open" -> Open
      | "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 CapacityReservationPreferenceEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CapacityReservationPreferenceEnum" j)
    let to_json = simple_to_json to_value
  end
module CapacityReservationTarget =
  struct
    type nonrec t =
      {
      capacityReservationId: String128.t option
        [@ocaml.doc "Unique identifier for the capacity reservation."];
      capacityReservationResourceGroupArn: ARN.t option
        [@ocaml.doc "ARN of the capacity reservation resource group."]}
    let make ?capacityReservationId =
      fun ?capacityReservationResourceGroupArn ->
        fun () ->
          { capacityReservationId; capacityReservationResourceGroupArn }
    let to_value x =
      structure_to_value
        [("CapacityReservationId",
           (Option.map x.capacityReservationId ~f:String128.to_value));
        ("CapacityReservationResourceGroupArn",
          (Option.map x.capacityReservationResourceGroupArn ~f:ARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityReservationResourceGroupArn =
        (Option.map ~f:ARN.of_xml)
          (Xml.child xml_arg0 "CapacityReservationResourceGroupArn") in
      let capacityReservationId =
        (Option.map ~f:String128.of_xml)
          (Xml.child xml_arg0 "CapacityReservationId") in
      make ?capacityReservationResourceGroupArn ?capacityReservationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityReservationResourceGroupArn =
        field_map json__ "CapacityReservationResourceGroupArn" ARN.of_json in
      let capacityReservationId =
        field_map json__ "CapacityReservationId" String128.of_json in
      make ?capacityReservationResourceGroupArn ?capacityReservationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Identifies a specific capacity reservation."]
module AmdSevSnpEnum =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | 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 AmdSevSnpEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AmdSevSnpEnum" j)
    let to_json = simple_to_json to_value
  end
module CpuCreditsEnum =
  struct
    type nonrec t =
      | Standard 
      | Unlimited 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Unlimited -> "unlimited"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "unlimited" -> Unlimited
      | 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 CpuCreditsEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CpuCreditsEnum" j)
    let to_json = simple_to_json to_value
  end
module AutoRecoveryEnum =
  struct
    type nonrec t =
      | Disabled 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Default -> "default"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "default" -> Default
      | 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 AutoRecoveryEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AutoRecoveryEnum" j)
    let to_json = simple_to_json to_value
  end
module MarketTypeEnum =
  struct
    type nonrec t =
      | Spot 
      | Capacity_block 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Spot -> "spot"
      | Capacity_block -> "capacity-block"
      | Non_static_id s -> s
    let of_string =
      function
      | "spot" -> Spot
      | "capacity-block" -> Capacity_block
      | 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 MarketTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MarketTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module SpotMarketOptions =
  struct
    type nonrec t =
      {
      blockDurationMinutes: NonNegativeInteger.t option
        [@ocaml.doc "Duration of spot instance block reservation."];
      instanceInterruptionBehavior: InstanceInterruptionBehaviorEnum.t option
        [@ocaml.doc "Specifies behavior when spot instance is interrupted."];
      maxPrice: String64.t option
        [@ocaml.doc "Maximum hourly price for spot instance."];
      spotInstanceType: SpotInstanceTypeEnum.t option
        [@ocaml.doc "Defines the type of spot instance request."];
      validUntilUtc: Timestamp.t option
        [@ocaml.doc "Timestamp until which spot instance request is valid."]}
    let make ?blockDurationMinutes =
      fun ?instanceInterruptionBehavior ->
        fun ?maxPrice ->
          fun ?spotInstanceType ->
            fun ?validUntilUtc ->
              fun () ->
                {
                  blockDurationMinutes;
                  instanceInterruptionBehavior;
                  maxPrice;
                  spotInstanceType;
                  validUntilUtc
                }
    let to_value x =
      structure_to_value
        [("BlockDurationMinutes",
           (Option.map x.blockDurationMinutes ~f:NonNegativeInteger.to_value));
        ("InstanceInterruptionBehavior",
          (Option.map x.instanceInterruptionBehavior
             ~f:InstanceInterruptionBehaviorEnum.to_value));
        ("MaxPrice", (Option.map x.maxPrice ~f:String64.to_value));
        ("SpotInstanceType",
          (Option.map x.spotInstanceType ~f:SpotInstanceTypeEnum.to_value));
        ("ValidUntilUtc", (Option.map x.validUntilUtc ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validUntilUtc =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "ValidUntilUtc") in
      let spotInstanceType =
        (Option.map ~f:SpotInstanceTypeEnum.of_xml)
          (Xml.child xml_arg0 "SpotInstanceType") in
      let maxPrice =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "MaxPrice") in
      let instanceInterruptionBehavior =
        (Option.map ~f:InstanceInterruptionBehaviorEnum.of_xml)
          (Xml.child xml_arg0 "InstanceInterruptionBehavior") in
      let blockDurationMinutes =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "BlockDurationMinutes") in
      make ?validUntilUtc ?spotInstanceType ?maxPrice
        ?instanceInterruptionBehavior ?blockDurationMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validUntilUtc = field_map json__ "ValidUntilUtc" Timestamp.of_json in
      let spotInstanceType =
        field_map json__ "SpotInstanceType" SpotInstanceTypeEnum.of_json in
      let maxPrice = field_map json__ "MaxPrice" String64.of_json in
      let instanceInterruptionBehavior =
        field_map json__ "InstanceInterruptionBehavior"
          InstanceInterruptionBehaviorEnum.of_json in
      let blockDurationMinutes =
        field_map json__ "BlockDurationMinutes" NonNegativeInteger.of_json in
      make ?validUntilUtc ?spotInstanceType ?maxPrice
        ?instanceInterruptionBehavior ?blockDurationMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines configuration for spot instance deployment."]
module HttpEndpointEnum =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | 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 HttpEndpointEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HttpEndpointEnum" j)
    let to_json = simple_to_json to_value
  end
module HttpProtocolIpv6Enum =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | 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 HttpProtocolIpv6Enum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HttpProtocolIpv6Enum" j)
    let to_json = simple_to_json to_value
  end
module HttpPutResponseHopLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:64) >>= (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 HttpPutResponseHopLimit"
           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 HttpTokensEnum =
  struct
    type nonrec t =
      | Optional 
      | Required 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Optional -> "optional"
      | Required -> "required"
      | Non_static_id s -> s
    let of_string =
      function
      | "optional" -> Optional
      | "required" -> Required
      | 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 HttpTokensEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HttpTokensEnum" j)
    let to_json = simple_to_json to_value
  end
module InstanceMetadataTagsEnum =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | 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 InstanceMetadataTagsEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceMetadataTagsEnum" j)
    let to_json = simple_to_json to_value
  end
module BandwidthWeightingEnum =
  struct
    type nonrec t =
      | Default 
      | Vpc_1 
      | Ebs_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Vpc_1 -> "vpc-1"
      | Ebs_1 -> "ebs-1"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "vpc-1" -> Vpc_1
      | "ebs-1" -> Ebs_1
      | 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 BandwidthWeightingEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BandwidthWeightingEnum" j)
    let to_json = simple_to_json to_value
  end
module LicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: ARN.t option
        [@ocaml.doc
          "ARN of the license configuration for the WorkSpace Instance."]}
    let make ?licenseConfigurationArn = fun () -> { licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Option.map x.licenseConfigurationArn ~f:ARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConfigurationArn =
        (Option.map ~f:ARN.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationArn") in
      make ?licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConfigurationArn =
        field_map json__ "LicenseConfigurationArn" ARN.of_json in
      make ?licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies license configuration for WorkSpace Instance."]
module InstanceNetworkInterfaceSpecification =
  struct
    type nonrec t =
      {
      associateCarrierIpAddress: Boolean.t option
        [@ocaml.doc "Enables carrier IP address association."];
      associatePublicIpAddress: Boolean.t option
        [@ocaml.doc "Enables public IP address assignment."];
      connectionTrackingSpecification:
        ConnectionTrackingSpecificationRequest.t option
        [@ocaml.doc "Configures network connection tracking parameters."];
      description: Description.t option
        [@ocaml.doc "Descriptive text for the network interface."];
      deviceIndex: NonNegativeInteger.t option
        [@ocaml.doc "Unique index for the network interface."];
      enaSrdSpecification: EnaSrdSpecificationRequest.t option
        [@ocaml.doc
          "Configures Elastic Network Adapter Scalable Reliable Datagram settings."];
      interfaceType: InterfaceTypeEnum.t option
        [@ocaml.doc "Specifies the type of network interface."];
      ipv4Prefixes: Ipv4Prefixes.t option
        [@ocaml.doc "IPv4 prefix configurations for the interface."];
      ipv4PrefixCount: NonNegativeInteger.t option
        [@ocaml.doc "Number of IPv4 prefixes to assign."];
      ipv6AddressCount: NonNegativeInteger.t option
        [@ocaml.doc "Number of IPv6 addresses to assign."];
      ipv6Addresses: Ipv6Addresses.t option
        [@ocaml.doc "Specific IPv6 addresses for the interface."];
      ipv6Prefixes: Ipv6Prefixes.t option
        [@ocaml.doc "IPv6 prefix configurations for the interface."];
      ipv6PrefixCount: NonNegativeInteger.t option
        [@ocaml.doc "Number of IPv6 prefixes to assign."];
      networkCardIndex: NonNegativeInteger.t option
        [@ocaml.doc
          "Index of the network card for multiple network interfaces."];
      networkInterfaceId: NetworkInterfaceId.t option
        [@ocaml.doc "Unique identifier for the network interface."];
      primaryIpv6: Boolean.t option
        [@ocaml.doc "Indicates the primary IPv6 configuration."];
      privateIpAddress: Ipv4Address.t option
        [@ocaml.doc "Primary private IP address for the interface."];
      privateIpAddresses: PrivateIpAddresses.t option
        [@ocaml.doc "List of private IP addresses for the interface."];
      secondaryPrivateIpAddressCount: NonNegativeInteger.t option
        [@ocaml.doc "Number of additional private IP addresses to assign."];
      groups: SecurityGroupIds.t option
        [@ocaml.doc "Security groups associated with the network interface."];
      subnetId: SubnetId.t option
        [@ocaml.doc "Subnet identifier for the network interface."]}
    let make ?associateCarrierIpAddress =
      fun ?associatePublicIpAddress ->
        fun ?connectionTrackingSpecification ->
          fun ?description ->
            fun ?deviceIndex ->
              fun ?enaSrdSpecification ->
                fun ?interfaceType ->
                  fun ?ipv4Prefixes ->
                    fun ?ipv4PrefixCount ->
                      fun ?ipv6AddressCount ->
                        fun ?ipv6Addresses ->
                          fun ?ipv6Prefixes ->
                            fun ?ipv6PrefixCount ->
                              fun ?networkCardIndex ->
                                fun ?networkInterfaceId ->
                                  fun ?primaryIpv6 ->
                                    fun ?privateIpAddress ->
                                      fun ?privateIpAddresses ->
                                        fun ?secondaryPrivateIpAddressCount
                                          ->
                                          fun ?groups ->
                                            fun ?subnetId ->
                                              fun () ->
                                                {
                                                  associateCarrierIpAddress;
                                                  associatePublicIpAddress;
                                                  connectionTrackingSpecification;
                                                  description;
                                                  deviceIndex;
                                                  enaSrdSpecification;
                                                  interfaceType;
                                                  ipv4Prefixes;
                                                  ipv4PrefixCount;
                                                  ipv6AddressCount;
                                                  ipv6Addresses;
                                                  ipv6Prefixes;
                                                  ipv6PrefixCount;
                                                  networkCardIndex;
                                                  networkInterfaceId;
                                                  primaryIpv6;
                                                  privateIpAddress;
                                                  privateIpAddresses;
                                                  secondaryPrivateIpAddressCount;
                                                  groups;
                                                  subnetId
                                                }
    let to_value x =
      structure_to_value
        [("AssociateCarrierIpAddress",
           (Option.map x.associateCarrierIpAddress ~f:Boolean.to_value));
        ("AssociatePublicIpAddress",
          (Option.map x.associatePublicIpAddress ~f:Boolean.to_value));
        ("ConnectionTrackingSpecification",
          (Option.map x.connectionTrackingSpecification
             ~f:ConnectionTrackingSpecificationRequest.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("DeviceIndex",
          (Option.map x.deviceIndex ~f:NonNegativeInteger.to_value));
        ("EnaSrdSpecification",
          (Option.map x.enaSrdSpecification
             ~f:EnaSrdSpecificationRequest.to_value));
        ("InterfaceType",
          (Option.map x.interfaceType ~f:InterfaceTypeEnum.to_value));
        ("Ipv4Prefixes",
          (Option.map x.ipv4Prefixes ~f:Ipv4Prefixes.to_value));
        ("Ipv4PrefixCount",
          (Option.map x.ipv4PrefixCount ~f:NonNegativeInteger.to_value));
        ("Ipv6AddressCount",
          (Option.map x.ipv6AddressCount ~f:NonNegativeInteger.to_value));
        ("Ipv6Addresses",
          (Option.map x.ipv6Addresses ~f:Ipv6Addresses.to_value));
        ("Ipv6Prefixes",
          (Option.map x.ipv6Prefixes ~f:Ipv6Prefixes.to_value));
        ("Ipv6PrefixCount",
          (Option.map x.ipv6PrefixCount ~f:NonNegativeInteger.to_value));
        ("NetworkCardIndex",
          (Option.map x.networkCardIndex ~f:NonNegativeInteger.to_value));
        ("NetworkInterfaceId",
          (Option.map x.networkInterfaceId ~f:NetworkInterfaceId.to_value));
        ("PrimaryIpv6", (Option.map x.primaryIpv6 ~f:Boolean.to_value));
        ("PrivateIpAddress",
          (Option.map x.privateIpAddress ~f:Ipv4Address.to_value));
        ("PrivateIpAddresses",
          (Option.map x.privateIpAddresses ~f:PrivateIpAddresses.to_value));
        ("SecondaryPrivateIpAddressCount",
          (Option.map x.secondaryPrivateIpAddressCount
             ~f:NonNegativeInteger.to_value));
        ("Groups", (Option.map x.groups ~f:SecurityGroupIds.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let groups =
        (Option.map ~f:SecurityGroupIds.of_xml) (Xml.child xml_arg0 "Groups") in
      let secondaryPrivateIpAddressCount =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "SecondaryPrivateIpAddressCount") in
      let privateIpAddresses =
        (Option.map ~f:PrivateIpAddresses.of_xml)
          (Xml.child xml_arg0 "PrivateIpAddresses") in
      let privateIpAddress =
        (Option.map ~f:Ipv4Address.of_xml)
          (Xml.child xml_arg0 "PrivateIpAddress") in
      let primaryIpv6 =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "PrimaryIpv6") in
      let networkInterfaceId =
        (Option.map ~f:NetworkInterfaceId.of_xml)
          (Xml.child xml_arg0 "NetworkInterfaceId") in
      let networkCardIndex =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "NetworkCardIndex") in
      let ipv6PrefixCount =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "Ipv6PrefixCount") in
      let ipv6Prefixes =
        (Option.map ~f:Ipv6Prefixes.of_xml)
          (Xml.child xml_arg0 "Ipv6Prefixes") in
      let ipv6Addresses =
        (Option.map ~f:Ipv6Addresses.of_xml)
          (Xml.child xml_arg0 "Ipv6Addresses") in
      let ipv6AddressCount =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "Ipv6AddressCount") in
      let ipv4PrefixCount =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "Ipv4PrefixCount") in
      let ipv4Prefixes =
        (Option.map ~f:Ipv4Prefixes.of_xml)
          (Xml.child xml_arg0 "Ipv4Prefixes") in
      let interfaceType =
        (Option.map ~f:InterfaceTypeEnum.of_xml)
          (Xml.child xml_arg0 "InterfaceType") in
      let enaSrdSpecification =
        (Option.map ~f:EnaSrdSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "EnaSrdSpecification") in
      let deviceIndex =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "DeviceIndex") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let connectionTrackingSpecification =
        (Option.map ~f:ConnectionTrackingSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "ConnectionTrackingSpecification") in
      let associatePublicIpAddress =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AssociatePublicIpAddress") in
      let associateCarrierIpAddress =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AssociateCarrierIpAddress") in
      make ?subnetId ?groups ?secondaryPrivateIpAddressCount
        ?privateIpAddresses ?privateIpAddress ?primaryIpv6
        ?networkInterfaceId ?networkCardIndex ?ipv6PrefixCount ?ipv6Prefixes
        ?ipv6Addresses ?ipv6AddressCount ?ipv4PrefixCount ?ipv4Prefixes
        ?interfaceType ?enaSrdSpecification ?deviceIndex ?description
        ?connectionTrackingSpecification ?associatePublicIpAddress
        ?associateCarrierIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let groups = field_map json__ "Groups" SecurityGroupIds.of_json in
      let secondaryPrivateIpAddressCount =
        field_map json__ "SecondaryPrivateIpAddressCount"
          NonNegativeInteger.of_json in
      let privateIpAddresses =
        field_map json__ "PrivateIpAddresses" PrivateIpAddresses.of_json in
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" Ipv4Address.of_json in
      let primaryIpv6 = field_map json__ "PrimaryIpv6" Boolean.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" NonNegativeInteger.of_json in
      let ipv6PrefixCount =
        field_map json__ "Ipv6PrefixCount" NonNegativeInteger.of_json in
      let ipv6Prefixes = field_map json__ "Ipv6Prefixes" Ipv6Prefixes.of_json in
      let ipv6Addresses =
        field_map json__ "Ipv6Addresses" Ipv6Addresses.of_json in
      let ipv6AddressCount =
        field_map json__ "Ipv6AddressCount" NonNegativeInteger.of_json in
      let ipv4PrefixCount =
        field_map json__ "Ipv4PrefixCount" NonNegativeInteger.of_json in
      let ipv4Prefixes = field_map json__ "Ipv4Prefixes" Ipv4Prefixes.of_json in
      let interfaceType =
        field_map json__ "InterfaceType" InterfaceTypeEnum.of_json in
      let enaSrdSpecification =
        field_map json__ "EnaSrdSpecification"
          EnaSrdSpecificationRequest.of_json in
      let deviceIndex =
        field_map json__ "DeviceIndex" NonNegativeInteger.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let connectionTrackingSpecification =
        field_map json__ "ConnectionTrackingSpecification"
          ConnectionTrackingSpecificationRequest.of_json in
      let associatePublicIpAddress =
        field_map json__ "AssociatePublicIpAddress" Boolean.of_json in
      let associateCarrierIpAddress =
        field_map json__ "AssociateCarrierIpAddress" Boolean.of_json in
      make ?subnetId ?groups ?secondaryPrivateIpAddressCount
        ?privateIpAddresses ?privateIpAddress ?primaryIpv6
        ?networkInterfaceId ?networkCardIndex ?ipv6PrefixCount ?ipv6Prefixes
        ?ipv6Addresses ?ipv6AddressCount ?ipv4PrefixCount ?ipv4Prefixes
        ?interfaceType ?enaSrdSpecification ?deviceIndex ?description
        ?connectionTrackingSpecification ?associatePublicIpAddress
        ?associateCarrierIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines network interface configuration for WorkSpace Instance."]
module AvailabilityZone =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZone"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-z]{2}-[a-z]+-\\d(?:[a-z]|-[a-z]+-\\d[a-z])");
        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:"AvailabilityZone" j
    let to_json = simple_to_json to_value
  end
module HostId =
  struct
    type nonrec t = string
    let context_ = "HostId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"h-[0-9a-zA-Z]{1,63}"); 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:"HostId" j
    let to_json = simple_to_json to_value
  end
module PlacementGroupId =
  struct
    type nonrec t = string
    let context_ = "PlacementGroupId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"pg-[0-9a-zA-Z]{1,63}"); 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:"PlacementGroupId" j
    let to_json = simple_to_json to_value
  end
module TenancyEnum =
  struct
    type nonrec t =
      | Default 
      | Dedicated 
      | Host 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Dedicated -> "dedicated"
      | Host -> "host"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "dedicated" -> Dedicated
      | "host" -> Host
      | 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 TenancyEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TenancyEnum" j)
    let to_json = simple_to_json to_value
  end
module HostnameTypeEnum =
  struct
    type nonrec t =
      | Ip_name 
      | Resource_name 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ip_name -> "ip-name"
      | Resource_name -> "resource-name"
      | Non_static_id s -> s
    let of_string =
      function
      | "ip-name" -> Ip_name
      | "resource-name" -> Resource_name
      | 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 HostnameTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HostnameTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupName =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(?!sg-)[\\w .:/()#,@\\[\\]+=&;{}!$*-]{0,255}");
        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:"SecurityGroupName" j
    let to_json = simple_to_json to_value
  end
module TagSpecification =
  struct
    type nonrec t =
      {
      resourceType: ResourceTypeEnum.t option
        [@ocaml.doc "Type of resource being tagged."];
      tags: TagList.t option
        [@ocaml.doc "Collection of tags for the specified resource."]}
    let make ?resourceType = fun ?tags -> fun () -> { resourceType; tags }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceTypeEnum.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let resourceType =
        (Option.map ~f:ResourceTypeEnum.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?tags ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceType =
        field_map json__ "ResourceType" ResourceTypeEnum.of_json in
      make ?tags ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines tagging configuration for a resource."]
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 =
      | UNKNOWN_OPERATION 
      | UNSUPPORTED_OPERATION 
      | CANNOT_PARSE 
      | FIELD_VALIDATION_FAILED 
      | DEPENDENCY_FAILURE 
      | OTHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN_OPERATION -> "UNKNOWN_OPERATION"
      | UNSUPPORTED_OPERATION -> "UNSUPPORTED_OPERATION"
      | CANNOT_PARSE -> "CANNOT_PARSE"
      | FIELD_VALIDATION_FAILED -> "FIELD_VALIDATION_FAILED"
      | DEPENDENCY_FAILURE -> "DEPENDENCY_FAILURE"
      | OTHER -> "OTHER"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN_OPERATION" -> UNKNOWN_OPERATION
      | "UNSUPPORTED_OPERATION" -> UNSUPPORTED_OPERATION
      | "CANNOT_PARSE" -> CANNOT_PARSE
      | "FIELD_VALIDATION_FAILED" -> FIELD_VALIDATION_FAILED
      | "DEPENDENCY_FAILURE" -> DEPENDENCY_FAILURE
      | "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 WorkspaceInstance =
  struct
    type nonrec t =
      {
      provisionState: ProvisionStateEnum.t option
        [@ocaml.doc "Current provisioning state of the WorkSpace Instance."];
      workspaceInstanceId: WorkspaceInstanceId.t option
        [@ocaml.doc "Unique identifier for the WorkSpace Instance."];
      eC2ManagedInstance: EC2ManagedInstance.t option
        [@ocaml.doc "Details of the associated EC2 managed instance."]}
    let make ?provisionState =
      fun ?workspaceInstanceId ->
        fun ?eC2ManagedInstance ->
          fun () ->
            { provisionState; workspaceInstanceId; eC2ManagedInstance }
    let to_value x =
      structure_to_value
        [("ProvisionState",
           (Option.map x.provisionState ~f:ProvisionStateEnum.to_value));
        ("WorkspaceInstanceId",
          (Option.map x.workspaceInstanceId ~f:WorkspaceInstanceId.to_value));
        ("EC2ManagedInstance",
          (Option.map x.eC2ManagedInstance ~f:EC2ManagedInstance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eC2ManagedInstance =
        (Option.map ~f:EC2ManagedInstance.of_xml)
          (Xml.child xml_arg0 "EC2ManagedInstance") in
      let workspaceInstanceId =
        (Option.map ~f:WorkspaceInstanceId.of_xml)
          (Xml.child xml_arg0 "WorkspaceInstanceId") in
      let provisionState =
        (Option.map ~f:ProvisionStateEnum.of_xml)
          (Xml.child xml_arg0 "ProvisionState") in
      make ?eC2ManagedInstance ?workspaceInstanceId ?provisionState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eC2ManagedInstance =
        field_map json__ "EC2ManagedInstance" EC2ManagedInstance.of_json in
      let workspaceInstanceId =
        field_map json__ "WorkspaceInstanceId" WorkspaceInstanceId.of_json in
      let provisionState =
        field_map json__ "ProvisionState" ProvisionStateEnum.of_json in
      make ?eC2ManagedInstance ?workspaceInstanceId ?provisionState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a single WorkSpace Instance."]
module Region =
  struct
    type nonrec t =
      {
      regionName: RegionName.t option [@ocaml.doc "Name of the AWS region."]}
    let make ?regionName = fun () -> { regionName }
    let to_value x =
      structure_to_value
        [("RegionName", (Option.map x.regionName ~f:RegionName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regionName =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "RegionName") in
      make ?regionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regionName = field_map json__ "RegionName" RegionName.of_json in
      make ?regionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an AWS region supported by WorkSpaces Instances."]
module InstanceTypeInfo =
  struct
    type nonrec t =
      {
      instanceType: InstanceType.t option
        [@ocaml.doc "Unique identifier for the WorkSpace Instance type."];
      supportedInstanceConfigurations:
        SupportedInstanceConfigurations.t option
        [@ocaml.doc
          "Lists all valid combinations of tenancy, platform type, and billing mode supported for the specific WorkSpace Instance type. Contains the complete set of configuration options available for this instance type."]}
    let make ?instanceType =
      fun ?supportedInstanceConfigurations ->
        fun () -> { instanceType; supportedInstanceConfigurations }
    let to_value x =
      structure_to_value
        [("InstanceType",
           (Option.map x.instanceType ~f:InstanceType.to_value));
        ("SupportedInstanceConfigurations",
          (Option.map x.supportedInstanceConfigurations
             ~f:SupportedInstanceConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedInstanceConfigurations =
        (Option.map ~f:SupportedInstanceConfigurations.of_xml)
          (Xml.child xml_arg0 "SupportedInstanceConfigurations") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "InstanceType") in
      make ?supportedInstanceConfigurations ?instanceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedInstanceConfigurations =
        field_map json__ "SupportedInstanceConfigurations"
          SupportedInstanceConfigurations.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      make ?supportedInstanceConfigurations ?instanceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides details about a specific WorkSpace Instance type."]
module EC2InstanceError =
  struct
    type nonrec t =
      {
      eC2ErrorCode: String_.t option
        [@ocaml.doc
          "Unique error code identifying the specific EC2 instance error."];
      eC2ExceptionType: String_.t option
        [@ocaml.doc
          "Type of exception encountered during EC2 instance operation."];
      eC2ErrorMessage: String_.t option
        [@ocaml.doc "Detailed description of the EC2 instance error."]}
    let make ?eC2ErrorCode =
      fun ?eC2ExceptionType ->
        fun ?eC2ErrorMessage ->
          fun () -> { eC2ErrorCode; eC2ExceptionType; eC2ErrorMessage }
    let to_value x =
      structure_to_value
        [("EC2ErrorCode", (Option.map x.eC2ErrorCode ~f:String_.to_value));
        ("EC2ExceptionType",
          (Option.map x.eC2ExceptionType ~f:String_.to_value));
        ("EC2ErrorMessage",
          (Option.map x.eC2ErrorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eC2ErrorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EC2ErrorMessage") in
      let eC2ExceptionType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EC2ExceptionType") in
      let eC2ErrorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EC2ErrorCode") in
      make ?eC2ErrorMessage ?eC2ExceptionType ?eC2ErrorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eC2ErrorMessage =
        field_map json__ "EC2ErrorMessage" String_.of_json in
      let eC2ExceptionType =
        field_map json__ "EC2ExceptionType" String_.of_json in
      let eC2ErrorCode = field_map json__ "EC2ErrorCode" String_.of_json in
      make ?eC2ErrorMessage ?eC2ExceptionType ?eC2ErrorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Captures detailed error information for EC2 instance operations."]
module WorkspaceInstanceError =
  struct
    type nonrec t =
      {
      errorCode: String_.t option
        [@ocaml.doc "Unique error code for the WorkSpace Instance error."];
      errorMessage: String_.t option
        [@ocaml.doc "Detailed description of the WorkSpace Instance error."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?errorMessage ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let errorCode = field_map json__ "ErrorCode" String_.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Captures errors specific to WorkSpace Instance operations."]
module BlockDeviceMappings =
  struct
    type nonrec t = BlockDeviceMappingRequest.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:BlockDeviceMappingRequest.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:BlockDeviceMappingRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"BlockDeviceMappings"
        ~of_json:BlockDeviceMappingRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module CapacityReservationSpecification =
  struct
    type nonrec t =
      {
      capacityReservationPreference:
        CapacityReservationPreferenceEnum.t option
        [@ocaml.doc "Preference for using capacity reservation."];
      capacityReservationTarget: CapacityReservationTarget.t option
        [@ocaml.doc "Specific capacity reservation target."]}
    let make ?capacityReservationPreference =
      fun ?capacityReservationTarget ->
        fun () ->
          { capacityReservationPreference; capacityReservationTarget }
    let to_value x =
      structure_to_value
        [("CapacityReservationPreference",
           (Option.map x.capacityReservationPreference
              ~f:CapacityReservationPreferenceEnum.to_value));
        ("CapacityReservationTarget",
          (Option.map x.capacityReservationTarget
             ~f:CapacityReservationTarget.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityReservationTarget =
        (Option.map ~f:CapacityReservationTarget.of_xml)
          (Xml.child xml_arg0 "CapacityReservationTarget") in
      let capacityReservationPreference =
        (Option.map ~f:CapacityReservationPreferenceEnum.of_xml)
          (Xml.child xml_arg0 "CapacityReservationPreference") in
      make ?capacityReservationTarget ?capacityReservationPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityReservationTarget =
        field_map json__ "CapacityReservationTarget"
          CapacityReservationTarget.of_json in
      let capacityReservationPreference =
        field_map json__ "CapacityReservationPreference"
          CapacityReservationPreferenceEnum.of_json in
      make ?capacityReservationTarget ?capacityReservationPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies capacity reservation preferences."]
module CpuOptionsRequest =
  struct
    type nonrec t =
      {
      amdSevSnp: AmdSevSnpEnum.t option
        [@ocaml.doc "AMD Secure Encrypted Virtualization configuration."];
      coreCount: NonNegativeInteger.t option
        [@ocaml.doc "Number of CPU cores to allocate."];
      threadsPerCore: NonNegativeInteger.t option
        [@ocaml.doc "Number of threads per CPU core."]}
    let make ?amdSevSnp =
      fun ?coreCount ->
        fun ?threadsPerCore ->
          fun () -> { amdSevSnp; coreCount; threadsPerCore }
    let to_value x =
      structure_to_value
        [("AmdSevSnp", (Option.map x.amdSevSnp ~f:AmdSevSnpEnum.to_value));
        ("CoreCount",
          (Option.map x.coreCount ~f:NonNegativeInteger.to_value));
        ("ThreadsPerCore",
          (Option.map x.threadsPerCore ~f:NonNegativeInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let threadsPerCore =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "ThreadsPerCore") in
      let coreCount =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "CoreCount") in
      let amdSevSnp =
        (Option.map ~f:AmdSevSnpEnum.of_xml) (Xml.child xml_arg0 "AmdSevSnp") in
      make ?threadsPerCore ?coreCount ?amdSevSnp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let threadsPerCore =
        field_map json__ "ThreadsPerCore" NonNegativeInteger.of_json in
      let coreCount = field_map json__ "CoreCount" NonNegativeInteger.of_json in
      let amdSevSnp = field_map json__ "AmdSevSnp" AmdSevSnpEnum.of_json in
      make ?threadsPerCore ?coreCount ?amdSevSnp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configures CPU-specific settings for WorkSpace Instance."]
module CreditSpecificationRequest =
  struct
    type nonrec t =
      {
      cpuCredits: CpuCreditsEnum.t option
        [@ocaml.doc "CPU credit specification mode."]}
    let make ?cpuCredits = fun () -> { cpuCredits }
    let to_value x =
      structure_to_value
        [("CpuCredits", (Option.map x.cpuCredits ~f:CpuCreditsEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cpuCredits =
        (Option.map ~f:CpuCreditsEnum.of_xml)
          (Xml.child xml_arg0 "CpuCredits") in
      make ?cpuCredits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cpuCredits = field_map json__ "CpuCredits" CpuCreditsEnum.of_json in
      make ?cpuCredits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines CPU credit configuration for burstable instances."]
module EnclaveOptionsRequest =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc
          "Enables or disables AWS Nitro Enclaves for enhanced security."]}
    let make ?enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures AWS Nitro Enclave options for the WorkSpace Instance."]
module HibernationOptionsRequest =
  struct
    type nonrec t =
      {
      configured: Boolean.t option
        [@ocaml.doc "Enables or disables instance hibernation capability."]}
    let make ?configured = fun () -> { configured }
    let to_value x =
      structure_to_value
        [("Configured", (Option.map x.configured ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configured =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Configured") in
      make ?configured ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configured = field_map json__ "Configured" Boolean.of_json in
      make ?configured ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines hibernation configuration for the WorkSpace Instance."]
module IamInstanceProfileSpecification =
  struct
    type nonrec t =
      {
      arn: ARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the IAM instance profile."];
      name: String64.t option
        [@ocaml.doc "Name of the IAM instance profile."]}
    let make ?arn = fun ?name -> fun () -> { arn; name }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:ARN.to_value));
        ("Name", (Option.map x.name ~f:String64.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String64.of_json in
      let arn = field_map json__ "Arn" ARN.of_json in make ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines IAM instance profile configuration for WorkSpace Instance."]
module ImageId =
  struct
    type nonrec t = string
    let context_ = "ImageId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"ami-[0-9a-zA-Z]{1,63}"); 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:"ImageId" j
    let to_json = simple_to_json to_value
  end
module InstanceMaintenanceOptionsRequest =
  struct
    type nonrec t =
      {
      autoRecovery: AutoRecoveryEnum.t option
        [@ocaml.doc "Enables or disables automatic instance recovery."]}
    let make ?autoRecovery = fun () -> { autoRecovery }
    let to_value x =
      structure_to_value
        [("AutoRecovery",
           (Option.map x.autoRecovery ~f:AutoRecoveryEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoRecovery =
        (Option.map ~f:AutoRecoveryEnum.of_xml)
          (Xml.child xml_arg0 "AutoRecovery") in
      make ?autoRecovery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoRecovery =
        field_map json__ "AutoRecovery" AutoRecoveryEnum.of_json in
      make ?autoRecovery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures automatic maintenance settings for WorkSpace Instance."]
module InstanceMarketOptionsRequest =
  struct
    type nonrec t =
      {
      marketType: MarketTypeEnum.t option
        [@ocaml.doc
          "Specifies the type of marketplace for instance deployment."];
      spotOptions: SpotMarketOptions.t option
        [@ocaml.doc "Configuration options for spot instance deployment."]}
    let make ?marketType =
      fun ?spotOptions -> fun () -> { marketType; spotOptions }
    let to_value x =
      structure_to_value
        [("MarketType", (Option.map x.marketType ~f:MarketTypeEnum.to_value));
        ("SpotOptions",
          (Option.map x.spotOptions ~f:SpotMarketOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spotOptions =
        (Option.map ~f:SpotMarketOptions.of_xml)
          (Xml.child xml_arg0 "SpotOptions") in
      let marketType =
        (Option.map ~f:MarketTypeEnum.of_xml)
          (Xml.child xml_arg0 "MarketType") in
      make ?spotOptions ?marketType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spotOptions =
        field_map json__ "SpotOptions" SpotMarketOptions.of_json in
      let marketType = field_map json__ "MarketType" MarketTypeEnum.of_json in
      make ?spotOptions ?marketType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures marketplace-specific instance deployment options."]
module InstanceMetadataOptionsRequest =
  struct
    type nonrec t =
      {
      httpEndpoint: HttpEndpointEnum.t option
        [@ocaml.doc
          "Enables or disables HTTP endpoint for instance metadata."];
      httpProtocolIpv6: HttpProtocolIpv6Enum.t option
        [@ocaml.doc
          "Configures IPv6 support for instance metadata HTTP protocol."];
      httpPutResponseHopLimit: HttpPutResponseHopLimit.t option
        [@ocaml.doc
          "Sets maximum number of network hops for metadata PUT responses."];
      httpTokens: HttpTokensEnum.t option
        [@ocaml.doc
          "Configures token requirement for instance metadata retrieval."];
      instanceMetadataTags: InstanceMetadataTagsEnum.t option
        [@ocaml.doc "Enables or disables instance metadata tags retrieval."]}
    let make ?httpEndpoint =
      fun ?httpProtocolIpv6 ->
        fun ?httpPutResponseHopLimit ->
          fun ?httpTokens ->
            fun ?instanceMetadataTags ->
              fun () ->
                {
                  httpEndpoint;
                  httpProtocolIpv6;
                  httpPutResponseHopLimit;
                  httpTokens;
                  instanceMetadataTags
                }
    let to_value x =
      structure_to_value
        [("HttpEndpoint",
           (Option.map x.httpEndpoint ~f:HttpEndpointEnum.to_value));
        ("HttpProtocolIpv6",
          (Option.map x.httpProtocolIpv6 ~f:HttpProtocolIpv6Enum.to_value));
        ("HttpPutResponseHopLimit",
          (Option.map x.httpPutResponseHopLimit
             ~f:HttpPutResponseHopLimit.to_value));
        ("HttpTokens", (Option.map x.httpTokens ~f:HttpTokensEnum.to_value));
        ("InstanceMetadataTags",
          (Option.map x.instanceMetadataTags
             ~f:InstanceMetadataTagsEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceMetadataTags =
        (Option.map ~f:InstanceMetadataTagsEnum.of_xml)
          (Xml.child xml_arg0 "InstanceMetadataTags") in
      let httpTokens =
        (Option.map ~f:HttpTokensEnum.of_xml)
          (Xml.child xml_arg0 "HttpTokens") in
      let httpPutResponseHopLimit =
        (Option.map ~f:HttpPutResponseHopLimit.of_xml)
          (Xml.child xml_arg0 "HttpPutResponseHopLimit") in
      let httpProtocolIpv6 =
        (Option.map ~f:HttpProtocolIpv6Enum.of_xml)
          (Xml.child xml_arg0 "HttpProtocolIpv6") in
      let httpEndpoint =
        (Option.map ~f:HttpEndpointEnum.of_xml)
          (Xml.child xml_arg0 "HttpEndpoint") in
      make ?instanceMetadataTags ?httpTokens ?httpPutResponseHopLimit
        ?httpProtocolIpv6 ?httpEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceMetadataTags =
        field_map json__ "InstanceMetadataTags"
          InstanceMetadataTagsEnum.of_json in
      let httpTokens = field_map json__ "HttpTokens" HttpTokensEnum.of_json in
      let httpPutResponseHopLimit =
        field_map json__ "HttpPutResponseHopLimit"
          HttpPutResponseHopLimit.of_json in
      let httpProtocolIpv6 =
        field_map json__ "HttpProtocolIpv6" HttpProtocolIpv6Enum.of_json in
      let httpEndpoint =
        field_map json__ "HttpEndpoint" HttpEndpointEnum.of_json in
      make ?instanceMetadataTags ?httpTokens ?httpPutResponseHopLimit
        ?httpProtocolIpv6 ?httpEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines instance metadata service configuration."]
module InstanceNetworkPerformanceOptionsRequest =
  struct
    type nonrec t =
      {
      bandwidthWeighting: BandwidthWeightingEnum.t option
        [@ocaml.doc
          "Defines bandwidth allocation strategy for network interfaces."]}
    let make ?bandwidthWeighting = fun () -> { bandwidthWeighting }
    let to_value x =
      structure_to_value
        [("BandwidthWeighting",
           (Option.map x.bandwidthWeighting
              ~f:BandwidthWeightingEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bandwidthWeighting =
        (Option.map ~f:BandwidthWeightingEnum.of_xml)
          (Xml.child xml_arg0 "BandwidthWeighting") in
      make ?bandwidthWeighting ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bandwidthWeighting =
        field_map json__ "BandwidthWeighting" BandwidthWeightingEnum.of_json in
      make ?bandwidthWeighting ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures network performance settings for WorkSpace Instance."]
module LicenseSpecifications =
  struct
    type nonrec t = LicenseConfigurationRequest.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:LicenseConfigurationRequest.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:LicenseConfigurationRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseSpecifications"
        ~of_json:LicenseConfigurationRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkInterfaces =
  struct
    type nonrec t = InstanceNetworkInterfaceSpecification.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:InstanceNetworkInterfaceSpecification.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:InstanceNetworkInterfaceSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"NetworkInterfaces"
        ~of_json:InstanceNetworkInterfaceSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module Placement =
  struct
    type nonrec t =
      {
      affinity: String64.t option
        [@ocaml.doc "Specifies host affinity for dedicated instances."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc "Identifies the specific AWS availability zone."];
      groupId: PlacementGroupId.t option
        [@ocaml.doc "Unique identifier for placement group."];
      groupName: String64.t option
        [@ocaml.doc "Name of the placement group."];
      hostId: HostId.t option
        [@ocaml.doc "Identifies the specific dedicated host."];
      hostResourceGroupArn: ARN.t option
        [@ocaml.doc "ARN of the host resource group."];
      partitionNumber: NonNegativeInteger.t option
        [@ocaml.doc
          "Specifies partition number for partition placement groups."];
      tenancy: TenancyEnum.t option
        [@ocaml.doc "Defines instance tenancy configuration."]}
    let make ?affinity =
      fun ?availabilityZone ->
        fun ?groupId ->
          fun ?groupName ->
            fun ?hostId ->
              fun ?hostResourceGroupArn ->
                fun ?partitionNumber ->
                  fun ?tenancy ->
                    fun () ->
                      {
                        affinity;
                        availabilityZone;
                        groupId;
                        groupName;
                        hostId;
                        hostResourceGroupArn;
                        partitionNumber;
                        tenancy
                      }
    let to_value x =
      structure_to_value
        [("Affinity", (Option.map x.affinity ~f:String64.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("GroupId", (Option.map x.groupId ~f:PlacementGroupId.to_value));
        ("GroupName", (Option.map x.groupName ~f:String64.to_value));
        ("HostId", (Option.map x.hostId ~f:HostId.to_value));
        ("HostResourceGroupArn",
          (Option.map x.hostResourceGroupArn ~f:ARN.to_value));
        ("PartitionNumber",
          (Option.map x.partitionNumber ~f:NonNegativeInteger.to_value));
        ("Tenancy", (Option.map x.tenancy ~f:TenancyEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenancy =
        (Option.map ~f:TenancyEnum.of_xml) (Xml.child xml_arg0 "Tenancy") in
      let partitionNumber =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "PartitionNumber") in
      let hostResourceGroupArn =
        (Option.map ~f:ARN.of_xml)
          (Xml.child xml_arg0 "HostResourceGroupArn") in
      let hostId =
        (Option.map ~f:HostId.of_xml) (Xml.child xml_arg0 "HostId") in
      let groupName =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "GroupName") in
      let groupId =
        (Option.map ~f:PlacementGroupId.of_xml)
          (Xml.child xml_arg0 "GroupId") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let affinity =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "Affinity") in
      make ?tenancy ?partitionNumber ?hostResourceGroupArn ?hostId ?groupName
        ?groupId ?availabilityZone ?affinity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenancy = field_map json__ "Tenancy" TenancyEnum.of_json in
      let partitionNumber =
        field_map json__ "PartitionNumber" NonNegativeInteger.of_json in
      let hostResourceGroupArn =
        field_map json__ "HostResourceGroupArn" ARN.of_json in
      let hostId = field_map json__ "HostId" HostId.of_json in
      let groupName = field_map json__ "GroupName" String64.of_json in
      let groupId = field_map json__ "GroupId" PlacementGroupId.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let affinity = field_map json__ "Affinity" String64.of_json in
      make ?tenancy ?partitionNumber ?hostResourceGroupArn ?hostId ?groupName
        ?groupId ?availabilityZone ?affinity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines instance placement configuration for WorkSpace Instance."]
module PrivateDnsNameOptionsRequest =
  struct
    type nonrec t =
      {
      hostnameType: HostnameTypeEnum.t option
        [@ocaml.doc "Specifies the type of hostname configuration."];
      enableResourceNameDnsARecord: Boolean.t option
        [@ocaml.doc "Enables DNS A record for resource name resolution."];
      enableResourceNameDnsAAAARecord: Boolean.t option
        [@ocaml.doc "Enables DNS AAAA record for resource name resolution."]}
    let make ?hostnameType =
      fun ?enableResourceNameDnsARecord ->
        fun ?enableResourceNameDnsAAAARecord ->
          fun () ->
            {
              hostnameType;
              enableResourceNameDnsARecord;
              enableResourceNameDnsAAAARecord
            }
    let to_value x =
      structure_to_value
        [("HostnameType",
           (Option.map x.hostnameType ~f:HostnameTypeEnum.to_value));
        ("EnableResourceNameDnsARecord",
          (Option.map x.enableResourceNameDnsARecord ~f:Boolean.to_value));
        ("EnableResourceNameDnsAAAARecord",
          (Option.map x.enableResourceNameDnsAAAARecord ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableResourceNameDnsAAAARecord =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnableResourceNameDnsAAAARecord") in
      let enableResourceNameDnsARecord =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnableResourceNameDnsARecord") in
      let hostnameType =
        (Option.map ~f:HostnameTypeEnum.of_xml)
          (Xml.child xml_arg0 "HostnameType") in
      make ?enableResourceNameDnsAAAARecord ?enableResourceNameDnsARecord
        ?hostnameType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableResourceNameDnsAAAARecord =
        field_map json__ "EnableResourceNameDnsAAAARecord" Boolean.of_json in
      let enableResourceNameDnsARecord =
        field_map json__ "EnableResourceNameDnsARecord" Boolean.of_json in
      let hostnameType =
        field_map json__ "HostnameType" HostnameTypeEnum.of_json in
      make ?enableResourceNameDnsAAAARecord ?enableResourceNameDnsARecord
        ?hostnameType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures private DNS name settings for WorkSpace Instance."]
module RunInstancesMonitoringEnabled =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Enables or disables detailed instance monitoring."]}
    let make ?enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configures detailed monitoring for WorkSpace Instance."]
module SecurityGroupNames =
  struct
    type nonrec t = SecurityGroupName.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:SecurityGroupName.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:SecurityGroupName.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupNames"
        ~of_json:SecurityGroupName.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagSpecifications =
  struct
    type nonrec t = TagSpecification.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagSpecification.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:TagSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"TagSpecifications"
        ~of_json:TagSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserData =
  struct
    type nonrec t = string
    let context_ = "UserData"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:16000) >>=
             (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:"UserData" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Detailed explanation of the access denial."]}
    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
       "Indicates insufficient permissions to perform the requested action."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Description of the internal server error."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc "Recommended wait time 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 "Indicates an unexpected server-side error occurred."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Details about the missing resource."];
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource that was not found."];
      resourceType: String_.t option
        [@ocaml.doc "Type 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 "Indicates the requested resource could not be found."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Description of the throttling event."];
      serviceCode: String_.t option
        [@ocaml.doc "Code identifying the service experiencing throttling."];
      quotaCode: String_.t option
        [@ocaml.doc "Specific code for the throttling quota."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc "Recommended wait time before retrying the request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    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));
        ("QuotaCode", (Option.map x.quotaCode ~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 quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QuotaCode") 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 ?retryAfterSeconds ?quotaCode ?serviceCode ?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 quotaCode = field_map json__ "QuotaCode" 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 ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates the request rate has exceeded limits."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Overall description of validation failures."];
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "Specific reason for the validation failure."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "List of fields 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 "Indicates invalid input parameters in the request."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module WorkspaceInstances =
  struct
    type nonrec t = WorkspaceInstance.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:WorkspaceInstance.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:WorkspaceInstance.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceInstances"
        ~of_json:WorkspaceInstance.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:25) >>= (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 ProvisionStates =
  struct
    type nonrec t = ProvisionStateEnum.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:ProvisionStateEnum.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:ProvisionStateEnum.of_xml)
    let of_json j =
      list_of_json ~kind:"ProvisionStates"
        ~of_json:ProvisionStateEnum.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegionList =
  struct
    type nonrec t = Region.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:Region.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:Region.of_xml)
    let of_json j = list_of_json ~kind:"RegionList" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceTypes =
  struct
    type nonrec t = InstanceTypeInfo.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:InstanceTypeInfo.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:InstanceTypeInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceTypes" ~of_json:InstanceTypeInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceConfigurationFilter =
  struct
    type nonrec t =
      {
      billingMode: BillingMode.t
        [@ocaml.doc
          "Filters WorkSpace Instance types based on supported billing modes. Allows customers to search for instance types that support their preferred billing model, such as HOURLY or MONTHLY billing."];
      platformType: PlatformTypeEnum.t
        [@ocaml.doc
          "Filters WorkSpace Instance types by operating system platform. Allows customers to find instances that support their desired OS, such as Windows, Linux/UNIX, Ubuntu Pro, RHEL, or SUSE."];
      tenancy: InstanceConfigurationTenancyEnum.t
        [@ocaml.doc
          "Filters WorkSpace Instance types by tenancy model. Allows customers to find instances that match their tenancy requirements, such as SHARED or DEDICATED."]}
    let context_ = "InstanceConfigurationFilter"
    let make ~billingMode =
      fun ~platformType ->
        fun ~tenancy -> fun () -> { billingMode; platformType; tenancy }
    let to_value x =
      structure_to_value
        [("BillingMode", (Some (BillingMode.to_value x.billingMode)));
        ("PlatformType", (Some (PlatformTypeEnum.to_value x.platformType)));
        ("Tenancy",
          (Some (InstanceConfigurationTenancyEnum.to_value x.tenancy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenancy =
        InstanceConfigurationTenancyEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Tenancy") in
      let platformType =
        PlatformTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlatformType") in
      let billingMode =
        BillingMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BillingMode") in
      make ~tenancy ~platformType ~billingMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenancy =
        field_map_exn json__ "Tenancy"
          InstanceConfigurationTenancyEnum.of_json in
      let platformType =
        field_map_exn json__ "PlatformType" PlatformTypeEnum.of_json in
      let billingMode =
        field_map_exn json__ "BillingMode" BillingMode.of_json in
      make ~tenancy ~platformType ~billingMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines filtering criteria for WorkSpace Instance type searches. Combines multiple filter conditions including billing mode, platform type, and tenancy to help customers find instance types that meet their specific requirements."]
module ListInstanceTypesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:600) >>= (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 ListInstanceTypesMaxResults"
           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 BillingConfiguration =
  struct
    type nonrec t =
      {
      billingMode: BillingMode.t
        [@ocaml.doc
          "Specifies the billing mode for WorkSpace Instances. MONTHLY provides fixed monthly rates for predictable budgeting, while HOURLY enables pay-per-second billing for actual usage."]}
    let context_ = "BillingConfiguration"
    let make ~billingMode = fun () -> { billingMode }
    let to_value x =
      structure_to_value
        [("BillingMode", (Some (BillingMode.to_value x.billingMode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingMode =
        BillingMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BillingMode") in
      make ~billingMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingMode =
        field_map_exn json__ "BillingMode" BillingMode.of_json in
      make ~billingMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines billing configuration settings for WorkSpace Instances, containing the billing mode selection."]
module EC2InstanceErrors =
  struct
    type nonrec t = EC2InstanceError.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:EC2InstanceError.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:EC2InstanceError.of_xml)
    let of_json j =
      list_of_json ~kind:"EC2InstanceErrors"
        ~of_json:EC2InstanceError.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceInstanceErrors =
  struct
    type nonrec t = WorkspaceInstanceError.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:WorkspaceInstanceError.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:WorkspaceInstanceError.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceInstanceErrors"
        ~of_json:WorkspaceInstanceError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Description of the conflict encountered."];
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the conflicting resource."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the conflicting resource."]}
    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
       "Signals a conflict with the current state of the resource."]
module DisassociateModeEnum =
  struct
    type nonrec t =
      | FORCE 
      | NO_FORCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FORCE -> "FORCE"
      | NO_FORCE -> "NO_FORCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "FORCE" -> FORCE
      | "NO_FORCE" -> NO_FORCE
      | 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 DisassociateModeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DisassociateModeEnum" j)
    let to_json = simple_to_json to_value
  end
module VolumeId =
  struct
    type nonrec t = string
    let context_ = "VolumeId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"vol-[0-9a-zA-Z]{1,63}"); 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:"VolumeId" j
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Description of the quota limitation."];
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource related to the quota."];
      resourceType: String_.t option
        [@ocaml.doc "Type of resource related to the quota."];
      serviceCode: String_.t option
        [@ocaml.doc
          "Code identifying the service with the quota limitation."];
      quotaCode: String_.t option
        [@ocaml.doc "Specific code for the exceeded quota."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    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));
        ("ServiceCode", (Option.map x.serviceCode ~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 serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServiceCode") 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 message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?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 serviceCode = field_map json__ "ServiceCode" 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 message = field_map json__ "Message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that a service quota has been exceeded."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module ManagedInstanceRequest =
  struct
    type nonrec t =
      {
      blockDeviceMappings: BlockDeviceMappings.t option
        [@ocaml.doc "Configures block device mappings for storage."];
      capacityReservationSpecification:
        CapacityReservationSpecification.t option
        [@ocaml.doc "Specifies capacity reservation preferences."];
      cpuOptions: CpuOptionsRequest.t option
        [@ocaml.doc "Configures CPU-specific settings."];
      creditSpecification: CreditSpecificationRequest.t option
        [@ocaml.doc
          "Defines CPU credit configuration for burstable instances."];
      disableApiStop: Boolean.t option
        [@ocaml.doc "Prevents API-initiated instance stop."];
      ebsOptimized: Boolean.t option
        [@ocaml.doc "Enables optimized EBS performance."];
      enablePrimaryIpv6: Boolean.t option
        [@ocaml.doc "Enables primary IPv6 address configuration."];
      enclaveOptions: EnclaveOptionsRequest.t option
        [@ocaml.doc "Configures AWS Nitro Enclave settings."];
      hibernationOptions: HibernationOptionsRequest.t option
        [@ocaml.doc "Configures instance hibernation capabilities."];
      iamInstanceProfile: IamInstanceProfileSpecification.t option
        [@ocaml.doc "Specifies IAM instance profile configuration."];
      imageId: ImageId.t option
        [@ocaml.doc
          "Identifies the Amazon Machine Image (AMI) for the instance."];
      instanceMarketOptions: InstanceMarketOptionsRequest.t option
        [@ocaml.doc "Configures marketplace-specific deployment options."];
      instanceType: InstanceType.t option
        [@ocaml.doc "Specifies the WorkSpace Instance type."];
      ipv6Addresses: Ipv6Addresses.t option
        [@ocaml.doc "Configures specific IPv6 addresses."];
      ipv6AddressCount: NonNegativeInteger.t option
        [@ocaml.doc "Specifies number of IPv6 addresses to assign."];
      kernelId: String128.t option
        [@ocaml.doc "Identifies the kernel for the instance."];
      keyName: String64.t option
        [@ocaml.doc "Specifies the key pair for instance access."];
      licenseSpecifications: LicenseSpecifications.t option
        [@ocaml.doc "Configures license-related settings."];
      maintenanceOptions: InstanceMaintenanceOptionsRequest.t option
        [@ocaml.doc "Defines automatic maintenance settings."];
      metadataOptions: InstanceMetadataOptionsRequest.t option
        [@ocaml.doc "Configures instance metadata service settings."];
      monitoring: RunInstancesMonitoringEnabled.t option
        [@ocaml.doc "Enables or disables detailed instance monitoring."];
      networkInterfaces: NetworkInterfaces.t option
        [@ocaml.doc "Configures network interface settings."];
      networkPerformanceOptions:
        InstanceNetworkPerformanceOptionsRequest.t option
        [@ocaml.doc "Defines network performance configuration."];
      placement: Placement.t option
        [@ocaml.doc "Specifies instance placement preferences."];
      privateDnsNameOptions: PrivateDnsNameOptionsRequest.t option
        [@ocaml.doc "Configures private DNS name settings."];
      privateIpAddress: Ipv4Address.t option
        [@ocaml.doc "Specifies the primary private IP address."];
      ramdiskId: String128.t option
        [@ocaml.doc "Identifies the ramdisk for the instance."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc "Specifies security group identifiers."];
      securityGroups: SecurityGroupNames.t option
        [@ocaml.doc "Configures security group settings."];
      subnetId: SubnetId.t option
        [@ocaml.doc "Identifies the subnet for the instance."];
      tagSpecifications: TagSpecifications.t option
        [@ocaml.doc "Configures resource tagging specifications."];
      userData: UserData.t option
        [@ocaml.doc "Provides custom initialization data for the instance."]}
    let make ?blockDeviceMappings =
      fun ?capacityReservationSpecification ->
        fun ?cpuOptions ->
          fun ?creditSpecification ->
            fun ?disableApiStop ->
              fun ?ebsOptimized ->
                fun ?enablePrimaryIpv6 ->
                  fun ?enclaveOptions ->
                    fun ?hibernationOptions ->
                      fun ?iamInstanceProfile ->
                        fun ?imageId ->
                          fun ?instanceMarketOptions ->
                            fun ?instanceType ->
                              fun ?ipv6Addresses ->
                                fun ?ipv6AddressCount ->
                                  fun ?kernelId ->
                                    fun ?keyName ->
                                      fun ?licenseSpecifications ->
                                        fun ?maintenanceOptions ->
                                          fun ?metadataOptions ->
                                            fun ?monitoring ->
                                              fun ?networkInterfaces ->
                                                fun
                                                  ?networkPerformanceOptions
                                                  ->
                                                  fun ?placement ->
                                                    fun
                                                      ?privateDnsNameOptions
                                                      ->
                                                      fun ?privateIpAddress
                                                        ->
                                                        fun ?ramdiskId ->
                                                          fun
                                                            ?securityGroupIds
                                                            ->
                                                            fun
                                                              ?securityGroups
                                                              ->
                                                              fun ?subnetId
                                                                ->
                                                                fun
                                                                  ?tagSpecifications
                                                                  ->
                                                                  fun
                                                                    ?userData
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    blockDeviceMappings;
                                                                    capacityReservationSpecification;
                                                                    cpuOptions;
                                                                    creditSpecification;
                                                                    disableApiStop;
                                                                    ebsOptimized;
                                                                    enablePrimaryIpv6;
                                                                    enclaveOptions;
                                                                    hibernationOptions;
                                                                    iamInstanceProfile;
                                                                    imageId;
                                                                    instanceMarketOptions;
                                                                    instanceType;
                                                                    ipv6Addresses;
                                                                    ipv6AddressCount;
                                                                    kernelId;
                                                                    keyName;
                                                                    licenseSpecifications;
                                                                    maintenanceOptions;
                                                                    metadataOptions;
                                                                    monitoring;
                                                                    networkInterfaces;
                                                                    networkPerformanceOptions;
                                                                    placement;
                                                                    privateDnsNameOptions;
                                                                    privateIpAddress;
                                                                    ramdiskId;
                                                                    securityGroupIds;
                                                                    securityGroups;
                                                                    subnetId;
                                                                    tagSpecifications;
                                                                    userData
                                                                    }
    let to_value x =
      structure_to_value
        [("BlockDeviceMappings",
           (Option.map x.blockDeviceMappings ~f:BlockDeviceMappings.to_value));
        ("CapacityReservationSpecification",
          (Option.map x.capacityReservationSpecification
             ~f:CapacityReservationSpecification.to_value));
        ("CpuOptions",
          (Option.map x.cpuOptions ~f:CpuOptionsRequest.to_value));
        ("CreditSpecification",
          (Option.map x.creditSpecification
             ~f:CreditSpecificationRequest.to_value));
        ("DisableApiStop", (Option.map x.disableApiStop ~f:Boolean.to_value));
        ("EbsOptimized", (Option.map x.ebsOptimized ~f:Boolean.to_value));
        ("EnablePrimaryIpv6",
          (Option.map x.enablePrimaryIpv6 ~f:Boolean.to_value));
        ("EnclaveOptions",
          (Option.map x.enclaveOptions ~f:EnclaveOptionsRequest.to_value));
        ("HibernationOptions",
          (Option.map x.hibernationOptions
             ~f:HibernationOptionsRequest.to_value));
        ("IamInstanceProfile",
          (Option.map x.iamInstanceProfile
             ~f:IamInstanceProfileSpecification.to_value));
        ("ImageId", (Option.map x.imageId ~f:ImageId.to_value));
        ("InstanceMarketOptions",
          (Option.map x.instanceMarketOptions
             ~f:InstanceMarketOptionsRequest.to_value));
        ("InstanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("Ipv6Addresses",
          (Option.map x.ipv6Addresses ~f:Ipv6Addresses.to_value));
        ("Ipv6AddressCount",
          (Option.map x.ipv6AddressCount ~f:NonNegativeInteger.to_value));
        ("KernelId", (Option.map x.kernelId ~f:String128.to_value));
        ("KeyName", (Option.map x.keyName ~f:String64.to_value));
        ("LicenseSpecifications",
          (Option.map x.licenseSpecifications
             ~f:LicenseSpecifications.to_value));
        ("MaintenanceOptions",
          (Option.map x.maintenanceOptions
             ~f:InstanceMaintenanceOptionsRequest.to_value));
        ("MetadataOptions",
          (Option.map x.metadataOptions
             ~f:InstanceMetadataOptionsRequest.to_value));
        ("Monitoring",
          (Option.map x.monitoring ~f:RunInstancesMonitoringEnabled.to_value));
        ("NetworkInterfaces",
          (Option.map x.networkInterfaces ~f:NetworkInterfaces.to_value));
        ("NetworkPerformanceOptions",
          (Option.map x.networkPerformanceOptions
             ~f:InstanceNetworkPerformanceOptionsRequest.to_value));
        ("Placement", (Option.map x.placement ~f:Placement.to_value));
        ("PrivateDnsNameOptions",
          (Option.map x.privateDnsNameOptions
             ~f:PrivateDnsNameOptionsRequest.to_value));
        ("PrivateIpAddress",
          (Option.map x.privateIpAddress ~f:Ipv4Address.to_value));
        ("RamdiskId", (Option.map x.ramdiskId ~f:String128.to_value));
        ("SecurityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value));
        ("SecurityGroups",
          (Option.map x.securityGroups ~f:SecurityGroupNames.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("TagSpecifications",
          (Option.map x.tagSpecifications ~f:TagSpecifications.to_value));
        ("UserData", (Option.map x.userData ~f:UserData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userData =
        (Option.map ~f:UserData.of_xml) (Xml.child xml_arg0 "UserData") in
      let tagSpecifications =
        (Option.map ~f:TagSpecifications.of_xml)
          (Xml.child xml_arg0 "TagSpecifications") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let securityGroups =
        (Option.map ~f:SecurityGroupNames.of_xml)
          (Xml.child xml_arg0 "SecurityGroups") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "SecurityGroupIds") in
      let ramdiskId =
        (Option.map ~f:String128.of_xml) (Xml.child xml_arg0 "RamdiskId") in
      let privateIpAddress =
        (Option.map ~f:Ipv4Address.of_xml)
          (Xml.child xml_arg0 "PrivateIpAddress") in
      let privateDnsNameOptions =
        (Option.map ~f:PrivateDnsNameOptionsRequest.of_xml)
          (Xml.child xml_arg0 "PrivateDnsNameOptions") in
      let placement =
        (Option.map ~f:Placement.of_xml) (Xml.child xml_arg0 "Placement") in
      let networkPerformanceOptions =
        (Option.map ~f:InstanceNetworkPerformanceOptionsRequest.of_xml)
          (Xml.child xml_arg0 "NetworkPerformanceOptions") in
      let networkInterfaces =
        (Option.map ~f:NetworkInterfaces.of_xml)
          (Xml.child xml_arg0 "NetworkInterfaces") in
      let monitoring =
        (Option.map ~f:RunInstancesMonitoringEnabled.of_xml)
          (Xml.child xml_arg0 "Monitoring") in
      let metadataOptions =
        (Option.map ~f:InstanceMetadataOptionsRequest.of_xml)
          (Xml.child xml_arg0 "MetadataOptions") in
      let maintenanceOptions =
        (Option.map ~f:InstanceMaintenanceOptionsRequest.of_xml)
          (Xml.child xml_arg0 "MaintenanceOptions") in
      let licenseSpecifications =
        (Option.map ~f:LicenseSpecifications.of_xml)
          (Xml.child xml_arg0 "LicenseSpecifications") in
      let keyName =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "KeyName") in
      let kernelId =
        (Option.map ~f:String128.of_xml) (Xml.child xml_arg0 "KernelId") in
      let ipv6AddressCount =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "Ipv6AddressCount") in
      let ipv6Addresses =
        (Option.map ~f:Ipv6Addresses.of_xml)
          (Xml.child xml_arg0 "Ipv6Addresses") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "InstanceType") in
      let instanceMarketOptions =
        (Option.map ~f:InstanceMarketOptionsRequest.of_xml)
          (Xml.child xml_arg0 "InstanceMarketOptions") in
      let imageId =
        (Option.map ~f:ImageId.of_xml) (Xml.child xml_arg0 "ImageId") in
      let iamInstanceProfile =
        (Option.map ~f:IamInstanceProfileSpecification.of_xml)
          (Xml.child xml_arg0 "IamInstanceProfile") in
      let hibernationOptions =
        (Option.map ~f:HibernationOptionsRequest.of_xml)
          (Xml.child xml_arg0 "HibernationOptions") in
      let enclaveOptions =
        (Option.map ~f:EnclaveOptionsRequest.of_xml)
          (Xml.child xml_arg0 "EnclaveOptions") in
      let enablePrimaryIpv6 =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnablePrimaryIpv6") in
      let ebsOptimized =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EbsOptimized") in
      let disableApiStop =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DisableApiStop") in
      let creditSpecification =
        (Option.map ~f:CreditSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "CreditSpecification") in
      let cpuOptions =
        (Option.map ~f:CpuOptionsRequest.of_xml)
          (Xml.child xml_arg0 "CpuOptions") in
      let capacityReservationSpecification =
        (Option.map ~f:CapacityReservationSpecification.of_xml)
          (Xml.child xml_arg0 "CapacityReservationSpecification") in
      let blockDeviceMappings =
        (Option.map ~f:BlockDeviceMappings.of_xml)
          (Xml.child xml_arg0 "BlockDeviceMappings") in
      make ?userData ?tagSpecifications ?subnetId ?securityGroups
        ?securityGroupIds ?ramdiskId ?privateIpAddress ?privateDnsNameOptions
        ?placement ?networkPerformanceOptions ?networkInterfaces ?monitoring
        ?metadataOptions ?maintenanceOptions ?licenseSpecifications ?keyName
        ?kernelId ?ipv6AddressCount ?ipv6Addresses ?instanceType
        ?instanceMarketOptions ?imageId ?iamInstanceProfile
        ?hibernationOptions ?enclaveOptions ?enablePrimaryIpv6 ?ebsOptimized
        ?disableApiStop ?creditSpecification ?cpuOptions
        ?capacityReservationSpecification ?blockDeviceMappings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userData = field_map json__ "UserData" UserData.of_json in
      let tagSpecifications =
        field_map json__ "TagSpecifications" TagSpecifications.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let securityGroups =
        field_map json__ "SecurityGroups" SecurityGroupNames.of_json in
      let securityGroupIds =
        field_map json__ "SecurityGroupIds" SecurityGroupIds.of_json in
      let ramdiskId = field_map json__ "RamdiskId" String128.of_json in
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" Ipv4Address.of_json in
      let privateDnsNameOptions =
        field_map json__ "PrivateDnsNameOptions"
          PrivateDnsNameOptionsRequest.of_json in
      let placement = field_map json__ "Placement" Placement.of_json in
      let networkPerformanceOptions =
        field_map json__ "NetworkPerformanceOptions"
          InstanceNetworkPerformanceOptionsRequest.of_json in
      let networkInterfaces =
        field_map json__ "NetworkInterfaces" NetworkInterfaces.of_json in
      let monitoring =
        field_map json__ "Monitoring" RunInstancesMonitoringEnabled.of_json in
      let metadataOptions =
        field_map json__ "MetadataOptions"
          InstanceMetadataOptionsRequest.of_json in
      let maintenanceOptions =
        field_map json__ "MaintenanceOptions"
          InstanceMaintenanceOptionsRequest.of_json in
      let licenseSpecifications =
        field_map json__ "LicenseSpecifications"
          LicenseSpecifications.of_json in
      let keyName = field_map json__ "KeyName" String64.of_json in
      let kernelId = field_map json__ "KernelId" String128.of_json in
      let ipv6AddressCount =
        field_map json__ "Ipv6AddressCount" NonNegativeInteger.of_json in
      let ipv6Addresses =
        field_map json__ "Ipv6Addresses" Ipv6Addresses.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      let instanceMarketOptions =
        field_map json__ "InstanceMarketOptions"
          InstanceMarketOptionsRequest.of_json in
      let imageId = field_map json__ "ImageId" ImageId.of_json in
      let iamInstanceProfile =
        field_map json__ "IamInstanceProfile"
          IamInstanceProfileSpecification.of_json in
      let hibernationOptions =
        field_map json__ "HibernationOptions"
          HibernationOptionsRequest.of_json in
      let enclaveOptions =
        field_map json__ "EnclaveOptions" EnclaveOptionsRequest.of_json in
      let enablePrimaryIpv6 =
        field_map json__ "EnablePrimaryIpv6" Boolean.of_json in
      let ebsOptimized = field_map json__ "EbsOptimized" Boolean.of_json in
      let disableApiStop = field_map json__ "DisableApiStop" Boolean.of_json in
      let creditSpecification =
        field_map json__ "CreditSpecification"
          CreditSpecificationRequest.of_json in
      let cpuOptions =
        field_map json__ "CpuOptions" CpuOptionsRequest.of_json in
      let capacityReservationSpecification =
        field_map json__ "CapacityReservationSpecification"
          CapacityReservationSpecification.of_json in
      let blockDeviceMappings =
        field_map json__ "BlockDeviceMappings" BlockDeviceMappings.of_json in
      make ?userData ?tagSpecifications ?subnetId ?securityGroups
        ?securityGroupIds ?ramdiskId ?privateIpAddress ?privateDnsNameOptions
        ?placement ?networkPerformanceOptions ?networkInterfaces ?monitoring
        ?metadataOptions ?maintenanceOptions ?licenseSpecifications ?keyName
        ?kernelId ?ipv6AddressCount ?ipv6Addresses ?instanceType
        ?instanceMarketOptions ?imageId ?iamInstanceProfile
        ?hibernationOptions ?enclaveOptions ?enablePrimaryIpv6 ?ebsOptimized
        ?disableApiStop ?creditSpecification ?cpuOptions
        ?capacityReservationSpecification ?blockDeviceMappings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines comprehensive configuration for a managed WorkSpace Instance."]
module SnapshotId =
  struct
    type nonrec t = string
    let context_ = "SnapshotId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"snap-[0-9a-zA-Z]{1,63}"); 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:"SnapshotId" j
    let to_json = simple_to_json to_value
  end
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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)
      | "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)
      | "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))]
      | `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 "Confirms successful tag removal."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc "Unique identifier of the WorkSpace Instance to untag."];
      tagKeys: TagKeyList.t [@ocaml.doc "Keys of tags to be removed."]}
    let context_ = "UntagResourceRequest"
    let make ~workspaceInstanceId =
      fun ~tagKeys -> fun () -> { workspaceInstanceId; tagKeys }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ~tagKeys ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ~tagKeys ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies tags to remove from a WorkSpace Instance."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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)
      | "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)
      | "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))]
      | `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 "Confirms successful tag addition."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc "Unique identifier of the WorkSpace Instance to tag."];
      tags: TagList.t
        [@ocaml.doc "Tags to be added to the WorkSpace Instance."]}
    let context_ = "TagResourceRequest"
    let make ~workspaceInstanceId =
      fun ~tags -> fun () -> { workspaceInstanceId; tags }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ~tags ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ~tags ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies tags to add to a WorkSpace Instance."]
module ListWorkspaceInstancesResponse =
  struct
    type nonrec t =
      {
      workspaceInstances: WorkspaceInstances.t option
        [@ocaml.doc
          "Collection of WorkSpaces Instances returned by the query."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for retrieving additional WorkSpaces Instances if the result set is paginated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspaceInstances =
      fun ?nextToken -> fun () -> { workspaceInstances; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("WorkspaceInstances",
           (Option.map x.workspaceInstances ~f:WorkspaceInstances.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let workspaceInstances =
        (Option.map ~f:WorkspaceInstances.of_xml)
          (Xml.child xml_arg0 "WorkspaceInstances") in
      make ?nextToken ?workspaceInstances ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let workspaceInstances =
        field_map json__ "WorkspaceInstances" WorkspaceInstances.of_json in
      make ?nextToken ?workspaceInstances ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the list of WorkSpaces Instances matching the specified criteria."]
module ListWorkspaceInstancesRequest =
  struct
    type nonrec t =
      {
      provisionStates: ProvisionStates.t option
        [@ocaml.doc
          "Filter WorkSpaces Instances by their current provisioning states."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Maximum number of WorkSpaces Instances to return in a single response."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving subsequent pages of WorkSpaces Instances."]}
    let make ?provisionStates =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () -> { provisionStates; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("ProvisionStates",
           (Option.map x.provisionStates ~f:ProvisionStates.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let provisionStates =
        (Option.map ~f:ProvisionStates.of_xml)
          (Xml.child xml_arg0 "ProvisionStates") in
      make ?nextToken ?maxResults ?provisionStates ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let provisionStates =
        field_map json__ "ProvisionStates" ProvisionStates.of_json in
      make ?nextToken ?maxResults ?provisionStates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines filters and pagination parameters for retrieving WorkSpaces Instances."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "Collection of tags associated with the WorkSpace Instance."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | "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))]
      | `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 [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.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" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of tags for the specified WorkSpace Instance."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc "Unique identifier of the WorkSpace Instance."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~workspaceInstanceId = fun () -> { workspaceInstanceId }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the WorkSpace Instance to retrieve tags for."]
module ListRegionsResponse =
  struct
    type nonrec t =
      {
      regions: RegionList.t option
        [@ocaml.doc
          "Collection of AWS regions supported by WorkSpaces Instances."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for retrieving additional regions if the result set is paginated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?regions = fun ?nextToken -> fun () -> { regions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("Regions", (Option.map x.regions ~f:RegionList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let regions =
        (Option.map ~f:RegionList.of_xml) (Xml.child xml_arg0 "Regions") in
      make ?nextToken ?regions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let regions = field_map json__ "Regions" RegionList.of_json in
      make ?nextToken ?regions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the list of supported AWS regions for WorkSpaces Instances."]
module ListRegionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Maximum number of regions to return in a single API call. Enables pagination of region results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving subsequent pages of region results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines input parameters for retrieving supported WorkSpaces Instances regions."]
module ListInstanceTypesResponse =
  struct
    type nonrec t =
      {
      instanceTypes: InstanceTypes.t option
        [@ocaml.doc
          "Collection of supported instance types for WorkSpaces Instances."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for retrieving additional instance types if the result set is paginated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instanceTypes =
      fun ?nextToken -> fun () -> { instanceTypes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.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
        [("InstanceTypes",
           (Option.map x.instanceTypes ~f:InstanceTypes.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let instanceTypes =
        (Option.map ~f:InstanceTypes.of_xml)
          (Xml.child xml_arg0 "InstanceTypes") in
      make ?nextToken ?instanceTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let instanceTypes =
        field_map json__ "InstanceTypes" InstanceTypes.of_json in
      make ?nextToken ?instanceTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the list of instance types supported by WorkSpaces Instances."]
module ListInstanceTypesRequest =
  struct
    type nonrec t =
      {
      maxResults: ListInstanceTypesMaxResults.t option
        [@ocaml.doc
          "Maximum number of instance types to return in a single API call. Enables pagination of instance type results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving subsequent pages of instance type results."];
      instanceConfigurationFilter: InstanceConfigurationFilter.t option
        [@ocaml.doc
          "Optional filter to narrow instance type results based on configuration requirements. Only returns instance types that support the specified combination of tenancy, platform type, and billing mode."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?instanceConfigurationFilter ->
          fun () -> { maxResults; nextToken; instanceConfigurationFilter }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults ~f:ListInstanceTypesMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("InstanceConfigurationFilter",
          (Option.map x.instanceConfigurationFilter
             ~f:InstanceConfigurationFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceConfigurationFilter =
        (Option.map ~f:InstanceConfigurationFilter.of_xml)
          (Xml.child xml_arg0 "InstanceConfigurationFilter") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListInstanceTypesMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?instanceConfigurationFilter ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceConfigurationFilter =
        field_map json__ "InstanceConfigurationFilter"
          InstanceConfigurationFilter.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ListInstanceTypesMaxResults.of_json in
      make ?instanceConfigurationFilter ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines input parameters for retrieving supported WorkSpaces Instances instance types."]
module GetWorkspaceInstanceResponse =
  struct
    type nonrec t =
      {
      workspaceInstanceErrors: WorkspaceInstanceErrors.t option
        [@ocaml.doc
          "Captures any errors specific to the WorkSpace Instance lifecycle."];
      eC2InstanceErrors: EC2InstanceErrors.t option
        [@ocaml.doc
          "Includes any underlying EC2 instance errors encountered."];
      provisionState: ProvisionStateEnum.t option
        [@ocaml.doc "Current provisioning state of the WorkSpaces Instance."];
      workspaceInstanceId: WorkspaceInstanceId.t option
        [@ocaml.doc
          "Unique identifier of the retrieved WorkSpaces Instance."];
      eC2ManagedInstance: EC2ManagedInstance.t option
        [@ocaml.doc "Details of the associated EC2 managed instance."];
      billingConfiguration: BillingConfiguration.t option
        [@ocaml.doc
          "Returns the current billing configuration for the WorkSpace Instance, indicating the active billing mode."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?workspaceInstanceErrors =
      fun ?eC2InstanceErrors ->
        fun ?provisionState ->
          fun ?workspaceInstanceId ->
            fun ?eC2ManagedInstance ->
              fun ?billingConfiguration ->
                fun () ->
                  {
                    workspaceInstanceErrors;
                    eC2InstanceErrors;
                    provisionState;
                    workspaceInstanceId;
                    eC2ManagedInstance;
                    billingConfiguration
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | "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))]
      | `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
        [("WorkspaceInstanceErrors",
           (Option.map x.workspaceInstanceErrors
              ~f:WorkspaceInstanceErrors.to_value));
        ("EC2InstanceErrors",
          (Option.map x.eC2InstanceErrors ~f:EC2InstanceErrors.to_value));
        ("ProvisionState",
          (Option.map x.provisionState ~f:ProvisionStateEnum.to_value));
        ("WorkspaceInstanceId",
          (Option.map x.workspaceInstanceId ~f:WorkspaceInstanceId.to_value));
        ("EC2ManagedInstance",
          (Option.map x.eC2ManagedInstance ~f:EC2ManagedInstance.to_value));
        ("BillingConfiguration",
          (Option.map x.billingConfiguration ~f:BillingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingConfiguration =
        (Option.map ~f:BillingConfiguration.of_xml)
          (Xml.child xml_arg0 "BillingConfiguration") in
      let eC2ManagedInstance =
        (Option.map ~f:EC2ManagedInstance.of_xml)
          (Xml.child xml_arg0 "EC2ManagedInstance") in
      let workspaceInstanceId =
        (Option.map ~f:WorkspaceInstanceId.of_xml)
          (Xml.child xml_arg0 "WorkspaceInstanceId") in
      let provisionState =
        (Option.map ~f:ProvisionStateEnum.of_xml)
          (Xml.child xml_arg0 "ProvisionState") in
      let eC2InstanceErrors =
        (Option.map ~f:EC2InstanceErrors.of_xml)
          (Xml.child xml_arg0 "EC2InstanceErrors") in
      let workspaceInstanceErrors =
        (Option.map ~f:WorkspaceInstanceErrors.of_xml)
          (Xml.child xml_arg0 "WorkspaceInstanceErrors") in
      make ?billingConfiguration ?eC2ManagedInstance ?workspaceInstanceId
        ?provisionState ?eC2InstanceErrors ?workspaceInstanceErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingConfiguration =
        field_map json__ "BillingConfiguration" BillingConfiguration.of_json in
      let eC2ManagedInstance =
        field_map json__ "EC2ManagedInstance" EC2ManagedInstance.of_json in
      let workspaceInstanceId =
        field_map json__ "WorkspaceInstanceId" WorkspaceInstanceId.of_json in
      let provisionState =
        field_map json__ "ProvisionState" ProvisionStateEnum.of_json in
      let eC2InstanceErrors =
        field_map json__ "EC2InstanceErrors" EC2InstanceErrors.of_json in
      let workspaceInstanceErrors =
        field_map json__ "WorkspaceInstanceErrors"
          WorkspaceInstanceErrors.of_json in
      make ?billingConfiguration ?eC2ManagedInstance ?workspaceInstanceId
        ?provisionState ?eC2InstanceErrors ?workspaceInstanceErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides comprehensive details about the requested WorkSpaces Instance."]
module GetWorkspaceInstanceRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc
          "Unique identifier of the WorkSpace Instance to retrieve."]}
    let context_ = "GetWorkspaceInstanceRequest"
    let make ~workspaceInstanceId = fun () -> { workspaceInstanceId }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the WorkSpaces Instance to retrieve detailed information for."]
module DisassociateVolumeResponse =
  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 "Confirms volume detachment."]
module DisassociateVolumeRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc "WorkSpace Instance to detach volume from."];
      volumeId: VolumeId.t [@ocaml.doc "Volume to be detached."];
      device: DeviceName.t option
        [@ocaml.doc "Device path of volume to detach."];
      disassociateMode: DisassociateModeEnum.t option
        [@ocaml.doc "Mode for volume detachment."]}
    let context_ = "DisassociateVolumeRequest"
    let make ?device =
      fun ?disassociateMode ->
        fun ~workspaceInstanceId ->
          fun ~volumeId ->
            fun () ->
              { device; disassociateMode; workspaceInstanceId; volumeId }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)));
        ("VolumeId", (Some (VolumeId.to_value x.volumeId)));
        ("Device", (Option.map x.device ~f:DeviceName.to_value));
        ("DisassociateMode",
          (Option.map x.disassociateMode ~f:DisassociateModeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disassociateMode =
        (Option.map ~f:DisassociateModeEnum.of_xml)
          (Xml.child xml_arg0 "DisassociateMode") in
      let device =
        (Option.map ~f:DeviceName.of_xml) (Xml.child xml_arg0 "Device") in
      let volumeId =
        VolumeId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VolumeId") in
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ?disassociateMode ?device ~volumeId ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disassociateMode =
        field_map json__ "DisassociateMode" DisassociateModeEnum.of_json in
      let device = field_map json__ "Device" DeviceName.of_json in
      let volumeId = field_map_exn json__ "VolumeId" VolumeId.of_json in
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ?disassociateMode ?device ~volumeId ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies volume detachment parameters."]
module DeleteWorkspaceInstanceResponse =
  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
       "Confirms the successful deletion of the specified WorkSpace Instance."]
module DeleteWorkspaceInstanceRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc
          "Unique identifier of the WorkSpaces Instance targeted for deletion."]}
    let context_ = "DeleteWorkspaceInstanceRequest"
    let make ~workspaceInstanceId = fun () -> { workspaceInstanceId }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The WorkSpace to delete"]
module DeleteVolumeResponse =
  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 "Confirms volume deletion."]
module DeleteVolumeRequest =
  struct
    type nonrec t =
      {
      volumeId: VolumeId.t [@ocaml.doc "Identifier of the volume to delete."]}
    let context_ = "DeleteVolumeRequest"
    let make ~volumeId = fun () -> { volumeId }
    let to_value x =
      structure_to_value
        [("VolumeId", (Some (VolumeId.to_value x.volumeId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeId =
        VolumeId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VolumeId") in
      make ~volumeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeId = field_map_exn json__ "VolumeId" VolumeId.of_json in
      make ~volumeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the volume to delete."]
module CreateWorkspaceInstanceResponse =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t option
        [@ocaml.doc
          "Unique identifier assigned to the newly created WorkSpaces Instance."]}
    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 ?workspaceInstanceId = fun () -> { workspaceInstanceId }
    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
        [("WorkspaceInstanceId",
           (Option.map x.workspaceInstanceId ~f:WorkspaceInstanceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceInstanceId =
        (Option.map ~f:WorkspaceInstanceId.of_xml)
          (Xml.child xml_arg0 "WorkspaceInstanceId") in
      make ?workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceInstanceId =
        field_map json__ "WorkspaceInstanceId" WorkspaceInstanceId.of_json in
      make ?workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the unique identifier for the newly created WorkSpaces Instance."]
module CreateWorkspaceInstanceRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique token to ensure idempotent instance creation, preventing duplicate workspace launches."];
      tags: TagList.t option
        [@ocaml.doc
          "Optional metadata tags for categorizing and managing WorkSpaces Instances."];
      managedInstance: ManagedInstanceRequest.t
        [@ocaml.doc
          "Comprehensive configuration settings for the WorkSpaces Instance, including network, compute, and storage parameters."];
      billingConfiguration: BillingConfiguration.t option
        [@ocaml.doc
          "Optional billing configuration for the WorkSpace Instance. Allows customers to specify their preferred billing mode when creating a new instance. Defaults to hourly billing if not specified."]}
    let context_ = "CreateWorkspaceInstanceRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ?billingConfiguration ->
          fun ~managedInstance ->
            fun () ->
              { clientToken; tags; billingConfiguration; managedInstance }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ManagedInstance",
          (Some (ManagedInstanceRequest.to_value x.managedInstance)));
        ("BillingConfiguration",
          (Option.map x.billingConfiguration ~f:BillingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingConfiguration =
        (Option.map ~f:BillingConfiguration.of_xml)
          (Xml.child xml_arg0 "BillingConfiguration") in
      let managedInstance =
        ManagedInstanceRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManagedInstance") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?billingConfiguration ~managedInstance ?tags ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingConfiguration =
        field_map json__ "BillingConfiguration" BillingConfiguration.of_json in
      let managedInstance =
        field_map_exn json__ "ManagedInstance" ManagedInstanceRequest.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?billingConfiguration ~managedInstance ?tags ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the configuration parameters for creating a new WorkSpaces Instance."]
module CreateVolumeResponse =
  struct
    type nonrec t =
      {
      volumeId: VolumeId.t option
        [@ocaml.doc "Unique identifier for the new volume."]}
    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 ?volumeId = fun () -> { volumeId }
    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
        [("VolumeId", (Option.map x.volumeId ~f:VolumeId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeId =
        (Option.map ~f:VolumeId.of_xml) (Xml.child xml_arg0 "VolumeId") in
      make ?volumeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeId = field_map json__ "VolumeId" VolumeId.of_json in
      make ?volumeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the created volume identifier."]
module CreateVolumeRequest =
  struct
    type nonrec t =
      {
      availabilityZone: String64.t
        [@ocaml.doc "Availability zone for the volume."];
      clientToken: ClientToken.t option
        [@ocaml.doc "Unique token to prevent duplicate volume creation."];
      encrypted: Boolean.t option
        [@ocaml.doc "Indicates if the volume should be encrypted."];
      iops: NonNegativeInteger.t option
        [@ocaml.doc "Input/output operations per second for the volume."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc "KMS key for volume encryption."];
      sizeInGB: NonNegativeInteger.t option
        [@ocaml.doc "Volume size in gigabytes."];
      snapshotId: SnapshotId.t option
        [@ocaml.doc "Source snapshot for volume creation."];
      tagSpecifications: TagSpecifications.t option
        [@ocaml.doc "Metadata tags for the volume."];
      throughput: NonNegativeInteger.t option
        [@ocaml.doc "Volume throughput performance."];
      volumeType: VolumeTypeEnum.t option [@ocaml.doc "Type of EBS volume."]}
    let context_ = "CreateVolumeRequest"
    let make ?clientToken =
      fun ?encrypted ->
        fun ?iops ->
          fun ?kmsKeyId ->
            fun ?sizeInGB ->
              fun ?snapshotId ->
                fun ?tagSpecifications ->
                  fun ?throughput ->
                    fun ?volumeType ->
                      fun ~availabilityZone ->
                        fun () ->
                          {
                            clientToken;
                            encrypted;
                            iops;
                            kmsKeyId;
                            sizeInGB;
                            snapshotId;
                            tagSpecifications;
                            throughput;
                            volumeType;
                            availabilityZone
                          }
    let to_value x =
      structure_to_value
        [("AvailabilityZone", (Some (String64.to_value x.availabilityZone)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("Iops", (Option.map x.iops ~f:NonNegativeInteger.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("SizeInGB", (Option.map x.sizeInGB ~f:NonNegativeInteger.to_value));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("TagSpecifications",
          (Option.map x.tagSpecifications ~f:TagSpecifications.to_value));
        ("Throughput",
          (Option.map x.throughput ~f:NonNegativeInteger.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:VolumeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeType =
        (Option.map ~f:VolumeTypeEnum.of_xml)
          (Xml.child xml_arg0 "VolumeType") in
      let throughput =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "Throughput") in
      let tagSpecifications =
        (Option.map ~f:TagSpecifications.of_xml)
          (Xml.child xml_arg0 "TagSpecifications") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let sizeInGB =
        (Option.map ~f:NonNegativeInteger.of_xml)
          (Xml.child xml_arg0 "SizeInGB") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let iops =
        (Option.map ~f:NonNegativeInteger.of_xml) (Xml.child xml_arg0 "Iops") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let availabilityZone =
        String64.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AvailabilityZone") in
      make ?volumeType ?throughput ?tagSpecifications ?snapshotId ?sizeInGB
        ?kmsKeyId ?iops ?encrypted ?clientToken ~availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeType = field_map json__ "VolumeType" VolumeTypeEnum.of_json in
      let throughput =
        field_map json__ "Throughput" NonNegativeInteger.of_json in
      let tagSpecifications =
        field_map json__ "TagSpecifications" TagSpecifications.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let sizeInGB = field_map json__ "SizeInGB" NonNegativeInteger.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let iops = field_map json__ "Iops" NonNegativeInteger.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let availabilityZone =
        field_map_exn json__ "AvailabilityZone" String64.of_json in
      make ?volumeType ?throughput ?tagSpecifications ?snapshotId ?sizeInGB
        ?kmsKeyId ?iops ?encrypted ?clientToken ~availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies volume creation parameters."]
module AssociateVolumeResponse =
  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 "Confirms volume attachment."]
module AssociateVolumeRequest =
  struct
    type nonrec t =
      {
      workspaceInstanceId: WorkspaceInstanceId.t
        [@ocaml.doc "WorkSpace Instance to attach volume to."];
      volumeId: VolumeId.t [@ocaml.doc "Volume to be attached."];
      device: DeviceName.t [@ocaml.doc "Device path for volume attachment."]}
    let context_ = "AssociateVolumeRequest"
    let make ~workspaceInstanceId =
      fun ~volumeId ->
        fun ~device -> fun () -> { workspaceInstanceId; volumeId; device }
    let to_value x =
      structure_to_value
        [("WorkspaceInstanceId",
           (Some (WorkspaceInstanceId.to_value x.workspaceInstanceId)));
        ("VolumeId", (Some (VolumeId.to_value x.volumeId)));
        ("Device", (Some (DeviceName.to_value x.device)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let device =
        DeviceName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Device") in
      let volumeId =
        VolumeId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VolumeId") in
      let workspaceInstanceId =
        WorkspaceInstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceInstanceId") in
      make ~device ~volumeId ~workspaceInstanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let device = field_map_exn json__ "Device" DeviceName.of_json in
      let volumeId = field_map_exn json__ "VolumeId" VolumeId.of_json in
      let workspaceInstanceId =
        field_map_exn json__ "WorkspaceInstanceId"
          WorkspaceInstanceId.of_json in
      make ~device ~volumeId ~workspaceInstanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies volume attachment parameters."]