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
let apiVersion = "2015-04-08"
let endpointPrefix = "workspaces"
let serviceFullName = "Amazon WorkSpaces"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "WorkspacesService"
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 AccessEndpointType =
  struct
    type nonrec t =
      | STREAMING_WSP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | STREAMING_WSP -> "STREAMING_WSP" | Non_static_id s -> s
    let of_string =
      function | "STREAMING_WSP" -> STREAMING_WSP | 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 AccessEndpointType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccessEndpointType" j)
    let to_json = simple_to_json to_value
  end
module AlphanumericDashUnderscoreNonEmptyString =
  struct
    type nonrec t = string
    let context_ = "AlphanumericDashUnderscoreNonEmptyString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[a-zA-Z0-9\\_\\-]{1,1000}$");
        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:"AlphanumericDashUnderscoreNonEmptyString" j
    let to_json = simple_to_json to_value
  end
module StorageConnectorStatusEnum =
  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 StorageConnectorStatusEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StorageConnectorStatusEnum" j)
    let to_json = simple_to_json to_value
  end
module StorageConnectorTypeEnum =
  struct
    type nonrec t =
      | HOME_FOLDER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | HOME_FOLDER -> "HOME_FOLDER" | Non_static_id s -> s
    let of_string =
      function | "HOME_FOLDER" -> HOME_FOLDER | 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 StorageConnectorTypeEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StorageConnectorTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module MaximumLength =
  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 MaximumLength" 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 UserSettingActionEnum =
  struct
    type nonrec t =
      | CLIPBOARD_COPY_FROM_LOCAL_DEVICE 
      | CLIPBOARD_COPY_TO_LOCAL_DEVICE 
      | PRINTING_TO_LOCAL_DEVICE 
      | SMART_CARD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CLIPBOARD_COPY_FROM_LOCAL_DEVICE ->
          "CLIPBOARD_COPY_FROM_LOCAL_DEVICE"
      | CLIPBOARD_COPY_TO_LOCAL_DEVICE -> "CLIPBOARD_COPY_TO_LOCAL_DEVICE"
      | PRINTING_TO_LOCAL_DEVICE -> "PRINTING_TO_LOCAL_DEVICE"
      | SMART_CARD -> "SMART_CARD"
      | Non_static_id s -> s
    let of_string =
      function
      | "CLIPBOARD_COPY_FROM_LOCAL_DEVICE" ->
          CLIPBOARD_COPY_FROM_LOCAL_DEVICE
      | "CLIPBOARD_COPY_TO_LOCAL_DEVICE" -> CLIPBOARD_COPY_TO_LOCAL_DEVICE
      | "PRINTING_TO_LOCAL_DEVICE" -> PRINTING_TO_LOCAL_DEVICE
      | "SMART_CARD" -> SMART_CARD
      | 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 UserSettingActionEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"UserSettingActionEnum" j)
    let to_json = simple_to_json to_value
  end
module UserSettingPermissionEnum =
  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 UserSettingPermissionEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"UserSettingPermissionEnum" j)
    let to_json = simple_to_json to_value
  end
module AccessEndpoint =
  struct
    type nonrec t =
      {
      accessEndpointType: AccessEndpointType.t option
        [@ocaml.doc "Indicates the type of access endpoint."];
      vpcEndpointId: AlphanumericDashUnderscoreNonEmptyString.t option
        [@ocaml.doc "Indicates the VPC endpoint to use for access."]}
    let make ?accessEndpointType =
      fun ?vpcEndpointId -> fun () -> { accessEndpointType; vpcEndpointId }
    let to_value x =
      structure_to_value
        [("AccessEndpointType",
           (Option.map x.accessEndpointType ~f:AccessEndpointType.to_value));
        ("VpcEndpointId",
          (Option.map x.vpcEndpointId
             ~f:AlphanumericDashUnderscoreNonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        (Option.map ~f:AlphanumericDashUnderscoreNonEmptyString.of_xml)
          (Xml.child xml_arg0 "VpcEndpointId") in
      let accessEndpointType =
        (Option.map ~f:AccessEndpointType.of_xml)
          (Xml.child xml_arg0 "AccessEndpointType") in
      make ?vpcEndpointId ?accessEndpointType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map json__ "VpcEndpointId"
          AlphanumericDashUnderscoreNonEmptyString.of_json in
      let accessEndpointType =
        field_map json__ "AccessEndpointType" AccessEndpointType.of_json in
      make ?vpcEndpointId ?accessEndpointType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the access type and endpoint for a WorkSpace."]
module InternetFallbackProtocol =
  struct
    type nonrec t =
      | PCOIP 
      | Non_static_id of string 
    let make i = i
    let to_string = function | PCOIP -> "PCOIP" | Non_static_id s -> s
    let of_string = function | "PCOIP" -> PCOIP | 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 InternetFallbackProtocol" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InternetFallbackProtocol" 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_max i ~max:127) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max: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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module AGAModeForWorkSpaceEnum =
  struct
    type nonrec t =
      | ENABLED_AUTO 
      | DISABLED 
      | INHERITED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED_AUTO -> "ENABLED_AUTO"
      | DISABLED -> "DISABLED"
      | INHERITED -> "INHERITED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED_AUTO" -> ENABLED_AUTO
      | "DISABLED" -> DISABLED
      | "INHERITED" -> INHERITED
      | 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 AGAModeForWorkSpaceEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AGAModeForWorkSpaceEnum" j)
    let to_json = simple_to_json to_value
  end
module AGAPreferredProtocolForWorkSpace =
  struct
    type nonrec t =
      | TCP 
      | NONE 
      | INHERITED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TCP -> "TCP"
      | NONE -> "NONE"
      | INHERITED -> "INHERITED"
      | Non_static_id s -> s
    let of_string =
      function
      | "TCP" -> TCP
      | "NONE" -> NONE
      | "INHERITED" -> INHERITED
      | 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 AGAPreferredProtocolForWorkSpace"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AGAPreferredProtocolForWorkSpace" j)
    let to_json = simple_to_json to_value
  end
module Protocol =
  struct
    type nonrec t =
      | PCOIP 
      | WSP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | PCOIP -> "PCOIP" | WSP -> "WSP" | Non_static_id s -> s
    let of_string =
      function | "PCOIP" -> PCOIP | "WSP" -> WSP | 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 Protocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Protocol" j)
    let to_json = simple_to_json to_value
  end
module ModificationResourceEnum =
  struct
    type nonrec t =
      | ROOT_VOLUME 
      | USER_VOLUME 
      | COMPUTE_TYPE 
      | PROTOCOL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ROOT_VOLUME -> "ROOT_VOLUME"
      | USER_VOLUME -> "USER_VOLUME"
      | COMPUTE_TYPE -> "COMPUTE_TYPE"
      | PROTOCOL -> "PROTOCOL"
      | Non_static_id s -> s
    let of_string =
      function
      | "ROOT_VOLUME" -> ROOT_VOLUME
      | "USER_VOLUME" -> USER_VOLUME
      | "COMPUTE_TYPE" -> COMPUTE_TYPE
      | "PROTOCOL" -> PROTOCOL
      | 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 ModificationResourceEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ModificationResourceEnum" j)
    let to_json = simple_to_json to_value
  end
module ModificationStateEnum =
  struct
    type nonrec t =
      | UPDATE_INITIATED 
      | UPDATE_IN_PROGRESS 
      | UPDATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UPDATE_INITIATED -> "UPDATE_INITIATED"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UPDATE_INITIATED" -> UPDATE_INITIATED
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | 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 ModificationStateEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ModificationStateEnum" j)
    let to_json = simple_to_json to_value
  end
module Region =
  struct
    type nonrec t = string
    let context_ = "Region"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:31) >>=
                  (fun () -> 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:"Region" j
    let to_json = simple_to_json to_value
  end
module StandbyWorkspaceRelationshipType =
  struct
    type nonrec t =
      | PRIMARY 
      | STANDBY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRIMARY -> "PRIMARY"
      | STANDBY -> "STANDBY"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRIMARY" -> PRIMARY
      | "STANDBY" -> STANDBY
      | 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 StandbyWorkspaceRelationshipType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StandbyWorkspaceRelationshipType" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceId =
  struct
    type nonrec t = string
    let context_ = "WorkspaceId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^ws-[0-9a-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:"WorkspaceId" j
    let to_json = simple_to_json to_value
  end
module WorkspaceState =
  struct
    type nonrec t =
      | PENDING 
      | AVAILABLE 
      | IMPAIRED 
      | UNHEALTHY 
      | REBOOTING 
      | STARTING 
      | REBUILDING 
      | RESTORING 
      | MAINTENANCE 
      | ADMIN_MAINTENANCE 
      | TERMINATING 
      | TERMINATED 
      | SUSPENDED 
      | UPDATING 
      | STOPPING 
      | STOPPED 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | AVAILABLE -> "AVAILABLE"
      | IMPAIRED -> "IMPAIRED"
      | UNHEALTHY -> "UNHEALTHY"
      | REBOOTING -> "REBOOTING"
      | STARTING -> "STARTING"
      | REBUILDING -> "REBUILDING"
      | RESTORING -> "RESTORING"
      | MAINTENANCE -> "MAINTENANCE"
      | ADMIN_MAINTENANCE -> "ADMIN_MAINTENANCE"
      | TERMINATING -> "TERMINATING"
      | TERMINATED -> "TERMINATED"
      | SUSPENDED -> "SUSPENDED"
      | UPDATING -> "UPDATING"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "AVAILABLE" -> AVAILABLE
      | "IMPAIRED" -> IMPAIRED
      | "UNHEALTHY" -> UNHEALTHY
      | "REBOOTING" -> REBOOTING
      | "STARTING" -> STARTING
      | "REBUILDING" -> REBUILDING
      | "RESTORING" -> RESTORING
      | "MAINTENANCE" -> MAINTENANCE
      | "ADMIN_MAINTENANCE" -> ADMIN_MAINTENANCE
      | "TERMINATING" -> TERMINATING
      | "TERMINATED" -> TERMINATED
      | "SUSPENDED" -> SUSPENDED
      | "UPDATING" -> UPDATING
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "ERROR" -> ERROR
      | 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 WorkspaceState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkspaceState" j)
    let to_json = simple_to_json to_value
  end
module DataReplication =
  struct
    type nonrec t =
      | NO_REPLICATION 
      | PRIMARY_AS_SOURCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NO_REPLICATION -> "NO_REPLICATION"
      | PRIMARY_AS_SOURCE -> "PRIMARY_AS_SOURCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NO_REPLICATION" -> NO_REPLICATION
      | "PRIMARY_AS_SOURCE" -> PRIMARY_AS_SOURCE
      | 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 DataReplication" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataReplication" 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 ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module WorkspacesPoolErrorCode =
  struct
    type nonrec t =
      | IAM_SERVICE_ROLE_IS_MISSING 
      | IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION 
      | IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION 
      | IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION 
      | NETWORK_INTERFACE_LIMIT_EXCEEDED 
      | INTERNAL_SERVICE_ERROR 
      | MACHINE_ROLE_IS_MISSING 
      | STS_DISABLED_IN_REGION 
      | SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES 
      | IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION 
      | SUBNET_NOT_FOUND 
      | IMAGE_NOT_FOUND 
      | INVALID_SUBNET_CONFIGURATION 
      | SECURITY_GROUPS_NOT_FOUND 
      | IGW_NOT_ATTACHED 
      | IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION 
      | WORKSPACES_POOL_STOPPED 
      | WORKSPACES_POOL_INSTANCE_PROVISIONING_FAILURE 
      | DOMAIN_JOIN_ERROR_FILE_NOT_FOUND 
      | DOMAIN_JOIN_ERROR_ACCESS_DENIED 
      | DOMAIN_JOIN_ERROR_LOGON_FAILURE 
      | DOMAIN_JOIN_ERROR_INVALID_PARAMETER 
      | DOMAIN_JOIN_ERROR_MORE_DATA 
      | DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN 
      | DOMAIN_JOIN_ERROR_NOT_SUPPORTED 
      | DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME 
      | DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED 
      | DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED 
      | DOMAIN_JOIN_NERR_PASSWORD_EXPIRED 
      | DOMAIN_JOIN_INTERNAL_SERVICE_ERROR 
      | DOMAIN_JOIN_ERROR_SECRET_ACTION_PERMISSION_IS_MISSING 
      | DOMAIN_JOIN_ERROR_SECRET_DECRYPTION_FAILURE 
      | DOMAIN_JOIN_ERROR_SECRET_STATE_INVALID 
      | DOMAIN_JOIN_ERROR_SECRET_NOT_FOUND 
      | DOMAIN_JOIN_ERROR_SECRET_VALUE_KEY_NOT_FOUND 
      | DOMAIN_JOIN_ERROR_SECRET_INVALID 
      | BUNDLE_NOT_FOUND 
      | DIRECTORY_NOT_FOUND 
      | INSUFFICIENT_PERMISSIONS_ERROR 
      | DEFAULT_OU_IS_MISSING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IAM_SERVICE_ROLE_IS_MISSING -> "IAM_SERVICE_ROLE_IS_MISSING"
      | IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION ->
          "IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION"
      | IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION ->
          "IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION"
      | IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION ->
          "IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION"
      | NETWORK_INTERFACE_LIMIT_EXCEEDED ->
          "NETWORK_INTERFACE_LIMIT_EXCEEDED"
      | INTERNAL_SERVICE_ERROR -> "INTERNAL_SERVICE_ERROR"
      | MACHINE_ROLE_IS_MISSING -> "MACHINE_ROLE_IS_MISSING"
      | STS_DISABLED_IN_REGION -> "STS_DISABLED_IN_REGION"
      | SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES ->
          "SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES"
      | IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION ->
          "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION"
      | SUBNET_NOT_FOUND -> "SUBNET_NOT_FOUND"
      | IMAGE_NOT_FOUND -> "IMAGE_NOT_FOUND"
      | INVALID_SUBNET_CONFIGURATION -> "INVALID_SUBNET_CONFIGURATION"
      | SECURITY_GROUPS_NOT_FOUND -> "SECURITY_GROUPS_NOT_FOUND"
      | IGW_NOT_ATTACHED -> "IGW_NOT_ATTACHED"
      | IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION ->
          "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION"
      | WORKSPACES_POOL_STOPPED -> "WORKSPACES_POOL_STOPPED"
      | WORKSPACES_POOL_INSTANCE_PROVISIONING_FAILURE ->
          "WORKSPACES_POOL_INSTANCE_PROVISIONING_FAILURE"
      | DOMAIN_JOIN_ERROR_FILE_NOT_FOUND ->
          "DOMAIN_JOIN_ERROR_FILE_NOT_FOUND"
      | DOMAIN_JOIN_ERROR_ACCESS_DENIED -> "DOMAIN_JOIN_ERROR_ACCESS_DENIED"
      | DOMAIN_JOIN_ERROR_LOGON_FAILURE -> "DOMAIN_JOIN_ERROR_LOGON_FAILURE"
      | DOMAIN_JOIN_ERROR_INVALID_PARAMETER ->
          "DOMAIN_JOIN_ERROR_INVALID_PARAMETER"
      | DOMAIN_JOIN_ERROR_MORE_DATA -> "DOMAIN_JOIN_ERROR_MORE_DATA"
      | DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN ->
          "DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN"
      | DOMAIN_JOIN_ERROR_NOT_SUPPORTED -> "DOMAIN_JOIN_ERROR_NOT_SUPPORTED"
      | DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME ->
          "DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME"
      | DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED ->
          "DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED"
      | DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED ->
          "DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED"
      | DOMAIN_JOIN_NERR_PASSWORD_EXPIRED ->
          "DOMAIN_JOIN_NERR_PASSWORD_EXPIRED"
      | DOMAIN_JOIN_INTERNAL_SERVICE_ERROR ->
          "DOMAIN_JOIN_INTERNAL_SERVICE_ERROR"
      | DOMAIN_JOIN_ERROR_SECRET_ACTION_PERMISSION_IS_MISSING ->
          "DOMAIN_JOIN_ERROR_SECRET_ACTION_PERMISSION_IS_MISSING"
      | DOMAIN_JOIN_ERROR_SECRET_DECRYPTION_FAILURE ->
          "DOMAIN_JOIN_ERROR_SECRET_DECRYPTION_FAILURE"
      | DOMAIN_JOIN_ERROR_SECRET_STATE_INVALID ->
          "DOMAIN_JOIN_ERROR_SECRET_STATE_INVALID"
      | DOMAIN_JOIN_ERROR_SECRET_NOT_FOUND ->
          "DOMAIN_JOIN_ERROR_SECRET_NOT_FOUND"
      | DOMAIN_JOIN_ERROR_SECRET_VALUE_KEY_NOT_FOUND ->
          "DOMAIN_JOIN_ERROR_SECRET_VALUE_KEY_NOT_FOUND"
      | DOMAIN_JOIN_ERROR_SECRET_INVALID ->
          "DOMAIN_JOIN_ERROR_SECRET_INVALID"
      | BUNDLE_NOT_FOUND -> "BUNDLE_NOT_FOUND"
      | DIRECTORY_NOT_FOUND -> "DIRECTORY_NOT_FOUND"
      | INSUFFICIENT_PERMISSIONS_ERROR -> "INSUFFICIENT_PERMISSIONS_ERROR"
      | DEFAULT_OU_IS_MISSING -> "DEFAULT_OU_IS_MISSING"
      | Non_static_id s -> s
    let of_string =
      function
      | "IAM_SERVICE_ROLE_IS_MISSING" -> IAM_SERVICE_ROLE_IS_MISSING
      | "IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION" ->
          IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION
      | "IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION" ->
          IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION
      | "IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION" ->
          IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION
      | "NETWORK_INTERFACE_LIMIT_EXCEEDED" ->
          NETWORK_INTERFACE_LIMIT_EXCEEDED
      | "INTERNAL_SERVICE_ERROR" -> INTERNAL_SERVICE_ERROR
      | "MACHINE_ROLE_IS_MISSING" -> MACHINE_ROLE_IS_MISSING
      | "STS_DISABLED_IN_REGION" -> STS_DISABLED_IN_REGION
      | "SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES" ->
          SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES
      | "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION" ->
          IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION
      | "SUBNET_NOT_FOUND" -> SUBNET_NOT_FOUND
      | "IMAGE_NOT_FOUND" -> IMAGE_NOT_FOUND
      | "INVALID_SUBNET_CONFIGURATION" -> INVALID_SUBNET_CONFIGURATION
      | "SECURITY_GROUPS_NOT_FOUND" -> SECURITY_GROUPS_NOT_FOUND
      | "IGW_NOT_ATTACHED" -> IGW_NOT_ATTACHED
      | "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION" ->
          IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION
      | "WORKSPACES_POOL_STOPPED" -> WORKSPACES_POOL_STOPPED
      | "WORKSPACES_POOL_INSTANCE_PROVISIONING_FAILURE" ->
          WORKSPACES_POOL_INSTANCE_PROVISIONING_FAILURE
      | "DOMAIN_JOIN_ERROR_FILE_NOT_FOUND" ->
          DOMAIN_JOIN_ERROR_FILE_NOT_FOUND
      | "DOMAIN_JOIN_ERROR_ACCESS_DENIED" -> DOMAIN_JOIN_ERROR_ACCESS_DENIED
      | "DOMAIN_JOIN_ERROR_LOGON_FAILURE" -> DOMAIN_JOIN_ERROR_LOGON_FAILURE
      | "DOMAIN_JOIN_ERROR_INVALID_PARAMETER" ->
          DOMAIN_JOIN_ERROR_INVALID_PARAMETER
      | "DOMAIN_JOIN_ERROR_MORE_DATA" -> DOMAIN_JOIN_ERROR_MORE_DATA
      | "DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN" ->
          DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN
      | "DOMAIN_JOIN_ERROR_NOT_SUPPORTED" -> DOMAIN_JOIN_ERROR_NOT_SUPPORTED
      | "DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME" ->
          DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME
      | "DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED" ->
          DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED
      | "DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED" ->
          DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED
      | "DOMAIN_JOIN_NERR_PASSWORD_EXPIRED" ->
          DOMAIN_JOIN_NERR_PASSWORD_EXPIRED
      | "DOMAIN_JOIN_INTERNAL_SERVICE_ERROR" ->
          DOMAIN_JOIN_INTERNAL_SERVICE_ERROR
      | "DOMAIN_JOIN_ERROR_SECRET_ACTION_PERMISSION_IS_MISSING" ->
          DOMAIN_JOIN_ERROR_SECRET_ACTION_PERMISSION_IS_MISSING
      | "DOMAIN_JOIN_ERROR_SECRET_DECRYPTION_FAILURE" ->
          DOMAIN_JOIN_ERROR_SECRET_DECRYPTION_FAILURE
      | "DOMAIN_JOIN_ERROR_SECRET_STATE_INVALID" ->
          DOMAIN_JOIN_ERROR_SECRET_STATE_INVALID
      | "DOMAIN_JOIN_ERROR_SECRET_NOT_FOUND" ->
          DOMAIN_JOIN_ERROR_SECRET_NOT_FOUND
      | "DOMAIN_JOIN_ERROR_SECRET_VALUE_KEY_NOT_FOUND" ->
          DOMAIN_JOIN_ERROR_SECRET_VALUE_KEY_NOT_FOUND
      | "DOMAIN_JOIN_ERROR_SECRET_INVALID" ->
          DOMAIN_JOIN_ERROR_SECRET_INVALID
      | "BUNDLE_NOT_FOUND" -> BUNDLE_NOT_FOUND
      | "DIRECTORY_NOT_FOUND" -> DIRECTORY_NOT_FOUND
      | "INSUFFICIENT_PERMISSIONS_ERROR" -> INSUFFICIENT_PERMISSIONS_ERROR
      | "DEFAULT_OU_IS_MISSING" -> DEFAULT_OU_IS_MISSING
      | 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 WorkspacesPoolErrorCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkspacesPoolErrorCode" j)
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    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:"Description" j
    let to_json = simple_to_json to_value
  end
module WorkspaceImageErrorDetailCode =
  struct
    type nonrec t =
      | OutdatedPowershellVersion 
      | OfficeInstalled 
      | PCoIPAgentInstalled 
      | WindowsUpdatesEnabled 
      | AutoMountDisabled 
      | WorkspacesBYOLAccountNotFound 
      | WorkspacesBYOLAccountDisabled 
      | DHCPDisabled 
      | DiskFreeSpace 
      | AdditionalDrivesAttached 
      | OSNotSupported 
      | DomainJoined 
      | AzureDomainJoined 
      | FirewallEnabled 
      | VMWareToolsInstalled 
      | DiskSizeExceeded 
      | IncompatiblePartitioning 
      | PendingReboot 
      | AutoLogonEnabled 
      | RealTimeUniversalDisabled 
      | MultipleBootPartition 
      | Requires64BitOS 
      | ZeroRearmCount 
      | InPlaceUpgrade 
      | AntiVirusInstalled 
      | UEFINotSupported 
      | UnknownError 
      | AppXPackagesInstalled 
      | ReservedStorageInUse 
      | AdditionalDrivesPresent 
      | WindowsUpdatesRequired 
      | SysPrepFileMissing 
      | UserProfileMissing 
      | InsufficientDiskSpace 
      | EnvironmentVariablesPathMissingEntries 
      | DomainAccountServicesFound 
      | InvalidIp 
      | RemoteDesktopServicesDisabled 
      | WindowsModulesInstallerDisabled 
      | AmazonSsmAgentEnabled 
      | UnsupportedSecurityProtocol 
      | MultipleUserProfiles 
      | StagedAppxPackage 
      | UnsupportedOsUpgrade 
      | InsufficientRearmCount 
      | ProtocolOSIncompatibility 
      | MemoryIntegrityIncompatibility 
      | RestrictedDriveLetterInUse 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OutdatedPowershellVersion -> "OutdatedPowershellVersion"
      | OfficeInstalled -> "OfficeInstalled"
      | PCoIPAgentInstalled -> "PCoIPAgentInstalled"
      | WindowsUpdatesEnabled -> "WindowsUpdatesEnabled"
      | AutoMountDisabled -> "AutoMountDisabled"
      | WorkspacesBYOLAccountNotFound -> "WorkspacesBYOLAccountNotFound"
      | WorkspacesBYOLAccountDisabled -> "WorkspacesBYOLAccountDisabled"
      | DHCPDisabled -> "DHCPDisabled"
      | DiskFreeSpace -> "DiskFreeSpace"
      | AdditionalDrivesAttached -> "AdditionalDrivesAttached"
      | OSNotSupported -> "OSNotSupported"
      | DomainJoined -> "DomainJoined"
      | AzureDomainJoined -> "AzureDomainJoined"
      | FirewallEnabled -> "FirewallEnabled"
      | VMWareToolsInstalled -> "VMWareToolsInstalled"
      | DiskSizeExceeded -> "DiskSizeExceeded"
      | IncompatiblePartitioning -> "IncompatiblePartitioning"
      | PendingReboot -> "PendingReboot"
      | AutoLogonEnabled -> "AutoLogonEnabled"
      | RealTimeUniversalDisabled -> "RealTimeUniversalDisabled"
      | MultipleBootPartition -> "MultipleBootPartition"
      | Requires64BitOS -> "Requires64BitOS"
      | ZeroRearmCount -> "ZeroRearmCount"
      | InPlaceUpgrade -> "InPlaceUpgrade"
      | AntiVirusInstalled -> "AntiVirusInstalled"
      | UEFINotSupported -> "UEFINotSupported"
      | UnknownError -> "UnknownError"
      | AppXPackagesInstalled -> "AppXPackagesInstalled"
      | ReservedStorageInUse -> "ReservedStorageInUse"
      | AdditionalDrivesPresent -> "AdditionalDrivesPresent"
      | WindowsUpdatesRequired -> "WindowsUpdatesRequired"
      | SysPrepFileMissing -> "SysPrepFileMissing"
      | UserProfileMissing -> "UserProfileMissing"
      | InsufficientDiskSpace -> "InsufficientDiskSpace"
      | EnvironmentVariablesPathMissingEntries ->
          "EnvironmentVariablesPathMissingEntries"
      | DomainAccountServicesFound -> "DomainAccountServicesFound"
      | InvalidIp -> "InvalidIp"
      | RemoteDesktopServicesDisabled -> "RemoteDesktopServicesDisabled"
      | WindowsModulesInstallerDisabled -> "WindowsModulesInstallerDisabled"
      | AmazonSsmAgentEnabled -> "AmazonSsmAgentEnabled"
      | UnsupportedSecurityProtocol -> "UnsupportedSecurityProtocol"
      | MultipleUserProfiles -> "MultipleUserProfiles"
      | StagedAppxPackage -> "StagedAppxPackage"
      | UnsupportedOsUpgrade -> "UnsupportedOsUpgrade"
      | InsufficientRearmCount -> "InsufficientRearmCount"
      | ProtocolOSIncompatibility -> "ProtocolOSIncompatibility"
      | MemoryIntegrityIncompatibility -> "MemoryIntegrityIncompatibility"
      | RestrictedDriveLetterInUse -> "RestrictedDriveLetterInUse"
      | Non_static_id s -> s
    let of_string =
      function
      | "OutdatedPowershellVersion" -> OutdatedPowershellVersion
      | "OfficeInstalled" -> OfficeInstalled
      | "PCoIPAgentInstalled" -> PCoIPAgentInstalled
      | "WindowsUpdatesEnabled" -> WindowsUpdatesEnabled
      | "AutoMountDisabled" -> AutoMountDisabled
      | "WorkspacesBYOLAccountNotFound" -> WorkspacesBYOLAccountNotFound
      | "WorkspacesBYOLAccountDisabled" -> WorkspacesBYOLAccountDisabled
      | "DHCPDisabled" -> DHCPDisabled
      | "DiskFreeSpace" -> DiskFreeSpace
      | "AdditionalDrivesAttached" -> AdditionalDrivesAttached
      | "OSNotSupported" -> OSNotSupported
      | "DomainJoined" -> DomainJoined
      | "AzureDomainJoined" -> AzureDomainJoined
      | "FirewallEnabled" -> FirewallEnabled
      | "VMWareToolsInstalled" -> VMWareToolsInstalled
      | "DiskSizeExceeded" -> DiskSizeExceeded
      | "IncompatiblePartitioning" -> IncompatiblePartitioning
      | "PendingReboot" -> PendingReboot
      | "AutoLogonEnabled" -> AutoLogonEnabled
      | "RealTimeUniversalDisabled" -> RealTimeUniversalDisabled
      | "MultipleBootPartition" -> MultipleBootPartition
      | "Requires64BitOS" -> Requires64BitOS
      | "ZeroRearmCount" -> ZeroRearmCount
      | "InPlaceUpgrade" -> InPlaceUpgrade
      | "AntiVirusInstalled" -> AntiVirusInstalled
      | "UEFINotSupported" -> UEFINotSupported
      | "UnknownError" -> UnknownError
      | "AppXPackagesInstalled" -> AppXPackagesInstalled
      | "ReservedStorageInUse" -> ReservedStorageInUse
      | "AdditionalDrivesPresent" -> AdditionalDrivesPresent
      | "WindowsUpdatesRequired" -> WindowsUpdatesRequired
      | "SysPrepFileMissing" -> SysPrepFileMissing
      | "UserProfileMissing" -> UserProfileMissing
      | "InsufficientDiskSpace" -> InsufficientDiskSpace
      | "EnvironmentVariablesPathMissingEntries" ->
          EnvironmentVariablesPathMissingEntries
      | "DomainAccountServicesFound" -> DomainAccountServicesFound
      | "InvalidIp" -> InvalidIp
      | "RemoteDesktopServicesDisabled" -> RemoteDesktopServicesDisabled
      | "WindowsModulesInstallerDisabled" -> WindowsModulesInstallerDisabled
      | "AmazonSsmAgentEnabled" -> AmazonSsmAgentEnabled
      | "UnsupportedSecurityProtocol" -> UnsupportedSecurityProtocol
      | "MultipleUserProfiles" -> MultipleUserProfiles
      | "StagedAppxPackage" -> StagedAppxPackage
      | "UnsupportedOsUpgrade" -> UnsupportedOsUpgrade
      | "InsufficientRearmCount" -> InsufficientRearmCount
      | "ProtocolOSIncompatibility" -> ProtocolOSIncompatibility
      | "MemoryIntegrityIncompatibility" -> MemoryIntegrityIncompatibility
      | "RestrictedDriveLetterInUse" -> RestrictedDriveLetterInUse
      | 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 WorkspaceImageErrorDetailCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkspaceImageErrorDetailCode" j)
    let to_json = simple_to_json to_value
  end
module AGAModeForDirectoryEnum =
  struct
    type nonrec t =
      | ENABLED_AUTO 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED_AUTO -> "ENABLED_AUTO"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED_AUTO" -> ENABLED_AUTO
      | "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 AGAModeForDirectoryEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AGAModeForDirectoryEnum" j)
    let to_json = simple_to_json to_value
  end
module AGAPreferredProtocolForDirectory =
  struct
    type nonrec t =
      | TCP 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TCP -> "TCP" | NONE -> "NONE" | Non_static_id s -> s
    let of_string =
      function | "TCP" -> TCP | "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 AGAPreferredProtocolForDirectory"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AGAPreferredProtocolForDirectory" j)
    let to_json = simple_to_json to_value
  end
module StorageConnector =
  struct
    type nonrec t =
      {
      connectorType: StorageConnectorTypeEnum.t
        [@ocaml.doc "The type of connector used to save user files."];
      status: StorageConnectorStatusEnum.t
        [@ocaml.doc
          "Indicates if the storage connetor is enabled or disabled."]}
    let context_ = "StorageConnector"
    let make ~connectorType =
      fun ~status -> fun () -> { connectorType; status }
    let to_value x =
      structure_to_value
        [("ConnectorType",
           (Some (StorageConnectorTypeEnum.to_value x.connectorType)));
        ("Status", (Some (StorageConnectorStatusEnum.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        StorageConnectorStatusEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let connectorType =
        StorageConnectorTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectorType") in
      make ~status ~connectorType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "Status" StorageConnectorStatusEnum.of_json in
      let connectorType =
        field_map_exn json__ "ConnectorType" StorageConnectorTypeEnum.of_json in
      make ~status ~connectorType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the storage connector."]
module UserSetting =
  struct
    type nonrec t =
      {
      action: UserSettingActionEnum.t
        [@ocaml.doc "Indicates the type of action."];
      permission: UserSettingPermissionEnum.t
        [@ocaml.doc "Indicates if the setting is enabled or disabled."];
      maximumLength: MaximumLength.t option
        [@ocaml.doc
          "Indicates the maximum character length for the specified user setting."]}
    let context_ = "UserSetting"
    let make ?maximumLength =
      fun ~action ->
        fun ~permission -> fun () -> { maximumLength; action; permission }
    let to_value x =
      structure_to_value
        [("Action", (Some (UserSettingActionEnum.to_value x.action)));
        ("Permission",
          (Some (UserSettingPermissionEnum.to_value x.permission)));
        ("MaximumLength",
          (Option.map x.maximumLength ~f:MaximumLength.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumLength =
        (Option.map ~f:MaximumLength.of_xml)
          (Xml.child xml_arg0 "MaximumLength") in
      let permission =
        UserSettingPermissionEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Permission") in
      let action =
        UserSettingActionEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      make ?maximumLength ~permission ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumLength =
        field_map json__ "MaximumLength" MaximumLength.of_json in
      let permission =
        field_map_exn json__ "Permission" UserSettingPermissionEnum.of_json in
      let action =
        field_map_exn json__ "Action" UserSettingActionEnum.of_json in
      make ?maximumLength ~permission ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the user's permission settings."]
module AccessEndpointList =
  struct
    type nonrec t = AccessEndpoint.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:AccessEndpoint.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:AccessEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessEndpointList" ~of_json:AccessEndpoint.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module InternetFallbackProtocolList =
  struct
    type nonrec t = InternetFallbackProtocol.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:InternetFallbackProtocol.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:InternetFallbackProtocol.of_xml)
    let of_json j =
      list_of_json ~kind:"InternetFallbackProtocolList"
        ~of_json:InternetFallbackProtocol.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpRule =
  struct
    type nonrec t = string
    let context_ = "IpRule"
    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:"IpRule" j
    let to_json = simple_to_json to_value
  end
module IpRuleDesc =
  struct
    type nonrec t = string
    let context_ = "IpRuleDesc"
    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:"IpRuleDesc" j
    let to_json = simple_to_json to_value
  end
module AssociationStatus =
  struct
    type nonrec t =
      | NOT_ASSOCIATED 
      | ASSOCIATED_WITH_OWNER_ACCOUNT 
      | ASSOCIATED_WITH_SHARED_ACCOUNT 
      | PENDING_ASSOCIATION 
      | PENDING_DISASSOCIATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_ASSOCIATED -> "NOT_ASSOCIATED"
      | ASSOCIATED_WITH_OWNER_ACCOUNT -> "ASSOCIATED_WITH_OWNER_ACCOUNT"
      | ASSOCIATED_WITH_SHARED_ACCOUNT -> "ASSOCIATED_WITH_SHARED_ACCOUNT"
      | PENDING_ASSOCIATION -> "PENDING_ASSOCIATION"
      | PENDING_DISASSOCIATION -> "PENDING_DISASSOCIATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_ASSOCIATED" -> NOT_ASSOCIATED
      | "ASSOCIATED_WITH_OWNER_ACCOUNT" -> ASSOCIATED_WITH_OWNER_ACCOUNT
      | "ASSOCIATED_WITH_SHARED_ACCOUNT" -> ASSOCIATED_WITH_SHARED_ACCOUNT
      | "PENDING_ASSOCIATION" -> PENDING_ASSOCIATION
      | "PENDING_DISASSOCIATION" -> PENDING_DISASSOCIATION
      | 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 AssociationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module AwsAccount =
  struct
    type nonrec t = string
    let context_ = "AwsAccount"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^\\d{12}$"); 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:"AwsAccount" j
    let to_json = simple_to_json to_value
  end
module ConnectionIdentifier =
  struct
    type nonrec t = string
    let context_ = "ConnectionIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectionIdentifier" j
    let to_json = simple_to_json to_value
  end
module NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    let make i =
      let open Result in ok_or_failwith (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:"NonEmptyString" j
    let to_json = simple_to_json to_value
  end
module AssociationErrorCode =
  struct
    type nonrec t =
      | ValidationError_InsufficientDiskSpace 
      | ValidationError_InsufficientMemory 
      | ValidationError_UnsupportedOperatingSystem 
      | DeploymentError_InternalServerError 
      | DeploymentError_WorkspaceUnreachable 
      | ValidationError_ApplicationOldVersionExists 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ValidationError_InsufficientDiskSpace ->
          "ValidationError.InsufficientDiskSpace"
      | ValidationError_InsufficientMemory ->
          "ValidationError.InsufficientMemory"
      | ValidationError_UnsupportedOperatingSystem ->
          "ValidationError.UnsupportedOperatingSystem"
      | DeploymentError_InternalServerError ->
          "DeploymentError.InternalServerError"
      | DeploymentError_WorkspaceUnreachable ->
          "DeploymentError.WorkspaceUnreachable"
      | ValidationError_ApplicationOldVersionExists ->
          "ValidationError.ApplicationOldVersionExists"
      | Non_static_id s -> s
    let of_string =
      function
      | "ValidationError.InsufficientDiskSpace" ->
          ValidationError_InsufficientDiskSpace
      | "ValidationError.InsufficientMemory" ->
          ValidationError_InsufficientMemory
      | "ValidationError.UnsupportedOperatingSystem" ->
          ValidationError_UnsupportedOperatingSystem
      | "DeploymentError.InternalServerError" ->
          DeploymentError_InternalServerError
      | "DeploymentError.WorkspaceUnreachable" ->
          DeploymentError_WorkspaceUnreachable
      | "ValidationError.ApplicationOldVersionExists" ->
          ValidationError_ApplicationOldVersionExists
      | 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 AssociationErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssociationErrorCode" j)
    let to_json = simple_to_json to_value
  end
module String2048 =
  struct
    type nonrec t = string
    let context_ = "String2048"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"String2048" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key of the tag."];
      value: TagValue.t option [@ocaml.doc "The value of the tag."]}
    let context_ = "Tag"
    let make ?value = fun ~key -> fun () -> { value; key }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("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 =
        TagKey.of_xml (Xml.child_exn ~context:context_ 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_exn json__ "Key" TagKey.of_json in
      make ?value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a tag."]
module Compute =
  struct
    type nonrec t =
      | VALUE 
      | STANDARD 
      | PERFORMANCE 
      | POWER 
      | GRAPHICS 
      | POWERPRO 
      | GENERALPURPOSE_4XLARGE 
      | GENERALPURPOSE_8XLARGE 
      | GRAPHICSPRO 
      | GRAPHICS_G4DN 
      | GRAPHICSPRO_G4DN 
      | GRAPHICS_G6_XLARGE 
      | GRAPHICS_G6_2XLARGE 
      | GRAPHICS_G6_4XLARGE 
      | GRAPHICS_G6_8XLARGE 
      | GRAPHICS_G6_16XLARGE 
      | GRAPHICS_GR6_4XLARGE 
      | GRAPHICS_GR6_8XLARGE 
      | GRAPHICS_G6F_LARGE 
      | GRAPHICS_G6F_XLARGE 
      | GRAPHICS_G6F_2XLARGE 
      | GRAPHICS_G6F_4XLARGE 
      | GRAPHICS_GR6F_4XLARGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VALUE -> "VALUE"
      | STANDARD -> "STANDARD"
      | PERFORMANCE -> "PERFORMANCE"
      | POWER -> "POWER"
      | GRAPHICS -> "GRAPHICS"
      | POWERPRO -> "POWERPRO"
      | GENERALPURPOSE_4XLARGE -> "GENERALPURPOSE_4XLARGE"
      | GENERALPURPOSE_8XLARGE -> "GENERALPURPOSE_8XLARGE"
      | GRAPHICSPRO -> "GRAPHICSPRO"
      | GRAPHICS_G4DN -> "GRAPHICS_G4DN"
      | GRAPHICSPRO_G4DN -> "GRAPHICSPRO_G4DN"
      | GRAPHICS_G6_XLARGE -> "GRAPHICS_G6_XLARGE"
      | GRAPHICS_G6_2XLARGE -> "GRAPHICS_G6_2XLARGE"
      | GRAPHICS_G6_4XLARGE -> "GRAPHICS_G6_4XLARGE"
      | GRAPHICS_G6_8XLARGE -> "GRAPHICS_G6_8XLARGE"
      | GRAPHICS_G6_16XLARGE -> "GRAPHICS_G6_16XLARGE"
      | GRAPHICS_GR6_4XLARGE -> "GRAPHICS_GR6_4XLARGE"
      | GRAPHICS_GR6_8XLARGE -> "GRAPHICS_GR6_8XLARGE"
      | GRAPHICS_G6F_LARGE -> "GRAPHICS_G6F_LARGE"
      | GRAPHICS_G6F_XLARGE -> "GRAPHICS_G6F_XLARGE"
      | GRAPHICS_G6F_2XLARGE -> "GRAPHICS_G6F_2XLARGE"
      | GRAPHICS_G6F_4XLARGE -> "GRAPHICS_G6F_4XLARGE"
      | GRAPHICS_GR6F_4XLARGE -> "GRAPHICS_GR6F_4XLARGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "VALUE" -> VALUE
      | "STANDARD" -> STANDARD
      | "PERFORMANCE" -> PERFORMANCE
      | "POWER" -> POWER
      | "GRAPHICS" -> GRAPHICS
      | "POWERPRO" -> POWERPRO
      | "GENERALPURPOSE_4XLARGE" -> GENERALPURPOSE_4XLARGE
      | "GENERALPURPOSE_8XLARGE" -> GENERALPURPOSE_8XLARGE
      | "GRAPHICSPRO" -> GRAPHICSPRO
      | "GRAPHICS_G4DN" -> GRAPHICS_G4DN
      | "GRAPHICSPRO_G4DN" -> GRAPHICSPRO_G4DN
      | "GRAPHICS_G6_XLARGE" -> GRAPHICS_G6_XLARGE
      | "GRAPHICS_G6_2XLARGE" -> GRAPHICS_G6_2XLARGE
      | "GRAPHICS_G6_4XLARGE" -> GRAPHICS_G6_4XLARGE
      | "GRAPHICS_G6_8XLARGE" -> GRAPHICS_G6_8XLARGE
      | "GRAPHICS_G6_16XLARGE" -> GRAPHICS_G6_16XLARGE
      | "GRAPHICS_GR6_4XLARGE" -> GRAPHICS_GR6_4XLARGE
      | "GRAPHICS_GR6_8XLARGE" -> GRAPHICS_GR6_8XLARGE
      | "GRAPHICS_G6F_LARGE" -> GRAPHICS_G6F_LARGE
      | "GRAPHICS_G6F_XLARGE" -> GRAPHICS_G6F_XLARGE
      | "GRAPHICS_G6F_2XLARGE" -> GRAPHICS_G6F_2XLARGE
      | "GRAPHICS_G6F_4XLARGE" -> GRAPHICS_G6F_4XLARGE
      | "GRAPHICS_GR6F_4XLARGE" -> GRAPHICS_GR6F_4XLARGE
      | 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 Compute" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Compute" j)
    let to_json = simple_to_json to_value
  end
module GlobalAcceleratorForWorkSpace =
  struct
    type nonrec t =
      {
      mode: AGAModeForWorkSpaceEnum.t
        [@ocaml.doc
          "Indicates if Global Accelerator for WorkSpaces is enabled, disabled, or the same mode as the associated directory."];
      preferredProtocol: AGAPreferredProtocolForWorkSpace.t option
        [@ocaml.doc
          "Indicates the preferred protocol for Global Accelerator."]}
    let context_ = "GlobalAcceleratorForWorkSpace"
    let make ?preferredProtocol =
      fun ~mode -> fun () -> { preferredProtocol; mode }
    let to_value x =
      structure_to_value
        [("Mode", (Some (AGAModeForWorkSpaceEnum.to_value x.mode)));
        ("PreferredProtocol",
          (Option.map x.preferredProtocol
             ~f:AGAPreferredProtocolForWorkSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let preferredProtocol =
        (Option.map ~f:AGAPreferredProtocolForWorkSpace.of_xml)
          (Xml.child xml_arg0 "PreferredProtocol") in
      let mode =
        AGAModeForWorkSpaceEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Mode") in
      make ?preferredProtocol ~mode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let preferredProtocol =
        field_map json__ "PreferredProtocol"
          AGAPreferredProtocolForWorkSpace.of_json in
      let mode = field_map_exn json__ "Mode" AGAModeForWorkSpaceEnum.of_json in
      make ?preferredProtocol ~mode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the Global Accelerator for WorkSpaces."]
module OperatingSystemName =
  struct
    type nonrec t =
      | AMAZON_LINUX_2 
      | UBUNTU_18_04 
      | UBUNTU_20_04 
      | UBUNTU_22_04 
      | UNKNOWN 
      | WINDOWS_10 
      | WINDOWS_11 
      | WINDOWS_7 
      | WINDOWS_SERVER_2016 
      | WINDOWS_SERVER_2019 
      | WINDOWS_SERVER_2022 
      | WINDOWS_SERVER_2025 
      | RHEL_8 
      | ROCKY_8 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AMAZON_LINUX_2 -> "AMAZON_LINUX_2"
      | UBUNTU_18_04 -> "UBUNTU_18_04"
      | UBUNTU_20_04 -> "UBUNTU_20_04"
      | UBUNTU_22_04 -> "UBUNTU_22_04"
      | UNKNOWN -> "UNKNOWN"
      | WINDOWS_10 -> "WINDOWS_10"
      | WINDOWS_11 -> "WINDOWS_11"
      | WINDOWS_7 -> "WINDOWS_7"
      | WINDOWS_SERVER_2016 -> "WINDOWS_SERVER_2016"
      | WINDOWS_SERVER_2019 -> "WINDOWS_SERVER_2019"
      | WINDOWS_SERVER_2022 -> "WINDOWS_SERVER_2022"
      | WINDOWS_SERVER_2025 -> "WINDOWS_SERVER_2025"
      | RHEL_8 -> "RHEL_8"
      | ROCKY_8 -> "ROCKY_8"
      | Non_static_id s -> s
    let of_string =
      function
      | "AMAZON_LINUX_2" -> AMAZON_LINUX_2
      | "UBUNTU_18_04" -> UBUNTU_18_04
      | "UBUNTU_20_04" -> UBUNTU_20_04
      | "UBUNTU_22_04" -> UBUNTU_22_04
      | "UNKNOWN" -> UNKNOWN
      | "WINDOWS_10" -> WINDOWS_10
      | "WINDOWS_11" -> WINDOWS_11
      | "WINDOWS_7" -> WINDOWS_7
      | "WINDOWS_SERVER_2016" -> WINDOWS_SERVER_2016
      | "WINDOWS_SERVER_2019" -> WINDOWS_SERVER_2019
      | "WINDOWS_SERVER_2022" -> WINDOWS_SERVER_2022
      | "WINDOWS_SERVER_2025" -> WINDOWS_SERVER_2025
      | "RHEL_8" -> RHEL_8
      | "ROCKY_8" -> ROCKY_8
      | 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 OperatingSystemName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperatingSystemName" j)
    let to_json = simple_to_json to_value
  end
module ProtocolList =
  struct
    type nonrec t = Protocol.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:Protocol.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:Protocol.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolList" ~of_json:Protocol.of_json j
    let to_json v = composed_to_json to_value v
  end
module RootVolumeSizeGib =
  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 RootVolumeSizeGib" 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 RunningMode =
  struct
    type nonrec t =
      | AUTO_STOP 
      | ALWAYS_ON 
      | MANUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUTO_STOP -> "AUTO_STOP"
      | ALWAYS_ON -> "ALWAYS_ON"
      | MANUAL -> "MANUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUTO_STOP" -> AUTO_STOP
      | "ALWAYS_ON" -> ALWAYS_ON
      | "MANUAL" -> MANUAL
      | 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 RunningMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RunningMode" j)
    let to_json = simple_to_json to_value
  end
module RunningModeAutoStopTimeoutInMinutes =
  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 RunningModeAutoStopTimeoutInMinutes"
           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 UserVolumeSizeGib =
  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 UserVolumeSizeGib" 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 ModificationState =
  struct
    type nonrec t =
      {
      resource: ModificationResourceEnum.t option
        [@ocaml.doc "The resource."];
      state: ModificationStateEnum.t option
        [@ocaml.doc "The modification state."]}
    let make ?resource = fun ?state -> fun () -> { resource; state }
    let to_value x =
      structure_to_value
        [("Resource",
           (Option.map x.resource ~f:ModificationResourceEnum.to_value));
        ("State", (Option.map x.state ~f:ModificationStateEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:ModificationStateEnum.of_xml)
          (Xml.child xml_arg0 "State") in
      let resource =
        (Option.map ~f:ModificationResourceEnum.of_xml)
          (Xml.child xml_arg0 "Resource") in
      make ?state ?resource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" ModificationStateEnum.of_json in
      let resource =
        field_map json__ "Resource" ModificationResourceEnum.of_json in
      make ?state ?resource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a WorkSpace modification."]
module RelatedWorkspaceProperties =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the related WorkSpace."];
      region: Region.t option
        [@ocaml.doc "The Region of the related WorkSpace."];
      state: WorkspaceState.t option
        [@ocaml.doc "Indicates the state of the WorkSpace."];
      type_: StandbyWorkspaceRelationshipType.t option
        [@ocaml.doc "Indicates the type of WorkSpace."]}
    let make ?workspaceId =
      fun ?region ->
        fun ?state ->
          fun ?type_ -> fun () -> { workspaceId; region; state; type_ }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value));
        ("Region", (Option.map x.region ~f:Region.to_value));
        ("State", (Option.map x.state ~f:WorkspaceState.to_value));
        ("Type",
          (Option.map x.type_ ~f:StandbyWorkspaceRelationshipType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:StandbyWorkspaceRelationshipType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let state =
        (Option.map ~f:WorkspaceState.of_xml) (Xml.child xml_arg0 "State") in
      let region =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "Region") in
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      make ?type_ ?state ?region ?workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ =
        field_map json__ "Type" StandbyWorkspaceRelationshipType.of_json in
      let state = field_map json__ "State" WorkspaceState.of_json in
      let region = field_map json__ "Region" Region.of_json in
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      make ?type_ ?state ?region ?workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the related WorkSpace. The related WorkSpace could be a standby WorkSpace or primary WorkSpace related to the specified WorkSpace."]
module StandbyWorkspacesProperties =
  struct
    type nonrec t =
      {
      standbyWorkspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the standby WorkSpace"];
      dataReplication: DataReplication.t option
        [@ocaml.doc
          "Indicates whether data replication is enabled, and if enabled, the type of data replication."];
      recoverySnapshotTime: Timestamp.t option
        [@ocaml.doc
          "The date and time at which the last successful snapshot was taken of the primary WorkSpace used for replicating data."]}
    let make ?standbyWorkspaceId =
      fun ?dataReplication ->
        fun ?recoverySnapshotTime ->
          fun () ->
            { standbyWorkspaceId; dataReplication; recoverySnapshotTime }
    let to_value x =
      structure_to_value
        [("StandbyWorkspaceId",
           (Option.map x.standbyWorkspaceId ~f:WorkspaceId.to_value));
        ("DataReplication",
          (Option.map x.dataReplication ~f:DataReplication.to_value));
        ("RecoverySnapshotTime",
          (Option.map x.recoverySnapshotTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoverySnapshotTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "RecoverySnapshotTime") in
      let dataReplication =
        (Option.map ~f:DataReplication.of_xml)
          (Xml.child xml_arg0 "DataReplication") in
      let standbyWorkspaceId =
        (Option.map ~f:WorkspaceId.of_xml)
          (Xml.child xml_arg0 "StandbyWorkspaceId") in
      make ?recoverySnapshotTime ?dataReplication ?standbyWorkspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoverySnapshotTime =
        field_map json__ "RecoverySnapshotTime" Timestamp.of_json in
      let dataReplication =
        field_map json__ "DataReplication" DataReplication.of_json in
      let standbyWorkspaceId =
        field_map json__ "StandbyWorkspaceId" WorkspaceId.of_json in
      make ?recoverySnapshotTime ?dataReplication ?standbyWorkspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the properties of the related standby WorkSpaces."]
module ApplicationSettingsStatusEnum =
  struct
    type nonrec t =
      | DISABLED 
      | ENABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISABLED -> "DISABLED"
      | ENABLED -> "ENABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISABLED" -> DISABLED
      | "ENABLED" -> ENABLED
      | 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 ApplicationSettingsStatusEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApplicationSettingsStatusEnum" j)
    let to_json = simple_to_json to_value
  end
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-z0-9][\\.\\-a-z0-9]{1,61}[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:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module SettingsGroup =
  struct
    type nonrec t = string
    let context_ = "SettingsGroup"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_pattern i ~pattern:"^[A-Za-z0-9_./()!*'-]+$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SettingsGroup" j
    let to_json = simple_to_json to_value
  end
module ActiveUserSessions =
  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 ActiveUserSessions" 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 ActualUserSessions =
  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 ActualUserSessions" 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 AvailableUserSessions =
  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 AvailableUserSessions" 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 DesiredUserSessions =
  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 DesiredUserSessions" 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 DisconnectTimeoutInSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:36000) >>=
             (fun () -> check_int_min i ~min:60));
        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 DisconnectTimeoutInSeconds"
           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 IdleDisconnectTimeoutInSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:36000) >>=
             (fun () -> 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 IdleDisconnectTimeoutInSeconds"
           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 MaxUserDurationInSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:432000) >>=
             (fun () -> check_int_min i ~min:600));
        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 MaxUserDurationInSeconds"
           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 WorkspacesPoolError =
  struct
    type nonrec t =
      {
      errorCode: WorkspacesPoolErrorCode.t option
        [@ocaml.doc "The error code."];
      errorMessage: ErrorMessage.t option [@ocaml.doc "The error message."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode",
           (Option.map x.errorCode ~f:WorkspacesPoolErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:WorkspacesPoolErrorCode.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" ErrorMessage.of_json in
      let errorCode =
        field_map json__ "ErrorCode" WorkspacesPoolErrorCode.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a pool error."]
module DescribeWorkspacesPoolsFilterValue =
  struct
    type nonrec t = string
    let context_ = "DescribeWorkspacesPoolsFilterValue"
    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:"^[A-Za-z0-9][A-Za-z0-9_.-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DescribeWorkspacesPoolsFilterValue" j
    let to_json = simple_to_json to_value
  end
module ErrorDetails =
  struct
    type nonrec t =
      {
      errorCode: WorkspaceImageErrorDetailCode.t option
        [@ocaml.doc "Indicates the error code returned."];
      errorMessage: Description.t option
        [@ocaml.doc "The text of the error message related the error code."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode",
           (Option.map x.errorCode ~f:WorkspaceImageErrorDetailCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:WorkspaceImageErrorDetailCode.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" Description.of_json in
      let errorCode =
        field_map json__ "ErrorCode" WorkspaceImageErrorDetailCode.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes in-depth details about the error. These details include the possible causes of the error and troubleshooting information."]
module OperatingSystemType =
  struct
    type nonrec t =
      | WINDOWS 
      | LINUX 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | WINDOWS -> "WINDOWS"
      | LINUX -> "LINUX"
      | Non_static_id s -> s
    let of_string =
      function
      | "WINDOWS" -> WINDOWS
      | "LINUX" -> 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 OperatingSystemType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperatingSystemType" j)
    let to_json = simple_to_json to_value
  end
module BooleanObject =
  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 UpdateDescription =
  struct
    type nonrec t = string
    let context_ = "UpdateDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9_./() -]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UpdateDescription" j
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^([a-zA-Z0-9]+[.-])+([a-zA-Z0-9])+$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainName" j
    let to_json = simple_to_json to_value
  end
module SecretsManagerArn =
  struct
    type nonrec t = string
    let context_ = "SecretsManagerArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws[a-z-]{0,7}:secretsmanager:[A-za-z0-9_/.-]{0,63}:[A-za-z0-9_/.-]{0,63}:secret:[A-Za-z0-9][A-za-z0-9_/.-]{8,519}$");
        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:"SecretsManagerArn" j
    let to_json = simple_to_json to_value
  end
module CertificateAuthorityArn =
  struct
    type nonrec t = string
    let context_ = "CertificateAuthorityArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[\\w+=/,.@-]+:[\\w+=/,.@-]+:[\\w+=/,.@-]*:[0-9]*:[\\w+=,.@-]+(/[\\w+=,.@-]+)*")));
        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:"CertificateAuthorityArn" j
    let to_json = simple_to_json to_value
  end
module CertificateBasedAuthStatusEnum =
  struct
    type nonrec t =
      | DISABLED 
      | ENABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISABLED -> "DISABLED"
      | ENABLED -> "ENABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISABLED" -> DISABLED
      | "ENABLED" -> ENABLED
      | 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 CertificateBasedAuthStatusEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CertificateBasedAuthStatusEnum" 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_pattern i
             ~pattern:"^arn:aws[a-z-]{0,7}:[A-Za-z0-9][A-za-z0-9_/.-]{0,62}:[A-za-z0-9_/.-]{0,63}:[A-za-z0-9_/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_/+=,@.\\\\-]{0,1023}$");
        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 DefaultOu =
  struct
    type nonrec t = string
    let context_ = "DefaultOu"
    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:"DefaultOu" j
    let to_json = simple_to_json to_value
  end
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:11) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(sg-([0-9a-f]{8}|[0-9a-f]{17}))$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module IpAddress =
  struct
    type nonrec t = string
    let context_ = "IpAddress"
    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:"IpAddress" 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_pattern i
             ~pattern:"^(?:[0-9a-fA-F]{1,4}:){7}[0-9a-fA-F]{1,4}|[0-9a-fA-F]{1,4}(?::[0-9a-fA-F]{1,4}){0,6}::[0-9a-fA-F]{1,4}$");
        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 IpGroupId =
  struct
    type nonrec t = string
    let context_ = "IpGroupId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"wsipg-[0-9a-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:"IpGroupId" j
    let to_json = simple_to_json to_value
  end
module MicrosoftEntraConfigTenantId =
  struct
    type nonrec t = string
    let context_ = "MicrosoftEntraConfigTenantId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[a-zA-Z0-9-]{1,100}$"); 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:"MicrosoftEntraConfigTenantId" j
    let to_json = simple_to_json to_value
  end
module SamlStatusEnum =
  struct
    type nonrec t =
      | DISABLED 
      | ENABLED 
      | ENABLED_WITH_DIRECTORY_LOGIN_FALLBACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISABLED -> "DISABLED"
      | ENABLED -> "ENABLED"
      | ENABLED_WITH_DIRECTORY_LOGIN_FALLBACK ->
          "ENABLED_WITH_DIRECTORY_LOGIN_FALLBACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISABLED" -> DISABLED
      | "ENABLED" -> ENABLED
      | "ENABLED_WITH_DIRECTORY_LOGIN_FALLBACK" ->
          ENABLED_WITH_DIRECTORY_LOGIN_FALLBACK
      | 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 SamlStatusEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SamlStatusEnum" j)
    let to_json = simple_to_json to_value
  end
module SamlUserAccessUrl =
  struct
    type nonrec t = string
    let context_ = "SamlUserAccessUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(http|https)\\://\\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:"SamlUserAccessUrl" j
    let to_json = simple_to_json to_value
  end
module ReconnectEnum =
  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 ReconnectEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReconnectEnum" j)
    let to_json = simple_to_json to_value
  end
module GlobalAcceleratorForDirectory =
  struct
    type nonrec t =
      {
      mode: AGAModeForDirectoryEnum.t
        [@ocaml.doc
          "Indicates if Global Accelerator for directory is enabled or disabled."];
      preferredProtocol: AGAPreferredProtocolForDirectory.t option
        [@ocaml.doc
          "Indicates the preferred protocol for Global Accelerator."]}
    let context_ = "GlobalAcceleratorForDirectory"
    let make ?preferredProtocol =
      fun ~mode -> fun () -> { preferredProtocol; mode }
    let to_value x =
      structure_to_value
        [("Mode", (Some (AGAModeForDirectoryEnum.to_value x.mode)));
        ("PreferredProtocol",
          (Option.map x.preferredProtocol
             ~f:AGAPreferredProtocolForDirectory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let preferredProtocol =
        (Option.map ~f:AGAPreferredProtocolForDirectory.of_xml)
          (Xml.child xml_arg0 "PreferredProtocol") in
      let mode =
        AGAModeForDirectoryEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Mode") in
      make ?preferredProtocol ~mode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let preferredProtocol =
        field_map json__ "PreferredProtocol"
          AGAPreferredProtocolForDirectory.of_json in
      let mode = field_map_exn json__ "Mode" AGAModeForDirectoryEnum.of_json in
      make ?preferredProtocol ~mode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the Global Accelerator for directory"]
module StorageConnectors =
  struct
    type nonrec t = StorageConnector.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:StorageConnector.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:StorageConnector.of_xml)
    let of_json j =
      list_of_json ~kind:"StorageConnectors"
        ~of_json:StorageConnector.of_json j
    let to_json v = composed_to_json to_value v
  end
module StreamingExperiencePreferredProtocolEnum =
  struct
    type nonrec t =
      | TCP 
      | UDP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TCP -> "TCP" | UDP -> "UDP" | Non_static_id s -> s
    let of_string =
      function | "TCP" -> TCP | "UDP" -> UDP | 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 StreamingExperiencePreferredProtocolEnum"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"StreamingExperiencePreferredProtocolEnum" j)
    let to_json = simple_to_json to_value
  end
module UserSettings =
  struct
    type nonrec t = UserSetting.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UserSetting.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:UserSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"UserSettings" ~of_json:UserSetting.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_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:24) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(subnet-([0-9a-f]{8}|[0-9a-f]{17}))$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module AccessEndpointConfig =
  struct
    type nonrec t =
      {
      accessEndpoints: AccessEndpointList.t
        [@ocaml.doc
          "Indicates a list of access endpoints associated with this directory."];
      internetFallbackProtocols: InternetFallbackProtocolList.t option
        [@ocaml.doc
          "Indicates a list of protocols that fallback to using the public Internet when streaming over a VPC endpoint is not available."]}
    let context_ = "AccessEndpointConfig"
    let make ?internetFallbackProtocols =
      fun ~accessEndpoints ->
        fun () -> { internetFallbackProtocols; accessEndpoints }
    let to_value x =
      structure_to_value
        [("AccessEndpoints",
           (Some (AccessEndpointList.to_value x.accessEndpoints)));
        ("InternetFallbackProtocols",
          (Option.map x.internetFallbackProtocols
             ~f:InternetFallbackProtocolList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let internetFallbackProtocols =
        (Option.map ~f:InternetFallbackProtocolList.of_xml)
          (Xml.child xml_arg0 "InternetFallbackProtocols") in
      let accessEndpoints =
        AccessEndpointList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccessEndpoints") in
      make ?internetFallbackProtocols ~accessEndpoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let internetFallbackProtocols =
        field_map json__ "InternetFallbackProtocols"
          InternetFallbackProtocolList.of_json in
      let accessEndpoints =
        field_map_exn json__ "AccessEndpoints" AccessEndpointList.of_json in
      make ?internetFallbackProtocols ~accessEndpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the access endpoint configuration for a WorkSpace."]
module AccessPropertyValue =
  struct
    type nonrec t =
      | ALLOW 
      | DENY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALLOW -> "ALLOW" | DENY -> "DENY" | Non_static_id s -> s
    let of_string =
      function | "ALLOW" -> ALLOW | "DENY" -> DENY | 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 AccessPropertyValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccessPropertyValue" j)
    let to_json = simple_to_json to_value
  end
module DescribeWorkspaceDirectoriesFilterValue =
  struct
    type nonrec t = string
    let context_ = "DescribeWorkspaceDirectoriesFilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[0-9a-zA-Z\\*\\.\\\\/\\?-_]{0,64}$");
        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:"DescribeWorkspaceDirectoriesFilterValue" j
    let to_json = simple_to_json to_value
  end
module IpRuleItem =
  struct
    type nonrec t =
      {
      ipRule: IpRule.t option
        [@ocaml.doc "The IP address range, in CIDR notation."];
      ruleDesc: IpRuleDesc.t option [@ocaml.doc "The description."]}
    let make ?ipRule = fun ?ruleDesc -> fun () -> { ipRule; ruleDesc }
    let to_value x =
      structure_to_value
        [("ipRule", (Option.map x.ipRule ~f:IpRule.to_value));
        ("ruleDesc", (Option.map x.ruleDesc ~f:IpRuleDesc.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleDesc =
        (Option.map ~f:IpRuleDesc.of_xml) (Xml.child xml_arg0 "ruleDesc") in
      let ipRule =
        (Option.map ~f:IpRule.of_xml) (Xml.child xml_arg0 "ipRule") in
      make ?ruleDesc ?ipRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleDesc = field_map json__ "ruleDesc" IpRuleDesc.of_json in
      let ipRule = field_map json__ "ipRule" IpRule.of_json in
      make ?ruleDesc ?ipRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a rule for an IP access control group."]
module ConnectionAliasAssociation =
  struct
    type nonrec t =
      {
      associationStatus: AssociationStatus.t option
        [@ocaml.doc "The association status of the connection alias."];
      associatedAccountId: AwsAccount.t option
        [@ocaml.doc
          "The identifier of the Amazon Web Services account that associated the connection alias with a directory."];
      resourceId: NonEmptyString.t option
        [@ocaml.doc
          "The identifier of the directory associated with a connection alias."];
      connectionIdentifier: ConnectionIdentifier.t option
        [@ocaml.doc
          "The identifier of the connection alias association. You use the connection identifier in the DNS TXT record when you're configuring your DNS routing policies."]}
    let make ?associationStatus =
      fun ?associatedAccountId ->
        fun ?resourceId ->
          fun ?connectionIdentifier ->
            fun () ->
              {
                associationStatus;
                associatedAccountId;
                resourceId;
                connectionIdentifier
              }
    let to_value x =
      structure_to_value
        [("AssociationStatus",
           (Option.map x.associationStatus ~f:AssociationStatus.to_value));
        ("AssociatedAccountId",
          (Option.map x.associatedAccountId ~f:AwsAccount.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:NonEmptyString.to_value));
        ("ConnectionIdentifier",
          (Option.map x.connectionIdentifier ~f:ConnectionIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionIdentifier =
        (Option.map ~f:ConnectionIdentifier.of_xml)
          (Xml.child xml_arg0 "ConnectionIdentifier") in
      let resourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let associatedAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "AssociatedAccountId") in
      let associationStatus =
        (Option.map ~f:AssociationStatus.of_xml)
          (Xml.child xml_arg0 "AssociationStatus") in
      make ?connectionIdentifier ?resourceId ?associatedAccountId
        ?associationStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionIdentifier =
        field_map json__ "ConnectionIdentifier" ConnectionIdentifier.of_json in
      let resourceId = field_map json__ "ResourceId" NonEmptyString.of_json in
      let associatedAccountId =
        field_map json__ "AssociatedAccountId" AwsAccount.of_json in
      let associationStatus =
        field_map json__ "AssociationStatus" AssociationStatus.of_json in
      make ?connectionIdentifier ?resourceId ?associatedAccountId
        ?associationStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a connection alias association that is used for cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module LogUploadEnum =
  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 LogUploadEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LogUploadEnum" j)
    let to_json = simple_to_json to_value
  end
module AssociationState =
  struct
    type nonrec t =
      | PENDING_INSTALL 
      | PENDING_INSTALL_DEPLOYMENT 
      | PENDING_UNINSTALL 
      | PENDING_UNINSTALL_DEPLOYMENT 
      | INSTALLING 
      | UNINSTALLING 
      | ERROR 
      | COMPLETED 
      | REMOVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_INSTALL -> "PENDING_INSTALL"
      | PENDING_INSTALL_DEPLOYMENT -> "PENDING_INSTALL_DEPLOYMENT"
      | PENDING_UNINSTALL -> "PENDING_UNINSTALL"
      | PENDING_UNINSTALL_DEPLOYMENT -> "PENDING_UNINSTALL_DEPLOYMENT"
      | INSTALLING -> "INSTALLING"
      | UNINSTALLING -> "UNINSTALLING"
      | ERROR -> "ERROR"
      | COMPLETED -> "COMPLETED"
      | REMOVED -> "REMOVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_INSTALL" -> PENDING_INSTALL
      | "PENDING_INSTALL_DEPLOYMENT" -> PENDING_INSTALL_DEPLOYMENT
      | "PENDING_UNINSTALL" -> PENDING_UNINSTALL
      | "PENDING_UNINSTALL_DEPLOYMENT" -> PENDING_UNINSTALL_DEPLOYMENT
      | "INSTALLING" -> INSTALLING
      | "UNINSTALLING" -> UNINSTALLING
      | "ERROR" -> ERROR
      | "COMPLETED" -> COMPLETED
      | "REMOVED" -> REMOVED
      | 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 AssociationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssociationState" j)
    let to_json = simple_to_json to_value
  end
module AssociationStateReason =
  struct
    type nonrec t =
      {
      errorCode: AssociationErrorCode.t option
        [@ocaml.doc "The error code of the association deployment failure."];
      errorMessage: String2048.t option
        [@ocaml.doc
          "The error message of the association deployment failure."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode",
           (Option.map x.errorCode ~f:AssociationErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String2048.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String2048.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:AssociationErrorCode.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" String2048.of_json in
      let errorCode =
        field_map json__ "ErrorCode" AssociationErrorCode.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates the reason that the association deployment failed, including the error code and error message."]
module WorkSpaceAssociatedResourceType =
  struct
    type nonrec t =
      | APPLICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | APPLICATION -> "APPLICATION" | Non_static_id s -> s
    let of_string =
      function | "APPLICATION" -> APPLICATION | 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 WorkSpaceAssociatedResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkSpaceAssociatedResourceType" j)
    let to_json = simple_to_json to_value
  end
module BundleId =
  struct
    type nonrec t = string
    let context_ = "BundleId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^wsb-[0-9a-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:"BundleId" j
    let to_json = simple_to_json to_value
  end
module DirectoryId =
  struct
    type nonrec t = string
    let context_ = "DirectoryId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:65) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(d-[0-9a-f]{8,63}$)|(wsd-[0-9a-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:"DirectoryId" j
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.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: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 UserName =
  struct
    type nonrec t = string
    let context_ = "UserName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (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:"UserName" j
    let to_json = simple_to_json to_value
  end
module VolumeEncryptionKey =
  struct
    type nonrec t = string
    let context_ = "VolumeEncryptionKey"
    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:"VolumeEncryptionKey" j
    let to_json = simple_to_json to_value
  end
module WorkspaceName =
  struct
    type nonrec t = string
    let context_ = "WorkspaceName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[a-zA-Z0-9_()][a-zA-Z0-9_.()-]{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:"WorkspaceName" j
    let to_json = simple_to_json to_value
  end
module WorkspaceProperties =
  struct
    type nonrec t =
      {
      runningMode: RunningMode.t option
        [@ocaml.doc
          "The running mode. For more information, see Manage the WorkSpace Running Mode. The MANUAL value is only supported by Amazon WorkSpaces Core. Contact your account team to be allow-listed to use this value. For more information, see Amazon WorkSpaces Core. Review your running mode to ensure you are using one that is optimal for your needs and budget. For more information on switching running modes, see Can I switch between hourly and monthly billing?"];
      runningModeAutoStopTimeoutInMinutes:
        RunningModeAutoStopTimeoutInMinutes.t option
        [@ocaml.doc
          "The time after a user logs off when WorkSpaces are automatically stopped. Configured in 60-minute intervals."];
      rootVolumeSizeGib: RootVolumeSizeGib.t option
        [@ocaml.doc
          "The size of the root volume. For important information about how to modify the size of the root and user volumes, see Modify a WorkSpace."];
      userVolumeSizeGib: UserVolumeSizeGib.t option
        [@ocaml.doc
          "The size of the user storage. For important information about how to modify the size of the root and user volumes, see Modify a WorkSpace."];
      computeTypeName: Compute.t option
        [@ocaml.doc
          "The compute type. For more information, see Amazon WorkSpaces Bundles."];
      protocols: ProtocolList.t option
        [@ocaml.doc
          "The protocol. For more information, see Protocols for Amazon WorkSpaces. Only available for WorkSpaces created with PCoIP bundles. The Protocols property is case sensitive. Ensure you use PCOIP or DCV (formerly WSP). Unavailable for Windows 7 WorkSpaces and WorkSpaces using GPU-based bundles (Graphics, GraphicsPro, Graphics.g4dn, and GraphicsPro.g4dn)."];
      operatingSystemName: OperatingSystemName.t option
        [@ocaml.doc "The name of the operating system."];
      globalAccelerator: GlobalAcceleratorForWorkSpace.t option
        [@ocaml.doc "Indicates the Global Accelerator properties."]}
    let make ?runningMode =
      fun ?runningModeAutoStopTimeoutInMinutes ->
        fun ?rootVolumeSizeGib ->
          fun ?userVolumeSizeGib ->
            fun ?computeTypeName ->
              fun ?protocols ->
                fun ?operatingSystemName ->
                  fun ?globalAccelerator ->
                    fun () ->
                      {
                        runningMode;
                        runningModeAutoStopTimeoutInMinutes;
                        rootVolumeSizeGib;
                        userVolumeSizeGib;
                        computeTypeName;
                        protocols;
                        operatingSystemName;
                        globalAccelerator
                      }
    let to_value x =
      structure_to_value
        [("RunningMode", (Option.map x.runningMode ~f:RunningMode.to_value));
        ("RunningModeAutoStopTimeoutInMinutes",
          (Option.map x.runningModeAutoStopTimeoutInMinutes
             ~f:RunningModeAutoStopTimeoutInMinutes.to_value));
        ("RootVolumeSizeGib",
          (Option.map x.rootVolumeSizeGib ~f:RootVolumeSizeGib.to_value));
        ("UserVolumeSizeGib",
          (Option.map x.userVolumeSizeGib ~f:UserVolumeSizeGib.to_value));
        ("ComputeTypeName",
          (Option.map x.computeTypeName ~f:Compute.to_value));
        ("Protocols", (Option.map x.protocols ~f:ProtocolList.to_value));
        ("OperatingSystemName",
          (Option.map x.operatingSystemName ~f:OperatingSystemName.to_value));
        ("GlobalAccelerator",
          (Option.map x.globalAccelerator
             ~f:GlobalAcceleratorForWorkSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalAccelerator =
        (Option.map ~f:GlobalAcceleratorForWorkSpace.of_xml)
          (Xml.child xml_arg0 "GlobalAccelerator") in
      let operatingSystemName =
        (Option.map ~f:OperatingSystemName.of_xml)
          (Xml.child xml_arg0 "OperatingSystemName") in
      let protocols =
        (Option.map ~f:ProtocolList.of_xml) (Xml.child xml_arg0 "Protocols") in
      let computeTypeName =
        (Option.map ~f:Compute.of_xml) (Xml.child xml_arg0 "ComputeTypeName") in
      let userVolumeSizeGib =
        (Option.map ~f:UserVolumeSizeGib.of_xml)
          (Xml.child xml_arg0 "UserVolumeSizeGib") in
      let rootVolumeSizeGib =
        (Option.map ~f:RootVolumeSizeGib.of_xml)
          (Xml.child xml_arg0 "RootVolumeSizeGib") in
      let runningModeAutoStopTimeoutInMinutes =
        (Option.map ~f:RunningModeAutoStopTimeoutInMinutes.of_xml)
          (Xml.child xml_arg0 "RunningModeAutoStopTimeoutInMinutes") in
      let runningMode =
        (Option.map ~f:RunningMode.of_xml) (Xml.child xml_arg0 "RunningMode") in
      make ?globalAccelerator ?operatingSystemName ?protocols
        ?computeTypeName ?userVolumeSizeGib ?rootVolumeSizeGib
        ?runningModeAutoStopTimeoutInMinutes ?runningMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalAccelerator =
        field_map json__ "GlobalAccelerator"
          GlobalAcceleratorForWorkSpace.of_json in
      let operatingSystemName =
        field_map json__ "OperatingSystemName" OperatingSystemName.of_json in
      let protocols = field_map json__ "Protocols" ProtocolList.of_json in
      let computeTypeName =
        field_map json__ "ComputeTypeName" Compute.of_json in
      let userVolumeSizeGib =
        field_map json__ "UserVolumeSizeGib" UserVolumeSizeGib.of_json in
      let rootVolumeSizeGib =
        field_map json__ "RootVolumeSizeGib" RootVolumeSizeGib.of_json in
      let runningModeAutoStopTimeoutInMinutes =
        field_map json__ "RunningModeAutoStopTimeoutInMinutes"
          RunningModeAutoStopTimeoutInMinutes.of_json in
      let runningMode = field_map json__ "RunningMode" RunningMode.of_json in
      make ?globalAccelerator ?operatingSystemName ?protocols
        ?computeTypeName ?userVolumeSizeGib ?rootVolumeSizeGib
        ?runningModeAutoStopTimeoutInMinutes ?runningMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a WorkSpace."]
module ErrorType =
  struct
    type nonrec t = string
    let context_ = "ErrorType"
    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:"ErrorType" j
    let to_json = simple_to_json to_value
  end
module AccountLinkStatusEnum =
  struct
    type nonrec t =
      | LINKED 
      | LINKING_FAILED 
      | LINK_NOT_FOUND 
      | PENDING_ACCEPTANCE_BY_TARGET_ACCOUNT 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LINKED -> "LINKED"
      | LINKING_FAILED -> "LINKING_FAILED"
      | LINK_NOT_FOUND -> "LINK_NOT_FOUND"
      | PENDING_ACCEPTANCE_BY_TARGET_ACCOUNT ->
          "PENDING_ACCEPTANCE_BY_TARGET_ACCOUNT"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "LINKED" -> LINKED
      | "LINKING_FAILED" -> LINKING_FAILED
      | "LINK_NOT_FOUND" -> LINK_NOT_FOUND
      | "PENDING_ACCEPTANCE_BY_TARGET_ACCOUNT" ->
          PENDING_ACCEPTANCE_BY_TARGET_ACCOUNT
      | "REJECTED" -> REJECTED
      | 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 AccountLinkStatusEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AccountLinkStatusEnum" j)
    let to_json = simple_to_json to_value
  end
module LinkId =
  struct
    type nonrec t = string
    let context_ = "LinkId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^link-.{8,24}$"); 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:"LinkId" j
    let to_json = simple_to_json to_value
  end
module ClientLocale =
  struct
    type nonrec t = string
    let context_ = "ClientLocale"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:5) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-z]{2}_[A-Z]{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:"ClientLocale" j
    let to_json = simple_to_json to_value
  end
module ClientLoginMessage =
  struct
    type nonrec t = string
    let context_ = "ClientLoginMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        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:"ClientLoginMessage" j
    let to_json = simple_to_json to_value
  end
module ComputerName =
  struct
    type nonrec t = string
    let context_ = "ComputerName"
    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:"ComputerName" j
    let to_json = simple_to_json to_value
  end
module DataReplicationSettings =
  struct
    type nonrec t =
      {
      dataReplication: DataReplication.t option
        [@ocaml.doc
          "Indicates whether data replication is enabled, and if enabled, the type of data replication."];
      recoverySnapshotTime: Timestamp.t option
        [@ocaml.doc
          "The date and time at which the last successful snapshot was taken of the primary WorkSpace used for replicating data."]}
    let make ?dataReplication =
      fun ?recoverySnapshotTime ->
        fun () -> { dataReplication; recoverySnapshotTime }
    let to_value x =
      structure_to_value
        [("DataReplication",
           (Option.map x.dataReplication ~f:DataReplication.to_value));
        ("RecoverySnapshotTime",
          (Option.map x.recoverySnapshotTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recoverySnapshotTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "RecoverySnapshotTime") in
      let dataReplication =
        (Option.map ~f:DataReplication.of_xml)
          (Xml.child xml_arg0 "DataReplication") in
      make ?recoverySnapshotTime ?dataReplication ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recoverySnapshotTime =
        field_map json__ "RecoverySnapshotTime" Timestamp.of_json in
      let dataReplication =
        field_map json__ "DataReplication" DataReplication.of_json in
      make ?recoverySnapshotTime ?dataReplication ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the data replication settings."]
module ModificationStateList =
  struct
    type nonrec t = ModificationState.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:ModificationState.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:ModificationState.of_xml)
    let of_json j =
      list_of_json ~kind:"ModificationStateList"
        ~of_json:ModificationState.of_json j
    let to_json v = composed_to_json to_value v
  end
module RelatedWorkspaces =
  struct
    type nonrec t = RelatedWorkspaceProperties.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:RelatedWorkspaceProperties.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:RelatedWorkspaceProperties.of_xml)
    let of_json j =
      list_of_json ~kind:"RelatedWorkspaces"
        ~of_json:RelatedWorkspaceProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module StandbyWorkspacesPropertiesList =
  struct
    type nonrec t = StandbyWorkspacesProperties.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:StandbyWorkspacesProperties.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:StandbyWorkspacesProperties.of_xml)
    let of_json j =
      list_of_json ~kind:"StandbyWorkspacesPropertiesList"
        ~of_json:StandbyWorkspacesProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceErrorCode =
  struct
    type nonrec t = string
    let context_ = "WorkspaceErrorCode"
    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:"WorkspaceErrorCode" j
    let to_json = simple_to_json to_value
  end
module ApplicationSettingsResponse =
  struct
    type nonrec t =
      {
      status: ApplicationSettingsStatusEnum.t option
        [@ocaml.doc
          "Specifies whether persistent application settings are enabled for users during their pool sessions."];
      settingsGroup: SettingsGroup.t option
        [@ocaml.doc
          "The path prefix for the S3 bucket where users\226\128\153 persistent application settings are stored."];
      s3BucketName: S3BucketName.t option
        [@ocaml.doc
          "The S3 bucket where users\226\128\153 persistent application settings are stored. When persistent application settings are enabled for the first time for an account in an Amazon Web Services Region, an S3 bucket is created. The bucket is unique to the Amazon Web Services account and the Region."]}
    let make ?status =
      fun ?settingsGroup ->
        fun ?s3BucketName ->
          fun () -> { status; settingsGroup; s3BucketName }
    let to_value x =
      structure_to_value
        [("Status",
           (Option.map x.status ~f:ApplicationSettingsStatusEnum.to_value));
        ("SettingsGroup",
          (Option.map x.settingsGroup ~f:SettingsGroup.to_value));
        ("S3BucketName",
          (Option.map x.s3BucketName ~f:S3BucketName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3BucketName =
        (Option.map ~f:S3BucketName.of_xml)
          (Xml.child xml_arg0 "S3BucketName") in
      let settingsGroup =
        (Option.map ~f:SettingsGroup.of_xml)
          (Xml.child xml_arg0 "SettingsGroup") in
      let status =
        (Option.map ~f:ApplicationSettingsStatusEnum.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?s3BucketName ?settingsGroup ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3BucketName = field_map json__ "S3BucketName" S3BucketName.of_json in
      let settingsGroup =
        field_map json__ "SettingsGroup" SettingsGroup.of_json in
      let status =
        field_map json__ "Status" ApplicationSettingsStatusEnum.of_json in
      make ?s3BucketName ?settingsGroup ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the persistent application settings for WorkSpaces Pools users."]
module CapacityStatus =
  struct
    type nonrec t =
      {
      availableUserSessions: AvailableUserSessions.t option
        [@ocaml.doc
          "The number of user sessions currently available for streaming from your pool. AvailableUserSessions = ActualUserSessions - ActiveUserSessions"];
      desiredUserSessions: DesiredUserSessions.t option
        [@ocaml.doc
          "The total number of sessions slots that are either running or pending. This represents the total number of concurrent streaming sessions your pool can support in a steady state."];
      actualUserSessions: ActualUserSessions.t option
        [@ocaml.doc
          "The total number of user sessions that are available for streaming or are currently streaming in your pool. ActualUserSessions = AvailableUserSessions + ActiveUserSessions"];
      activeUserSessions: ActiveUserSessions.t option
        [@ocaml.doc
          "The number of user sessions currently being used for your pool."]}
    let make ?availableUserSessions =
      fun ?desiredUserSessions ->
        fun ?actualUserSessions ->
          fun ?activeUserSessions ->
            fun () ->
              {
                availableUserSessions;
                desiredUserSessions;
                actualUserSessions;
                activeUserSessions
              }
    let to_value x =
      structure_to_value
        [("AvailableUserSessions",
           (Option.map x.availableUserSessions
              ~f:AvailableUserSessions.to_value));
        ("DesiredUserSessions",
          (Option.map x.desiredUserSessions ~f:DesiredUserSessions.to_value));
        ("ActualUserSessions",
          (Option.map x.actualUserSessions ~f:ActualUserSessions.to_value));
        ("ActiveUserSessions",
          (Option.map x.activeUserSessions ~f:ActiveUserSessions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activeUserSessions =
        (Option.map ~f:ActiveUserSessions.of_xml)
          (Xml.child xml_arg0 "ActiveUserSessions") in
      let actualUserSessions =
        (Option.map ~f:ActualUserSessions.of_xml)
          (Xml.child xml_arg0 "ActualUserSessions") in
      let desiredUserSessions =
        (Option.map ~f:DesiredUserSessions.of_xml)
          (Xml.child xml_arg0 "DesiredUserSessions") in
      let availableUserSessions =
        (Option.map ~f:AvailableUserSessions.of_xml)
          (Xml.child xml_arg0 "AvailableUserSessions") in
      make ?activeUserSessions ?actualUserSessions ?desiredUserSessions
        ?availableUserSessions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activeUserSessions =
        field_map json__ "ActiveUserSessions" ActiveUserSessions.of_json in
      let actualUserSessions =
        field_map json__ "ActualUserSessions" ActualUserSessions.of_json in
      let desiredUserSessions =
        field_map json__ "DesiredUserSessions" DesiredUserSessions.of_json in
      let availableUserSessions =
        field_map json__ "AvailableUserSessions"
          AvailableUserSessions.of_json in
      make ?activeUserSessions ?actualUserSessions ?desiredUserSessions
        ?availableUserSessions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the capacity status for a pool of WorkSpaces."]
module PoolsRunningMode =
  struct
    type nonrec t =
      | AUTO_STOP 
      | ALWAYS_ON 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUTO_STOP -> "AUTO_STOP"
      | ALWAYS_ON -> "ALWAYS_ON"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUTO_STOP" -> AUTO_STOP
      | "ALWAYS_ON" -> ALWAYS_ON
      | 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 PoolsRunningMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PoolsRunningMode" j)
    let to_json = simple_to_json to_value
  end
module TimeoutSettings =
  struct
    type nonrec t =
      {
      disconnectTimeoutInSeconds: DisconnectTimeoutInSeconds.t option
        [@ocaml.doc
          "Specifies the amount of time, in seconds, that a streaming session remains active after users disconnect. If users try to reconnect to the streaming session after a disconnection or network interruption within the time set, they are connected to their previous session. Otherwise, they are connected to a new session with a new streaming instance."];
      idleDisconnectTimeoutInSeconds: IdleDisconnectTimeoutInSeconds.t option
        [@ocaml.doc
          "The amount of time in seconds a connection will stay active while idle."];
      maxUserDurationInSeconds: MaxUserDurationInSeconds.t option
        [@ocaml.doc
          "Specifies the maximum amount of time, in seconds, that a streaming session can remain active. If users are still connected to a streaming instance five minutes before this limit is reached, they are prompted to save any open documents before being disconnected. After this time elapses, the instance is terminated and replaced by a new instance."]}
    let make ?disconnectTimeoutInSeconds =
      fun ?idleDisconnectTimeoutInSeconds ->
        fun ?maxUserDurationInSeconds ->
          fun () ->
            {
              disconnectTimeoutInSeconds;
              idleDisconnectTimeoutInSeconds;
              maxUserDurationInSeconds
            }
    let to_value x =
      structure_to_value
        [("DisconnectTimeoutInSeconds",
           (Option.map x.disconnectTimeoutInSeconds
              ~f:DisconnectTimeoutInSeconds.to_value));
        ("IdleDisconnectTimeoutInSeconds",
          (Option.map x.idleDisconnectTimeoutInSeconds
             ~f:IdleDisconnectTimeoutInSeconds.to_value));
        ("MaxUserDurationInSeconds",
          (Option.map x.maxUserDurationInSeconds
             ~f:MaxUserDurationInSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxUserDurationInSeconds =
        (Option.map ~f:MaxUserDurationInSeconds.of_xml)
          (Xml.child xml_arg0 "MaxUserDurationInSeconds") in
      let idleDisconnectTimeoutInSeconds =
        (Option.map ~f:IdleDisconnectTimeoutInSeconds.of_xml)
          (Xml.child xml_arg0 "IdleDisconnectTimeoutInSeconds") in
      let disconnectTimeoutInSeconds =
        (Option.map ~f:DisconnectTimeoutInSeconds.of_xml)
          (Xml.child xml_arg0 "DisconnectTimeoutInSeconds") in
      make ?maxUserDurationInSeconds ?idleDisconnectTimeoutInSeconds
        ?disconnectTimeoutInSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxUserDurationInSeconds =
        field_map json__ "MaxUserDurationInSeconds"
          MaxUserDurationInSeconds.of_json in
      let idleDisconnectTimeoutInSeconds =
        field_map json__ "IdleDisconnectTimeoutInSeconds"
          IdleDisconnectTimeoutInSeconds.of_json in
      let disconnectTimeoutInSeconds =
        field_map json__ "DisconnectTimeoutInSeconds"
          DisconnectTimeoutInSeconds.of_json in
      make ?maxUserDurationInSeconds ?idleDisconnectTimeoutInSeconds
        ?disconnectTimeoutInSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the timeout settings for a pool of WorkSpaces."]
module WorkspacesPoolErrors =
  struct
    type nonrec t = WorkspacesPoolError.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:WorkspacesPoolError.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:WorkspacesPoolError.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspacesPoolErrors"
        ~of_json:WorkspacesPoolError.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspacesPoolId =
  struct
    type nonrec t = string
    let context_ = "WorkspacesPoolId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^wspool-[0-9a-z]{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:"WorkspacesPoolId" j
    let to_json = simple_to_json to_value
  end
module WorkspacesPoolName =
  struct
    type nonrec t = string
    let context_ = "WorkspacesPoolName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[A-Za-z0-9][A-Za-z0-9_.-]{0,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:"WorkspacesPoolName" j
    let to_json = simple_to_json to_value
  end
module WorkspacesPoolState =
  struct
    type nonrec t =
      | CREATING 
      | DELETING 
      | RUNNING 
      | STARTING 
      | STOPPED 
      | STOPPING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | DELETING -> "DELETING"
      | RUNNING -> "RUNNING"
      | STARTING -> "STARTING"
      | STOPPED -> "STOPPED"
      | STOPPING -> "STOPPING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "DELETING" -> DELETING
      | "RUNNING" -> RUNNING
      | "STARTING" -> STARTING
      | "STOPPED" -> STOPPED
      | "STOPPING" -> STOPPING
      | "UPDATING" -> UPDATING
      | 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 WorkspacesPoolState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkspacesPoolState" j)
    let to_json = simple_to_json to_value
  end
module DescribeWorkspacesPoolsFilterName =
  struct
    type nonrec t =
      | PoolName 
      | Non_static_id of string 
    let make i = i
    let to_string = function | PoolName -> "PoolName" | Non_static_id s -> s
    let of_string = function | "PoolName" -> PoolName | 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 DescribeWorkspacesPoolsFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DescribeWorkspacesPoolsFilterName" j)
    let to_json = simple_to_json to_value
  end
module DescribeWorkspacesPoolsFilterOperator =
  struct
    type nonrec t =
      | EQUALS 
      | NOTEQUALS 
      | CONTAINS 
      | NOTCONTAINS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EQUALS -> "EQUALS"
      | NOTEQUALS -> "NOTEQUALS"
      | CONTAINS -> "CONTAINS"
      | NOTCONTAINS -> "NOTCONTAINS"
      | Non_static_id s -> s
    let of_string =
      function
      | "EQUALS" -> EQUALS
      | "NOTEQUALS" -> NOTEQUALS
      | "CONTAINS" -> CONTAINS
      | "NOTCONTAINS" -> NOTCONTAINS
      | 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 DescribeWorkspacesPoolsFilterOperator" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DescribeWorkspacesPoolsFilterOperator" j)
    let to_json = simple_to_json to_value
  end
module DescribeWorkspacesPoolsFilterValues =
  struct
    type nonrec t = DescribeWorkspacesPoolsFilterValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:DescribeWorkspacesPoolsFilterValue.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:DescribeWorkspacesPoolsFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribeWorkspacesPoolsFilterValues"
        ~of_json:DescribeWorkspacesPoolsFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AmazonUuid =
  struct
    type nonrec t = string
    let context_ = "AmazonUuid"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}")));
        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:"AmazonUuid" j
    let to_json = simple_to_json to_value
  end
module AuthenticationType =
  struct
    type nonrec t =
      | SAML 
      | Non_static_id of string 
    let make i = i
    let to_string = function | SAML -> "SAML" | Non_static_id s -> s
    let of_string = function | "SAML" -> SAML | 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 AuthenticationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthenticationType" j)
    let to_json = simple_to_json to_value
  end
module NetworkAccessConfiguration =
  struct
    type nonrec t =
      {
      eniPrivateIpAddress: NonEmptyString.t option
        [@ocaml.doc
          "The private IP address of the elastic network interface that is attached to instances in your VPC."];
      eniId: NonEmptyString.t option
        [@ocaml.doc
          "The resource identifier of the elastic network interface that is attached to instances in your VPC. All network interfaces have the eni-xxxxxxxx resource identifier."]}
    let make ?eniPrivateIpAddress =
      fun ?eniId -> fun () -> { eniPrivateIpAddress; eniId }
    let to_value x =
      structure_to_value
        [("EniPrivateIpAddress",
           (Option.map x.eniPrivateIpAddress ~f:NonEmptyString.to_value));
        ("EniId", (Option.map x.eniId ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eniId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "EniId") in
      let eniPrivateIpAddress =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "EniPrivateIpAddress") in
      make ?eniId ?eniPrivateIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eniId = field_map json__ "EniId" NonEmptyString.of_json in
      let eniPrivateIpAddress =
        field_map json__ "EniPrivateIpAddress" NonEmptyString.of_json in
      make ?eniId ?eniPrivateIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the network details of a WorkSpaces Pool."]
module SessionConnectionState =
  struct
    type nonrec t =
      | CONNECTED 
      | NOT_CONNECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECTED -> "CONNECTED"
      | NOT_CONNECTED -> "NOT_CONNECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECTED" -> CONNECTED
      | "NOT_CONNECTED" -> NOT_CONNECTED
      | 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 SessionConnectionState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SessionConnectionState" j)
    let to_json = simple_to_json to_value
  end
module SessionInstanceId =
  struct
    type nonrec t = string
    let context_ = "SessionInstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^i-[a-f0-9]{8}(?:[a-f0-9]{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:"SessionInstanceId" j
    let to_json = simple_to_json to_value
  end
module WorkspacesPoolUserId =
  struct
    type nonrec t = string
    let context_ = "WorkspacesPoolUserId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min: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:"WorkspacesPoolUserId" j
    let to_json = simple_to_json to_value
  end
module ConnectionState =
  struct
    type nonrec t =
      | CONNECTED 
      | DISCONNECTED 
      | UNKNOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECTED -> "CONNECTED"
      | DISCONNECTED -> "DISCONNECTED"
      | UNKNOWN -> "UNKNOWN"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECTED" -> CONNECTED
      | "DISCONNECTED" -> DISCONNECTED
      | "UNKNOWN" -> UNKNOWN
      | 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 ConnectionState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionState" j)
    let to_json = simple_to_json to_value
  end
module ErrorDetailsList =
  struct
    type nonrec t = ErrorDetails.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:ErrorDetails.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:ErrorDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"ErrorDetailsList" ~of_json:ErrorDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module OperatingSystem =
  struct
    type nonrec t =
      {
      type_: OperatingSystemType.t option
        [@ocaml.doc "The operating system."]}
    let make ?type_ = fun () -> { type_ }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:OperatingSystemType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:OperatingSystemType.of_xml)
          (Xml.child xml_arg0 "Type") in
      make ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" OperatingSystemType.of_json in
      make ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The operating system that the image is running."]
module UpdateResult =
  struct
    type nonrec t =
      {
      updateAvailable: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether updated drivers or other components are available for the specified WorkSpace image."];
      description: UpdateDescription.t option
        [@ocaml.doc
          "A description of whether updates for the WorkSpace image are pending or available."]}
    let make ?updateAvailable =
      fun ?description -> fun () -> { updateAvailable; description }
    let to_value x =
      structure_to_value
        [("UpdateAvailable",
           (Option.map x.updateAvailable ~f:BooleanObject.to_value));
        ("Description",
          (Option.map x.description ~f:UpdateDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:UpdateDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let updateAvailable =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "UpdateAvailable") in
      make ?description ?updateAvailable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" UpdateDescription.of_json in
      let updateAvailable =
        field_map json__ "UpdateAvailable" BooleanObject.of_json in
      make ?description ?updateAvailable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes whether a WorkSpace image needs to be updated with the latest drivers and other components required by Amazon WorkSpaces. Only Windows 10 WorkSpace images can be programmatically updated at this time."]
module WorkspaceImageDescription =
  struct
    type nonrec t = string
    let context_ = "WorkspaceImageDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9_./() -]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WorkspaceImageDescription" j
    let to_json = simple_to_json to_value
  end
module WorkspaceImageErrorCode =
  struct
    type nonrec t = string
    let context_ = "WorkspaceImageErrorCode"
    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:"WorkspaceImageErrorCode" j
    let to_json = simple_to_json to_value
  end
module WorkspaceImageId =
  struct
    type nonrec t = string
    let context_ = "WorkspaceImageId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"wsi-[0-9a-z]{9,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:"WorkspaceImageId" j
    let to_json = simple_to_json to_value
  end
module WorkspaceImageName =
  struct
    type nonrec t = string
    let context_ = "WorkspaceImageName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z0-9_./()\\\\-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WorkspaceImageName" j
    let to_json = simple_to_json to_value
  end
module WorkspaceImageRequiredTenancy =
  struct
    type nonrec t =
      | DEFAULT 
      | DEDICATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEFAULT -> "DEFAULT"
      | DEDICATED -> "DEDICATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEFAULT" -> DEFAULT
      | "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 WorkspaceImageRequiredTenancy"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkspaceImageRequiredTenancy" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceImageState =
  struct
    type nonrec t =
      | AVAILABLE 
      | PENDING 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | PENDING -> "PENDING"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "PENDING" -> PENDING
      | "ERROR" -> ERROR
      | 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 WorkspaceImageState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkspaceImageState" j)
    let to_json = simple_to_json to_value
  end
module ActiveDirectoryConfig =
  struct
    type nonrec t =
      {
      domainName: DomainName.t [@ocaml.doc "The name of the domain."];
      serviceAccountSecretArn: SecretsManagerArn.t
        [@ocaml.doc "Indicates the secret ARN on the service account."]}
    let context_ = "ActiveDirectoryConfig"
    let make ~domainName =
      fun ~serviceAccountSecretArn ->
        fun () -> { domainName; serviceAccountSecretArn }
    let to_value x =
      structure_to_value
        [("DomainName", (Some (DomainName.to_value x.domainName)));
        ("ServiceAccountSecretArn",
          (Some (SecretsManagerArn.to_value x.serviceAccountSecretArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceAccountSecretArn =
        SecretsManagerArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceAccountSecretArn") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      make ~serviceAccountSecretArn ~domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceAccountSecretArn =
        field_map_exn json__ "ServiceAccountSecretArn"
          SecretsManagerArn.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      make ~serviceAccountSecretArn ~domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the Active Directory config."]
module Alias =
  struct
    type nonrec t = string
    let context_ = "Alias"
    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:"Alias" j
    let to_json = simple_to_json to_value
  end
module CertificateBasedAuthProperties =
  struct
    type nonrec t =
      {
      status: CertificateBasedAuthStatusEnum.t option
        [@ocaml.doc
          "The status of the certificate-based authentication properties."];
      certificateAuthorityArn: CertificateAuthorityArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services Certificate Manager Private CA resource."]}
    let make ?status =
      fun ?certificateAuthorityArn ->
        fun () -> { status; certificateAuthorityArn }
    let to_value x =
      structure_to_value
        [("Status",
           (Option.map x.status ~f:CertificateBasedAuthStatusEnum.to_value));
        ("CertificateAuthorityArn",
          (Option.map x.certificateAuthorityArn
             ~f:CertificateAuthorityArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateAuthorityArn =
        (Option.map ~f:CertificateAuthorityArn.of_xml)
          (Xml.child xml_arg0 "CertificateAuthorityArn") in
      let status =
        (Option.map ~f:CertificateBasedAuthStatusEnum.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?certificateAuthorityArn ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateAuthorityArn =
        field_map json__ "CertificateAuthorityArn"
          CertificateAuthorityArn.of_json in
      let status =
        field_map json__ "Status" CertificateBasedAuthStatusEnum.of_json in
      make ?certificateAuthorityArn ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the properties of the certificate-based authentication you want to use with your WorkSpaces."]
module DefaultWorkspaceCreationProperties =
  struct
    type nonrec t =
      {
      enableInternetAccess: BooleanObject.t option
        [@ocaml.doc
          "Specifies whether to automatically assign an Elastic public IP address to WorkSpaces in this directory by default. If enabled, the Elastic public IP address allows outbound internet access from your WorkSpaces when you\226\128\153re using an internet gateway in the Amazon VPC in which your WorkSpaces are located. If you're using a Network Address Translation (NAT) gateway for outbound internet access from your VPC, or if your WorkSpaces are in public subnets and you manually assign them Elastic IP addresses, you should disable this setting. This setting applies to new WorkSpaces that you launch or to existing WorkSpaces that you rebuild. For more information, see Configure a VPC for Amazon WorkSpaces."];
      defaultOu: DefaultOu.t option
        [@ocaml.doc
          "The organizational unit (OU) in the directory for the WorkSpace machine accounts."];
      customSecurityGroupId: SecurityGroupId.t option
        [@ocaml.doc
          "The identifier of the default security group to apply to WorkSpaces when they are created. For more information, see Security Groups for Your WorkSpaces."];
      userEnabledAsLocalAdministrator: BooleanObject.t option
        [@ocaml.doc
          "Specifies whether WorkSpace users are local administrators on their WorkSpaces."];
      enableMaintenanceMode: BooleanObject.t option
        [@ocaml.doc
          "Specifies whether maintenance mode is enabled for WorkSpaces. For more information, see WorkSpace Maintenance."];
      instanceIamRoleArn: ARN.t option
        [@ocaml.doc "Indicates the IAM role ARN of the instance."]}
    let make ?enableInternetAccess =
      fun ?defaultOu ->
        fun ?customSecurityGroupId ->
          fun ?userEnabledAsLocalAdministrator ->
            fun ?enableMaintenanceMode ->
              fun ?instanceIamRoleArn ->
                fun () ->
                  {
                    enableInternetAccess;
                    defaultOu;
                    customSecurityGroupId;
                    userEnabledAsLocalAdministrator;
                    enableMaintenanceMode;
                    instanceIamRoleArn
                  }
    let to_value x =
      structure_to_value
        [("EnableInternetAccess",
           (Option.map x.enableInternetAccess ~f:BooleanObject.to_value));
        ("DefaultOu", (Option.map x.defaultOu ~f:DefaultOu.to_value));
        ("CustomSecurityGroupId",
          (Option.map x.customSecurityGroupId ~f:SecurityGroupId.to_value));
        ("UserEnabledAsLocalAdministrator",
          (Option.map x.userEnabledAsLocalAdministrator
             ~f:BooleanObject.to_value));
        ("EnableMaintenanceMode",
          (Option.map x.enableMaintenanceMode ~f:BooleanObject.to_value));
        ("InstanceIamRoleArn",
          (Option.map x.instanceIamRoleArn ~f:ARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceIamRoleArn =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "InstanceIamRoleArn") in
      let enableMaintenanceMode =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "EnableMaintenanceMode") in
      let userEnabledAsLocalAdministrator =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "UserEnabledAsLocalAdministrator") in
      let customSecurityGroupId =
        (Option.map ~f:SecurityGroupId.of_xml)
          (Xml.child xml_arg0 "CustomSecurityGroupId") in
      let defaultOu =
        (Option.map ~f:DefaultOu.of_xml) (Xml.child xml_arg0 "DefaultOu") in
      let enableInternetAccess =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "EnableInternetAccess") in
      make ?instanceIamRoleArn ?enableMaintenanceMode
        ?userEnabledAsLocalAdministrator ?customSecurityGroupId ?defaultOu
        ?enableInternetAccess ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceIamRoleArn =
        field_map json__ "InstanceIamRoleArn" ARN.of_json in
      let enableMaintenanceMode =
        field_map json__ "EnableMaintenanceMode" BooleanObject.of_json in
      let userEnabledAsLocalAdministrator =
        field_map json__ "UserEnabledAsLocalAdministrator"
          BooleanObject.of_json in
      let customSecurityGroupId =
        field_map json__ "CustomSecurityGroupId" SecurityGroupId.of_json in
      let defaultOu = field_map json__ "DefaultOu" DefaultOu.of_json in
      let enableInternetAccess =
        field_map json__ "EnableInternetAccess" BooleanObject.of_json in
      make ?instanceIamRoleArn ?enableMaintenanceMode
        ?userEnabledAsLocalAdministrator ?customSecurityGroupId ?defaultOu
        ?enableInternetAccess ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the default values that are used to create WorkSpaces. For more information, see Update Directory Details for Your WorkSpaces."]
module DirectoryName =
  struct
    type nonrec t = string
    let context_ = "DirectoryName"
    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:"DirectoryName" j
    let to_json = simple_to_json to_value
  end
module DnsIpAddresses =
  struct
    type nonrec t = IpAddress.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:IpAddress.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:IpAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"DnsIpAddresses" ~of_json:IpAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module DnsIpv6Addresses =
  struct
    type nonrec t = Ipv6Address.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:Ipv6Address.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:Ipv6Address.of_xml)
    let of_json j =
      list_of_json ~kind:"DnsIpv6Addresses" ~of_json:Ipv6Address.of_json j
    let to_json v = composed_to_json to_value v
  end
module EndpointEncryptionMode =
  struct
    type nonrec t =
      | STANDARD_TLS 
      | FIPS_VALIDATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD_TLS -> "STANDARD_TLS"
      | FIPS_VALIDATED -> "FIPS_VALIDATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD_TLS" -> STANDARD_TLS
      | "FIPS_VALIDATED" -> FIPS_VALIDATED
      | 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 EndpointEncryptionMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EndpointEncryptionMode" j)
    let to_json = simple_to_json to_value
  end
module IDCConfig =
  struct
    type nonrec t =
      {
      instanceArn: ARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the identity center instance."];
      applicationArn: ARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the application."]}
    let make ?instanceArn =
      fun ?applicationArn -> fun () -> { instanceArn; applicationArn }
    let to_value x =
      structure_to_value
        [("InstanceArn", (Option.map x.instanceArn ~f:ARN.to_value));
        ("ApplicationArn", (Option.map x.applicationArn ~f:ARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationArn =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "ApplicationArn") in
      let instanceArn =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "InstanceArn") in
      make ?applicationArn ?instanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationArn = field_map json__ "ApplicationArn" ARN.of_json in
      let instanceArn = field_map json__ "InstanceArn" ARN.of_json in
      make ?applicationArn ?instanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the configurations of the identity center."]
module IpGroupIdList =
  struct
    type nonrec t = IpGroupId.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:IpGroupId.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:IpGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"IpGroupIdList" ~of_json:IpGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module MicrosoftEntraConfig =
  struct
    type nonrec t =
      {
      tenantId: MicrosoftEntraConfigTenantId.t option
        [@ocaml.doc "The identifier of the tenant."];
      applicationConfigSecretArn: SecretsManagerArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the application config."]}
    let make ?tenantId =
      fun ?applicationConfigSecretArn ->
        fun () -> { tenantId; applicationConfigSecretArn }
    let to_value x =
      structure_to_value
        [("TenantId",
           (Option.map x.tenantId ~f:MicrosoftEntraConfigTenantId.to_value));
        ("ApplicationConfigSecretArn",
          (Option.map x.applicationConfigSecretArn
             ~f:SecretsManagerArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationConfigSecretArn =
        (Option.map ~f:SecretsManagerArn.of_xml)
          (Xml.child xml_arg0 "ApplicationConfigSecretArn") in
      let tenantId =
        (Option.map ~f:MicrosoftEntraConfigTenantId.of_xml)
          (Xml.child xml_arg0 "TenantId") in
      make ?applicationConfigSecretArn ?tenantId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationConfigSecretArn =
        field_map json__ "ApplicationConfigSecretArn"
          SecretsManagerArn.of_json in
      let tenantId =
        field_map json__ "TenantId" MicrosoftEntraConfigTenantId.of_json in
      make ?applicationConfigSecretArn ?tenantId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the configurations of the Microsoft Entra."]
module RegistrationCode =
  struct
    type nonrec t = string
    let context_ = "RegistrationCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (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:"RegistrationCode" j
    let to_json = simple_to_json to_value
  end
module SamlProperties =
  struct
    type nonrec t =
      {
      status: SamlStatusEnum.t option
        [@ocaml.doc
          "Indicates the status of SAML 2.0 authentication. These statuses include the following. If the setting is DISABLED, end users will be directed to login with their directory credentials. If the setting is ENABLED, end users will be directed to login via the user access URL. Users attempting to connect to WorkSpaces from a client application that does not support SAML 2.0 authentication will not be able to connect. If the setting is ENABLED_WITH_DIRECTORY_LOGIN_FALLBACK, end users will be directed to login via the user access URL on supported client applications, but will not prevent clients that do not support SAML 2.0 authentication from connecting as if SAML 2.0 authentication was disabled."];
      userAccessUrl: SamlUserAccessUrl.t option
        [@ocaml.doc
          "The SAML 2.0 identity provider (IdP) user access URL is the URL a user would navigate to in their web browser in order to federate from the IdP and directly access the application, without any SAML 2.0 service provider (SP) bindings."];
      relayStateParameterName: NonEmptyString.t option
        [@ocaml.doc
          "The relay state parameter name supported by the SAML 2.0 identity provider (IdP). When the end user is redirected to the user access URL from the WorkSpaces client application, this relay state parameter name is appended as a query parameter to the URL along with the relay state endpoint to return the user to the client application session. To use SAML 2.0 authentication with WorkSpaces, the IdP must support IdP-initiated deep linking for the relay state URL. Consult your IdP documentation for more information."]}
    let make ?status =
      fun ?userAccessUrl ->
        fun ?relayStateParameterName ->
          fun () -> { status; userAccessUrl; relayStateParameterName }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:SamlStatusEnum.to_value));
        ("UserAccessUrl",
          (Option.map x.userAccessUrl ~f:SamlUserAccessUrl.to_value));
        ("RelayStateParameterName",
          (Option.map x.relayStateParameterName ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relayStateParameterName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "RelayStateParameterName") in
      let userAccessUrl =
        (Option.map ~f:SamlUserAccessUrl.of_xml)
          (Xml.child xml_arg0 "UserAccessUrl") in
      let status =
        (Option.map ~f:SamlStatusEnum.of_xml) (Xml.child xml_arg0 "Status") in
      make ?relayStateParameterName ?userAccessUrl ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relayStateParameterName =
        field_map json__ "RelayStateParameterName" NonEmptyString.of_json in
      let userAccessUrl =
        field_map json__ "UserAccessUrl" SamlUserAccessUrl.of_json in
      let status = field_map json__ "Status" SamlStatusEnum.of_json in
      make ?relayStateParameterName ?userAccessUrl ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the enablement status, user access URL, and relay state parameter name that are used for configuring federation with an SAML 2.0 identity provider."]
module SelfservicePermissions =
  struct
    type nonrec t =
      {
      restartWorkspace: ReconnectEnum.t option
        [@ocaml.doc "Specifies whether users can restart their WorkSpace."];
      increaseVolumeSize: ReconnectEnum.t option
        [@ocaml.doc
          "Specifies whether users can increase the volume size of the drives on their WorkSpace."];
      changeComputeType: ReconnectEnum.t option
        [@ocaml.doc
          "Specifies whether users can change the compute type (bundle) for their WorkSpace."];
      switchRunningMode: ReconnectEnum.t option
        [@ocaml.doc
          "Specifies whether users can switch the running mode of their WorkSpace."];
      rebuildWorkspace: ReconnectEnum.t option
        [@ocaml.doc
          "Specifies whether users can rebuild the operating system of a WorkSpace to its original state."]}
    let make ?restartWorkspace =
      fun ?increaseVolumeSize ->
        fun ?changeComputeType ->
          fun ?switchRunningMode ->
            fun ?rebuildWorkspace ->
              fun () ->
                {
                  restartWorkspace;
                  increaseVolumeSize;
                  changeComputeType;
                  switchRunningMode;
                  rebuildWorkspace
                }
    let to_value x =
      structure_to_value
        [("RestartWorkspace",
           (Option.map x.restartWorkspace ~f:ReconnectEnum.to_value));
        ("IncreaseVolumeSize",
          (Option.map x.increaseVolumeSize ~f:ReconnectEnum.to_value));
        ("ChangeComputeType",
          (Option.map x.changeComputeType ~f:ReconnectEnum.to_value));
        ("SwitchRunningMode",
          (Option.map x.switchRunningMode ~f:ReconnectEnum.to_value));
        ("RebuildWorkspace",
          (Option.map x.rebuildWorkspace ~f:ReconnectEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rebuildWorkspace =
        (Option.map ~f:ReconnectEnum.of_xml)
          (Xml.child xml_arg0 "RebuildWorkspace") in
      let switchRunningMode =
        (Option.map ~f:ReconnectEnum.of_xml)
          (Xml.child xml_arg0 "SwitchRunningMode") in
      let changeComputeType =
        (Option.map ~f:ReconnectEnum.of_xml)
          (Xml.child xml_arg0 "ChangeComputeType") in
      let increaseVolumeSize =
        (Option.map ~f:ReconnectEnum.of_xml)
          (Xml.child xml_arg0 "IncreaseVolumeSize") in
      let restartWorkspace =
        (Option.map ~f:ReconnectEnum.of_xml)
          (Xml.child xml_arg0 "RestartWorkspace") in
      make ?rebuildWorkspace ?switchRunningMode ?changeComputeType
        ?increaseVolumeSize ?restartWorkspace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rebuildWorkspace =
        field_map json__ "RebuildWorkspace" ReconnectEnum.of_json in
      let switchRunningMode =
        field_map json__ "SwitchRunningMode" ReconnectEnum.of_json in
      let changeComputeType =
        field_map json__ "ChangeComputeType" ReconnectEnum.of_json in
      let increaseVolumeSize =
        field_map json__ "IncreaseVolumeSize" ReconnectEnum.of_json in
      let restartWorkspace =
        field_map json__ "RestartWorkspace" ReconnectEnum.of_json in
      make ?rebuildWorkspace ?switchRunningMode ?changeComputeType
        ?increaseVolumeSize ?restartWorkspace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the self-service permissions for a directory. For more information, see Enable Self-Service WorkSpace Management Capabilities for Your Users."]
module StreamingProperties =
  struct
    type nonrec t =
      {
      streamingExperiencePreferredProtocol:
        StreamingExperiencePreferredProtocolEnum.t option
        [@ocaml.doc
          "Indicates the type of preferred protocol for the streaming experience."];
      userSettings: UserSettings.t option
        [@ocaml.doc
          "Indicates the permission settings asscoiated with the user."];
      storageConnectors: StorageConnectors.t option
        [@ocaml.doc "Indicates the storage connector used"];
      globalAccelerator: GlobalAcceleratorForDirectory.t option
        [@ocaml.doc "Indicates the Global Accelerator properties."]}
    let make ?streamingExperiencePreferredProtocol =
      fun ?userSettings ->
        fun ?storageConnectors ->
          fun ?globalAccelerator ->
            fun () ->
              {
                streamingExperiencePreferredProtocol;
                userSettings;
                storageConnectors;
                globalAccelerator
              }
    let to_value x =
      structure_to_value
        [("StreamingExperiencePreferredProtocol",
           (Option.map x.streamingExperiencePreferredProtocol
              ~f:StreamingExperiencePreferredProtocolEnum.to_value));
        ("UserSettings",
          (Option.map x.userSettings ~f:UserSettings.to_value));
        ("StorageConnectors",
          (Option.map x.storageConnectors ~f:StorageConnectors.to_value));
        ("GlobalAccelerator",
          (Option.map x.globalAccelerator
             ~f:GlobalAcceleratorForDirectory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalAccelerator =
        (Option.map ~f:GlobalAcceleratorForDirectory.of_xml)
          (Xml.child xml_arg0 "GlobalAccelerator") in
      let storageConnectors =
        (Option.map ~f:StorageConnectors.of_xml)
          (Xml.child xml_arg0 "StorageConnectors") in
      let userSettings =
        (Option.map ~f:UserSettings.of_xml)
          (Xml.child xml_arg0 "UserSettings") in
      let streamingExperiencePreferredProtocol =
        (Option.map ~f:StreamingExperiencePreferredProtocolEnum.of_xml)
          (Xml.child xml_arg0 "StreamingExperiencePreferredProtocol") in
      make ?globalAccelerator ?storageConnectors ?userSettings
        ?streamingExperiencePreferredProtocol ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalAccelerator =
        field_map json__ "GlobalAccelerator"
          GlobalAcceleratorForDirectory.of_json in
      let storageConnectors =
        field_map json__ "StorageConnectors" StorageConnectors.of_json in
      let userSettings = field_map json__ "UserSettings" UserSettings.of_json in
      let streamingExperiencePreferredProtocol =
        field_map json__ "StreamingExperiencePreferredProtocol"
          StreamingExperiencePreferredProtocolEnum.of_json in
      make ?globalAccelerator ?storageConnectors ?userSettings
        ?streamingExperiencePreferredProtocol ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the streaming properties."]
module SubnetIds =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:2); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetIds" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tenancy =
  struct
    type nonrec t =
      | DEDICATED 
      | SHARED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEDICATED -> "DEDICATED"
      | SHARED -> "SHARED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEDICATED" -> DEDICATED
      | "SHARED" -> SHARED
      | 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 Tenancy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Tenancy" j)
    let to_json = simple_to_json to_value
  end
module UserIdentityType =
  struct
    type nonrec t =
      | CUSTOMER_MANAGED 
      | AWS_DIRECTORY_SERVICE 
      | AWS_IAM_IDENTITY_CENTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOMER_MANAGED -> "CUSTOMER_MANAGED"
      | AWS_DIRECTORY_SERVICE -> "AWS_DIRECTORY_SERVICE"
      | AWS_IAM_IDENTITY_CENTER -> "AWS_IAM_IDENTITY_CENTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOMER_MANAGED" -> CUSTOMER_MANAGED
      | "AWS_DIRECTORY_SERVICE" -> AWS_DIRECTORY_SERVICE
      | "AWS_IAM_IDENTITY_CENTER" -> AWS_IAM_IDENTITY_CENTER
      | 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 UserIdentityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserIdentityType" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceAccessProperties =
  struct
    type nonrec t =
      {
      deviceTypeWindows: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use Windows clients to access their WorkSpaces."];
      deviceTypeOsx: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use macOS clients to access their WorkSpaces."];
      deviceTypeWeb: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can access their WorkSpaces through a web browser."];
      deviceTypeIos: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use iOS devices to access their WorkSpaces."];
      deviceTypeAndroid: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use Android and Android-compatible Chrome OS devices to access their WorkSpaces."];
      deviceTypeChromeOs: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use Chromebooks to access their WorkSpaces."];
      deviceTypeZeroClient: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use zero client devices to access their WorkSpaces."];
      deviceTypeLinux: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can use Linux clients to access their WorkSpaces."];
      deviceTypeWorkSpacesThinClient: AccessPropertyValue.t option
        [@ocaml.doc
          "Indicates whether users can access their WorkSpaces through a WorkSpaces Thin Client."];
      accessEndpointConfig: AccessEndpointConfig.t option
        [@ocaml.doc
          "Specifies the configuration for accessing the WorkSpace."]}
    let make ?deviceTypeWindows =
      fun ?deviceTypeOsx ->
        fun ?deviceTypeWeb ->
          fun ?deviceTypeIos ->
            fun ?deviceTypeAndroid ->
              fun ?deviceTypeChromeOs ->
                fun ?deviceTypeZeroClient ->
                  fun ?deviceTypeLinux ->
                    fun ?deviceTypeWorkSpacesThinClient ->
                      fun ?accessEndpointConfig ->
                        fun () ->
                          {
                            deviceTypeWindows;
                            deviceTypeOsx;
                            deviceTypeWeb;
                            deviceTypeIos;
                            deviceTypeAndroid;
                            deviceTypeChromeOs;
                            deviceTypeZeroClient;
                            deviceTypeLinux;
                            deviceTypeWorkSpacesThinClient;
                            accessEndpointConfig
                          }
    let to_value x =
      structure_to_value
        [("DeviceTypeWindows",
           (Option.map x.deviceTypeWindows ~f:AccessPropertyValue.to_value));
        ("DeviceTypeOsx",
          (Option.map x.deviceTypeOsx ~f:AccessPropertyValue.to_value));
        ("DeviceTypeWeb",
          (Option.map x.deviceTypeWeb ~f:AccessPropertyValue.to_value));
        ("DeviceTypeIos",
          (Option.map x.deviceTypeIos ~f:AccessPropertyValue.to_value));
        ("DeviceTypeAndroid",
          (Option.map x.deviceTypeAndroid ~f:AccessPropertyValue.to_value));
        ("DeviceTypeChromeOs",
          (Option.map x.deviceTypeChromeOs ~f:AccessPropertyValue.to_value));
        ("DeviceTypeZeroClient",
          (Option.map x.deviceTypeZeroClient ~f:AccessPropertyValue.to_value));
        ("DeviceTypeLinux",
          (Option.map x.deviceTypeLinux ~f:AccessPropertyValue.to_value));
        ("DeviceTypeWorkSpacesThinClient",
          (Option.map x.deviceTypeWorkSpacesThinClient
             ~f:AccessPropertyValue.to_value));
        ("AccessEndpointConfig",
          (Option.map x.accessEndpointConfig ~f:AccessEndpointConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessEndpointConfig =
        (Option.map ~f:AccessEndpointConfig.of_xml)
          (Xml.child xml_arg0 "AccessEndpointConfig") in
      let deviceTypeWorkSpacesThinClient =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWorkSpacesThinClient") in
      let deviceTypeLinux =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeLinux") in
      let deviceTypeZeroClient =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeZeroClient") in
      let deviceTypeChromeOs =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeChromeOs") in
      let deviceTypeAndroid =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeAndroid") in
      let deviceTypeIos =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeIos") in
      let deviceTypeWeb =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWeb") in
      let deviceTypeOsx =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeOsx") in
      let deviceTypeWindows =
        (Option.map ~f:AccessPropertyValue.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWindows") in
      make ?accessEndpointConfig ?deviceTypeWorkSpacesThinClient
        ?deviceTypeLinux ?deviceTypeZeroClient ?deviceTypeChromeOs
        ?deviceTypeAndroid ?deviceTypeIos ?deviceTypeWeb ?deviceTypeOsx
        ?deviceTypeWindows ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessEndpointConfig =
        field_map json__ "AccessEndpointConfig" AccessEndpointConfig.of_json in
      let deviceTypeWorkSpacesThinClient =
        field_map json__ "DeviceTypeWorkSpacesThinClient"
          AccessPropertyValue.of_json in
      let deviceTypeLinux =
        field_map json__ "DeviceTypeLinux" AccessPropertyValue.of_json in
      let deviceTypeZeroClient =
        field_map json__ "DeviceTypeZeroClient" AccessPropertyValue.of_json in
      let deviceTypeChromeOs =
        field_map json__ "DeviceTypeChromeOs" AccessPropertyValue.of_json in
      let deviceTypeAndroid =
        field_map json__ "DeviceTypeAndroid" AccessPropertyValue.of_json in
      let deviceTypeIos =
        field_map json__ "DeviceTypeIos" AccessPropertyValue.of_json in
      let deviceTypeWeb =
        field_map json__ "DeviceTypeWeb" AccessPropertyValue.of_json in
      let deviceTypeOsx =
        field_map json__ "DeviceTypeOsx" AccessPropertyValue.of_json in
      let deviceTypeWindows =
        field_map json__ "DeviceTypeWindows" AccessPropertyValue.of_json in
      make ?accessEndpointConfig ?deviceTypeWorkSpacesThinClient
        ?deviceTypeLinux ?deviceTypeZeroClient ?deviceTypeChromeOs
        ?deviceTypeAndroid ?deviceTypeIos ?deviceTypeWeb ?deviceTypeOsx
        ?deviceTypeWindows ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The device types and operating systems that can be used to access a WorkSpace. For more information, see Amazon WorkSpaces Client Network Requirements."]
module WorkspaceDirectoryDescription =
  struct
    type nonrec t = string
    let context_ = "WorkspaceDirectoryDescription"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^([a-zA-Z0-9_])[\\\\a-zA-Z0-9_@#%*+=:?./!\\s-]{1,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:"WorkspaceDirectoryDescription" j
    let to_json = simple_to_json to_value
  end
module WorkspaceDirectoryName =
  struct
    type nonrec t = string
    let context_ = "WorkspaceDirectoryName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[a-zA-Z0-9][a-zA-Z0-9_.\\s-]{1,64}$");
        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:"WorkspaceDirectoryName" j
    let to_json = simple_to_json to_value
  end
module WorkspaceDirectoryState =
  struct
    type nonrec t =
      | REGISTERING 
      | REGISTERED 
      | DEREGISTERING 
      | DEREGISTERED 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGISTERING -> "REGISTERING"
      | REGISTERED -> "REGISTERED"
      | DEREGISTERING -> "DEREGISTERING"
      | DEREGISTERED -> "DEREGISTERED"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGISTERING" -> REGISTERING
      | "REGISTERED" -> REGISTERED
      | "DEREGISTERING" -> DEREGISTERING
      | "DEREGISTERED" -> DEREGISTERED
      | "ERROR" -> ERROR
      | 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 WorkspaceDirectoryState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkspaceDirectoryState" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceDirectoryType =
  struct
    type nonrec t =
      | SIMPLE_AD 
      | AD_CONNECTOR 
      | CUSTOMER_MANAGED 
      | AWS_IAM_IDENTITY_CENTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SIMPLE_AD -> "SIMPLE_AD"
      | AD_CONNECTOR -> "AD_CONNECTOR"
      | CUSTOMER_MANAGED -> "CUSTOMER_MANAGED"
      | AWS_IAM_IDENTITY_CENTER -> "AWS_IAM_IDENTITY_CENTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "SIMPLE_AD" -> SIMPLE_AD
      | "AD_CONNECTOR" -> AD_CONNECTOR
      | "CUSTOMER_MANAGED" -> CUSTOMER_MANAGED
      | "AWS_IAM_IDENTITY_CENTER" -> AWS_IAM_IDENTITY_CENTER
      | 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 WorkspaceDirectoryType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkspaceDirectoryType" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceType =
  struct
    type nonrec t =
      | PERSONAL 
      | POOLS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PERSONAL -> "PERSONAL"
      | POOLS -> "POOLS"
      | Non_static_id s -> s
    let of_string =
      function
      | "PERSONAL" -> PERSONAL
      | "POOLS" -> POOLS
      | 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 WorkspaceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkspaceType" j)
    let to_json = simple_to_json to_value
  end
module DescribeWorkspaceDirectoriesFilterName =
  struct
    type nonrec t =
      | USER_IDENTITY_TYPE 
      | WORKSPACE_TYPE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USER_IDENTITY_TYPE -> "USER_IDENTITY_TYPE"
      | WORKSPACE_TYPE -> "WORKSPACE_TYPE"
      | Non_static_id s -> s
    let of_string =
      function
      | "USER_IDENTITY_TYPE" -> USER_IDENTITY_TYPE
      | "WORKSPACE_TYPE" -> WORKSPACE_TYPE
      | 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 DescribeWorkspaceDirectoriesFilterName"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DescribeWorkspaceDirectoriesFilterName" j)
    let to_json = simple_to_json to_value
  end
module DescribeWorkspaceDirectoriesFilterValues =
  struct
    type nonrec t = DescribeWorkspaceDirectoriesFilterValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:DescribeWorkspaceDirectoriesFilterValue.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:DescribeWorkspaceDirectoriesFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribeWorkspaceDirectoriesFilterValues"
        ~of_json:DescribeWorkspaceDirectoriesFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module BundleOwner =
  struct
    type nonrec t = string
    let context_ = "BundleOwner"
    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:"BundleOwner" j
    let to_json = simple_to_json to_value
  end
module BundleType =
  struct
    type nonrec t =
      | REGULAR 
      | STANDBY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGULAR -> "REGULAR"
      | STANDBY -> "STANDBY"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGULAR" -> REGULAR
      | "STANDBY" -> STANDBY
      | 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 BundleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BundleType" j)
    let to_json = simple_to_json to_value
  end
module ComputeType =
  struct
    type nonrec t = {
      name: Compute.t option [@ocaml.doc "The compute type."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Option.map x.name ~f:Compute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:Compute.of_xml) (Xml.child xml_arg0 "Name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" Compute.of_json in make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the compute type of the bundle."]
module RootStorage =
  struct
    type nonrec t =
      {
      capacity: NonEmptyString.t [@ocaml.doc "The size of the root volume."]}
    let context_ = "RootStorage"
    let make ~capacity = fun () -> { capacity }
    let to_value x =
      structure_to_value
        [("Capacity", (Some (NonEmptyString.to_value x.capacity)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacity =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Capacity") in
      make ~capacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacity = field_map_exn json__ "Capacity" NonEmptyString.of_json in
      make ~capacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the root volume for a WorkSpace bundle."]
module UserStorage =
  struct
    type nonrec t =
      {
      capacity: NonEmptyString.t [@ocaml.doc "The size of the user volume."]}
    let context_ = "UserStorage"
    let make ~capacity = fun () -> { capacity }
    let to_value x =
      structure_to_value
        [("Capacity", (Some (NonEmptyString.to_value x.capacity)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacity =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Capacity") in
      make ~capacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacity = field_map_exn json__ "Capacity" NonEmptyString.of_json in
      make ~capacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the user volume for a WorkSpace bundle."]
module WorkspaceBundleState =
  struct
    type nonrec t =
      | AVAILABLE 
      | PENDING 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | PENDING -> "PENDING"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "PENDING" -> PENDING
      | "ERROR" -> ERROR
      | 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 WorkspaceBundleState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkspaceBundleState" j)
    let to_json = simple_to_json to_value
  end
module IpGroupDesc =
  struct
    type nonrec t = string
    let context_ = "IpGroupDesc"
    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:"IpGroupDesc" j
    let to_json = simple_to_json to_value
  end
module IpGroupName =
  struct
    type nonrec t = string
    let context_ = "IpGroupName"
    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:"IpGroupName" j
    let to_json = simple_to_json to_value
  end
module IpRuleList =
  struct
    type nonrec t = IpRuleItem.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:IpRuleItem.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:IpRuleItem.of_xml)
    let of_json j =
      list_of_json ~kind:"IpRuleList" ~of_json:IpRuleItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageAssociatedResourceType =
  struct
    type nonrec t =
      | APPLICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | APPLICATION -> "APPLICATION" | Non_static_id s -> s
    let of_string =
      function | "APPLICATION" -> APPLICATION | 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 ImageAssociatedResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ImageAssociatedResourceType" j)
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
module ImageErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ImageErrorMessage"
    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:"ImageErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ConnectionAliasAssociationList =
  struct
    type nonrec t = ConnectionAliasAssociation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:ConnectionAliasAssociation.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:ConnectionAliasAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionAliasAssociationList"
        ~of_json:ConnectionAliasAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionAliasId =
  struct
    type nonrec t = string
    let context_ = "ConnectionAliasId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:13) >>=
             (fun () ->
                (check_string_max i ~max:68) >>=
                  (fun () -> check_pattern i ~pattern:"^wsca-[0-9a-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:"ConnectionAliasId" j
    let to_json = simple_to_json to_value
  end
module ConnectionAliasState =
  struct
    type nonrec t =
      | CREATING 
      | CREATED 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | CREATED -> "CREATED"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "CREATED" -> CREATED
      | "DELETING" -> DELETING
      | 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 ConnectionAliasState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionAliasState" j)
    let to_json = simple_to_json to_value
  end
module ConnectionString =
  struct
    type nonrec t = string
    let context_ = "ConnectionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[.0-9a-zA-Z\\-]{1,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:"ConnectionString" j
    let to_json = simple_to_json to_value
  end
module AddInName =
  struct
    type nonrec t = string
    let context_ = "AddInName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        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:"AddInName" j
    let to_json = simple_to_json to_value
  end
module AddInUrl =
  struct
    type nonrec t = string
    let context_ = "AddInUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(http|https)\\://\\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:"AddInUrl" j
    let to_json = simple_to_json to_value
  end
module ClientProperties =
  struct
    type nonrec t =
      {
      reconnectEnabled: ReconnectEnum.t option
        [@ocaml.doc
          "Specifies whether users can cache their credentials on the Amazon WorkSpaces client. When enabled, users can choose to reconnect to their WorkSpaces without re-entering their credentials."];
      logUploadEnabled: LogUploadEnum.t option
        [@ocaml.doc
          "Specifies whether users can upload diagnostic log files of Amazon WorkSpaces client directly to WorkSpaces to troubleshoot issues when using the WorkSpaces client. When enabled, the log files will be sent to WorkSpaces automatically and will be applied to all users in the specified directory."]}
    let make ?reconnectEnabled =
      fun ?logUploadEnabled ->
        fun () -> { reconnectEnabled; logUploadEnabled }
    let to_value x =
      structure_to_value
        [("ReconnectEnabled",
           (Option.map x.reconnectEnabled ~f:ReconnectEnum.to_value));
        ("LogUploadEnabled",
          (Option.map x.logUploadEnabled ~f:LogUploadEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logUploadEnabled =
        (Option.map ~f:LogUploadEnum.of_xml)
          (Xml.child xml_arg0 "LogUploadEnabled") in
      let reconnectEnabled =
        (Option.map ~f:ReconnectEnum.of_xml)
          (Xml.child xml_arg0 "ReconnectEnabled") in
      make ?logUploadEnabled ?reconnectEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logUploadEnabled =
        field_map json__ "LogUploadEnabled" LogUploadEnum.of_json in
      let reconnectEnabled =
        field_map json__ "ReconnectEnabled" ReconnectEnum.of_json in
      make ?logUploadEnabled ?reconnectEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an Amazon WorkSpaces client."]
module BundleAssociatedResourceType =
  struct
    type nonrec t =
      | APPLICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | APPLICATION -> "APPLICATION" | Non_static_id s -> s
    let of_string =
      function | "APPLICATION" -> APPLICATION | 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 BundleAssociatedResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BundleAssociatedResourceType" j)
    let to_json = simple_to_json to_value
  end
module ComputeList =
  struct
    type nonrec t = Compute.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:Compute.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:Compute.of_xml)
    let of_json j =
      list_of_json ~kind:"ComputeList" ~of_json:Compute.of_json j
    let to_json v = composed_to_json to_value v
  end
module OperatingSystemNameList =
  struct
    type nonrec t = OperatingSystemName.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:OperatingSystemName.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:OperatingSystemName.of_xml)
    let of_json j =
      list_of_json ~kind:"OperatingSystemNameList"
        ~of_json:OperatingSystemName.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkSpaceApplicationId =
  struct
    type nonrec t = string
    let context_ = "WorkSpaceApplicationId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^wsa-[0-9a-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:"WorkSpaceApplicationId" j
    let to_json = simple_to_json to_value
  end
module WorkSpaceApplicationLicenseType =
  struct
    type nonrec t =
      | LICENSED 
      | UNLICENSED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LICENSED -> "LICENSED"
      | UNLICENSED -> "UNLICENSED"
      | Non_static_id s -> s
    let of_string =
      function
      | "LICENSED" -> LICENSED
      | "UNLICENSED" -> UNLICENSED
      | 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 WorkSpaceApplicationLicenseType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkSpaceApplicationLicenseType" j)
    let to_json = simple_to_json to_value
  end
module WorkSpaceApplicationOwner =
  struct
    type nonrec t = string
    let context_ = "WorkSpaceApplicationOwner"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^\\d{12}|AMAZON$"); 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:"WorkSpaceApplicationOwner" j
    let to_json = simple_to_json to_value
  end
module WorkSpaceApplicationState =
  struct
    type nonrec t =
      | PENDING 
      | ERROR 
      | AVAILABLE 
      | UNINSTALL_ONLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ERROR -> "ERROR"
      | AVAILABLE -> "AVAILABLE"
      | UNINSTALL_ONLY -> "UNINSTALL_ONLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ERROR" -> ERROR
      | "AVAILABLE" -> AVAILABLE
      | "UNINSTALL_ONLY" -> UNINSTALL_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 WorkSpaceApplicationState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkSpaceApplicationState" j)
    let to_json = simple_to_json to_value
  end
module ApplicationAssociatedResourceType =
  struct
    type nonrec t =
      | WORKSPACE 
      | BUNDLE 
      | IMAGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | WORKSPACE -> "WORKSPACE"
      | BUNDLE -> "BUNDLE"
      | IMAGE -> "IMAGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "WORKSPACE" -> WORKSPACE
      | "BUNDLE" -> BUNDLE
      | "IMAGE" -> IMAGE
      | 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 ApplicationAssociatedResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApplicationAssociatedResourceType" j)
    let to_json = simple_to_json to_value
  end
module DedicatedTenancyManagementCidrRange =
  struct
    type nonrec t = string
    let context_ = "DedicatedTenancyManagementCidrRange"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(^([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\\.0\\.0)(\\/(16$))$");
        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:"DedicatedTenancyManagementCidrRange" j
    let to_json = simple_to_json to_value
  end
module DedicatedTenancyModificationStateEnum =
  struct
    type nonrec t =
      | PENDING 
      | COMPLETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | 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 DedicatedTenancyModificationStateEnum" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DedicatedTenancyModificationStateEnum" j)
    let to_json = simple_to_json to_value
  end
module DedicatedTenancySupportResultEnum =
  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 DedicatedTenancySupportResultEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DedicatedTenancySupportResultEnum" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceResourceAssociation =
  struct
    type nonrec t =
      {
      associatedResourceId: NonEmptyString.t option
        [@ocaml.doc "The identifier of the associated resource."];
      associatedResourceType: WorkSpaceAssociatedResourceType.t option
        [@ocaml.doc "The resource types of the associated resource."];
      created: Timestamp.t option
        [@ocaml.doc "The time the association is created."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc "The time the association status was last updated."];
      state: AssociationState.t option
        [@ocaml.doc "The status of the WorkSpace resource association."];
      stateReason: AssociationStateReason.t option
        [@ocaml.doc "The reason the association deployment failed."];
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let make ?associatedResourceId =
      fun ?associatedResourceType ->
        fun ?created ->
          fun ?lastUpdatedTime ->
            fun ?state ->
              fun ?stateReason ->
                fun ?workspaceId ->
                  fun () ->
                    {
                      associatedResourceId;
                      associatedResourceType;
                      created;
                      lastUpdatedTime;
                      state;
                      stateReason;
                      workspaceId
                    }
    let to_value x =
      structure_to_value
        [("AssociatedResourceId",
           (Option.map x.associatedResourceId ~f:NonEmptyString.to_value));
        ("AssociatedResourceType",
          (Option.map x.associatedResourceType
             ~f:WorkSpaceAssociatedResourceType.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("State", (Option.map x.state ~f:AssociationState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:AssociationStateReason.to_value));
        ("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      let stateReason =
        (Option.map ~f:AssociationStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:AssociationState.of_xml) (Xml.child xml_arg0 "State") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let associatedResourceType =
        (Option.map ~f:WorkSpaceAssociatedResourceType.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceType") in
      let associatedResourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceId") in
      make ?workspaceId ?stateReason ?state ?lastUpdatedTime ?created
        ?associatedResourceType ?associatedResourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      let stateReason =
        field_map json__ "StateReason" AssociationStateReason.of_json in
      let state = field_map json__ "State" AssociationState.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let associatedResourceType =
        field_map json__ "AssociatedResourceType"
          WorkSpaceAssociatedResourceType.of_json in
      let associatedResourceId =
        field_map json__ "AssociatedResourceId" NonEmptyString.of_json in
      make ?workspaceId ?stateReason ?state ?lastUpdatedTime ?created
        ?associatedResourceType ?associatedResourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between an application and a WorkSpace resource."]
module WorkspaceRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the Directory Service directory for the WorkSpace. You can use DescribeWorkspaceDirectories to list the available directories."];
      userName: UserName.t
        [@ocaml.doc
          "The user name of the user for the WorkSpace. This user name must exist in the Directory Service directory for the WorkSpace. The username is not case-sensitive, but we recommend matching the case in the Directory Service directory to avoid potential incompatibilities. The reserved keyword, \\[UNDEFINED\\], is used when creating user-decoupled WorkSpaces."];
      bundleId: BundleId.t
        [@ocaml.doc
          "The identifier of the bundle for the WorkSpace. You can use DescribeWorkspaceBundles to list the available bundles."];
      volumeEncryptionKey: VolumeEncryptionKey.t option
        [@ocaml.doc
          "The ARN of the symmetric KMS key used to encrypt data stored on your WorkSpace. Amazon WorkSpaces does not support asymmetric KMS keys."];
      userVolumeEncryptionEnabled: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether the data stored on the user volume is encrypted."];
      rootVolumeEncryptionEnabled: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether the data stored on the root volume is encrypted."];
      workspaceProperties: WorkspaceProperties.t option
        [@ocaml.doc "The WorkSpace properties."];
      tags: TagList.t option [@ocaml.doc "The tags for the WorkSpace."];
      workspaceName: WorkspaceName.t option
        [@ocaml.doc
          "The name of the user-decoupled WorkSpace. WorkspaceName is required if UserName is \\[UNDEFINED\\] for user-decoupled WorkSpaces. WorkspaceName is not applicable if UserName is specified for user-assigned WorkSpaces."];
      ipv6Address: Ipv6Address.t option
        [@ocaml.doc "The IPv6 address for the WorkSpace."]}
    let context_ = "WorkspaceRequest"
    let make ?volumeEncryptionKey =
      fun ?userVolumeEncryptionEnabled ->
        fun ?rootVolumeEncryptionEnabled ->
          fun ?workspaceProperties ->
            fun ?tags ->
              fun ?workspaceName ->
                fun ?ipv6Address ->
                  fun ~directoryId ->
                    fun ~userName ->
                      fun ~bundleId ->
                        fun () ->
                          {
                            volumeEncryptionKey;
                            userVolumeEncryptionEnabled;
                            rootVolumeEncryptionEnabled;
                            workspaceProperties;
                            tags;
                            workspaceName;
                            ipv6Address;
                            directoryId;
                            userName;
                            bundleId
                          }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UserName", (Some (UserName.to_value x.userName)));
        ("BundleId", (Some (BundleId.to_value x.bundleId)));
        ("VolumeEncryptionKey",
          (Option.map x.volumeEncryptionKey ~f:VolumeEncryptionKey.to_value));
        ("UserVolumeEncryptionEnabled",
          (Option.map x.userVolumeEncryptionEnabled ~f:BooleanObject.to_value));
        ("RootVolumeEncryptionEnabled",
          (Option.map x.rootVolumeEncryptionEnabled ~f:BooleanObject.to_value));
        ("WorkspaceProperties",
          (Option.map x.workspaceProperties ~f:WorkspaceProperties.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("WorkspaceName",
          (Option.map x.workspaceName ~f:WorkspaceName.to_value));
        ("Ipv6Address", (Option.map x.ipv6Address ~f:Ipv6Address.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Address =
        (Option.map ~f:Ipv6Address.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      let workspaceName =
        (Option.map ~f:WorkspaceName.of_xml)
          (Xml.child xml_arg0 "WorkspaceName") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let workspaceProperties =
        (Option.map ~f:WorkspaceProperties.of_xml)
          (Xml.child xml_arg0 "WorkspaceProperties") in
      let rootVolumeEncryptionEnabled =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "RootVolumeEncryptionEnabled") in
      let userVolumeEncryptionEnabled =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "UserVolumeEncryptionEnabled") in
      let volumeEncryptionKey =
        (Option.map ~f:VolumeEncryptionKey.of_xml)
          (Xml.child xml_arg0 "VolumeEncryptionKey") in
      let bundleId =
        BundleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "BundleId") in
      let userName =
        UserName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "UserName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?ipv6Address ?workspaceName ?tags ?workspaceProperties
        ?rootVolumeEncryptionEnabled ?userVolumeEncryptionEnabled
        ?volumeEncryptionKey ~bundleId ~userName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Address = field_map json__ "Ipv6Address" Ipv6Address.of_json in
      let workspaceName =
        field_map json__ "WorkspaceName" WorkspaceName.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let workspaceProperties =
        field_map json__ "WorkspaceProperties" WorkspaceProperties.of_json in
      let rootVolumeEncryptionEnabled =
        field_map json__ "RootVolumeEncryptionEnabled" BooleanObject.of_json in
      let userVolumeEncryptionEnabled =
        field_map json__ "UserVolumeEncryptionEnabled" BooleanObject.of_json in
      let volumeEncryptionKey =
        field_map json__ "VolumeEncryptionKey" VolumeEncryptionKey.of_json in
      let bundleId = field_map_exn json__ "BundleId" BundleId.of_json in
      let userName = field_map_exn json__ "UserName" UserName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?ipv6Address ?workspaceName ?tags ?workspaceProperties
        ?rootVolumeEncryptionEnabled ?userVolumeEncryptionEnabled
        ?volumeEncryptionKey ~bundleId ~userName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the information used to create a WorkSpace."]
module StandbyWorkspace =
  struct
    type nonrec t =
      {
      primaryWorkspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the standby WorkSpace."];
      volumeEncryptionKey: VolumeEncryptionKey.t option
        [@ocaml.doc "The volume encryption key of the standby WorkSpace."];
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for the standby WorkSpace."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the standby WorkSpace."];
      dataReplication: DataReplication.t option
        [@ocaml.doc
          "Indicates whether data replication is enabled, and if enabled, the type of data replication."]}
    let context_ = "StandbyWorkspace"
    let make ?volumeEncryptionKey =
      fun ?tags ->
        fun ?dataReplication ->
          fun ~primaryWorkspaceId ->
            fun ~directoryId ->
              fun () ->
                {
                  volumeEncryptionKey;
                  tags;
                  dataReplication;
                  primaryWorkspaceId;
                  directoryId
                }
    let to_value x =
      structure_to_value
        [("PrimaryWorkspaceId",
           (Some (WorkspaceId.to_value x.primaryWorkspaceId)));
        ("VolumeEncryptionKey",
          (Option.map x.volumeEncryptionKey ~f:VolumeEncryptionKey.to_value));
        ("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DataReplication",
          (Option.map x.dataReplication ~f:DataReplication.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataReplication =
        (Option.map ~f:DataReplication.of_xml)
          (Xml.child xml_arg0 "DataReplication") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      let volumeEncryptionKey =
        (Option.map ~f:VolumeEncryptionKey.of_xml)
          (Xml.child xml_arg0 "VolumeEncryptionKey") in
      let primaryWorkspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryWorkspaceId") in
      make ?dataReplication ?tags ~directoryId ?volumeEncryptionKey
        ~primaryWorkspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataReplication =
        field_map json__ "DataReplication" DataReplication.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      let volumeEncryptionKey =
        field_map json__ "VolumeEncryptionKey" VolumeEncryptionKey.of_json in
      let primaryWorkspaceId =
        field_map_exn json__ "PrimaryWorkspaceId" WorkspaceId.of_json in
      make ?dataReplication ?tags ~directoryId ?volumeEncryptionKey
        ~primaryWorkspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a standby WorkSpace."]
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module ExceptionErrorCode =
  struct
    type nonrec t = string
    let context_ = "ExceptionErrorCode"
    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:"ExceptionErrorCode" j
    let to_json = simple_to_json to_value
  end
module FailedWorkspaceChangeRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the WorkSpace."];
      errorCode: ErrorType.t option
        [@ocaml.doc
          "The error code that is returned if the WorkSpace cannot be rebooted."];
      errorMessage: Description.t option
        [@ocaml.doc
          "The text of the error message that is returned if the WorkSpace cannot be rebooted."]}
    let make ?workspaceId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { workspaceId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorType.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorType.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      make ?errorMessage ?errorCode ?workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorType.of_json in
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      make ?errorMessage ?errorCode ?workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a WorkSpace that could not be rebooted. (RebootWorkspaces), rebuilt (RebuildWorkspaces), restored (RestoreWorkspace), terminated (TerminateWorkspaces), started (StartWorkspaces), or stopped (StopWorkspaces)."]
module TerminateRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let context_ = "TerminateRequest"
    let make ~workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the information used to terminate a WorkSpace."]
module StopRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let make ?workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      make ?workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      make ?workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the information used to stop a WorkSpace."]
module StartRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let make ?workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      make ?workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      make ?workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information used to start a WorkSpace."]
module RebuildRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let context_ = "RebuildRequest"
    let make ~workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the information used to rebuild a WorkSpace."]
module RebootRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let context_ = "RebootRequest"
    let make ~workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the information used to reboot a WorkSpace."]
module DeletableSamlProperty =
  struct
    type nonrec t =
      | SAML_PROPERTIES_USER_ACCESS_URL 
      | SAML_PROPERTIES_RELAY_STATE_PARAMETER_NAME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SAML_PROPERTIES_USER_ACCESS_URL -> "SAML_PROPERTIES_USER_ACCESS_URL"
      | SAML_PROPERTIES_RELAY_STATE_PARAMETER_NAME ->
          "SAML_PROPERTIES_RELAY_STATE_PARAMETER_NAME"
      | Non_static_id s -> s
    let of_string =
      function
      | "SAML_PROPERTIES_USER_ACCESS_URL" -> SAML_PROPERTIES_USER_ACCESS_URL
      | "SAML_PROPERTIES_RELAY_STATE_PARAMETER_NAME" ->
          SAML_PROPERTIES_RELAY_STATE_PARAMETER_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 DeletableSamlProperty" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DeletableSamlProperty" j)
    let to_json = simple_to_json to_value
  end
module DeletableCertificateBasedAuthProperty =
  struct
    type nonrec t =
      | CERTIFICATE_BASED_AUTH_PROPERTIES_CERTIFICATE_AUTHORITY_ARN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CERTIFICATE_BASED_AUTH_PROPERTIES_CERTIFICATE_AUTHORITY_ARN ->
          "CERTIFICATE_BASED_AUTH_PROPERTIES_CERTIFICATE_AUTHORITY_ARN"
      | Non_static_id s -> s
    let of_string =
      function
      | "CERTIFICATE_BASED_AUTH_PROPERTIES_CERTIFICATE_AUTHORITY_ARN" ->
          CERTIFICATE_BASED_AUTH_PROPERTIES_CERTIFICATE_AUTHORITY_ARN
      | 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 DeletableCertificateBasedAuthProperty" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DeletableCertificateBasedAuthProperty" j)
    let to_json = simple_to_json to_value
  end
module AccountLink =
  struct
    type nonrec t =
      {
      accountLinkId: LinkId.t option
        [@ocaml.doc "The identifier of the account link."];
      accountLinkStatus: AccountLinkStatusEnum.t option
        [@ocaml.doc "The status of the account link."];
      sourceAccountId: AwsAccount.t option
        [@ocaml.doc "The identifier of the source account."];
      targetAccountId: AwsAccount.t option
        [@ocaml.doc "The identifier of the target account."]}
    let make ?accountLinkId =
      fun ?accountLinkStatus ->
        fun ?sourceAccountId ->
          fun ?targetAccountId ->
            fun () ->
              {
                accountLinkId;
                accountLinkStatus;
                sourceAccountId;
                targetAccountId
              }
    let to_value x =
      structure_to_value
        [("AccountLinkId", (Option.map x.accountLinkId ~f:LinkId.to_value));
        ("AccountLinkStatus",
          (Option.map x.accountLinkStatus ~f:AccountLinkStatusEnum.to_value));
        ("SourceAccountId",
          (Option.map x.sourceAccountId ~f:AwsAccount.to_value));
        ("TargetAccountId",
          (Option.map x.targetAccountId ~f:AwsAccount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "TargetAccountId") in
      let sourceAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "SourceAccountId") in
      let accountLinkStatus =
        (Option.map ~f:AccountLinkStatusEnum.of_xml)
          (Xml.child xml_arg0 "AccountLinkStatus") in
      let accountLinkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "AccountLinkId") in
      make ?targetAccountId ?sourceAccountId ?accountLinkStatus
        ?accountLinkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetAccountId =
        field_map json__ "TargetAccountId" AwsAccount.of_json in
      let sourceAccountId =
        field_map json__ "SourceAccountId" AwsAccount.of_json in
      let accountLinkStatus =
        field_map json__ "AccountLinkStatus" AccountLinkStatusEnum.of_json in
      let accountLinkId = field_map json__ "AccountLinkId" LinkId.of_json in
      make ?targetAccountId ?sourceAccountId ?accountLinkStatus
        ?accountLinkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about about the account link."]
module Application =
  struct
    type nonrec t =
      | Microsoft_Office_2016 
      | Microsoft_Office_2019 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Microsoft_Office_2016 -> "Microsoft_Office_2016"
      | Microsoft_Office_2019 -> "Microsoft_Office_2019"
      | Non_static_id s -> s
    let of_string =
      function
      | "Microsoft_Office_2016" -> Microsoft_Office_2016
      | "Microsoft_Office_2019" -> Microsoft_Office_2019
      | 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 Application" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Application" j)
    let to_json = simple_to_json to_value
  end
module Ec2ImageId =
  struct
    type nonrec t = string
    let context_ = "Ec2ImageId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^ami\\-([a-f0-9]{8}|[a-f0-9]{17})$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ec2ImageId" j
    let to_json = simple_to_json to_value
  end
module Ec2ImportTaskId =
  struct
    type nonrec t = string
    let context_ = "Ec2ImportTaskId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:19) >>=
             (fun () ->
                (check_string_max i ~max:28) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^import-ami\\-([a-zA-Z0-9]{8}|[a-zA-Z0-9]{17})$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ec2ImportTaskId" j
    let to_json = simple_to_json to_value
  end
module ImageBuildVersionArn =
  struct
    type nonrec t = string
    let context_ = "ImageBuildVersionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws[^:]*:imagebuilder:[^:]+:(?:[0-9]{12}|aws(?:-[a-z-]+)?):image/[a-z0-9-_]+/(?:(?:([0-9]+|x)\\.([0-9]+|x)\\.([0-9]+|x))|(?:[0-9]+\\.[0-9]+\\.[0-9]+/[0-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:"ImageBuildVersionArn" j
    let to_json = simple_to_json to_value
  end
module ClientEmail =
  struct
    type nonrec t = string
    let context_ = "ClientEmail"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,4}$")));
        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:"ClientEmail" j
    let to_json = simple_to_json to_value
  end
module ClientUrl =
  struct
    type nonrec t = string
    let context_ = "ClientUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(http|https)\\://\\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:"ClientUrl" j
    let to_json = simple_to_json to_value
  end
module LoginMessage =
  struct
    type nonrec t = (ClientLocale.t * ClientLoginMessage.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ClientLocale.of_string chopped),
                              (ClientLoginMessage.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ClientLocale.to_value x) |>
                    (fun x ->
                       (ClientLoginMessage.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ClientLocale.of_string
        ~of_json:ClientLoginMessage.of_json j
    let to_json v = composed_to_json to_value v
  end
module DefaultLogo =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module Ios2XLogo =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module Ios3XLogo =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module IosLogo =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module Workspace =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the WorkSpace."];
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the Directory Service directory for the WorkSpace."];
      userName: UserName.t option [@ocaml.doc "The user for the WorkSpace."];
      ipAddress: IpAddress.t option
        [@ocaml.doc "The IP address of the WorkSpace."];
      ipv6Address: Ipv6Address.t option
        [@ocaml.doc "The IPv6 address of the WorkSpace."];
      state: WorkspaceState.t option
        [@ocaml.doc
          "The operational state of the WorkSpace. PENDING \226\128\147 The WorkSpace is in a waiting state (for example, the WorkSpace is being created). AVAILABLE \226\128\147 The WorkSpace is running and has passed the health checks. IMPAIRED \226\128\147 Refer to UNHEALTHY state. UNHEALTHY \226\128\147 The WorkSpace is not responding to health checks. REBOOTING \226\128\147 The WorkSpace is being rebooted (restarted). STARTING \226\128\147 The WorkSpace is starting up and health checks are being run. REBUILDING \226\128\147 The WorkSpace is being rebuilt. RESTORING \226\128\147 The WorkSpace is being restored. MAINTENANCE \226\128\147 The WorkSpace is undergoing scheduled maintenance by Amazon Web Services. ADMIN_MAINTENANCE \226\128\147 The WorkSpace is undergoing maintenance by the WorkSpaces administrator. TERMINATING \226\128\147 The WorkSpace is being deleted. TERMINATED \226\128\147 The WorkSpace has been deleted. SUSPENDED \226\128\147 The WorkSpace has been suspended for image creation. UPDATING \226\128\147 The WorkSpace is undergoing an update. STOPPING \226\128\147 The WorkSpace is being stopped. STOPPED \226\128\147 The WorkSpace has been stopped. ERROR \226\128\147 The WorkSpace is an error state (for example, an error occurred during startup). After a WorkSpace is terminated, the TERMINATED state is returned only briefly before the WorkSpace directory metadata is cleaned up, so this state is rarely returned. To confirm that a WorkSpace is terminated, check for the WorkSpace ID by using DescribeWorkSpaces. If the WorkSpace ID isn't returned, then the WorkSpace has been successfully terminated."];
      bundleId: BundleId.t option
        [@ocaml.doc
          "The identifier of the bundle used to create the WorkSpace."];
      subnetId: SubnetId.t option
        [@ocaml.doc "The identifier of the subnet for the WorkSpace."];
      errorMessage: Description.t option
        [@ocaml.doc
          "The text of the error message that is returned if the WorkSpace cannot be created."];
      errorCode: WorkspaceErrorCode.t option
        [@ocaml.doc
          "The error code that is returned if the WorkSpace cannot be created."];
      computerName: ComputerName.t option
        [@ocaml.doc
          "The name of the WorkSpace, as seen by the operating system. The format of this name varies. For more information, see Launch a WorkSpace."];
      volumeEncryptionKey: VolumeEncryptionKey.t option
        [@ocaml.doc
          "The ARN of the symmetric KMS key used to encrypt data stored on your WorkSpace. Amazon WorkSpaces does not support asymmetric KMS keys."];
      userVolumeEncryptionEnabled: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether the data stored on the user volume is encrypted."];
      rootVolumeEncryptionEnabled: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether the data stored on the root volume is encrypted."];
      workspaceName: WorkspaceName.t option
        [@ocaml.doc "The name of the user-decoupled WorkSpace."];
      workspaceProperties: WorkspaceProperties.t option
        [@ocaml.doc "The properties of the WorkSpace."];
      modificationStates: ModificationStateList.t option
        [@ocaml.doc "The modification states of the WorkSpace."];
      relatedWorkspaces: RelatedWorkspaces.t option
        [@ocaml.doc
          "The standby WorkSpace or primary WorkSpace related to the specified WorkSpace."];
      dataReplicationSettings: DataReplicationSettings.t option
        [@ocaml.doc "Indicates the settings of the data replication."];
      standbyWorkspacesProperties: StandbyWorkspacesPropertiesList.t option
        [@ocaml.doc "The properties of the standby WorkSpace"]}
    let make ?workspaceId =
      fun ?directoryId ->
        fun ?userName ->
          fun ?ipAddress ->
            fun ?ipv6Address ->
              fun ?state ->
                fun ?bundleId ->
                  fun ?subnetId ->
                    fun ?errorMessage ->
                      fun ?errorCode ->
                        fun ?computerName ->
                          fun ?volumeEncryptionKey ->
                            fun ?userVolumeEncryptionEnabled ->
                              fun ?rootVolumeEncryptionEnabled ->
                                fun ?workspaceName ->
                                  fun ?workspaceProperties ->
                                    fun ?modificationStates ->
                                      fun ?relatedWorkspaces ->
                                        fun ?dataReplicationSettings ->
                                          fun ?standbyWorkspacesProperties ->
                                            fun () ->
                                              {
                                                workspaceId;
                                                directoryId;
                                                userName;
                                                ipAddress;
                                                ipv6Address;
                                                state;
                                                bundleId;
                                                subnetId;
                                                errorMessage;
                                                errorCode;
                                                computerName;
                                                volumeEncryptionKey;
                                                userVolumeEncryptionEnabled;
                                                rootVolumeEncryptionEnabled;
                                                workspaceName;
                                                workspaceProperties;
                                                modificationStates;
                                                relatedWorkspaces;
                                                dataReplicationSettings;
                                                standbyWorkspacesProperties
                                              }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("UserName", (Option.map x.userName ~f:UserName.to_value));
        ("IpAddress", (Option.map x.ipAddress ~f:IpAddress.to_value));
        ("Ipv6Address", (Option.map x.ipv6Address ~f:Ipv6Address.to_value));
        ("State", (Option.map x.state ~f:WorkspaceState.to_value));
        ("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value));
        ("ErrorCode",
          (Option.map x.errorCode ~f:WorkspaceErrorCode.to_value));
        ("ComputerName",
          (Option.map x.computerName ~f:ComputerName.to_value));
        ("VolumeEncryptionKey",
          (Option.map x.volumeEncryptionKey ~f:VolumeEncryptionKey.to_value));
        ("UserVolumeEncryptionEnabled",
          (Option.map x.userVolumeEncryptionEnabled ~f:BooleanObject.to_value));
        ("RootVolumeEncryptionEnabled",
          (Option.map x.rootVolumeEncryptionEnabled ~f:BooleanObject.to_value));
        ("WorkspaceName",
          (Option.map x.workspaceName ~f:WorkspaceName.to_value));
        ("WorkspaceProperties",
          (Option.map x.workspaceProperties ~f:WorkspaceProperties.to_value));
        ("ModificationStates",
          (Option.map x.modificationStates ~f:ModificationStateList.to_value));
        ("RelatedWorkspaces",
          (Option.map x.relatedWorkspaces ~f:RelatedWorkspaces.to_value));
        ("DataReplicationSettings",
          (Option.map x.dataReplicationSettings
             ~f:DataReplicationSettings.to_value));
        ("StandbyWorkspacesProperties",
          (Option.map x.standbyWorkspacesProperties
             ~f:StandbyWorkspacesPropertiesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let standbyWorkspacesProperties =
        (Option.map ~f:StandbyWorkspacesPropertiesList.of_xml)
          (Xml.child xml_arg0 "StandbyWorkspacesProperties") in
      let dataReplicationSettings =
        (Option.map ~f:DataReplicationSettings.of_xml)
          (Xml.child xml_arg0 "DataReplicationSettings") in
      let relatedWorkspaces =
        (Option.map ~f:RelatedWorkspaces.of_xml)
          (Xml.child xml_arg0 "RelatedWorkspaces") in
      let modificationStates =
        (Option.map ~f:ModificationStateList.of_xml)
          (Xml.child xml_arg0 "ModificationStates") in
      let workspaceProperties =
        (Option.map ~f:WorkspaceProperties.of_xml)
          (Xml.child xml_arg0 "WorkspaceProperties") in
      let workspaceName =
        (Option.map ~f:WorkspaceName.of_xml)
          (Xml.child xml_arg0 "WorkspaceName") in
      let rootVolumeEncryptionEnabled =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "RootVolumeEncryptionEnabled") in
      let userVolumeEncryptionEnabled =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "UserVolumeEncryptionEnabled") in
      let volumeEncryptionKey =
        (Option.map ~f:VolumeEncryptionKey.of_xml)
          (Xml.child xml_arg0 "VolumeEncryptionKey") in
      let computerName =
        (Option.map ~f:ComputerName.of_xml)
          (Xml.child xml_arg0 "ComputerName") in
      let errorCode =
        (Option.map ~f:WorkspaceErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      let state =
        (Option.map ~f:WorkspaceState.of_xml) (Xml.child xml_arg0 "State") in
      let ipv6Address =
        (Option.map ~f:Ipv6Address.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      let ipAddress =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "IpAddress") in
      let userName =
        (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "UserName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      make ?standbyWorkspacesProperties ?dataReplicationSettings
        ?relatedWorkspaces ?modificationStates ?workspaceProperties
        ?workspaceName ?rootVolumeEncryptionEnabled
        ?userVolumeEncryptionEnabled ?volumeEncryptionKey ?computerName
        ?errorCode ?errorMessage ?subnetId ?bundleId ?state ?ipv6Address
        ?ipAddress ?userName ?directoryId ?workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let standbyWorkspacesProperties =
        field_map json__ "StandbyWorkspacesProperties"
          StandbyWorkspacesPropertiesList.of_json in
      let dataReplicationSettings =
        field_map json__ "DataReplicationSettings"
          DataReplicationSettings.of_json in
      let relatedWorkspaces =
        field_map json__ "RelatedWorkspaces" RelatedWorkspaces.of_json in
      let modificationStates =
        field_map json__ "ModificationStates" ModificationStateList.of_json in
      let workspaceProperties =
        field_map json__ "WorkspaceProperties" WorkspaceProperties.of_json in
      let workspaceName =
        field_map json__ "WorkspaceName" WorkspaceName.of_json in
      let rootVolumeEncryptionEnabled =
        field_map json__ "RootVolumeEncryptionEnabled" BooleanObject.of_json in
      let userVolumeEncryptionEnabled =
        field_map json__ "UserVolumeEncryptionEnabled" BooleanObject.of_json in
      let volumeEncryptionKey =
        field_map json__ "VolumeEncryptionKey" VolumeEncryptionKey.of_json in
      let computerName = field_map json__ "ComputerName" ComputerName.of_json in
      let errorCode = field_map json__ "ErrorCode" WorkspaceErrorCode.of_json in
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      let state = field_map json__ "State" WorkspaceState.of_json in
      let ipv6Address = field_map json__ "Ipv6Address" Ipv6Address.of_json in
      let ipAddress = field_map json__ "IpAddress" IpAddress.of_json in
      let userName = field_map json__ "UserName" UserName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      make ?standbyWorkspacesProperties ?dataReplicationSettings
        ?relatedWorkspaces ?modificationStates ?workspaceProperties
        ?workspaceName ?rootVolumeEncryptionEnabled
        ?userVolumeEncryptionEnabled ?volumeEncryptionKey ?computerName
        ?errorCode ?errorMessage ?subnetId ?bundleId ?state ?ipv6Address
        ?ipAddress ?userName ?directoryId ?workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a WorkSpace."]
module WorkspacesPool =
  struct
    type nonrec t =
      {
      poolId: WorkspacesPoolId.t option
        [@ocaml.doc "The identifier of a pool."];
      poolArn: ARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the pool."];
      capacityStatus: CapacityStatus.t option
        [@ocaml.doc "The capacity status for the pool"];
      poolName: WorkspacesPoolName.t option
        [@ocaml.doc "The name of the pool."];
      description: UpdateDescription.t option
        [@ocaml.doc "The description of the pool."];
      state: WorkspacesPoolState.t option
        [@ocaml.doc "The current state of the pool."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time the pool was created."];
      bundleId: BundleId.t option
        [@ocaml.doc "The identifier of the bundle used by the pool."];
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory used by the pool."];
      errors: WorkspacesPoolErrors.t option [@ocaml.doc "The pool errors."];
      applicationSettings: ApplicationSettingsResponse.t option
        [@ocaml.doc
          "The persistent application settings for users of the pool."];
      timeoutSettings: TimeoutSettings.t option
        [@ocaml.doc
          "The amount of time that a pool session remains active after users disconnect. If they try to reconnect to the pool session after a disconnection or network interruption within this time interval, they are connected to their previous session. Otherwise, they are connected to a new session with a new pool instance."];
      runningMode: PoolsRunningMode.t option
        [@ocaml.doc "The running mode of the pool."]}
    let make ?poolId =
      fun ?poolArn ->
        fun ?capacityStatus ->
          fun ?poolName ->
            fun ?description ->
              fun ?state ->
                fun ?createdAt ->
                  fun ?bundleId ->
                    fun ?directoryId ->
                      fun ?errors ->
                        fun ?applicationSettings ->
                          fun ?timeoutSettings ->
                            fun ?runningMode ->
                              fun () ->
                                {
                                  poolId;
                                  poolArn;
                                  capacityStatus;
                                  poolName;
                                  description;
                                  state;
                                  createdAt;
                                  bundleId;
                                  directoryId;
                                  errors;
                                  applicationSettings;
                                  timeoutSettings;
                                  runningMode
                                }
    let to_value x =
      structure_to_value
        [("PoolId", (Option.map x.poolId ~f:WorkspacesPoolId.to_value));
        ("PoolArn", (Option.map x.poolArn ~f:ARN.to_value));
        ("CapacityStatus",
          (Option.map x.capacityStatus ~f:CapacityStatus.to_value));
        ("PoolName", (Option.map x.poolName ~f:WorkspacesPoolName.to_value));
        ("Description",
          (Option.map x.description ~f:UpdateDescription.to_value));
        ("State", (Option.map x.state ~f:WorkspacesPoolState.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("Errors", (Option.map x.errors ~f:WorkspacesPoolErrors.to_value));
        ("ApplicationSettings",
          (Option.map x.applicationSettings
             ~f:ApplicationSettingsResponse.to_value));
        ("TimeoutSettings",
          (Option.map x.timeoutSettings ~f:TimeoutSettings.to_value));
        ("RunningMode",
          (Option.map x.runningMode ~f:PoolsRunningMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let runningMode =
        (Option.map ~f:PoolsRunningMode.of_xml)
          (Xml.child xml_arg0 "RunningMode") in
      let timeoutSettings =
        (Option.map ~f:TimeoutSettings.of_xml)
          (Xml.child xml_arg0 "TimeoutSettings") in
      let applicationSettings =
        (Option.map ~f:ApplicationSettingsResponse.of_xml)
          (Xml.child xml_arg0 "ApplicationSettings") in
      let errors =
        (Option.map ~f:WorkspacesPoolErrors.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let state =
        (Option.map ~f:WorkspacesPoolState.of_xml)
          (Xml.child xml_arg0 "State") in
      let description =
        (Option.map ~f:UpdateDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let poolName =
        (Option.map ~f:WorkspacesPoolName.of_xml)
          (Xml.child xml_arg0 "PoolName") in
      let capacityStatus =
        (Option.map ~f:CapacityStatus.of_xml)
          (Xml.child xml_arg0 "CapacityStatus") in
      let poolArn = (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "PoolArn") in
      let poolId =
        (Option.map ~f:WorkspacesPoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      make ?runningMode ?timeoutSettings ?applicationSettings ?errors
        ?directoryId ?bundleId ?createdAt ?state ?description ?poolName
        ?capacityStatus ?poolArn ?poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let runningMode =
        field_map json__ "RunningMode" PoolsRunningMode.of_json in
      let timeoutSettings =
        field_map json__ "TimeoutSettings" TimeoutSettings.of_json in
      let applicationSettings =
        field_map json__ "ApplicationSettings"
          ApplicationSettingsResponse.of_json in
      let errors = field_map json__ "Errors" WorkspacesPoolErrors.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      let createdAt = field_map json__ "CreatedAt" Timestamp.of_json in
      let state = field_map json__ "State" WorkspacesPoolState.of_json in
      let description =
        field_map json__ "Description" UpdateDescription.of_json in
      let poolName = field_map json__ "PoolName" WorkspacesPoolName.of_json in
      let capacityStatus =
        field_map json__ "CapacityStatus" CapacityStatus.of_json in
      let poolArn = field_map json__ "PoolArn" ARN.of_json in
      let poolId = field_map json__ "PoolId" WorkspacesPoolId.of_json in
      make ?runningMode ?timeoutSettings ?applicationSettings ?errors
        ?directoryId ?bundleId ?createdAt ?state ?description ?poolName
        ?capacityStatus ?poolArn ?poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a pool of WorkSpaces."]
module DescribeWorkspacesPoolsFilter =
  struct
    type nonrec t =
      {
      name: DescribeWorkspacesPoolsFilterName.t
        [@ocaml.doc "The name of the pool to filter."];
      values: DescribeWorkspacesPoolsFilterValues.t
        [@ocaml.doc "The values for filtering WorkSpaces Pools."];
      operator: DescribeWorkspacesPoolsFilterOperator.t
        [@ocaml.doc "The operator values for filtering WorkSpaces Pools."]}
    let context_ = "DescribeWorkspacesPoolsFilter"
    let make ~name =
      fun ~values -> fun ~operator -> fun () -> { name; values; operator }
    let to_value x =
      structure_to_value
        [("Name", (Some (DescribeWorkspacesPoolsFilterName.to_value x.name)));
        ("Values",
          (Some (DescribeWorkspacesPoolsFilterValues.to_value x.values)));
        ("Operator",
          (Some (DescribeWorkspacesPoolsFilterOperator.to_value x.operator)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operator =
        DescribeWorkspacesPoolsFilterOperator.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operator") in
      let values =
        DescribeWorkspacesPoolsFilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        DescribeWorkspacesPoolsFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~operator ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operator =
        field_map_exn json__ "Operator"
          DescribeWorkspacesPoolsFilterOperator.of_json in
      let values =
        field_map_exn json__ "Values"
          DescribeWorkspacesPoolsFilterValues.of_json in
      let name =
        field_map_exn json__ "Name" DescribeWorkspacesPoolsFilterName.of_json in
      make ~operator ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the filter conditions for WorkSpaces Pools to return."]
module WorkspacesPoolSession =
  struct
    type nonrec t =
      {
      authenticationType: AuthenticationType.t option
        [@ocaml.doc
          "The authentication method. The user is authenticated using a WorkSpaces Pools URL (API) or SAML 2.0 federation (SAML)."];
      connectionState: SessionConnectionState.t option
        [@ocaml.doc
          "Specifies whether a user is connected to the pool session."];
      sessionId: AmazonUuid.t option
        [@ocaml.doc "The identifier of the session."];
      instanceId: SessionInstanceId.t option
        [@ocaml.doc "The identifier for the instance hosting the session."];
      poolId: WorkspacesPoolId.t option
        [@ocaml.doc "The identifier of the pool."];
      expirationTime: Timestamp.t option
        [@ocaml.doc "The time that the pool session ended."];
      networkAccessConfiguration: NetworkAccessConfiguration.t option
        [@ocaml.doc "Describes the network details of the pool."];
      startTime: Timestamp.t option
        [@ocaml.doc "The time that the pool sission started."];
      userId: WorkspacesPoolUserId.t option
        [@ocaml.doc "The identifier of the user."]}
    let make ?authenticationType =
      fun ?connectionState ->
        fun ?sessionId ->
          fun ?instanceId ->
            fun ?poolId ->
              fun ?expirationTime ->
                fun ?networkAccessConfiguration ->
                  fun ?startTime ->
                    fun ?userId ->
                      fun () ->
                        {
                          authenticationType;
                          connectionState;
                          sessionId;
                          instanceId;
                          poolId;
                          expirationTime;
                          networkAccessConfiguration;
                          startTime;
                          userId
                        }
    let to_value x =
      structure_to_value
        [("AuthenticationType",
           (Option.map x.authenticationType ~f:AuthenticationType.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:SessionConnectionState.to_value));
        ("SessionId", (Option.map x.sessionId ~f:AmazonUuid.to_value));
        ("InstanceId",
          (Option.map x.instanceId ~f:SessionInstanceId.to_value));
        ("PoolId", (Option.map x.poolId ~f:WorkspacesPoolId.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:Timestamp.to_value));
        ("NetworkAccessConfiguration",
          (Option.map x.networkAccessConfiguration
             ~f:NetworkAccessConfiguration.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("UserId", (Option.map x.userId ~f:WorkspacesPoolUserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        (Option.map ~f:WorkspacesPoolUserId.of_xml)
          (Xml.child xml_arg0 "UserId") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let networkAccessConfiguration =
        (Option.map ~f:NetworkAccessConfiguration.of_xml)
          (Xml.child xml_arg0 "NetworkAccessConfiguration") in
      let expirationTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let poolId =
        (Option.map ~f:WorkspacesPoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      let instanceId =
        (Option.map ~f:SessionInstanceId.of_xml)
          (Xml.child xml_arg0 "InstanceId") in
      let sessionId =
        (Option.map ~f:AmazonUuid.of_xml) (Xml.child xml_arg0 "SessionId") in
      let connectionState =
        (Option.map ~f:SessionConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let authenticationType =
        (Option.map ~f:AuthenticationType.of_xml)
          (Xml.child xml_arg0 "AuthenticationType") in
      make ?userId ?startTime ?networkAccessConfiguration ?expirationTime
        ?poolId ?instanceId ?sessionId ?connectionState ?authenticationType
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map json__ "UserId" WorkspacesPoolUserId.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let networkAccessConfiguration =
        field_map json__ "NetworkAccessConfiguration"
          NetworkAccessConfiguration.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" Timestamp.of_json in
      let poolId = field_map json__ "PoolId" WorkspacesPoolId.of_json in
      let instanceId =
        field_map json__ "InstanceId" SessionInstanceId.of_json in
      let sessionId = field_map json__ "SessionId" AmazonUuid.of_json in
      let connectionState =
        field_map json__ "ConnectionState" SessionConnectionState.of_json in
      let authenticationType =
        field_map json__ "AuthenticationType" AuthenticationType.of_json in
      make ?userId ?startTime ?networkAccessConfiguration ?expirationTime
        ?poolId ?instanceId ?sessionId ?connectionState ?authenticationType
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a pool session."]
module WorkspaceConnectionStatus =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the WorkSpace."];
      connectionState: ConnectionState.t option
        [@ocaml.doc
          "The connection state of the WorkSpace. The connection state is unknown if the WorkSpace is stopped."];
      connectionStateCheckTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of the connection status check."];
      lastKnownUserConnectionTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of the last known user connection."]}
    let make ?workspaceId =
      fun ?connectionState ->
        fun ?connectionStateCheckTimestamp ->
          fun ?lastKnownUserConnectionTimestamp ->
            fun () ->
              {
                workspaceId;
                connectionState;
                connectionStateCheckTimestamp;
                lastKnownUserConnectionTimestamp
              }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value));
        ("ConnectionState",
          (Option.map x.connectionState ~f:ConnectionState.to_value));
        ("ConnectionStateCheckTimestamp",
          (Option.map x.connectionStateCheckTimestamp ~f:Timestamp.to_value));
        ("LastKnownUserConnectionTimestamp",
          (Option.map x.lastKnownUserConnectionTimestamp
             ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastKnownUserConnectionTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastKnownUserConnectionTimestamp") in
      let connectionStateCheckTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ConnectionStateCheckTimestamp") in
      let connectionState =
        (Option.map ~f:ConnectionState.of_xml)
          (Xml.child xml_arg0 "ConnectionState") in
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      make ?lastKnownUserConnectionTimestamp ?connectionStateCheckTimestamp
        ?connectionState ?workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastKnownUserConnectionTimestamp =
        field_map json__ "LastKnownUserConnectionTimestamp" Timestamp.of_json in
      let connectionStateCheckTimestamp =
        field_map json__ "ConnectionStateCheckTimestamp" Timestamp.of_json in
      let connectionState =
        field_map json__ "ConnectionState" ConnectionState.of_json in
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      make ?lastKnownUserConnectionTimestamp ?connectionStateCheckTimestamp
        ?connectionState ?workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the connection status of a WorkSpace."]
module Snapshot =
  struct
    type nonrec t =
      {
      snapshotTime: Timestamp.t option
        [@ocaml.doc "The time when the snapshot was created."]}
    let make ?snapshotTime = fun () -> { snapshotTime }
    let to_value x =
      structure_to_value
        [("SnapshotTime", (Option.map x.snapshotTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "SnapshotTime") in
      make ?snapshotTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotTime = field_map json__ "SnapshotTime" Timestamp.of_json in
      make ?snapshotTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a snapshot."]
module WorkspaceImage =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the image."];
      name: WorkspaceImageName.t option [@ocaml.doc "The name of the image."];
      description: WorkspaceImageDescription.t option
        [@ocaml.doc "The description of the image."];
      operatingSystem: OperatingSystem.t option
        [@ocaml.doc "The operating system that the image is running."];
      state: WorkspaceImageState.t option
        [@ocaml.doc "The status of the image."];
      requiredTenancy: WorkspaceImageRequiredTenancy.t option
        [@ocaml.doc
          "Specifies whether the image is running on dedicated hardware. When Bring Your Own License (BYOL) is enabled, this value is set to DEDICATED. For more information, see Bring Your Own Windows Desktop Images."];
      errorCode: WorkspaceImageErrorCode.t option
        [@ocaml.doc "The error code that is returned for the image."];
      errorMessage: Description.t option
        [@ocaml.doc
          "The text of the error message that is returned for the image."];
      created: Timestamp.t option
        [@ocaml.doc
          "The date when the image was created. If the image has been shared, the Amazon Web Services account that the image has been shared with sees the original creation date of the image."];
      ownerAccountId: AwsAccount.t option
        [@ocaml.doc
          "The identifier of the Amazon Web Services account that owns the image."];
      updates: UpdateResult.t option
        [@ocaml.doc
          "The updates (if any) that are available for the specified image."];
      errorDetails: ErrorDetailsList.t option
        [@ocaml.doc
          "Additional details of the error returned for the image, including the possible causes of the errors and troubleshooting information."]}
    let make ?imageId =
      fun ?name ->
        fun ?description ->
          fun ?operatingSystem ->
            fun ?state ->
              fun ?requiredTenancy ->
                fun ?errorCode ->
                  fun ?errorMessage ->
                    fun ?created ->
                      fun ?ownerAccountId ->
                        fun ?updates ->
                          fun ?errorDetails ->
                            fun () ->
                              {
                                imageId;
                                name;
                                description;
                                operatingSystem;
                                state;
                                requiredTenancy;
                                errorCode;
                                errorMessage;
                                created;
                                ownerAccountId;
                                updates;
                                errorDetails
                              }
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("Name", (Option.map x.name ~f:WorkspaceImageName.to_value));
        ("Description",
          (Option.map x.description ~f:WorkspaceImageDescription.to_value));
        ("OperatingSystem",
          (Option.map x.operatingSystem ~f:OperatingSystem.to_value));
        ("State", (Option.map x.state ~f:WorkspaceImageState.to_value));
        ("RequiredTenancy",
          (Option.map x.requiredTenancy
             ~f:WorkspaceImageRequiredTenancy.to_value));
        ("ErrorCode",
          (Option.map x.errorCode ~f:WorkspaceImageErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AwsAccount.to_value));
        ("Updates", (Option.map x.updates ~f:UpdateResult.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:ErrorDetailsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetailsList.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let updates =
        (Option.map ~f:UpdateResult.of_xml) (Xml.child xml_arg0 "Updates") in
      let ownerAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:WorkspaceImageErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let requiredTenancy =
        (Option.map ~f:WorkspaceImageRequiredTenancy.of_xml)
          (Xml.child xml_arg0 "RequiredTenancy") in
      let state =
        (Option.map ~f:WorkspaceImageState.of_xml)
          (Xml.child xml_arg0 "State") in
      let operatingSystem =
        (Option.map ~f:OperatingSystem.of_xml)
          (Xml.child xml_arg0 "OperatingSystem") in
      let description =
        (Option.map ~f:WorkspaceImageDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:WorkspaceImageName.of_xml) (Xml.child xml_arg0 "Name") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?errorDetails ?updates ?ownerAccountId ?created ?errorMessage
        ?errorCode ?requiredTenancy ?state ?operatingSystem ?description
        ?name ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails =
        field_map json__ "ErrorDetails" ErrorDetailsList.of_json in
      let updates = field_map json__ "Updates" UpdateResult.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AwsAccount.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let errorCode =
        field_map json__ "ErrorCode" WorkspaceImageErrorCode.of_json in
      let requiredTenancy =
        field_map json__ "RequiredTenancy"
          WorkspaceImageRequiredTenancy.of_json in
      let state = field_map json__ "State" WorkspaceImageState.of_json in
      let operatingSystem =
        field_map json__ "OperatingSystem" OperatingSystem.of_json in
      let description =
        field_map json__ "Description" WorkspaceImageDescription.of_json in
      let name = field_map json__ "Name" WorkspaceImageName.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?errorDetails ?updates ?ownerAccountId ?created ?errorMessage
        ?errorCode ?requiredTenancy ?state ?operatingSystem ?description
        ?name ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a WorkSpace image."]
module ImagePermission =
  struct
    type nonrec t =
      {
      sharedAccountId: AwsAccount.t option
        [@ocaml.doc
          "The identifier of the Amazon Web Services account that an image has been shared with."]}
    let make ?sharedAccountId = fun () -> { sharedAccountId }
    let to_value x =
      structure_to_value
        [("SharedAccountId",
           (Option.map x.sharedAccountId ~f:AwsAccount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "SharedAccountId") in
      make ?sharedAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedAccountId =
        field_map json__ "SharedAccountId" AwsAccount.of_json in
      make ?sharedAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the Amazon Web Services accounts that have been granted permission to use a shared image. For more information about sharing images, see Share or Unshare a Custom WorkSpaces Image."]
module WorkspaceDirectory =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The directory identifier."];
      alias: Alias.t option [@ocaml.doc "The directory alias."];
      directoryName: DirectoryName.t option
        [@ocaml.doc "The name of the directory."];
      registrationCode: RegistrationCode.t option
        [@ocaml.doc
          "The registration code for the directory. This is the code that users enter in their Amazon WorkSpaces client application to connect to the directory."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "The identifiers of the subnets used with the directory."];
      dnsIpAddresses: DnsIpAddresses.t option
        [@ocaml.doc "The IP addresses of the DNS servers for the directory."];
      dnsIpv6Addresses: DnsIpv6Addresses.t option
        [@ocaml.doc
          "The IPv6 addresses of the DNS servers for the directory."];
      customerUserName: UserName.t option
        [@ocaml.doc "The user name for the service account."];
      iamRoleId: ARN.t option
        [@ocaml.doc
          "The identifier of the IAM role. This is the role that allows Amazon WorkSpaces to make calls to other services, such as Amazon EC2, on your behalf."];
      directoryType: WorkspaceDirectoryType.t option
        [@ocaml.doc "The directory type."];
      workspaceSecurityGroupId: SecurityGroupId.t option
        [@ocaml.doc
          "The identifier of the security group that is assigned to new WorkSpaces."];
      state: WorkspaceDirectoryState.t option
        [@ocaml.doc
          "The state of the directory's registration with Amazon WorkSpaces. After a directory is deregistered, the DEREGISTERED state is returned very briefly before the directory metadata is cleaned up, so this state is rarely returned. To confirm that a directory is deregistered, check for the directory ID by using DescribeWorkspaceDirectories. If the directory ID isn't returned, then the directory has been successfully deregistered."];
      workspaceCreationProperties:
        DefaultWorkspaceCreationProperties.t option
        [@ocaml.doc
          "The default creation properties for all WorkSpaces in the directory."];
      ipGroupIds: IpGroupIdList.t option
        [@ocaml.doc
          "The identifiers of the IP access control groups associated with the directory."];
      workspaceAccessProperties: WorkspaceAccessProperties.t option
        [@ocaml.doc
          "The devices and operating systems that users can use to access WorkSpaces."];
      tenancy: Tenancy.t option
        [@ocaml.doc
          "Specifies whether the directory is dedicated or shared. To use Bring Your Own License (BYOL), this value must be set to DEDICATED. For more information, see Bring Your Own Windows Desktop Images."];
      selfservicePermissions: SelfservicePermissions.t option
        [@ocaml.doc
          "The default self-service permissions for WorkSpaces in the directory."];
      samlProperties: SamlProperties.t option
        [@ocaml.doc
          "Describes the enablement status, user access URL, and relay state parameter name that are used for configuring federation with an SAML 2.0 identity provider."];
      certificateBasedAuthProperties: CertificateBasedAuthProperties.t option
        [@ocaml.doc
          "The certificate-based authentication properties used to authenticate SAML 2.0 Identity Provider (IdP) user identities to Active Directory for WorkSpaces login."];
      endpointEncryptionMode: EndpointEncryptionMode.t option
        [@ocaml.doc
          "Endpoint encryption mode that allows you to configure the specified directory between Standard TLS and FIPS 140-2 validated mode."];
      microsoftEntraConfig: MicrosoftEntraConfig.t option
        [@ocaml.doc
          "Specifies details about Microsoft Entra configurations."];
      workspaceDirectoryName: WorkspaceDirectoryName.t option
        [@ocaml.doc "The name fo the WorkSpace directory."];
      workspaceDirectoryDescription: WorkspaceDirectoryDescription.t option
        [@ocaml.doc "The description of the WorkSpace directory"];
      userIdentityType: UserIdentityType.t option
        [@ocaml.doc "Indicates the identity type of the specifired user."];
      workspaceType: WorkspaceType.t option
        [@ocaml.doc
          "Indicates whether the directory's WorkSpace type is personal or pools."];
      iDCConfig: IDCConfig.t option
        [@ocaml.doc
          "Specifies details about identity center configurations."];
      activeDirectoryConfig: ActiveDirectoryConfig.t option
        [@ocaml.doc "Information about the Active Directory config."];
      streamingProperties: StreamingProperties.t option
        [@ocaml.doc "The streaming properties to configure."];
      errorMessage: Description.t option
        [@ocaml.doc "The error message returned."]}
    let make ?directoryId =
      fun ?alias ->
        fun ?directoryName ->
          fun ?registrationCode ->
            fun ?subnetIds ->
              fun ?dnsIpAddresses ->
                fun ?dnsIpv6Addresses ->
                  fun ?customerUserName ->
                    fun ?iamRoleId ->
                      fun ?directoryType ->
                        fun ?workspaceSecurityGroupId ->
                          fun ?state ->
                            fun ?workspaceCreationProperties ->
                              fun ?ipGroupIds ->
                                fun ?workspaceAccessProperties ->
                                  fun ?tenancy ->
                                    fun ?selfservicePermissions ->
                                      fun ?samlProperties ->
                                        fun ?certificateBasedAuthProperties
                                          ->
                                          fun ?endpointEncryptionMode ->
                                            fun ?microsoftEntraConfig ->
                                              fun ?workspaceDirectoryName ->
                                                fun
                                                  ?workspaceDirectoryDescription
                                                  ->
                                                  fun ?userIdentityType ->
                                                    fun ?workspaceType ->
                                                      fun ?iDCConfig ->
                                                        fun
                                                          ?activeDirectoryConfig
                                                          ->
                                                          fun
                                                            ?streamingProperties
                                                            ->
                                                            fun ?errorMessage
                                                              ->
                                                              fun () ->
                                                                {
                                                                  directoryId;
                                                                  alias;
                                                                  directoryName;
                                                                  registrationCode;
                                                                  subnetIds;
                                                                  dnsIpAddresses;
                                                                  dnsIpv6Addresses;
                                                                  customerUserName;
                                                                  iamRoleId;
                                                                  directoryType;
                                                                  workspaceSecurityGroupId;
                                                                  state;
                                                                  workspaceCreationProperties;
                                                                  ipGroupIds;
                                                                  workspaceAccessProperties;
                                                                  tenancy;
                                                                  selfservicePermissions;
                                                                  samlProperties;
                                                                  certificateBasedAuthProperties;
                                                                  endpointEncryptionMode;
                                                                  microsoftEntraConfig;
                                                                  workspaceDirectoryName;
                                                                  workspaceDirectoryDescription;
                                                                  userIdentityType;
                                                                  workspaceType;
                                                                  iDCConfig;
                                                                  activeDirectoryConfig;
                                                                  streamingProperties;
                                                                  errorMessage
                                                                }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("Alias", (Option.map x.alias ~f:Alias.to_value));
        ("DirectoryName",
          (Option.map x.directoryName ~f:DirectoryName.to_value));
        ("RegistrationCode",
          (Option.map x.registrationCode ~f:RegistrationCode.to_value));
        ("SubnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("DnsIpAddresses",
          (Option.map x.dnsIpAddresses ~f:DnsIpAddresses.to_value));
        ("DnsIpv6Addresses",
          (Option.map x.dnsIpv6Addresses ~f:DnsIpv6Addresses.to_value));
        ("CustomerUserName",
          (Option.map x.customerUserName ~f:UserName.to_value));
        ("IamRoleId", (Option.map x.iamRoleId ~f:ARN.to_value));
        ("DirectoryType",
          (Option.map x.directoryType ~f:WorkspaceDirectoryType.to_value));
        ("WorkspaceSecurityGroupId",
          (Option.map x.workspaceSecurityGroupId ~f:SecurityGroupId.to_value));
        ("State", (Option.map x.state ~f:WorkspaceDirectoryState.to_value));
        ("WorkspaceCreationProperties",
          (Option.map x.workspaceCreationProperties
             ~f:DefaultWorkspaceCreationProperties.to_value));
        ("ipGroupIds", (Option.map x.ipGroupIds ~f:IpGroupIdList.to_value));
        ("WorkspaceAccessProperties",
          (Option.map x.workspaceAccessProperties
             ~f:WorkspaceAccessProperties.to_value));
        ("Tenancy", (Option.map x.tenancy ~f:Tenancy.to_value));
        ("SelfservicePermissions",
          (Option.map x.selfservicePermissions
             ~f:SelfservicePermissions.to_value));
        ("SamlProperties",
          (Option.map x.samlProperties ~f:SamlProperties.to_value));
        ("CertificateBasedAuthProperties",
          (Option.map x.certificateBasedAuthProperties
             ~f:CertificateBasedAuthProperties.to_value));
        ("EndpointEncryptionMode",
          (Option.map x.endpointEncryptionMode
             ~f:EndpointEncryptionMode.to_value));
        ("MicrosoftEntraConfig",
          (Option.map x.microsoftEntraConfig ~f:MicrosoftEntraConfig.to_value));
        ("WorkspaceDirectoryName",
          (Option.map x.workspaceDirectoryName
             ~f:WorkspaceDirectoryName.to_value));
        ("WorkspaceDirectoryDescription",
          (Option.map x.workspaceDirectoryDescription
             ~f:WorkspaceDirectoryDescription.to_value));
        ("UserIdentityType",
          (Option.map x.userIdentityType ~f:UserIdentityType.to_value));
        ("WorkspaceType",
          (Option.map x.workspaceType ~f:WorkspaceType.to_value));
        ("IDCConfig", (Option.map x.iDCConfig ~f:IDCConfig.to_value));
        ("ActiveDirectoryConfig",
          (Option.map x.activeDirectoryConfig
             ~f:ActiveDirectoryConfig.to_value));
        ("StreamingProperties",
          (Option.map x.streamingProperties ~f:StreamingProperties.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let streamingProperties =
        (Option.map ~f:StreamingProperties.of_xml)
          (Xml.child xml_arg0 "StreamingProperties") in
      let activeDirectoryConfig =
        (Option.map ~f:ActiveDirectoryConfig.of_xml)
          (Xml.child xml_arg0 "ActiveDirectoryConfig") in
      let iDCConfig =
        (Option.map ~f:IDCConfig.of_xml) (Xml.child xml_arg0 "IDCConfig") in
      let workspaceType =
        (Option.map ~f:WorkspaceType.of_xml)
          (Xml.child xml_arg0 "WorkspaceType") in
      let userIdentityType =
        (Option.map ~f:UserIdentityType.of_xml)
          (Xml.child xml_arg0 "UserIdentityType") in
      let workspaceDirectoryDescription =
        (Option.map ~f:WorkspaceDirectoryDescription.of_xml)
          (Xml.child xml_arg0 "WorkspaceDirectoryDescription") in
      let workspaceDirectoryName =
        (Option.map ~f:WorkspaceDirectoryName.of_xml)
          (Xml.child xml_arg0 "WorkspaceDirectoryName") in
      let microsoftEntraConfig =
        (Option.map ~f:MicrosoftEntraConfig.of_xml)
          (Xml.child xml_arg0 "MicrosoftEntraConfig") in
      let endpointEncryptionMode =
        (Option.map ~f:EndpointEncryptionMode.of_xml)
          (Xml.child xml_arg0 "EndpointEncryptionMode") in
      let certificateBasedAuthProperties =
        (Option.map ~f:CertificateBasedAuthProperties.of_xml)
          (Xml.child xml_arg0 "CertificateBasedAuthProperties") in
      let samlProperties =
        (Option.map ~f:SamlProperties.of_xml)
          (Xml.child xml_arg0 "SamlProperties") in
      let selfservicePermissions =
        (Option.map ~f:SelfservicePermissions.of_xml)
          (Xml.child xml_arg0 "SelfservicePermissions") in
      let tenancy =
        (Option.map ~f:Tenancy.of_xml) (Xml.child xml_arg0 "Tenancy") in
      let workspaceAccessProperties =
        (Option.map ~f:WorkspaceAccessProperties.of_xml)
          (Xml.child xml_arg0 "WorkspaceAccessProperties") in
      let ipGroupIds =
        (Option.map ~f:IpGroupIdList.of_xml)
          (Xml.child xml_arg0 "ipGroupIds") in
      let workspaceCreationProperties =
        (Option.map ~f:DefaultWorkspaceCreationProperties.of_xml)
          (Xml.child xml_arg0 "WorkspaceCreationProperties") in
      let state =
        (Option.map ~f:WorkspaceDirectoryState.of_xml)
          (Xml.child xml_arg0 "State") in
      let workspaceSecurityGroupId =
        (Option.map ~f:SecurityGroupId.of_xml)
          (Xml.child xml_arg0 "WorkspaceSecurityGroupId") in
      let directoryType =
        (Option.map ~f:WorkspaceDirectoryType.of_xml)
          (Xml.child xml_arg0 "DirectoryType") in
      let iamRoleId =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "IamRoleId") in
      let customerUserName =
        (Option.map ~f:UserName.of_xml)
          (Xml.child xml_arg0 "CustomerUserName") in
      let dnsIpv6Addresses =
        (Option.map ~f:DnsIpv6Addresses.of_xml)
          (Xml.child xml_arg0 "DnsIpv6Addresses") in
      let dnsIpAddresses =
        (Option.map ~f:DnsIpAddresses.of_xml)
          (Xml.child xml_arg0 "DnsIpAddresses") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      let registrationCode =
        (Option.map ~f:RegistrationCode.of_xml)
          (Xml.child xml_arg0 "RegistrationCode") in
      let directoryName =
        (Option.map ~f:DirectoryName.of_xml)
          (Xml.child xml_arg0 "DirectoryName") in
      let alias = (Option.map ~f:Alias.of_xml) (Xml.child xml_arg0 "Alias") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?errorMessage ?streamingProperties ?activeDirectoryConfig
        ?iDCConfig ?workspaceType ?userIdentityType
        ?workspaceDirectoryDescription ?workspaceDirectoryName
        ?microsoftEntraConfig ?endpointEncryptionMode
        ?certificateBasedAuthProperties ?samlProperties
        ?selfservicePermissions ?tenancy ?workspaceAccessProperties
        ?ipGroupIds ?workspaceCreationProperties ?state
        ?workspaceSecurityGroupId ?directoryType ?iamRoleId ?customerUserName
        ?dnsIpv6Addresses ?dnsIpAddresses ?subnetIds ?registrationCode
        ?directoryName ?alias ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let streamingProperties =
        field_map json__ "StreamingProperties" StreamingProperties.of_json in
      let activeDirectoryConfig =
        field_map json__ "ActiveDirectoryConfig"
          ActiveDirectoryConfig.of_json in
      let iDCConfig = field_map json__ "IDCConfig" IDCConfig.of_json in
      let workspaceType =
        field_map json__ "WorkspaceType" WorkspaceType.of_json in
      let userIdentityType =
        field_map json__ "UserIdentityType" UserIdentityType.of_json in
      let workspaceDirectoryDescription =
        field_map json__ "WorkspaceDirectoryDescription"
          WorkspaceDirectoryDescription.of_json in
      let workspaceDirectoryName =
        field_map json__ "WorkspaceDirectoryName"
          WorkspaceDirectoryName.of_json in
      let microsoftEntraConfig =
        field_map json__ "MicrosoftEntraConfig" MicrosoftEntraConfig.of_json in
      let endpointEncryptionMode =
        field_map json__ "EndpointEncryptionMode"
          EndpointEncryptionMode.of_json in
      let certificateBasedAuthProperties =
        field_map json__ "CertificateBasedAuthProperties"
          CertificateBasedAuthProperties.of_json in
      let samlProperties =
        field_map json__ "SamlProperties" SamlProperties.of_json in
      let selfservicePermissions =
        field_map json__ "SelfservicePermissions"
          SelfservicePermissions.of_json in
      let tenancy = field_map json__ "Tenancy" Tenancy.of_json in
      let workspaceAccessProperties =
        field_map json__ "WorkspaceAccessProperties"
          WorkspaceAccessProperties.of_json in
      let ipGroupIds = field_map json__ "ipGroupIds" IpGroupIdList.of_json in
      let workspaceCreationProperties =
        field_map json__ "WorkspaceCreationProperties"
          DefaultWorkspaceCreationProperties.of_json in
      let state = field_map json__ "State" WorkspaceDirectoryState.of_json in
      let workspaceSecurityGroupId =
        field_map json__ "WorkspaceSecurityGroupId" SecurityGroupId.of_json in
      let directoryType =
        field_map json__ "DirectoryType" WorkspaceDirectoryType.of_json in
      let iamRoleId = field_map json__ "IamRoleId" ARN.of_json in
      let customerUserName =
        field_map json__ "CustomerUserName" UserName.of_json in
      let dnsIpv6Addresses =
        field_map json__ "DnsIpv6Addresses" DnsIpv6Addresses.of_json in
      let dnsIpAddresses =
        field_map json__ "DnsIpAddresses" DnsIpAddresses.of_json in
      let subnetIds = field_map json__ "SubnetIds" SubnetIds.of_json in
      let registrationCode =
        field_map json__ "RegistrationCode" RegistrationCode.of_json in
      let directoryName =
        field_map json__ "DirectoryName" DirectoryName.of_json in
      let alias = field_map json__ "Alias" Alias.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?errorMessage ?streamingProperties ?activeDirectoryConfig
        ?iDCConfig ?workspaceType ?userIdentityType
        ?workspaceDirectoryDescription ?workspaceDirectoryName
        ?microsoftEntraConfig ?endpointEncryptionMode
        ?certificateBasedAuthProperties ?samlProperties
        ?selfservicePermissions ?tenancy ?workspaceAccessProperties
        ?ipGroupIds ?workspaceCreationProperties ?state
        ?workspaceSecurityGroupId ?directoryType ?iamRoleId ?customerUserName
        ?dnsIpv6Addresses ?dnsIpAddresses ?subnetIds ?registrationCode
        ?directoryName ?alias ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a directory that is used with Amazon WorkSpaces."]
module DescribeWorkspaceDirectoriesFilter =
  struct
    type nonrec t =
      {
      name: DescribeWorkspaceDirectoriesFilterName.t
        [@ocaml.doc "The name of the WorkSpaces to filter."];
      values: DescribeWorkspaceDirectoriesFilterValues.t
        [@ocaml.doc "The values for filtering WorkSpaces"]}
    let context_ = "DescribeWorkspaceDirectoriesFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name",
           (Some (DescribeWorkspaceDirectoriesFilterName.to_value x.name)));
        ("Values",
          (Some (DescribeWorkspaceDirectoriesFilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        DescribeWorkspaceDirectoriesFilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        DescribeWorkspaceDirectoriesFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map_exn json__ "Values"
          DescribeWorkspaceDirectoriesFilterValues.of_json in
      let name =
        field_map_exn json__ "Name"
          DescribeWorkspaceDirectoriesFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the filter conditions for the WorkSpaces to return."]
module WorkspaceBundle =
  struct
    type nonrec t =
      {
      bundleId: BundleId.t option
        [@ocaml.doc "The identifier of the bundle."];
      name: NonEmptyString.t option [@ocaml.doc "The name of the bundle."];
      owner: BundleOwner.t option
        [@ocaml.doc
          "The owner of the bundle. This is the account identifier of the owner, or AMAZON if the bundle is provided by Amazon Web Services."];
      description: Description.t option
        [@ocaml.doc "The description of the bundle."];
      imageId: WorkspaceImageId.t option
        [@ocaml.doc
          "The identifier of the image that was used to create the bundle."];
      rootStorage: RootStorage.t option
        [@ocaml.doc "The size of the root volume."];
      userStorage: UserStorage.t option
        [@ocaml.doc "The size of the user volume."];
      computeType: ComputeType.t option
        [@ocaml.doc
          "The compute type of the bundle. For more information, see Amazon WorkSpaces Bundles."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc "The last time that the bundle was updated."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time when the bundle was created."];
      state: WorkspaceBundleState.t option
        [@ocaml.doc "The state of the WorkSpace bundle."];
      bundleType: BundleType.t option
        [@ocaml.doc "The type of WorkSpace bundle."]}
    let make ?bundleId =
      fun ?name ->
        fun ?owner ->
          fun ?description ->
            fun ?imageId ->
              fun ?rootStorage ->
                fun ?userStorage ->
                  fun ?computeType ->
                    fun ?lastUpdatedTime ->
                      fun ?creationTime ->
                        fun ?state ->
                          fun ?bundleType ->
                            fun () ->
                              {
                                bundleId;
                                name;
                                owner;
                                description;
                                imageId;
                                rootStorage;
                                userStorage;
                                computeType;
                                lastUpdatedTime;
                                creationTime;
                                state;
                                bundleType
                              }
    let to_value x =
      structure_to_value
        [("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("Name", (Option.map x.name ~f:NonEmptyString.to_value));
        ("Owner", (Option.map x.owner ~f:BundleOwner.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("RootStorage", (Option.map x.rootStorage ~f:RootStorage.to_value));
        ("UserStorage", (Option.map x.userStorage ~f:UserStorage.to_value));
        ("ComputeType", (Option.map x.computeType ~f:ComputeType.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("State", (Option.map x.state ~f:WorkspaceBundleState.to_value));
        ("BundleType", (Option.map x.bundleType ~f:BundleType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bundleType =
        (Option.map ~f:BundleType.of_xml) (Xml.child xml_arg0 "BundleType") in
      let state =
        (Option.map ~f:WorkspaceBundleState.of_xml)
          (Xml.child xml_arg0 "State") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let computeType =
        (Option.map ~f:ComputeType.of_xml) (Xml.child xml_arg0 "ComputeType") in
      let userStorage =
        (Option.map ~f:UserStorage.of_xml) (Xml.child xml_arg0 "UserStorage") in
      let rootStorage =
        (Option.map ~f:RootStorage.of_xml) (Xml.child xml_arg0 "RootStorage") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let owner =
        (Option.map ~f:BundleOwner.of_xml) (Xml.child xml_arg0 "Owner") in
      let name =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Name") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      make ?bundleType ?state ?creationTime ?lastUpdatedTime ?computeType
        ?userStorage ?rootStorage ?imageId ?description ?owner ?name
        ?bundleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bundleType = field_map json__ "BundleType" BundleType.of_json in
      let state = field_map json__ "State" WorkspaceBundleState.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let computeType = field_map json__ "ComputeType" ComputeType.of_json in
      let userStorage = field_map json__ "UserStorage" UserStorage.of_json in
      let rootStorage = field_map json__ "RootStorage" RootStorage.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let owner = field_map json__ "Owner" BundleOwner.of_json in
      let name = field_map json__ "Name" NonEmptyString.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      make ?bundleType ?state ?creationTime ?lastUpdatedTime ?computeType
        ?userStorage ?rootStorage ?imageId ?description ?owner ?name
        ?bundleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a WorkSpace bundle."]
module WorkspacesIpGroup =
  struct
    type nonrec t =
      {
      groupId: IpGroupId.t option [@ocaml.doc "The identifier of the group."];
      groupName: IpGroupName.t option [@ocaml.doc "The name of the group."];
      groupDesc: IpGroupDesc.t option
        [@ocaml.doc "The description of the group."];
      userRules: IpRuleList.t option [@ocaml.doc "The rules."]}
    let make ?groupId =
      fun ?groupName ->
        fun ?groupDesc ->
          fun ?userRules ->
            fun () -> { groupId; groupName; groupDesc; userRules }
    let to_value x =
      structure_to_value
        [("groupId", (Option.map x.groupId ~f:IpGroupId.to_value));
        ("groupName", (Option.map x.groupName ~f:IpGroupName.to_value));
        ("groupDesc", (Option.map x.groupDesc ~f:IpGroupDesc.to_value));
        ("userRules", (Option.map x.userRules ~f:IpRuleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userRules =
        (Option.map ~f:IpRuleList.of_xml) (Xml.child xml_arg0 "userRules") in
      let groupDesc =
        (Option.map ~f:IpGroupDesc.of_xml) (Xml.child xml_arg0 "groupDesc") in
      let groupName =
        (Option.map ~f:IpGroupName.of_xml) (Xml.child xml_arg0 "groupName") in
      let groupId =
        (Option.map ~f:IpGroupId.of_xml) (Xml.child xml_arg0 "groupId") in
      make ?userRules ?groupDesc ?groupName ?groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userRules = field_map json__ "userRules" IpRuleList.of_json in
      let groupDesc = field_map json__ "groupDesc" IpGroupDesc.of_json in
      let groupName = field_map json__ "groupName" IpGroupName.of_json in
      let groupId = field_map json__ "groupId" IpGroupId.of_json in
      make ?userRules ?groupDesc ?groupName ?groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IP access control group."]
module ImageResourceAssociation =
  struct
    type nonrec t =
      {
      associatedResourceId: NonEmptyString.t option
        [@ocaml.doc "The identifier of the associated resource."];
      associatedResourceType: ImageAssociatedResourceType.t option
        [@ocaml.doc "The resource type of the associated resources."];
      created: Timestamp.t option
        [@ocaml.doc "The time the association is created."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc "The time the association status was last updated."];
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the image."];
      state: AssociationState.t option
        [@ocaml.doc "The status of the image resource association."];
      stateReason: AssociationStateReason.t option
        [@ocaml.doc "The reason the association deployment failed."]}
    let make ?associatedResourceId =
      fun ?associatedResourceType ->
        fun ?created ->
          fun ?lastUpdatedTime ->
            fun ?imageId ->
              fun ?state ->
                fun ?stateReason ->
                  fun () ->
                    {
                      associatedResourceId;
                      associatedResourceType;
                      created;
                      lastUpdatedTime;
                      imageId;
                      state;
                      stateReason
                    }
    let to_value x =
      structure_to_value
        [("AssociatedResourceId",
           (Option.map x.associatedResourceId ~f:NonEmptyString.to_value));
        ("AssociatedResourceType",
          (Option.map x.associatedResourceType
             ~f:ImageAssociatedResourceType.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("State", (Option.map x.state ~f:AssociationState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:AssociationStateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:AssociationStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:AssociationState.of_xml) (Xml.child xml_arg0 "State") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let associatedResourceType =
        (Option.map ~f:ImageAssociatedResourceType.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceType") in
      let associatedResourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceId") in
      make ?stateReason ?state ?imageId ?lastUpdatedTime ?created
        ?associatedResourceType ?associatedResourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason =
        field_map json__ "StateReason" AssociationStateReason.of_json in
      let state = field_map json__ "State" AssociationState.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let associatedResourceType =
        field_map json__ "AssociatedResourceType"
          ImageAssociatedResourceType.of_json in
      let associatedResourceId =
        field_map json__ "AssociatedResourceId" NonEmptyString.of_json in
      make ?stateReason ?state ?imageId ?lastUpdatedTime ?created
        ?associatedResourceType ?associatedResourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between an application and an image resource."]
module CustomWorkspaceImageImportErrorDetails =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option
        [@ocaml.doc "The error code that is returned for the image import."];
      errorMessage: ImageErrorMessage.t option
        [@ocaml.doc
          "The text of the error message that is returned for the image import."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ImageErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ImageErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.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" ImageErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes in-depth details about the error. These details include the possible causes of the error and troubleshooting information."]
module ConnectionAlias =
  struct
    type nonrec t =
      {
      connectionString: ConnectionString.t option
        [@ocaml.doc
          "The connection string specified for the connection alias. The connection string must be in the form of a fully qualified domain name (FQDN), such as www.example.com."];
      aliasId: ConnectionAliasId.t option
        [@ocaml.doc "The identifier of the connection alias."];
      state: ConnectionAliasState.t option
        [@ocaml.doc "The current state of the connection alias."];
      ownerAccountId: AwsAccount.t option
        [@ocaml.doc
          "The identifier of the Amazon Web Services account that owns the connection alias."];
      associations: ConnectionAliasAssociationList.t option
        [@ocaml.doc "The association status of the connection alias."]}
    let make ?connectionString =
      fun ?aliasId ->
        fun ?state ->
          fun ?ownerAccountId ->
            fun ?associations ->
              fun () ->
                {
                  connectionString;
                  aliasId;
                  state;
                  ownerAccountId;
                  associations
                }
    let to_value x =
      structure_to_value
        [("ConnectionString",
           (Option.map x.connectionString ~f:ConnectionString.to_value));
        ("AliasId", (Option.map x.aliasId ~f:ConnectionAliasId.to_value));
        ("State", (Option.map x.state ~f:ConnectionAliasState.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AwsAccount.to_value));
        ("Associations",
          (Option.map x.associations
             ~f:ConnectionAliasAssociationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associations =
        (Option.map ~f:ConnectionAliasAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      let ownerAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let state =
        (Option.map ~f:ConnectionAliasState.of_xml)
          (Xml.child xml_arg0 "State") in
      let aliasId =
        (Option.map ~f:ConnectionAliasId.of_xml)
          (Xml.child xml_arg0 "AliasId") in
      let connectionString =
        (Option.map ~f:ConnectionString.of_xml)
          (Xml.child xml_arg0 "ConnectionString") in
      make ?associations ?ownerAccountId ?state ?aliasId ?connectionString ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associations =
        field_map json__ "Associations"
          ConnectionAliasAssociationList.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AwsAccount.of_json in
      let state = field_map json__ "State" ConnectionAliasState.of_json in
      let aliasId = field_map json__ "AliasId" ConnectionAliasId.of_json in
      let connectionString =
        field_map json__ "ConnectionString" ConnectionString.of_json in
      make ?associations ?ownerAccountId ?state ?aliasId ?connectionString ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a connection alias. Connection aliases are used for cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module ConnectionAliasPermission =
  struct
    type nonrec t =
      {
      sharedAccountId: AwsAccount.t
        [@ocaml.doc
          "The identifier of the Amazon Web Services account that the connection alias is shared with."];
      allowAssociation: BooleanObject.t
        [@ocaml.doc
          "Indicates whether the specified Amazon Web Services account is allowed to associate the connection alias with a directory."]}
    let context_ = "ConnectionAliasPermission"
    let make ~sharedAccountId =
      fun ~allowAssociation ->
        fun () -> { sharedAccountId; allowAssociation }
    let to_value x =
      structure_to_value
        [("SharedAccountId", (Some (AwsAccount.to_value x.sharedAccountId)));
        ("AllowAssociation",
          (Some (BooleanObject.to_value x.allowAssociation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowAssociation =
        BooleanObject.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AllowAssociation") in
      let sharedAccountId =
        AwsAccount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SharedAccountId") in
      make ~allowAssociation ~sharedAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowAssociation =
        field_map_exn json__ "AllowAssociation" BooleanObject.of_json in
      let sharedAccountId =
        field_map_exn json__ "SharedAccountId" AwsAccount.of_json in
      make ~allowAssociation ~sharedAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the permissions for a connection alias. Connection aliases are used for cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module ConnectClientAddIn =
  struct
    type nonrec t =
      {
      addInId: AmazonUuid.t option
        [@ocaml.doc "The client add-in identifier."];
      resourceId: DirectoryId.t option
        [@ocaml.doc
          "The directory identifier for which the client add-in is configured."];
      name: AddInName.t option [@ocaml.doc "The name of the client add in."];
      uRL: AddInUrl.t option
        [@ocaml.doc "The endpoint URL of the client add-in."]}
    let make ?addInId =
      fun ?resourceId ->
        fun ?name -> fun ?uRL -> fun () -> { addInId; resourceId; name; uRL }
    let to_value x =
      structure_to_value
        [("AddInId", (Option.map x.addInId ~f:AmazonUuid.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:DirectoryId.to_value));
        ("Name", (Option.map x.name ~f:AddInName.to_value));
        ("URL", (Option.map x.uRL ~f:AddInUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uRL = (Option.map ~f:AddInUrl.of_xml) (Xml.child xml_arg0 "URL") in
      let name = (Option.map ~f:AddInName.of_xml) (Xml.child xml_arg0 "Name") in
      let resourceId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let addInId =
        (Option.map ~f:AmazonUuid.of_xml) (Xml.child xml_arg0 "AddInId") in
      make ?uRL ?name ?resourceId ?addInId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uRL = field_map json__ "URL" AddInUrl.of_json in
      let name = field_map json__ "Name" AddInName.of_json in
      let resourceId = field_map json__ "ResourceId" DirectoryId.of_json in
      let addInId = field_map json__ "AddInId" AmazonUuid.of_json in
      make ?uRL ?name ?resourceId ?addInId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an Amazon Connect client add-in."]
module ClientPropertiesResult =
  struct
    type nonrec t =
      {
      resourceId: NonEmptyString.t option
        [@ocaml.doc
          "The resource identifier, in the form of a directory ID."];
      clientProperties: ClientProperties.t option
        [@ocaml.doc "Information about the Amazon WorkSpaces client."]}
    let make ?resourceId =
      fun ?clientProperties -> fun () -> { resourceId; clientProperties }
    let to_value x =
      structure_to_value
        [("ResourceId", (Option.map x.resourceId ~f:NonEmptyString.to_value));
        ("ClientProperties",
          (Option.map x.clientProperties ~f:ClientProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientProperties =
        (Option.map ~f:ClientProperties.of_xml)
          (Xml.child xml_arg0 "ClientProperties") in
      let resourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      make ?clientProperties ?resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientProperties =
        field_map json__ "ClientProperties" ClientProperties.of_json in
      let resourceId = field_map json__ "ResourceId" NonEmptyString.of_json in
      make ?clientProperties ?resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the Amazon WorkSpaces client."]
module BundleResourceAssociation =
  struct
    type nonrec t =
      {
      associatedResourceId: NonEmptyString.t option
        [@ocaml.doc "The identifier of the associated resource."];
      associatedResourceType: BundleAssociatedResourceType.t option
        [@ocaml.doc "The resource type of the associated resources."];
      bundleId: BundleId.t option
        [@ocaml.doc "The identifier of the bundle."];
      created: Timestamp.t option
        [@ocaml.doc "The time the association is created."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc "The time the association status was last updated."];
      state: AssociationState.t option
        [@ocaml.doc "The status of the bundle resource association."];
      stateReason: AssociationStateReason.t option
        [@ocaml.doc "The reason the association deployment failed."]}
    let make ?associatedResourceId =
      fun ?associatedResourceType ->
        fun ?bundleId ->
          fun ?created ->
            fun ?lastUpdatedTime ->
              fun ?state ->
                fun ?stateReason ->
                  fun () ->
                    {
                      associatedResourceId;
                      associatedResourceType;
                      bundleId;
                      created;
                      lastUpdatedTime;
                      state;
                      stateReason
                    }
    let to_value x =
      structure_to_value
        [("AssociatedResourceId",
           (Option.map x.associatedResourceId ~f:NonEmptyString.to_value));
        ("AssociatedResourceType",
          (Option.map x.associatedResourceType
             ~f:BundleAssociatedResourceType.to_value));
        ("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("State", (Option.map x.state ~f:AssociationState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:AssociationStateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:AssociationStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:AssociationState.of_xml) (Xml.child xml_arg0 "State") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      let associatedResourceType =
        (Option.map ~f:BundleAssociatedResourceType.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceType") in
      let associatedResourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceId") in
      make ?stateReason ?state ?lastUpdatedTime ?created ?bundleId
        ?associatedResourceType ?associatedResourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason =
        field_map json__ "StateReason" AssociationStateReason.of_json in
      let state = field_map json__ "State" AssociationState.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      let associatedResourceType =
        field_map json__ "AssociatedResourceType"
          BundleAssociatedResourceType.of_json in
      let associatedResourceId =
        field_map json__ "AssociatedResourceId" NonEmptyString.of_json in
      make ?stateReason ?state ?lastUpdatedTime ?created ?bundleId
        ?associatedResourceType ?associatedResourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between an application and a bundle resource."]
module WorkSpaceApplication =
  struct
    type nonrec t =
      {
      applicationId: WorkSpaceApplicationId.t option
        [@ocaml.doc "The identifier of the application."];
      created: Timestamp.t option
        [@ocaml.doc "The time the application is created."];
      description: String2048.t option
        [@ocaml.doc "The description of the WorkSpace application."];
      licenseType: WorkSpaceApplicationLicenseType.t option
        [@ocaml.doc "The license availability for the applications."];
      name: NonEmptyString.t option
        [@ocaml.doc "The name of the WorkSpace application."];
      owner: WorkSpaceApplicationOwner.t option
        [@ocaml.doc "The owner of the WorkSpace application."];
      state: WorkSpaceApplicationState.t option
        [@ocaml.doc "The status of WorkSpace application."];
      supportedComputeTypeNames: ComputeList.t option
        [@ocaml.doc
          "The supported compute types of the WorkSpace application."];
      supportedOperatingSystemNames: OperatingSystemNameList.t option
        [@ocaml.doc
          "The supported operating systems of the WorkSpace application."]}
    let make ?applicationId =
      fun ?created ->
        fun ?description ->
          fun ?licenseType ->
            fun ?name ->
              fun ?owner ->
                fun ?state ->
                  fun ?supportedComputeTypeNames ->
                    fun ?supportedOperatingSystemNames ->
                      fun () ->
                        {
                          applicationId;
                          created;
                          description;
                          licenseType;
                          name;
                          owner;
                          state;
                          supportedComputeTypeNames;
                          supportedOperatingSystemNames
                        }
    let to_value x =
      structure_to_value
        [("ApplicationId",
           (Option.map x.applicationId ~f:WorkSpaceApplicationId.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("Description", (Option.map x.description ~f:String2048.to_value));
        ("LicenseType",
          (Option.map x.licenseType
             ~f:WorkSpaceApplicationLicenseType.to_value));
        ("Name", (Option.map x.name ~f:NonEmptyString.to_value));
        ("Owner", (Option.map x.owner ~f:WorkSpaceApplicationOwner.to_value));
        ("State", (Option.map x.state ~f:WorkSpaceApplicationState.to_value));
        ("SupportedComputeTypeNames",
          (Option.map x.supportedComputeTypeNames ~f:ComputeList.to_value));
        ("SupportedOperatingSystemNames",
          (Option.map x.supportedOperatingSystemNames
             ~f:OperatingSystemNameList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedOperatingSystemNames =
        (Option.map ~f:OperatingSystemNameList.of_xml)
          (Xml.child xml_arg0 "SupportedOperatingSystemNames") in
      let supportedComputeTypeNames =
        (Option.map ~f:ComputeList.of_xml)
          (Xml.child xml_arg0 "SupportedComputeTypeNames") in
      let state =
        (Option.map ~f:WorkSpaceApplicationState.of_xml)
          (Xml.child xml_arg0 "State") in
      let owner =
        (Option.map ~f:WorkSpaceApplicationOwner.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let name =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Name") in
      let licenseType =
        (Option.map ~f:WorkSpaceApplicationLicenseType.of_xml)
          (Xml.child xml_arg0 "LicenseType") in
      let description =
        (Option.map ~f:String2048.of_xml) (Xml.child xml_arg0 "Description") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let applicationId =
        (Option.map ~f:WorkSpaceApplicationId.of_xml)
          (Xml.child xml_arg0 "ApplicationId") in
      make ?supportedOperatingSystemNames ?supportedComputeTypeNames ?state
        ?owner ?name ?licenseType ?description ?created ?applicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedOperatingSystemNames =
        field_map json__ "SupportedOperatingSystemNames"
          OperatingSystemNameList.of_json in
      let supportedComputeTypeNames =
        field_map json__ "SupportedComputeTypeNames" ComputeList.of_json in
      let state = field_map json__ "State" WorkSpaceApplicationState.of_json in
      let owner = field_map json__ "Owner" WorkSpaceApplicationOwner.of_json in
      let name = field_map json__ "Name" NonEmptyString.of_json in
      let licenseType =
        field_map json__ "LicenseType"
          WorkSpaceApplicationLicenseType.of_json in
      let description = field_map json__ "Description" String2048.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let applicationId =
        field_map json__ "ApplicationId" WorkSpaceApplicationId.of_json in
      make ?supportedOperatingSystemNames ?supportedComputeTypeNames ?state
        ?owner ?name ?licenseType ?description ?created ?applicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the WorkSpace application."]
module ApplicationResourceAssociation =
  struct
    type nonrec t =
      {
      applicationId: WorkSpaceApplicationId.t option
        [@ocaml.doc "The identifier of the application."];
      associatedResourceId: NonEmptyString.t option
        [@ocaml.doc "The identifier of the associated resource."];
      associatedResourceType: ApplicationAssociatedResourceType.t option
        [@ocaml.doc "The resource type of the associated resource."];
      created: Timestamp.t option
        [@ocaml.doc "The time the association was created."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc "The time the association status was last updated."];
      state: AssociationState.t option
        [@ocaml.doc "The status of the application resource association."];
      stateReason: AssociationStateReason.t option
        [@ocaml.doc "The reason the association deployment failed."]}
    let make ?applicationId =
      fun ?associatedResourceId ->
        fun ?associatedResourceType ->
          fun ?created ->
            fun ?lastUpdatedTime ->
              fun ?state ->
                fun ?stateReason ->
                  fun () ->
                    {
                      applicationId;
                      associatedResourceId;
                      associatedResourceType;
                      created;
                      lastUpdatedTime;
                      state;
                      stateReason
                    }
    let to_value x =
      structure_to_value
        [("ApplicationId",
           (Option.map x.applicationId ~f:WorkSpaceApplicationId.to_value));
        ("AssociatedResourceId",
          (Option.map x.associatedResourceId ~f:NonEmptyString.to_value));
        ("AssociatedResourceType",
          (Option.map x.associatedResourceType
             ~f:ApplicationAssociatedResourceType.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("State", (Option.map x.state ~f:AssociationState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:AssociationStateReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:AssociationStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:AssociationState.of_xml) (Xml.child xml_arg0 "State") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let associatedResourceType =
        (Option.map ~f:ApplicationAssociatedResourceType.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceType") in
      let associatedResourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "AssociatedResourceId") in
      let applicationId =
        (Option.map ~f:WorkSpaceApplicationId.of_xml)
          (Xml.child xml_arg0 "ApplicationId") in
      make ?stateReason ?state ?lastUpdatedTime ?created
        ?associatedResourceType ?associatedResourceId ?applicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason =
        field_map json__ "StateReason" AssociationStateReason.of_json in
      let state = field_map json__ "State" AssociationState.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let associatedResourceType =
        field_map json__ "AssociatedResourceType"
          ApplicationAssociatedResourceType.of_json in
      let associatedResourceId =
        field_map json__ "AssociatedResourceId" NonEmptyString.of_json in
      let applicationId =
        field_map json__ "ApplicationId" WorkSpaceApplicationId.of_json in
      make ?stateReason ?state ?lastUpdatedTime ?created
        ?associatedResourceType ?associatedResourceId ?applicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between an application and an application resource."]
module AccountModification =
  struct
    type nonrec t =
      {
      modificationState: DedicatedTenancyModificationStateEnum.t option
        [@ocaml.doc
          "The state of the modification to the configuration of BYOL."];
      dedicatedTenancySupport: DedicatedTenancySupportResultEnum.t option
        [@ocaml.doc
          "The status of BYOL (whether BYOL is being enabled or disabled)."];
      dedicatedTenancyManagementCidrRange:
        DedicatedTenancyManagementCidrRange.t option
        [@ocaml.doc
          "The IP address range, specified as an IPv4 CIDR block, for the management network interface used for the account."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the modification of the BYOL configuration was started."];
      errorCode: WorkspaceErrorCode.t option
        [@ocaml.doc
          "The error code that is returned if the configuration of BYOL cannot be modified."];
      errorMessage: Description.t option
        [@ocaml.doc
          "The text of the error message that is returned if the configuration of BYOL cannot be modified."]}
    let make ?modificationState =
      fun ?dedicatedTenancySupport ->
        fun ?dedicatedTenancyManagementCidrRange ->
          fun ?startTime ->
            fun ?errorCode ->
              fun ?errorMessage ->
                fun () ->
                  {
                    modificationState;
                    dedicatedTenancySupport;
                    dedicatedTenancyManagementCidrRange;
                    startTime;
                    errorCode;
                    errorMessage
                  }
    let to_value x =
      structure_to_value
        [("ModificationState",
           (Option.map x.modificationState
              ~f:DedicatedTenancyModificationStateEnum.to_value));
        ("DedicatedTenancySupport",
          (Option.map x.dedicatedTenancySupport
             ~f:DedicatedTenancySupportResultEnum.to_value));
        ("DedicatedTenancyManagementCidrRange",
          (Option.map x.dedicatedTenancyManagementCidrRange
             ~f:DedicatedTenancyManagementCidrRange.to_value));
        ("StartTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("ErrorCode",
          (Option.map x.errorCode ~f:WorkspaceErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:WorkspaceErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartTime") in
      let dedicatedTenancyManagementCidrRange =
        (Option.map ~f:DedicatedTenancyManagementCidrRange.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancyManagementCidrRange") in
      let dedicatedTenancySupport =
        (Option.map ~f:DedicatedTenancySupportResultEnum.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancySupport") in
      let modificationState =
        (Option.map ~f:DedicatedTenancyModificationStateEnum.of_xml)
          (Xml.child xml_arg0 "ModificationState") in
      make ?errorMessage ?errorCode ?startTime
        ?dedicatedTenancyManagementCidrRange ?dedicatedTenancySupport
        ?modificationState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let errorCode = field_map json__ "ErrorCode" WorkspaceErrorCode.of_json in
      let startTime = field_map json__ "StartTime" Timestamp.of_json in
      let dedicatedTenancyManagementCidrRange =
        field_map json__ "DedicatedTenancyManagementCidrRange"
          DedicatedTenancyManagementCidrRange.of_json in
      let dedicatedTenancySupport =
        field_map json__ "DedicatedTenancySupport"
          DedicatedTenancySupportResultEnum.of_json in
      let modificationState =
        field_map json__ "ModificationState"
          DedicatedTenancyModificationStateEnum.of_json in
      make ?errorMessage ?errorCode ?startTime
        ?dedicatedTenancyManagementCidrRange ?dedicatedTenancySupport
        ?modificationState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a modification to the configuration of Bring Your Own License (BYOL) for the specified account."]
module WorkspaceResourceAssociationList =
  struct
    type nonrec t = WorkspaceResourceAssociation.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:WorkspaceResourceAssociation.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:WorkspaceResourceAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceResourceAssociationList"
        ~of_json:WorkspaceResourceAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientDeviceType =
  struct
    type nonrec t =
      | DeviceTypeWindows 
      | DeviceTypeOsx 
      | DeviceTypeAndroid 
      | DeviceTypeIos 
      | DeviceTypeLinux 
      | DeviceTypeWeb 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DeviceTypeWindows -> "DeviceTypeWindows"
      | DeviceTypeOsx -> "DeviceTypeOsx"
      | DeviceTypeAndroid -> "DeviceTypeAndroid"
      | DeviceTypeIos -> "DeviceTypeIos"
      | DeviceTypeLinux -> "DeviceTypeLinux"
      | DeviceTypeWeb -> "DeviceTypeWeb"
      | Non_static_id s -> s
    let of_string =
      function
      | "DeviceTypeWindows" -> DeviceTypeWindows
      | "DeviceTypeOsx" -> DeviceTypeOsx
      | "DeviceTypeAndroid" -> DeviceTypeAndroid
      | "DeviceTypeIos" -> DeviceTypeIos
      | "DeviceTypeLinux" -> DeviceTypeLinux
      | "DeviceTypeWeb" -> DeviceTypeWeb
      | 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 ClientDeviceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClientDeviceType" j)
    let to_json = simple_to_json to_value
  end
module FailedCreateWorkspaceRequest =
  struct
    type nonrec t =
      {
      workspaceRequest: WorkspaceRequest.t option
        [@ocaml.doc "Information about the WorkSpace."];
      errorCode: ErrorType.t option
        [@ocaml.doc
          "The error code that is returned if the WorkSpace cannot be created."];
      errorMessage: Description.t option
        [@ocaml.doc
          "The text of the error message that is returned if the WorkSpace cannot be created."]}
    let make ?workspaceRequest =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { workspaceRequest; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("WorkspaceRequest",
           (Option.map x.workspaceRequest ~f:WorkspaceRequest.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorType.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorType.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let workspaceRequest =
        (Option.map ~f:WorkspaceRequest.of_xml)
          (Xml.child xml_arg0 "WorkspaceRequest") in
      make ?errorMessage ?errorCode ?workspaceRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorType.of_json in
      let workspaceRequest =
        field_map json__ "WorkspaceRequest" WorkspaceRequest.of_json in
      make ?errorMessage ?errorCode ?workspaceRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a WorkSpace that cannot be created."]
module FailedCreateStandbyWorkspacesRequest =
  struct
    type nonrec t =
      {
      standbyWorkspaceRequest: StandbyWorkspace.t option
        [@ocaml.doc
          "Information about the standby WorkSpace that could not be created."];
      errorCode: WorkspaceErrorCode.t option
        [@ocaml.doc
          "The error code that is returned if the standby WorkSpace could not be created."];
      errorMessage: Description.t option
        [@ocaml.doc
          "The text of the error message that is returned if the standby WorkSpace could not be created."]}
    let make ?standbyWorkspaceRequest =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { standbyWorkspaceRequest; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("StandbyWorkspaceRequest",
           (Option.map x.standbyWorkspaceRequest ~f:StandbyWorkspace.to_value));
        ("ErrorCode",
          (Option.map x.errorCode ~f:WorkspaceErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:Description.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:WorkspaceErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let standbyWorkspaceRequest =
        (Option.map ~f:StandbyWorkspace.of_xml)
          (Xml.child xml_arg0 "StandbyWorkspaceRequest") in
      make ?errorMessage ?errorCode ?standbyWorkspaceRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" Description.of_json in
      let errorCode = field_map json__ "ErrorCode" WorkspaceErrorCode.of_json in
      let standbyWorkspaceRequest =
        field_map json__ "StandbyWorkspaceRequest" StandbyWorkspace.of_json in
      make ?errorMessage ?errorCode ?standbyWorkspaceRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the standby WorkSpace that could not be created."]
module PendingCreateStandbyWorkspacesRequest =
  struct
    type nonrec t =
      {
      userName: UserName.t option
        [@ocaml.doc
          "Describes the standby WorkSpace that was created. Because this operation is asynchronous, the identifier returned is not immediately available for use with other operations. For example, if you call DescribeWorkspaces before the WorkSpace is created, the information returned can be incomplete."];
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory for the standby WorkSpace."];
      state: WorkspaceState.t option
        [@ocaml.doc "The operational state of the standby WorkSpace."];
      workspaceId: WorkspaceId.t option
        [@ocaml.doc "The identifier of the standby WorkSpace."]}
    let make ?userName =
      fun ?directoryId ->
        fun ?state ->
          fun ?workspaceId ->
            fun () -> { userName; directoryId; state; workspaceId }
    let to_value x =
      structure_to_value
        [("UserName", (Option.map x.userName ~f:UserName.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("State", (Option.map x.state ~f:WorkspaceState.to_value));
        ("WorkspaceId", (Option.map x.workspaceId ~f:WorkspaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        (Option.map ~f:WorkspaceId.of_xml) (Xml.child xml_arg0 "WorkspaceId") in
      let state =
        (Option.map ~f:WorkspaceState.of_xml) (Xml.child xml_arg0 "State") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let userName =
        (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "UserName") in
      make ?workspaceId ?state ?directoryId ?userName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId = field_map json__ "WorkspaceId" WorkspaceId.of_json in
      let state = field_map json__ "State" WorkspaceState.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let userName = field_map json__ "UserName" UserName.of_json in
      make ?workspaceId ?state ?directoryId ?userName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the standby WorkSpace."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The user is not authorized to access a resource."]
module InvalidParameterValuesException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The exception error message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameter values are not valid."]
module InvalidResourceStateException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The state of the resource is not valid for this operation."]
module OperationInProgressException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The properties of this WorkSpace are currently being modified. Try again in a moment."]
module OperationNotSupportedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The exception error message."];
      reason: ExceptionErrorCode.t option
        [@ocaml.doc "The exception error reason."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("reason", (Option.map x.reason ~f:ExceptionErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ExceptionErrorCode.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" ExceptionErrorCode.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This operation is not supported."]
module ResourceLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The exception error message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your resource limits have been exceeded."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The resource could not be found."];
      resourceId: NonEmptyString.t option
        [@ocaml.doc "The ID of the resource that could not be found."]}
    let make ?message = fun ?resourceId -> fun () -> { message; resourceId }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" NonEmptyString.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource could not be found."]
module ApplicationSettingsRequest =
  struct
    type nonrec t =
      {
      status: ApplicationSettingsStatusEnum.t
        [@ocaml.doc
          "Enables or disables persistent application settings for users during their pool sessions."];
      settingsGroup: SettingsGroup.t option
        [@ocaml.doc
          "The path prefix for the S3 bucket where users\226\128\153 persistent application settings are stored. You can allow the same persistent application settings to be used across multiple pools by specifying the same settings group for each pool."]}
    let context_ = "ApplicationSettingsRequest"
    let make ?settingsGroup =
      fun ~status -> fun () -> { settingsGroup; status }
    let to_value x =
      structure_to_value
        [("Status", (Some (ApplicationSettingsStatusEnum.to_value x.status)));
        ("SettingsGroup",
          (Option.map x.settingsGroup ~f:SettingsGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settingsGroup =
        (Option.map ~f:SettingsGroup.of_xml)
          (Xml.child xml_arg0 "SettingsGroup") in
      let status =
        ApplicationSettingsStatusEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ?settingsGroup ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settingsGroup =
        field_map json__ "SettingsGroup" SettingsGroup.of_json in
      let status =
        field_map_exn json__ "Status" ApplicationSettingsStatusEnum.of_json in
      make ?settingsGroup ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The persistent application settings for WorkSpaces Pools users."]
module Capacity =
  struct
    type nonrec t =
      {
      desiredUserSessions: DesiredUserSessions.t
        [@ocaml.doc
          "The desired number of user sessions for the WorkSpaces in the pool."]}
    let context_ = "Capacity"
    let make ~desiredUserSessions = fun () -> { desiredUserSessions }
    let to_value x =
      structure_to_value
        [("DesiredUserSessions",
           (Some (DesiredUserSessions.to_value x.desiredUserSessions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let desiredUserSessions =
        DesiredUserSessions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DesiredUserSessions") in
      make ~desiredUserSessions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let desiredUserSessions =
        field_map_exn json__ "DesiredUserSessions"
          DesiredUserSessions.of_json in
      make ~desiredUserSessions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the user capacity for a pool of WorkSpaces."]
module ResourceUnavailableException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The exception error message."];
      resourceId: NonEmptyString.t option
        [@ocaml.doc "The identifier of the resource that is not available."]}
    let make ?message = fun ?resourceId -> fun () -> { message; resourceId }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" NonEmptyString.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource is not available."]
module ResourceAssociatedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource is associated with a directory."]
module FailedTerminateWorkspaceRequests =
  struct
    type nonrec t = FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedTerminateWorkspaceRequests"
        ~of_json:FailedWorkspaceChangeRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module TerminateWorkspaceRequests =
  struct
    type nonrec t = TerminateRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:TerminateRequest.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:TerminateRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"TerminateWorkspaceRequests"
        ~of_json:TerminateRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailedStopWorkspaceRequests =
  struct
    type nonrec t = FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedStopWorkspaceRequests"
        ~of_json:FailedWorkspaceChangeRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module StopWorkspaceRequests =
  struct
    type nonrec t = StopRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:StopRequest.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:StopRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"StopWorkspaceRequests" ~of_json:StopRequest.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module FailedStartWorkspaceRequests =
  struct
    type nonrec t = FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedStartWorkspaceRequests"
        ~of_json:FailedWorkspaceChangeRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module StartWorkspaceRequests =
  struct
    type nonrec t = StartRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:StartRequest.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:StartRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"StartWorkspaceRequests"
        ~of_json:StartRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpRevokedRuleList =
  struct
    type nonrec t = IpRule.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:IpRule.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:IpRule.of_xml)
    let of_json j =
      list_of_json ~kind:"IpRevokedRuleList" ~of_json:IpRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The TargetAccountId is already linked or invited."]
module InternalServerException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Unexpected server error occured."]
module ValidationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You either haven't provided a TargetAccountId or are using the same value for TargetAccountId and SourceAccountId."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^.{1,64}$"); 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 ResourceAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource already exists."]
module UnsupportedNetworkConfigurationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration of this network is not supported for this operation, or your network configuration conflicts with the Amazon WorkSpaces management network IP range. For more information, see Configure a VPC for Amazon WorkSpaces."]
module WorkspacesDefaultRoleNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The workspaces_DefaultRole role could not be found. If this is the first time you are registering a directory, you will need to create the workspaces_DefaultRole role before you can register a directory. For more information, see Creating the workspaces_DefaultRole Role."]
module FailedRebuildWorkspaceRequests =
  struct
    type nonrec t = FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedRebuildWorkspaceRequests"
        ~of_json:FailedWorkspaceChangeRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module RebuildWorkspaceRequests =
  struct
    type nonrec t = RebuildRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:RebuildRequest.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:RebuildRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"RebuildWorkspaceRequests"
        ~of_json:RebuildRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailedRebootWorkspaceRequests =
  struct
    type nonrec t = FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.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:FailedWorkspaceChangeRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedRebootWorkspaceRequests"
        ~of_json:FailedWorkspaceChangeRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module RebootWorkspaceRequests =
  struct
    type nonrec t = RebootRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:RebootRequest.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:RebootRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"RebootWorkspaceRequests"
        ~of_json:RebootRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetWorkspaceState =
  struct
    type nonrec t =
      | AVAILABLE 
      | ADMIN_MAINTENANCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | ADMIN_MAINTENANCE -> "ADMIN_MAINTENANCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "ADMIN_MAINTENANCE" -> ADMIN_MAINTENANCE
      | 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 TargetWorkspaceState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetWorkspaceState" j)
    let to_json = simple_to_json to_value
  end
module UnsupportedWorkspaceConfigurationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration of this WorkSpace is not supported for this operation. For more information, see Required Configuration and Service Components for WorkSpaces ."]
module WorkspaceCreationProperties =
  struct
    type nonrec t =
      {
      enableInternetAccess: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether internet access is enabled for your WorkSpaces."];
      defaultOu: DefaultOu.t option
        [@ocaml.doc
          "The default organizational unit (OU) for your WorkSpaces directories. This string must be the full Lightweight Directory Access Protocol (LDAP) distinguished name for the target domain and OU. It must be in the form \"OU=value,DC=value,DC=value\", where value is any string of characters, and the number of domain components (DCs) is two or more. For example, OU=WorkSpaces_machines,DC=machines,DC=example,DC=com. To avoid errors, certain characters in the distinguished name must be escaped. For more information, see Distinguished Names in the Microsoft documentation. The API doesn't validate whether the OU exists."];
      customSecurityGroupId: SecurityGroupId.t option
        [@ocaml.doc "The identifier of your custom security group."];
      userEnabledAsLocalAdministrator: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether users are local administrators of their WorkSpaces."];
      enableMaintenanceMode: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether maintenance mode is enabled for your WorkSpaces. For more information, see WorkSpace Maintenance."];
      instanceIamRoleArn: ARN.t option
        [@ocaml.doc "Indicates the IAM role ARN of the instance."]}
    let make ?enableInternetAccess =
      fun ?defaultOu ->
        fun ?customSecurityGroupId ->
          fun ?userEnabledAsLocalAdministrator ->
            fun ?enableMaintenanceMode ->
              fun ?instanceIamRoleArn ->
                fun () ->
                  {
                    enableInternetAccess;
                    defaultOu;
                    customSecurityGroupId;
                    userEnabledAsLocalAdministrator;
                    enableMaintenanceMode;
                    instanceIamRoleArn
                  }
    let to_value x =
      structure_to_value
        [("EnableInternetAccess",
           (Option.map x.enableInternetAccess ~f:BooleanObject.to_value));
        ("DefaultOu", (Option.map x.defaultOu ~f:DefaultOu.to_value));
        ("CustomSecurityGroupId",
          (Option.map x.customSecurityGroupId ~f:SecurityGroupId.to_value));
        ("UserEnabledAsLocalAdministrator",
          (Option.map x.userEnabledAsLocalAdministrator
             ~f:BooleanObject.to_value));
        ("EnableMaintenanceMode",
          (Option.map x.enableMaintenanceMode ~f:BooleanObject.to_value));
        ("InstanceIamRoleArn",
          (Option.map x.instanceIamRoleArn ~f:ARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceIamRoleArn =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "InstanceIamRoleArn") in
      let enableMaintenanceMode =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "EnableMaintenanceMode") in
      let userEnabledAsLocalAdministrator =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "UserEnabledAsLocalAdministrator") in
      let customSecurityGroupId =
        (Option.map ~f:SecurityGroupId.of_xml)
          (Xml.child xml_arg0 "CustomSecurityGroupId") in
      let defaultOu =
        (Option.map ~f:DefaultOu.of_xml) (Xml.child xml_arg0 "DefaultOu") in
      let enableInternetAccess =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "EnableInternetAccess") in
      make ?instanceIamRoleArn ?enableMaintenanceMode
        ?userEnabledAsLocalAdministrator ?customSecurityGroupId ?defaultOu
        ?enableInternetAccess ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceIamRoleArn =
        field_map json__ "InstanceIamRoleArn" ARN.of_json in
      let enableMaintenanceMode =
        field_map json__ "EnableMaintenanceMode" BooleanObject.of_json in
      let userEnabledAsLocalAdministrator =
        field_map json__ "UserEnabledAsLocalAdministrator"
          BooleanObject.of_json in
      let customSecurityGroupId =
        field_map json__ "CustomSecurityGroupId" SecurityGroupId.of_json in
      let defaultOu = field_map json__ "DefaultOu" DefaultOu.of_json in
      let enableInternetAccess =
        field_map json__ "EnableInternetAccess" BooleanObject.of_json in
      make ?instanceIamRoleArn ?enableMaintenanceMode
        ?userEnabledAsLocalAdministrator ?customSecurityGroupId ?defaultOu
        ?enableInternetAccess ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the default properties that are used for creating WorkSpaces. For more information, see Update Directory Details for Your WorkSpaces."]
module InvalidParameterCombinationException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The exception error message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Two or more of the selected parameter values cannot be used together."]
module DeletableSamlPropertiesList =
  struct
    type nonrec t = DeletableSamlProperty.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:DeletableSamlProperty.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:DeletableSamlProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"DeletableSamlPropertiesList"
        ~of_json:DeletableSamlProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeletableCertificateBasedAuthPropertiesList =
  struct
    type nonrec t = DeletableCertificateBasedAuthProperty.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:DeletableCertificateBasedAuthProperty.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:DeletableCertificateBasedAuthProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"DeletableCertificateBasedAuthPropertiesList"
        ~of_json:DeletableCertificateBasedAuthProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    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:"Message" j
    let to_json = simple_to_json to_value
  end
module DedicatedTenancySupportEnum =
  struct
    type nonrec t =
      | ENABLED 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ENABLED -> "ENABLED" | Non_static_id s -> s
    let of_string = function | "ENABLED" -> ENABLED | 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 DedicatedTenancySupportEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DedicatedTenancySupportEnum" j)
    let to_json = simple_to_json to_value
  end
module DedicatedTenancyCidrRangeList =
  struct
    type nonrec t = DedicatedTenancyManagementCidrRange.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:DedicatedTenancyManagementCidrRange.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:DedicatedTenancyManagementCidrRange.of_xml)
    let of_json j =
      list_of_json ~kind:"DedicatedTenancyCidrRangeList"
        ~of_json:DedicatedTenancyManagementCidrRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    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:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module ManagementCidrRangeConstraint =
  struct
    type nonrec t = string
    let context_ = "ManagementCidrRangeConstraint"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])(\\/(3[0-2]|[1-2][0-9]|[0-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:"ManagementCidrRangeConstraint" j
    let to_json = simple_to_json to_value
  end
module ManagementCidrRangeMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5) >>= (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 ManagementCidrRangeMaxResults"
           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 AccountLinkList =
  struct
    type nonrec t = AccountLink.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:AccountLink.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:AccountLink.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountLinkList" ~of_json:AccountLink.of_json j
    let to_json v = composed_to_json to_value v
  end
module Limit =
  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 Limit" 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 LinkStatusFilterList =
  struct
    type nonrec t = AccountLinkStatusEnum.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:AccountLinkStatusEnum.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:AccountLinkStatusEnum.of_xml)
    let of_json j =
      list_of_json ~kind:"LinkStatusFilterList"
        ~of_json:AccountLinkStatusEnum.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationList =
  struct
    type nonrec t = Application.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:Application.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:Application.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationList" ~of_json:Application.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceImageIngestionProcess =
  struct
    type nonrec t =
      | BYOL_REGULAR 
      | BYOL_GRAPHICS 
      | BYOL_GRAPHICSPRO 
      | BYOL_GRAPHICS_G4DN 
      | BYOL_REGULAR_WSP 
      | BYOL_GRAPHICS_G4DN_WSP 
      | BYOL_REGULAR_BYOP 
      | BYOL_GRAPHICS_G4DN_BYOP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BYOL_REGULAR -> "BYOL_REGULAR"
      | BYOL_GRAPHICS -> "BYOL_GRAPHICS"
      | BYOL_GRAPHICSPRO -> "BYOL_GRAPHICSPRO"
      | BYOL_GRAPHICS_G4DN -> "BYOL_GRAPHICS_G4DN"
      | BYOL_REGULAR_WSP -> "BYOL_REGULAR_WSP"
      | BYOL_GRAPHICS_G4DN_WSP -> "BYOL_GRAPHICS_G4DN_WSP"
      | BYOL_REGULAR_BYOP -> "BYOL_REGULAR_BYOP"
      | BYOL_GRAPHICS_G4DN_BYOP -> "BYOL_GRAPHICS_G4DN_BYOP"
      | Non_static_id s -> s
    let of_string =
      function
      | "BYOL_REGULAR" -> BYOL_REGULAR
      | "BYOL_GRAPHICS" -> BYOL_GRAPHICS
      | "BYOL_GRAPHICSPRO" -> BYOL_GRAPHICSPRO
      | "BYOL_GRAPHICS_G4DN" -> BYOL_GRAPHICS_G4DN
      | "BYOL_REGULAR_WSP" -> BYOL_REGULAR_WSP
      | "BYOL_GRAPHICS_G4DN_WSP" -> BYOL_GRAPHICS_G4DN_WSP
      | "BYOL_REGULAR_BYOP" -> BYOL_REGULAR_BYOP
      | "BYOL_GRAPHICS_G4DN_BYOP" -> BYOL_GRAPHICS_G4DN_BYOP
      | 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 WorkspaceImageIngestionProcess"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkspaceImageIngestionProcess" j)
    let to_json = simple_to_json to_value
  end
module CustomWorkspaceImageImportState =
  struct
    type nonrec t =
      | PENDING 
      | IN_PROGRESS 
      | PROCESSING_SOURCE_IMAGE 
      | IMAGE_TESTING_START 
      | UPDATING_OPERATING_SYSTEM 
      | IMAGE_COMPATIBILITY_CHECKING 
      | IMAGE_TESTING_GENERALIZATION 
      | CREATING_TEST_INSTANCE 
      | INSTALLING_COMPONENTS 
      | GENERALIZING 
      | VALIDATING 
      | PUBLISHING 
      | COMPLETED 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | IN_PROGRESS -> "IN_PROGRESS"
      | PROCESSING_SOURCE_IMAGE -> "PROCESSING_SOURCE_IMAGE"
      | IMAGE_TESTING_START -> "IMAGE_TESTING_START"
      | UPDATING_OPERATING_SYSTEM -> "UPDATING_OPERATING_SYSTEM"
      | IMAGE_COMPATIBILITY_CHECKING -> "IMAGE_COMPATIBILITY_CHECKING"
      | IMAGE_TESTING_GENERALIZATION -> "IMAGE_TESTING_GENERALIZATION"
      | CREATING_TEST_INSTANCE -> "CREATING_TEST_INSTANCE"
      | INSTALLING_COMPONENTS -> "INSTALLING_COMPONENTS"
      | GENERALIZING -> "GENERALIZING"
      | VALIDATING -> "VALIDATING"
      | PUBLISHING -> "PUBLISHING"
      | COMPLETED -> "COMPLETED"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "IN_PROGRESS" -> IN_PROGRESS
      | "PROCESSING_SOURCE_IMAGE" -> PROCESSING_SOURCE_IMAGE
      | "IMAGE_TESTING_START" -> IMAGE_TESTING_START
      | "UPDATING_OPERATING_SYSTEM" -> UPDATING_OPERATING_SYSTEM
      | "IMAGE_COMPATIBILITY_CHECKING" -> IMAGE_COMPATIBILITY_CHECKING
      | "IMAGE_TESTING_GENERALIZATION" -> IMAGE_TESTING_GENERALIZATION
      | "CREATING_TEST_INSTANCE" -> CREATING_TEST_INSTANCE
      | "INSTALLING_COMPONENTS" -> INSTALLING_COMPONENTS
      | "GENERALIZING" -> GENERALIZING
      | "VALIDATING" -> VALIDATING
      | "PUBLISHING" -> PUBLISHING
      | "COMPLETED" -> COMPLETED
      | "ERROR" -> ERROR
      | 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 CustomWorkspaceImageImportState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CustomWorkspaceImageImportState" j)
    let to_json = simple_to_json to_value
  end
module CustomImageProtocol =
  struct
    type nonrec t =
      | PCOIP 
      | DCV 
      | BYOP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PCOIP -> "PCOIP"
      | DCV -> "DCV"
      | BYOP -> "BYOP"
      | Non_static_id s -> s
    let of_string =
      function
      | "PCOIP" -> PCOIP
      | "DCV" -> DCV
      | "BYOP" -> BYOP
      | 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 CustomImageProtocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CustomImageProtocol" j)
    let to_json = simple_to_json to_value
  end
module ImageComputeType =
  struct
    type nonrec t =
      | BASE 
      | GRAPHICS_G4DN 
      | GRAPHICS_G6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASE -> "BASE"
      | GRAPHICS_G4DN -> "GRAPHICS_G4DN"
      | GRAPHICS_G6 -> "GRAPHICS_G6"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASE" -> BASE
      | "GRAPHICS_G4DN" -> GRAPHICS_G4DN
      | "GRAPHICS_G6" -> GRAPHICS_G6
      | 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 ImageComputeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImageComputeType" j)
    let to_json = simple_to_json to_value
  end
module ImageSourceIdentifier =
  struct
    type nonrec t =
      {
      ec2ImportTaskId: Ec2ImportTaskId.t option
        [@ocaml.doc
          "The EC2 import task ID to import the image from the Amazon EC2 VM import process."];
      imageBuildVersionArn: ImageBuildVersionArn.t option
        [@ocaml.doc "The ARN of the EC2 Image Builder image."];
      ec2ImageId: Ec2ImageId.t option
        [@ocaml.doc "The identifier of the EC2 image."]}
    let make ?ec2ImportTaskId =
      fun ?imageBuildVersionArn ->
        fun ?ec2ImageId ->
          fun () -> { ec2ImportTaskId; imageBuildVersionArn; ec2ImageId }
    let to_value x =
      structure_to_value
        [("Ec2ImportTaskId",
           (Option.map x.ec2ImportTaskId ~f:Ec2ImportTaskId.to_value));
        ("ImageBuildVersionArn",
          (Option.map x.imageBuildVersionArn ~f:ImageBuildVersionArn.to_value));
        ("Ec2ImageId", (Option.map x.ec2ImageId ~f:Ec2ImageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ec2ImageId =
        (Option.map ~f:Ec2ImageId.of_xml) (Xml.child xml_arg0 "Ec2ImageId") in
      let imageBuildVersionArn =
        (Option.map ~f:ImageBuildVersionArn.of_xml)
          (Xml.child xml_arg0 "ImageBuildVersionArn") in
      let ec2ImportTaskId =
        (Option.map ~f:Ec2ImportTaskId.of_xml)
          (Xml.child xml_arg0 "Ec2ImportTaskId") in
      make ?ec2ImageId ?imageBuildVersionArn ?ec2ImportTaskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ec2ImageId = field_map json__ "Ec2ImageId" Ec2ImageId.of_json in
      let imageBuildVersionArn =
        field_map json__ "ImageBuildVersionArn" ImageBuildVersionArn.of_json in
      let ec2ImportTaskId =
        field_map json__ "Ec2ImportTaskId" Ec2ImportTaskId.of_json in
      make ?ec2ImageId ?imageBuildVersionArn ?ec2ImportTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the image import source."]
module InfrastructureConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "InfrastructureConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws[^:]*:imagebuilder:[^:]+:(?:[0-9]{12}|aws):infrastructure-configuration/[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:"InfrastructureConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module OSVersion =
  struct
    type nonrec t =
      | Windows_10 
      | Windows_11 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Windows_10 -> "Windows_10"
      | Windows_11 -> "Windows_11"
      | Non_static_id s -> s
    let of_string =
      function
      | "Windows_10" -> Windows_10
      | "Windows_11" -> Windows_11
      | 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 OSVersion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OSVersion" j)
    let to_json = simple_to_json to_value
  end
module Platform =
  struct
    type nonrec t =
      | WINDOWS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | WINDOWS -> "WINDOWS" | Non_static_id s -> s
    let of_string = function | "WINDOWS" -> WINDOWS | 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 Platform" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Platform" j)
    let to_json = simple_to_json to_value
  end
module DefaultClientBrandingAttributes =
  struct
    type nonrec t =
      {
      logoUrl: ClientUrl.t option
        [@ocaml.doc
          "The logo. The only image format accepted is a binary data object that is converted from a .png file."];
      supportEmail: ClientEmail.t option
        [@ocaml.doc
          "The support email. The company's customer support email address. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default email is workspaces-feedback\\@amazon.com."];
      supportLink: ClientUrl.t option
        [@ocaml.doc
          "The support link. The link for the company's customer support page for their WorkSpace. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive.You can specify one parameter for each platform type, but not both. The default support link is workspaces-feedback\\@amazon.com."];
      forgotPasswordLink: ClientUrl.t option
        [@ocaml.doc
          "The forgotten password link. This is the web address that users can go to if they forget the password for their WorkSpace."];
      loginMessage: LoginMessage.t option
        [@ocaml.doc
          "The login message. Specified as a key value pair, in which the key is a locale and the value is the localized message for that locale. The only key supported is en_US. The HTML tags supported include the following: a, b, blockquote, br, cite, code, dd, dl, dt, div, em, i, li, ol, p, pre, q, small, span, strike, strong, sub, sup, u, ul."]}
    let make ?logoUrl =
      fun ?supportEmail ->
        fun ?supportLink ->
          fun ?forgotPasswordLink ->
            fun ?loginMessage ->
              fun () ->
                {
                  logoUrl;
                  supportEmail;
                  supportLink;
                  forgotPasswordLink;
                  loginMessage
                }
    let to_value x =
      structure_to_value
        [("LogoUrl", (Option.map x.logoUrl ~f:ClientUrl.to_value));
        ("SupportEmail", (Option.map x.supportEmail ~f:ClientEmail.to_value));
        ("SupportLink", (Option.map x.supportLink ~f:ClientUrl.to_value));
        ("ForgotPasswordLink",
          (Option.map x.forgotPasswordLink ~f:ClientUrl.to_value));
        ("LoginMessage",
          (Option.map x.loginMessage ~f:LoginMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loginMessage =
        (Option.map ~f:LoginMessage.of_xml)
          (Xml.child xml_arg0 "LoginMessage") in
      let forgotPasswordLink =
        (Option.map ~f:ClientUrl.of_xml)
          (Xml.child xml_arg0 "ForgotPasswordLink") in
      let supportLink =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "SupportLink") in
      let supportEmail =
        (Option.map ~f:ClientEmail.of_xml)
          (Xml.child xml_arg0 "SupportEmail") in
      let logoUrl =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "LogoUrl") in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail
        ?logoUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loginMessage = field_map json__ "LoginMessage" LoginMessage.of_json in
      let forgotPasswordLink =
        field_map json__ "ForgotPasswordLink" ClientUrl.of_json in
      let supportLink = field_map json__ "SupportLink" ClientUrl.of_json in
      let supportEmail = field_map json__ "SupportEmail" ClientEmail.of_json in
      let logoUrl = field_map json__ "LogoUrl" ClientUrl.of_json in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail
        ?logoUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns default client branding attributes that were imported. These attributes display on the client login screen. Client branding attributes are public facing. Ensure that you don't include sensitive information."]
module IosClientBrandingAttributes =
  struct
    type nonrec t =
      {
      logoUrl: ClientUrl.t option
        [@ocaml.doc
          "The logo. This is the standard-resolution display that has a 1:1 pixel density (or \\@1x), where one pixel is equal to one point. The only image format accepted is a binary data object that is converted from a .png file."];
      logo2xUrl: ClientUrl.t option
        [@ocaml.doc
          "The \\@2x version of the logo. This is the higher resolution display that offers a scale factor of 2.0 (or \\@2x). The only image format accepted is a binary data object that is converted from a .png file. For more information about iOS image size and resolution, see Image Size and Resolution in the Apple Human Interface Guidelines."];
      logo3xUrl: ClientUrl.t option
        [@ocaml.doc
          "The \\@3x version of the logo. This is the higher resolution display that offers a scale factor of 3.0 (or \\@3x).The only image format accepted is a binary data object that is converted from a .png file. For more information about iOS image size and resolution, see Image Size and Resolution in the Apple Human Interface Guidelines."];
      supportEmail: ClientEmail.t option
        [@ocaml.doc
          "The support email. The company's customer support email address. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default email is workspaces-feedback\\@amazon.com."];
      supportLink: ClientUrl.t option
        [@ocaml.doc
          "The support link. The link for the company's customer support page for their WorkSpace. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default support link is workspaces-feedback\\@amazon.com."];
      forgotPasswordLink: ClientUrl.t option
        [@ocaml.doc
          "The forgotten password link. This is the web address that users can go to if they forget the password for their WorkSpace."];
      loginMessage: LoginMessage.t option
        [@ocaml.doc
          "The login message. Specified as a key value pair, in which the key is a locale and the value is the localized message for that locale. The only key supported is en_US. The HTML tags supported include the following: a, b, blockquote, br, cite, code, dd, dl, dt, div, em, i, li, ol, p, pre, q, small, span, strike, strong, sub, sup, u, ul."]}
    let make ?logoUrl =
      fun ?logo2xUrl ->
        fun ?logo3xUrl ->
          fun ?supportEmail ->
            fun ?supportLink ->
              fun ?forgotPasswordLink ->
                fun ?loginMessage ->
                  fun () ->
                    {
                      logoUrl;
                      logo2xUrl;
                      logo3xUrl;
                      supportEmail;
                      supportLink;
                      forgotPasswordLink;
                      loginMessage
                    }
    let to_value x =
      structure_to_value
        [("LogoUrl", (Option.map x.logoUrl ~f:ClientUrl.to_value));
        ("Logo2xUrl", (Option.map x.logo2xUrl ~f:ClientUrl.to_value));
        ("Logo3xUrl", (Option.map x.logo3xUrl ~f:ClientUrl.to_value));
        ("SupportEmail", (Option.map x.supportEmail ~f:ClientEmail.to_value));
        ("SupportLink", (Option.map x.supportLink ~f:ClientUrl.to_value));
        ("ForgotPasswordLink",
          (Option.map x.forgotPasswordLink ~f:ClientUrl.to_value));
        ("LoginMessage",
          (Option.map x.loginMessage ~f:LoginMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loginMessage =
        (Option.map ~f:LoginMessage.of_xml)
          (Xml.child xml_arg0 "LoginMessage") in
      let forgotPasswordLink =
        (Option.map ~f:ClientUrl.of_xml)
          (Xml.child xml_arg0 "ForgotPasswordLink") in
      let supportLink =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "SupportLink") in
      let supportEmail =
        (Option.map ~f:ClientEmail.of_xml)
          (Xml.child xml_arg0 "SupportEmail") in
      let logo3xUrl =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "Logo3xUrl") in
      let logo2xUrl =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "Logo2xUrl") in
      let logoUrl =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "LogoUrl") in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail
        ?logo3xUrl ?logo2xUrl ?logoUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loginMessage = field_map json__ "LoginMessage" LoginMessage.of_json in
      let forgotPasswordLink =
        field_map json__ "ForgotPasswordLink" ClientUrl.of_json in
      let supportLink = field_map json__ "SupportLink" ClientUrl.of_json in
      let supportEmail = field_map json__ "SupportEmail" ClientEmail.of_json in
      let logo3xUrl = field_map json__ "Logo3xUrl" ClientUrl.of_json in
      let logo2xUrl = field_map json__ "Logo2xUrl" ClientUrl.of_json in
      let logoUrl = field_map json__ "LogoUrl" ClientUrl.of_json in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail
        ?logo3xUrl ?logo2xUrl ?logoUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client branding attributes for iOS device types. These attributes are displayed on the iOS client login screen only. Client branding attributes are public facing. Ensure you do not include sensitive information."]
module DefaultImportClientBrandingAttributes =
  struct
    type nonrec t =
      {
      logo: DefaultLogo.t option
        [@ocaml.doc
          "The logo. The only image format accepted is a binary data object that is converted from a .png file."];
      supportEmail: ClientEmail.t option
        [@ocaml.doc
          "The support email. The company's customer support email address. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default email is workspaces-feedback\\@amazon.com."];
      supportLink: ClientUrl.t option
        [@ocaml.doc
          "The support link. The link for the company's customer support page for their WorkSpace. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default support link is workspaces-feedback\\@amazon.com."];
      forgotPasswordLink: ClientUrl.t option
        [@ocaml.doc
          "The forgotten password link. This is the web address that users can go to if they forget the password for their WorkSpace."];
      loginMessage: LoginMessage.t option
        [@ocaml.doc
          "The login message. Specified as a key value pair, in which the key is a locale and the value is the localized message for that locale. The only key supported is en_US. The HTML tags supported include the following: a, b, blockquote, br, cite, code, dd, dl, dt, div, em, i, li, ol, p, pre, q, small, span, strike, strong, sub, sup, u, ul."]}
    let make ?logo =
      fun ?supportEmail ->
        fun ?supportLink ->
          fun ?forgotPasswordLink ->
            fun ?loginMessage ->
              fun () ->
                {
                  logo;
                  supportEmail;
                  supportLink;
                  forgotPasswordLink;
                  loginMessage
                }
    let to_value x =
      structure_to_value
        [("Logo", (Option.map x.logo ~f:DefaultLogo.to_value));
        ("SupportEmail", (Option.map x.supportEmail ~f:ClientEmail.to_value));
        ("SupportLink", (Option.map x.supportLink ~f:ClientUrl.to_value));
        ("ForgotPasswordLink",
          (Option.map x.forgotPasswordLink ~f:ClientUrl.to_value));
        ("LoginMessage",
          (Option.map x.loginMessage ~f:LoginMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loginMessage =
        (Option.map ~f:LoginMessage.of_xml)
          (Xml.child xml_arg0 "LoginMessage") in
      let forgotPasswordLink =
        (Option.map ~f:ClientUrl.of_xml)
          (Xml.child xml_arg0 "ForgotPasswordLink") in
      let supportLink =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "SupportLink") in
      let supportEmail =
        (Option.map ~f:ClientEmail.of_xml)
          (Xml.child xml_arg0 "SupportEmail") in
      let logo =
        (Option.map ~f:DefaultLogo.of_xml) (Xml.child xml_arg0 "Logo") in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail ?logo
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loginMessage = field_map json__ "LoginMessage" LoginMessage.of_json in
      let forgotPasswordLink =
        field_map json__ "ForgotPasswordLink" ClientUrl.of_json in
      let supportLink = field_map json__ "SupportLink" ClientUrl.of_json in
      let supportEmail = field_map json__ "SupportEmail" ClientEmail.of_json in
      let logo = field_map json__ "Logo" DefaultLogo.of_json in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail ?logo
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The default client branding attributes to be imported. These attributes display on the client login screen. Client branding attributes are public facing. Ensure that you do not include sensitive information."]
module IosImportClientBrandingAttributes =
  struct
    type nonrec t =
      {
      logo: IosLogo.t option
        [@ocaml.doc
          "The logo. This is the standard-resolution display that has a 1:1 pixel density (or \\@1x), where one pixel is equal to one point. The only image format accepted is a binary data object that is converted from a .png file."];
      logo2x: Ios2XLogo.t option
        [@ocaml.doc
          "The \\@2x version of the logo. This is the higher resolution display that offers a scale factor of 2.0 (or \\@2x). The only image format accepted is a binary data object that is converted from a .png file. For more information about iOS image size and resolution, see Image Size and Resolution in the Apple Human Interface Guidelines."];
      logo3x: Ios3XLogo.t option
        [@ocaml.doc
          "The \\@3x version of the logo. This is the higher resolution display that offers a scale factor of 3.0 (or \\@3x). The only image format accepted is a binary data object that is converted from a .png file. For more information about iOS image size and resolution, see Image Size and Resolution in the Apple Human Interface Guidelines."];
      supportEmail: ClientEmail.t option
        [@ocaml.doc
          "The support email. The company's customer support email address. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default email is workspaces-feedback\\@amazon.com."];
      supportLink: ClientUrl.t option
        [@ocaml.doc
          "The support link. The link for the company's customer support page for their WorkSpace. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify one parameter for each platform type, but not both. The default support link is workspaces-feedback\\@amazon.com."];
      forgotPasswordLink: ClientUrl.t option
        [@ocaml.doc
          "The forgotten password link. This is the web address that users can go to if they forget the password for their WorkSpace."];
      loginMessage: LoginMessage.t option
        [@ocaml.doc
          "The login message. Specified as a key value pair, in which the key is a locale and the value is the localized message for that locale. The only key supported is en_US. The HTML tags supported include the following: a, b, blockquote, br, cite, code, dd, dl, dt, div, em, i, li, ol, p, pre, q, small, span, strike, strong, sub, sup, u, ul."]}
    let make ?logo =
      fun ?logo2x ->
        fun ?logo3x ->
          fun ?supportEmail ->
            fun ?supportLink ->
              fun ?forgotPasswordLink ->
                fun ?loginMessage ->
                  fun () ->
                    {
                      logo;
                      logo2x;
                      logo3x;
                      supportEmail;
                      supportLink;
                      forgotPasswordLink;
                      loginMessage
                    }
    let to_value x =
      structure_to_value
        [("Logo", (Option.map x.logo ~f:IosLogo.to_value));
        ("Logo2x", (Option.map x.logo2x ~f:Ios2XLogo.to_value));
        ("Logo3x", (Option.map x.logo3x ~f:Ios3XLogo.to_value));
        ("SupportEmail", (Option.map x.supportEmail ~f:ClientEmail.to_value));
        ("SupportLink", (Option.map x.supportLink ~f:ClientUrl.to_value));
        ("ForgotPasswordLink",
          (Option.map x.forgotPasswordLink ~f:ClientUrl.to_value));
        ("LoginMessage",
          (Option.map x.loginMessage ~f:LoginMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loginMessage =
        (Option.map ~f:LoginMessage.of_xml)
          (Xml.child xml_arg0 "LoginMessage") in
      let forgotPasswordLink =
        (Option.map ~f:ClientUrl.of_xml)
          (Xml.child xml_arg0 "ForgotPasswordLink") in
      let supportLink =
        (Option.map ~f:ClientUrl.of_xml) (Xml.child xml_arg0 "SupportLink") in
      let supportEmail =
        (Option.map ~f:ClientEmail.of_xml)
          (Xml.child xml_arg0 "SupportEmail") in
      let logo3x =
        (Option.map ~f:Ios3XLogo.of_xml) (Xml.child xml_arg0 "Logo3x") in
      let logo2x =
        (Option.map ~f:Ios2XLogo.of_xml) (Xml.child xml_arg0 "Logo2x") in
      let logo = (Option.map ~f:IosLogo.of_xml) (Xml.child xml_arg0 "Logo") in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail
        ?logo3x ?logo2x ?logo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loginMessage = field_map json__ "LoginMessage" LoginMessage.of_json in
      let forgotPasswordLink =
        field_map json__ "ForgotPasswordLink" ClientUrl.of_json in
      let supportLink = field_map json__ "SupportLink" ClientUrl.of_json in
      let supportEmail = field_map json__ "SupportEmail" ClientEmail.of_json in
      let logo3x = field_map json__ "Logo3x" Ios3XLogo.of_json in
      let logo2x = field_map json__ "Logo2x" Ios2XLogo.of_json in
      let logo = field_map json__ "Logo" IosLogo.of_json in
      make ?loginMessage ?forgotPasswordLink ?supportLink ?supportEmail
        ?logo3x ?logo2x ?logo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client branding attributes to import for iOS device types. These attributes are displayed on the iOS client login screen. Client branding attributes are public facing. Ensure you do not include sensitive information."]
module ResourceInUseException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      resourceId: NonEmptyString.t option
        [@ocaml.doc "The ID of the resource that is in use."]}
    let make ?message = fun ?resourceId -> fun () -> { message; resourceId }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" NonEmptyString.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource is currently in use."]
module WorkspaceList =
  struct
    type nonrec t = Workspace.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:Workspace.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:Workspace.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceList" ~of_json:Workspace.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceIdList =
  struct
    type nonrec t = WorkspaceId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:WorkspaceId.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:WorkspaceId.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceIdList" ~of_json:WorkspaceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspacesPools =
  struct
    type nonrec t = WorkspacesPool.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:WorkspacesPool.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:WorkspacesPool.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspacesPools" ~of_json:WorkspacesPool.of_json j
    let to_json v = composed_to_json to_value v
  end
module DescribeWorkspacesPoolsFilters =
  struct
    type nonrec t = DescribeWorkspacesPoolsFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:DescribeWorkspacesPoolsFilter.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:DescribeWorkspacesPoolsFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribeWorkspacesPoolsFilters"
        ~of_json:DescribeWorkspacesPoolsFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspacesPoolIds =
  struct
    type nonrec t = WorkspacesPoolId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:WorkspacesPoolId.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:WorkspacesPoolId.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspacesPoolIds"
        ~of_json:WorkspacesPoolId.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspacesPoolSessions =
  struct
    type nonrec t = WorkspacesPoolSession.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:WorkspacesPoolSession.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:WorkspacesPoolSession.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspacesPoolSessions"
        ~of_json:WorkspacesPoolSession.of_json j
    let to_json v = composed_to_json to_value v
  end
module Limit50 =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 Limit50" 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 WorkspaceConnectionStatusList =
  struct
    type nonrec t = WorkspaceConnectionStatus.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:WorkspaceConnectionStatus.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:WorkspaceConnectionStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceConnectionStatusList"
        ~of_json:WorkspaceConnectionStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module SnapshotList =
  struct
    type nonrec t = Snapshot.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:Snapshot.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:Snapshot.of_xml)
    let of_json j =
      list_of_json ~kind:"SnapshotList" ~of_json:Snapshot.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceImageList =
  struct
    type nonrec t = WorkspaceImage.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:WorkspaceImage.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:WorkspaceImage.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceImageList" ~of_json:WorkspaceImage.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ImageType =
  struct
    type nonrec t =
      | OWNED 
      | SHARED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OWNED -> "OWNED" | SHARED -> "SHARED" | Non_static_id s -> s
    let of_string =
      function | "OWNED" -> OWNED | "SHARED" -> SHARED | 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 ImageType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImageType" j)
    let to_json = simple_to_json to_value
  end
module WorkspaceImageIdList =
  struct
    type nonrec t = WorkspaceImageId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:WorkspaceImageId.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:WorkspaceImageId.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceImageIdList"
        ~of_json:WorkspaceImageId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImagePermissions =
  struct
    type nonrec t = ImagePermission.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:ImagePermission.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:ImagePermission.of_xml)
    let of_json j =
      list_of_json ~kind:"ImagePermissions" ~of_json:ImagePermission.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DirectoryList =
  struct
    type nonrec t = WorkspaceDirectory.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:WorkspaceDirectory.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:WorkspaceDirectory.of_xml)
    let of_json j =
      list_of_json ~kind:"DirectoryList" ~of_json:WorkspaceDirectory.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DescribeWorkspaceDirectoriesFilterList =
  struct
    type nonrec t = DescribeWorkspaceDirectoriesFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:DescribeWorkspaceDirectoriesFilter.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:DescribeWorkspaceDirectoriesFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"DescribeWorkspaceDirectoriesFilterList"
        ~of_json:DescribeWorkspaceDirectoriesFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module DirectoryIdList =
  struct
    type nonrec t = DirectoryId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:DirectoryId.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:DirectoryId.of_xml)
    let of_json j =
      list_of_json ~kind:"DirectoryIdList" ~of_json:DirectoryId.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceDirectoryNameList =
  struct
    type nonrec t = WorkspaceDirectoryName.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:WorkspaceDirectoryName.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:WorkspaceDirectoryName.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceDirectoryNameList"
        ~of_json:WorkspaceDirectoryName.of_json j
    let to_json v = composed_to_json to_value v
  end
module BundleList =
  struct
    type nonrec t = WorkspaceBundle.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:WorkspaceBundle.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:WorkspaceBundle.of_xml)
    let of_json j =
      list_of_json ~kind:"BundleList" ~of_json:WorkspaceBundle.of_json j
    let to_json v = composed_to_json to_value v
  end
module BundleIdList =
  struct
    type nonrec t = BundleId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:BundleId.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:BundleId.of_xml)
    let of_json j =
      list_of_json ~kind:"BundleIdList" ~of_json:BundleId.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkSpaceAssociatedResourceTypeList =
  struct
    type nonrec t = WorkSpaceAssociatedResourceType.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:WorkSpaceAssociatedResourceType.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:WorkSpaceAssociatedResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkSpaceAssociatedResourceTypeList"
        ~of_json:WorkSpaceAssociatedResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspacesIpGroupsList =
  struct
    type nonrec t = WorkspacesIpGroup.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:WorkspacesIpGroup.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:WorkspacesIpGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspacesIpGroupsList"
        ~of_json:WorkspacesIpGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageResourceAssociationList =
  struct
    type nonrec t = ImageResourceAssociation.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:ImageResourceAssociation.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:ImageResourceAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageResourceAssociationList"
        ~of_json:ImageResourceAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageAssociatedResourceTypeList =
  struct
    type nonrec t = ImageAssociatedResourceType.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:ImageAssociatedResourceType.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:ImageAssociatedResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageAssociatedResourceTypeList"
        ~of_json:ImageAssociatedResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomWorkspaceImageImportErrorDetailsList =
  struct
    type nonrec t = CustomWorkspaceImageImportErrorDetails.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:CustomWorkspaceImageImportErrorDetails.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:CustomWorkspaceImageImportErrorDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomWorkspaceImageImportErrorDetailsList"
        ~of_json:CustomWorkspaceImageImportErrorDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module Percentage =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 Percentage" 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 WorkflowStateMessage =
  struct
    type nonrec t = string
    let context_ = "WorkflowStateMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"WorkflowStateMessage" j
    let to_json = simple_to_json to_value
  end
module ConnectionAliasList =
  struct
    type nonrec t = ConnectionAlias.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:ConnectionAlias.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:ConnectionAlias.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionAliasList"
        ~of_json:ConnectionAlias.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionAliasIdList =
  struct
    type nonrec t = ConnectionAliasId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:ConnectionAliasId.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:ConnectionAliasId.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionAliasIdList"
        ~of_json:ConnectionAliasId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionAliasPermissions =
  struct
    type nonrec t = ConnectionAliasPermission.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:ConnectionAliasPermission.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:ConnectionAliasPermission.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionAliasPermissions"
        ~of_json:ConnectionAliasPermission.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectClientAddInList =
  struct
    type nonrec t = ConnectClientAddIn.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:ConnectClientAddIn.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:ConnectClientAddIn.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectClientAddInList"
        ~of_json:ConnectClientAddIn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientPropertiesList =
  struct
    type nonrec t = ClientPropertiesResult.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:ClientPropertiesResult.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:ClientPropertiesResult.of_xml)
    let of_json j =
      list_of_json ~kind:"ClientPropertiesList"
        ~of_json:ClientPropertiesResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceIdList =
  struct
    type nonrec t = NonEmptyString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:NonEmptyString.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:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceIdList" ~of_json:NonEmptyString.of_json j
    let to_json v = composed_to_json to_value v
  end
module BundleResourceAssociationList =
  struct
    type nonrec t = BundleResourceAssociation.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:BundleResourceAssociation.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:BundleResourceAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"BundleResourceAssociationList"
        ~of_json:BundleResourceAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module BundleAssociatedResourceTypeList =
  struct
    type nonrec t = BundleAssociatedResourceType.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:BundleAssociatedResourceType.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:BundleAssociatedResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"BundleAssociatedResourceTypeList"
        ~of_json:BundleAssociatedResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkSpaceApplicationList =
  struct
    type nonrec t = WorkSpaceApplication.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:WorkSpaceApplication.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:WorkSpaceApplication.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkSpaceApplicationList"
        ~of_json:WorkSpaceApplication.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkSpaceApplicationIdList =
  struct
    type nonrec t = WorkSpaceApplicationId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:WorkSpaceApplicationId.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:WorkSpaceApplicationId.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkSpaceApplicationIdList"
        ~of_json:WorkSpaceApplicationId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationResourceAssociationList =
  struct
    type nonrec t = ApplicationResourceAssociation.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:ApplicationResourceAssociation.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:ApplicationResourceAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationResourceAssociationList"
        ~of_json:ApplicationResourceAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationAssociatedResourceTypeList =
  struct
    type nonrec t = ApplicationAssociatedResourceType.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:ApplicationAssociatedResourceType.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:ApplicationAssociatedResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationAssociatedResourceTypeList"
        ~of_json:ApplicationAssociatedResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DedicatedTenancyAccountType =
  struct
    type nonrec t =
      | SOURCE_ACCOUNT 
      | TARGET_ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOURCE_ACCOUNT -> "SOURCE_ACCOUNT"
      | TARGET_ACCOUNT -> "TARGET_ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOURCE_ACCOUNT" -> SOURCE_ACCOUNT
      | "TARGET_ACCOUNT" -> TARGET_ACCOUNT
      | 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 DedicatedTenancyAccountType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DedicatedTenancyAccountType" j)
    let to_json = simple_to_json to_value
  end
module AccountModificationList =
  struct
    type nonrec t = AccountModification.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:AccountModification.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:AccountModification.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountModificationList"
        ~of_json:AccountModification.of_json j
    let to_json v = composed_to_json to_value v
  end
module IncompatibleApplicationsException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "The specified application is not compatible with the resource."]
module WorkSpaceApplicationDeployment =
  struct
    type nonrec t =
      {
      associations: WorkspaceResourceAssociationList.t option
        [@ocaml.doc
          "The associations between the applications and the associated resources."]}
    let make ?associations = fun () -> { associations }
    let to_value x =
      structure_to_value
        [("Associations",
           (Option.map x.associations
              ~f:WorkspaceResourceAssociationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associations =
        (Option.map ~f:WorkspaceResourceAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      make ?associations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associations =
        field_map json__ "Associations"
          WorkspaceResourceAssociationList.of_json in
      make ?associations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the WorkSpace application deployment."]
module TagKeyList =
  struct
    type nonrec t = NonEmptyString.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:NonEmptyString.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:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeyList" ~of_json:NonEmptyString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientDeviceTypeList =
  struct
    type nonrec t = ClientDeviceType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:6) >>= (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:ClientDeviceType.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:ClientDeviceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ClientDeviceTypeList"
        ~of_json:ClientDeviceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailedCreateWorkspaceRequests =
  struct
    type nonrec t = FailedCreateWorkspaceRequest.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:FailedCreateWorkspaceRequest.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:FailedCreateWorkspaceRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedCreateWorkspaceRequests"
        ~of_json:FailedCreateWorkspaceRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceRequestList =
  struct
    type nonrec t = WorkspaceRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:WorkspaceRequest.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:WorkspaceRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkspaceRequestList"
        ~of_json:WorkspaceRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkspaceBundleDescription =
  struct
    type nonrec t = string
    let context_ = "WorkspaceBundleDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9_./() -]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WorkspaceBundleDescription" j
    let to_json = simple_to_json to_value
  end
module WorkspaceBundleName =
  struct
    type nonrec t = string
    let context_ = "WorkspaceBundleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z0-9_./()\\\\-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WorkspaceBundleName" j
    let to_json = simple_to_json to_value
  end
module FailedCreateStandbyWorkspacesRequestList =
  struct
    type nonrec t = FailedCreateStandbyWorkspacesRequest.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:FailedCreateStandbyWorkspacesRequest.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:FailedCreateStandbyWorkspacesRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FailedCreateStandbyWorkspacesRequestList"
        ~of_json:FailedCreateStandbyWorkspacesRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module PendingCreateStandbyWorkspacesRequestList =
  struct
    type nonrec t = PendingCreateStandbyWorkspacesRequest.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:PendingCreateStandbyWorkspacesRequest.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:PendingCreateStandbyWorkspacesRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"PendingCreateStandbyWorkspacesRequestList"
        ~of_json:PendingCreateStandbyWorkspacesRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module StandbyWorkspacesList =
  struct
    type nonrec t = StandbyWorkspace.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:StandbyWorkspace.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:StandbyWorkspace.of_xml)
    let of_json j =
      list_of_json ~kind:"StandbyWorkspacesList"
        ~of_json:StandbyWorkspace.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceCreationFailedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource could not be created."]
module ApplicationNotSupportedException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "The specified application is not supported."]
module ComputeNotCompatibleException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "The compute type of the WorkSpace is not compatible with the application."]
module OperatingSystemNotCompatibleException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "The operating system of the WorkSpace is not compatible with the application."]
module UpdateWorkspacesPoolResult =
  struct
    type nonrec t =
      {
      workspacesPool: WorkspacesPool.t option
        [@ocaml.doc "Describes the specified pool."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspacesPool = fun () -> { workspacesPool }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkspacesPool",
           (Option.map x.workspacesPool ~f:WorkspacesPool.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspacesPool =
        (Option.map ~f:WorkspacesPool.of_xml)
          (Xml.child xml_arg0 "WorkspacesPool") in
      make ?workspacesPool ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspacesPool =
        field_map json__ "WorkspacesPool" WorkspacesPool.of_json in
      make ?workspacesPool ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified pool."]
module UpdateWorkspacesPoolRequest =
  struct
    type nonrec t =
      {
      poolId: WorkspacesPoolId.t
        [@ocaml.doc "The identifier of the specified pool to update."];
      description: UpdateDescription.t option
        [@ocaml.doc "Describes the specified pool to update."];
      bundleId: BundleId.t option
        [@ocaml.doc "The identifier of the bundle."];
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory."];
      capacity: Capacity.t option
        [@ocaml.doc "The desired capacity for the pool."];
      applicationSettings: ApplicationSettingsRequest.t option
        [@ocaml.doc
          "The persistent application settings for users in the pool."];
      timeoutSettings: TimeoutSettings.t option
        [@ocaml.doc "Indicates the timeout settings of the specified pool."];
      runningMode: PoolsRunningMode.t option
        [@ocaml.doc
          "The desired running mode for the pool. The running mode can only be updated when the pool is in a stopped state."]}
    let context_ = "UpdateWorkspacesPoolRequest"
    let make ?description =
      fun ?bundleId ->
        fun ?directoryId ->
          fun ?capacity ->
            fun ?applicationSettings ->
              fun ?timeoutSettings ->
                fun ?runningMode ->
                  fun ~poolId ->
                    fun () ->
                      {
                        description;
                        bundleId;
                        directoryId;
                        capacity;
                        applicationSettings;
                        timeoutSettings;
                        runningMode;
                        poolId
                      }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (WorkspacesPoolId.to_value x.poolId)));
        ("Description",
          (Option.map x.description ~f:UpdateDescription.to_value));
        ("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("Capacity", (Option.map x.capacity ~f:Capacity.to_value));
        ("ApplicationSettings",
          (Option.map x.applicationSettings
             ~f:ApplicationSettingsRequest.to_value));
        ("TimeoutSettings",
          (Option.map x.timeoutSettings ~f:TimeoutSettings.to_value));
        ("RunningMode",
          (Option.map x.runningMode ~f:PoolsRunningMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let runningMode =
        (Option.map ~f:PoolsRunningMode.of_xml)
          (Xml.child xml_arg0 "RunningMode") in
      let timeoutSettings =
        (Option.map ~f:TimeoutSettings.of_xml)
          (Xml.child xml_arg0 "TimeoutSettings") in
      let applicationSettings =
        (Option.map ~f:ApplicationSettingsRequest.of_xml)
          (Xml.child xml_arg0 "ApplicationSettings") in
      let capacity =
        (Option.map ~f:Capacity.of_xml) (Xml.child xml_arg0 "Capacity") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      let description =
        (Option.map ~f:UpdateDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let poolId =
        WorkspacesPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ?runningMode ?timeoutSettings ?applicationSettings ?capacity
        ?directoryId ?bundleId ?description ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let runningMode =
        field_map json__ "RunningMode" PoolsRunningMode.of_json in
      let timeoutSettings =
        field_map json__ "TimeoutSettings" TimeoutSettings.of_json in
      let applicationSettings =
        field_map json__ "ApplicationSettings"
          ApplicationSettingsRequest.of_json in
      let capacity = field_map json__ "Capacity" Capacity.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      let description =
        field_map json__ "Description" UpdateDescription.of_json in
      let poolId = field_map_exn json__ "PoolId" WorkspacesPoolId.of_json in
      make ?runningMode ?timeoutSettings ?applicationSettings ?capacity
        ?directoryId ?bundleId ?description ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified pool."]
module UpdateWorkspaceImagePermissionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
       "Shares or unshares an image with one account in the same Amazon Web Services Region by specifying whether that account has permission to copy the image. If the copy image permission is granted, the image is shared with that account. If the copy image permission is revoked, the image is unshared with the account. After an image has been shared, the recipient account can copy the image to other Regions as needed. In the China (Ningxia) Region, you can copy images only within the same Region. In Amazon Web Services GovCloud (US), to copy images to and from other Regions, contact Amazon Web Services Support. For more information about sharing images, see Share or Unshare a Custom WorkSpaces Image. To delete an image that has been shared, you must unshare the image before you delete it. Sharing Bring Your Own License (BYOL) images across Amazon Web Services accounts isn't supported at this time in Amazon Web Services GovCloud (US). To share BYOL images across accounts in Amazon Web Services GovCloud (US), contact Amazon Web Services Support."]
module UpdateWorkspaceImagePermissionRequest =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t [@ocaml.doc "The identifier of the image."];
      allowCopyImage: BooleanObject.t
        [@ocaml.doc
          "The permission to copy the image. This permission can be revoked only after an image has been shared."];
      sharedAccountId: AwsAccount.t
        [@ocaml.doc
          "The identifier of the Amazon Web Services account to share or unshare the image with. Before sharing the image, confirm that you are sharing to the correct Amazon Web Services account ID."]}
    let context_ = "UpdateWorkspaceImagePermissionRequest"
    let make ~imageId =
      fun ~allowCopyImage ->
        fun ~sharedAccountId ->
          fun () -> { imageId; allowCopyImage; sharedAccountId }
    let to_value x =
      structure_to_value
        [("ImageId", (Some (WorkspaceImageId.to_value x.imageId)));
        ("AllowCopyImage", (Some (BooleanObject.to_value x.allowCopyImage)));
        ("SharedAccountId", (Some (AwsAccount.to_value x.sharedAccountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedAccountId =
        AwsAccount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SharedAccountId") in
      let allowCopyImage =
        BooleanObject.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AllowCopyImage") in
      let imageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageId") in
      make ~sharedAccountId ~allowCopyImage ~imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedAccountId =
        field_map_exn json__ "SharedAccountId" AwsAccount.of_json in
      let allowCopyImage =
        field_map_exn json__ "AllowCopyImage" BooleanObject.of_json in
      let imageId = field_map_exn json__ "ImageId" WorkspaceImageId.of_json in
      make ~sharedAccountId ~allowCopyImage ~imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shares or unshares an image with one account in the same Amazon Web Services Region by specifying whether that account has permission to copy the image. If the copy image permission is granted, the image is shared with that account. If the copy image permission is revoked, the image is unshared with the account. After an image has been shared, the recipient account can copy the image to other Regions as needed. In the China (Ningxia) Region, you can copy images only within the same Region. In Amazon Web Services GovCloud (US), to copy images to and from other Regions, contact Amazon Web Services Support. For more information about sharing images, see Share or Unshare a Custom WorkSpaces Image. To delete an image that has been shared, you must unshare the image before you delete it. Sharing Bring Your Own License (BYOL) images across Amazon Web Services accounts isn't supported at this time in Amazon Web Services GovCloud (US). To share BYOL images across accounts in Amazon Web Services GovCloud (US), contact Amazon Web Services Support."]
module UpdateWorkspaceBundleResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
       "Updates a WorkSpace bundle with a new image. For more information about updating WorkSpace bundles, see Update a Custom WorkSpaces Bundle. Existing WorkSpaces aren't automatically updated when you update the bundle that they're based on. To update existing WorkSpaces that are based on a bundle that you've updated, you must either rebuild the WorkSpaces or delete and recreate them."]
module UpdateWorkspaceBundleRequest =
  struct
    type nonrec t =
      {
      bundleId: BundleId.t option
        [@ocaml.doc "The identifier of the bundle."];
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the image."]}
    let make ?bundleId = fun ?imageId -> fun () -> { bundleId; imageId }
    let to_value x =
      structure_to_value
        [("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      make ?imageId ?bundleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      make ?imageId ?bundleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a WorkSpace bundle with a new image. For more information about updating WorkSpace bundles, see Update a Custom WorkSpaces Bundle. Existing WorkSpaces aren't automatically updated when you update the bundle that they're based on. To update existing WorkSpaces that are based on a bundle that you've updated, you must either rebuild the WorkSpaces or delete and recreate them."]
module UpdateRulesOfIpGroupResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Replaces the current rules of the specified IP access control group with the specified rules."]
module UpdateRulesOfIpGroupRequest =
  struct
    type nonrec t =
      {
      groupId: IpGroupId.t [@ocaml.doc "The identifier of the group."];
      userRules: IpRuleList.t [@ocaml.doc "One or more rules."]}
    let context_ = "UpdateRulesOfIpGroupRequest"
    let make ~groupId = fun ~userRules -> fun () -> { groupId; userRules }
    let to_value x =
      structure_to_value
        [("GroupId", (Some (IpGroupId.to_value x.groupId)));
        ("UserRules", (Some (IpRuleList.to_value x.userRules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userRules =
        IpRuleList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserRules") in
      let groupId =
        IpGroupId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GroupId") in
      make ~userRules ~groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userRules = field_map_exn json__ "UserRules" IpRuleList.of_json in
      let groupId = field_map_exn json__ "GroupId" IpGroupId.of_json in
      make ~userRules ~groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Replaces the current rules of the specified IP access control group with the specified rules."]
module UpdateConnectionAliasPermissionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAssociatedException of ResourceAssociatedException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAssociatedException e ->
          `Assoc
            [("error", (`String "ResourceAssociatedException"));
            ("details", (ResourceAssociatedException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shares or unshares a connection alias with one account by specifying whether that account has permission to associate the connection alias with a directory. If the association permission is granted, the connection alias is shared with that account. If the association permission is revoked, the connection alias is unshared with the account. For more information, see Cross-Region Redirection for Amazon WorkSpaces. Before performing this operation, call DescribeConnectionAliases to make sure that the current state of the connection alias is CREATED. To delete a connection alias that has been shared, the shared account must first disassociate the connection alias from any directories it has been associated with. Then you must unshare the connection alias from the account it has been shared with. You can delete a connection alias only after it is no longer shared with any accounts or associated with any directories."]
module UpdateConnectionAliasPermissionRequest =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t
        [@ocaml.doc
          "The identifier of the connection alias that you want to update permissions for."];
      connectionAliasPermission: ConnectionAliasPermission.t
        [@ocaml.doc
          "Indicates whether to share or unshare the connection alias with the specified Amazon Web Services account."]}
    let context_ = "UpdateConnectionAliasPermissionRequest"
    let make ~aliasId =
      fun ~connectionAliasPermission ->
        fun () -> { aliasId; connectionAliasPermission }
    let to_value x =
      structure_to_value
        [("AliasId", (Some (ConnectionAliasId.to_value x.aliasId)));
        ("ConnectionAliasPermission",
          (Some
             (ConnectionAliasPermission.to_value x.connectionAliasPermission)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionAliasPermission =
        ConnectionAliasPermission.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ConnectionAliasPermission") in
      let aliasId =
        ConnectionAliasId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasId") in
      make ~connectionAliasPermission ~aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionAliasPermission =
        field_map_exn json__ "ConnectionAliasPermission"
          ConnectionAliasPermission.of_json in
      let aliasId = field_map_exn json__ "AliasId" ConnectionAliasId.of_json in
      make ~connectionAliasPermission ~aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shares or unshares a connection alias with one account by specifying whether that account has permission to associate the connection alias with a directory. If the association permission is granted, the connection alias is shared with that account. If the association permission is revoked, the connection alias is unshared with the account. For more information, see Cross-Region Redirection for Amazon WorkSpaces. Before performing this operation, call DescribeConnectionAliases to make sure that the current state of the connection alias is CREATED. To delete a connection alias that has been shared, the shared account must first disassociate the connection alias from any directories it has been associated with. Then you must unshare the connection alias from the account it has been shared with. You can delete a connection alias only after it is no longer shared with any accounts or associated with any directories."]
module UpdateConnectClientAddInResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Amazon Connect client add-in. Use this action to update the name and endpoint URL of a Amazon Connect client add-in."]
module UpdateConnectClientAddInRequest =
  struct
    type nonrec t =
      {
      addInId: AmazonUuid.t
        [@ocaml.doc "The identifier of the client add-in to update."];
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier for which the client add-in is configured."];
      name: AddInName.t option [@ocaml.doc "The name of the client add-in."];
      uRL: AddInUrl.t option
        [@ocaml.doc "The endpoint URL of the Amazon Connect client add-in."]}
    let context_ = "UpdateConnectClientAddInRequest"
    let make ?name =
      fun ?uRL ->
        fun ~addInId ->
          fun ~resourceId -> fun () -> { name; uRL; addInId; resourceId }
    let to_value x =
      structure_to_value
        [("AddInId", (Some (AmazonUuid.to_value x.addInId)));
        ("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("Name", (Option.map x.name ~f:AddInName.to_value));
        ("URL", (Option.map x.uRL ~f:AddInUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uRL = (Option.map ~f:AddInUrl.of_xml) (Xml.child xml_arg0 "URL") in
      let name = (Option.map ~f:AddInName.of_xml) (Xml.child xml_arg0 "Name") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let addInId =
        AmazonUuid.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AddInId") in
      make ?uRL ?name ~resourceId ~addInId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uRL = field_map json__ "URL" AddInUrl.of_json in
      let name = field_map json__ "Name" AddInName.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      let addInId = field_map_exn json__ "AddInId" AmazonUuid.of_json in
      make ?uRL ?name ~resourceId ~addInId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Amazon Connect client add-in. Use this action to update the name and endpoint URL of a Amazon Connect client add-in."]
module TerminateWorkspacesResult =
  struct
    type nonrec t =
      {
      failedRequests: FailedTerminateWorkspaceRequests.t option
        [@ocaml.doc
          "Information about the WorkSpaces that could not be terminated."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?failedRequests = fun () -> { failedRequests }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("FailedRequests",
           (Option.map x.failedRequests
              ~f:FailedTerminateWorkspaceRequests.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRequests =
        (Option.map ~f:FailedTerminateWorkspaceRequests.of_xml)
          (Xml.child xml_arg0 "FailedRequests") in
      make ?failedRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRequests =
        field_map json__ "FailedRequests"
          FailedTerminateWorkspaceRequests.of_json in
      make ?failedRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Terminates the specified WorkSpaces. Terminating a WorkSpace is a permanent action and cannot be undone. The user's data is destroyed. If you need to archive any user data, contact Amazon Web Services Support before terminating the WorkSpace. You can terminate a WorkSpace that is in any state except SUSPENDED. This operation is asynchronous and returns before the WorkSpaces have been completely terminated. After a WorkSpace is terminated, the TERMINATED state is returned only briefly before the WorkSpace directory metadata is cleaned up, so this state is rarely returned. To confirm that a WorkSpace is terminated, check for the WorkSpace ID by using DescribeWorkSpaces. If the WorkSpace ID isn't returned, then the WorkSpace has been successfully terminated. Simple AD and AD Connector are made available to you free of charge to use with WorkSpaces. If there are no WorkSpaces being used with your Simple AD or AD Connector directory for 30 consecutive days, this directory will be automatically deregistered for use with Amazon WorkSpaces, and you will be charged for this directory as per the Directory Service pricing terms. To delete empty directories, see Delete the Directory for Your WorkSpaces. If you delete your Simple AD or AD Connector directory, you can always create a new one when you want to start using WorkSpaces again."]
module TerminateWorkspacesRequest =
  struct
    type nonrec t =
      {
      terminateWorkspaceRequests: TerminateWorkspaceRequests.t
        [@ocaml.doc
          "The WorkSpaces to terminate. You can specify up to 25 WorkSpaces."]}
    let context_ = "TerminateWorkspacesRequest"
    let make ~terminateWorkspaceRequests =
      fun () -> { terminateWorkspaceRequests }
    let to_value x =
      structure_to_value
        [("TerminateWorkspaceRequests",
           (Some
              (TerminateWorkspaceRequests.to_value
                 x.terminateWorkspaceRequests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let terminateWorkspaceRequests =
        TerminateWorkspaceRequests.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "TerminateWorkspaceRequests") in
      make ~terminateWorkspaceRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let terminateWorkspaceRequests =
        field_map_exn json__ "TerminateWorkspaceRequests"
          TerminateWorkspaceRequests.of_json in
      make ~terminateWorkspaceRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Terminates the specified WorkSpaces. Terminating a WorkSpace is a permanent action and cannot be undone. The user's data is destroyed. If you need to archive any user data, contact Amazon Web Services Support before terminating the WorkSpace. You can terminate a WorkSpace that is in any state except SUSPENDED. This operation is asynchronous and returns before the WorkSpaces have been completely terminated. After a WorkSpace is terminated, the TERMINATED state is returned only briefly before the WorkSpace directory metadata is cleaned up, so this state is rarely returned. To confirm that a WorkSpace is terminated, check for the WorkSpace ID by using DescribeWorkSpaces. If the WorkSpace ID isn't returned, then the WorkSpace has been successfully terminated. Simple AD and AD Connector are made available to you free of charge to use with WorkSpaces. If there are no WorkSpaces being used with your Simple AD or AD Connector directory for 30 consecutive days, this directory will be automatically deregistered for use with Amazon WorkSpaces, and you will be charged for this directory as per the Directory Service pricing terms. To delete empty directories, see Delete the Directory for Your WorkSpaces. If you delete your Simple AD or AD Connector directory, you can always create a new one when you want to start using WorkSpaces again."]
module TerminateWorkspacesPoolSessionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Terminates the pool session."]
module TerminateWorkspacesPoolSessionRequest =
  struct
    type nonrec t =
      {
      sessionId: AmazonUuid.t
        [@ocaml.doc "The identifier of the pool session."]}
    let context_ = "TerminateWorkspacesPoolSessionRequest"
    let make ~sessionId = fun () -> { sessionId }
    let to_value x =
      structure_to_value
        [("SessionId", (Some (AmazonUuid.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        AmazonUuid.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SessionId") in
      make ~sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "SessionId" AmazonUuid.of_json in
      make ~sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Terminates the pool session."]
module TerminateWorkspacesPoolResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Terminates the specified pool."]
module TerminateWorkspacesPoolRequest =
  struct
    type nonrec t =
      {
      poolId: WorkspacesPoolId.t [@ocaml.doc "The identifier of the pool."]}
    let context_ = "TerminateWorkspacesPoolRequest"
    let make ~poolId = fun () -> { poolId }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (WorkspacesPoolId.to_value x.poolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolId =
        WorkspacesPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolId = field_map_exn json__ "PoolId" WorkspacesPoolId.of_json in
      make ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Terminates the specified pool."]
module StopWorkspacesResult =
  struct
    type nonrec t =
      {
      failedRequests: FailedStopWorkspaceRequests.t option
        [@ocaml.doc
          "Information about the WorkSpaces that could not be stopped."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?failedRequests = fun () -> { failedRequests }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("FailedRequests",
           (Option.map x.failedRequests
              ~f:FailedStopWorkspaceRequests.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRequests =
        (Option.map ~f:FailedStopWorkspaceRequests.of_xml)
          (Xml.child xml_arg0 "FailedRequests") in
      make ?failedRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRequests =
        field_map json__ "FailedRequests" FailedStopWorkspaceRequests.of_json in
      make ?failedRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the specified WorkSpaces. You cannot stop a WorkSpace unless it has a running mode of AutoStop or Manual and a state of AVAILABLE, IMPAIRED, UNHEALTHY, or ERROR."]
module StopWorkspacesRequest =
  struct
    type nonrec t =
      {
      stopWorkspaceRequests: StopWorkspaceRequests.t
        [@ocaml.doc
          "The WorkSpaces to stop. You can specify up to 25 WorkSpaces."]}
    let context_ = "StopWorkspacesRequest"
    let make ~stopWorkspaceRequests = fun () -> { stopWorkspaceRequests }
    let to_value x =
      structure_to_value
        [("StopWorkspaceRequests",
           (Some (StopWorkspaceRequests.to_value x.stopWorkspaceRequests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stopWorkspaceRequests =
        StopWorkspaceRequests.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StopWorkspaceRequests") in
      make ~stopWorkspaceRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stopWorkspaceRequests =
        field_map_exn json__ "StopWorkspaceRequests"
          StopWorkspaceRequests.of_json in
      make ~stopWorkspaceRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the specified WorkSpaces. You cannot stop a WorkSpace unless it has a running mode of AutoStop or Manual and a state of AVAILABLE, IMPAIRED, UNHEALTHY, or ERROR."]
module StopWorkspacesPoolResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the specified pool. You cannot stop a WorkSpace pool unless it has a running mode of AutoStop and a state of AVAILABLE, IMPAIRED, UNHEALTHY, or ERROR."]
module StopWorkspacesPoolRequest =
  struct
    type nonrec t =
      {
      poolId: WorkspacesPoolId.t [@ocaml.doc "The identifier of the pool."]}
    let context_ = "StopWorkspacesPoolRequest"
    let make ~poolId = fun () -> { poolId }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (WorkspacesPoolId.to_value x.poolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolId =
        WorkspacesPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolId = field_map_exn json__ "PoolId" WorkspacesPoolId.of_json in
      make ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the specified pool. You cannot stop a WorkSpace pool unless it has a running mode of AutoStop and a state of AVAILABLE, IMPAIRED, UNHEALTHY, or ERROR."]
module StartWorkspacesResult =
  struct
    type nonrec t =
      {
      failedRequests: FailedStartWorkspaceRequests.t option
        [@ocaml.doc
          "Information about the WorkSpaces that could not be started."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?failedRequests = fun () -> { failedRequests }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("FailedRequests",
           (Option.map x.failedRequests
              ~f:FailedStartWorkspaceRequests.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRequests =
        (Option.map ~f:FailedStartWorkspaceRequests.of_xml)
          (Xml.child xml_arg0 "FailedRequests") in
      make ?failedRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRequests =
        field_map json__ "FailedRequests"
          FailedStartWorkspaceRequests.of_json in
      make ?failedRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the specified WorkSpaces. You cannot start a WorkSpace unless it has a running mode of AutoStop or Manual and a state of STOPPED."]
module StartWorkspacesRequest =
  struct
    type nonrec t =
      {
      startWorkspaceRequests: StartWorkspaceRequests.t
        [@ocaml.doc
          "The WorkSpaces to start. You can specify up to 25 WorkSpaces."]}
    let context_ = "StartWorkspacesRequest"
    let make ~startWorkspaceRequests = fun () -> { startWorkspaceRequests }
    let to_value x =
      structure_to_value
        [("StartWorkspaceRequests",
           (Some (StartWorkspaceRequests.to_value x.startWorkspaceRequests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startWorkspaceRequests =
        StartWorkspaceRequests.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartWorkspaceRequests") in
      make ~startWorkspaceRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startWorkspaceRequests =
        field_map_exn json__ "StartWorkspaceRequests"
          StartWorkspaceRequests.of_json in
      make ~startWorkspaceRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the specified WorkSpaces. You cannot start a WorkSpace unless it has a running mode of AutoStop or Manual and a state of STOPPED."]
module StartWorkspacesPoolResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the specified pool. You cannot start a pool unless it has a running mode of AutoStop and a state of STOPPED."]
module StartWorkspacesPoolRequest =
  struct
    type nonrec t =
      {
      poolId: WorkspacesPoolId.t [@ocaml.doc "The identifier of the pool."]}
    let context_ = "StartWorkspacesPoolRequest"
    let make ~poolId = fun () -> { poolId }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (WorkspacesPoolId.to_value x.poolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolId =
        WorkspacesPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolId = field_map_exn json__ "PoolId" WorkspacesPoolId.of_json in
      make ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the specified pool. You cannot start a pool unless it has a running mode of AutoStop and a state of STOPPED."]
module RevokeIpRulesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more rules from the specified IP access control group."]
module RevokeIpRulesRequest =
  struct
    type nonrec t =
      {
      groupId: IpGroupId.t [@ocaml.doc "The identifier of the group."];
      userRules: IpRevokedRuleList.t
        [@ocaml.doc "The rules to remove from the group."]}
    let context_ = "RevokeIpRulesRequest"
    let make ~groupId = fun ~userRules -> fun () -> { groupId; userRules }
    let to_value x =
      structure_to_value
        [("GroupId", (Some (IpGroupId.to_value x.groupId)));
        ("UserRules", (Some (IpRevokedRuleList.to_value x.userRules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userRules =
        IpRevokedRuleList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserRules") in
      let groupId =
        IpGroupId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GroupId") in
      make ~userRules ~groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userRules =
        field_map_exn json__ "UserRules" IpRevokedRuleList.of_json in
      let groupId = field_map_exn json__ "GroupId" IpGroupId.of_json in
      make ~userRules ~groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more rules from the specified IP access control group."]
module RestoreWorkspaceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Restores the specified WorkSpace to its last known healthy state. You cannot restore a WorkSpace unless its state is AVAILABLE, ERROR, UNHEALTHY, or STOPPED. Restoring a WorkSpace is a potentially destructive action that can result in the loss of data. For more information, see Restore a WorkSpace. This operation is asynchronous and returns before the WorkSpace is completely restored."]
module RestoreWorkspaceRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let context_ = "RestoreWorkspaceRequest"
    let make ~workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Restores the specified WorkSpace to its last known healthy state. You cannot restore a WorkSpace unless its state is AVAILABLE, ERROR, UNHEALTHY, or STOPPED. Restoring a WorkSpace is a potentially destructive action that can result in the loss of data. For more information, see Restore a WorkSpace. This operation is asynchronous and returns before the WorkSpace is completely restored."]
module RejectAccountLinkInvitationResult =
  struct
    type nonrec t =
      {
      accountLink: AccountLink.t option
        [@ocaml.doc "Information about the account link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLink = fun () -> { accountLink }
    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)
      | "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)
      | "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))]
      | `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
        [("AccountLink", (Option.map x.accountLink ~f:AccountLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountLink =
        (Option.map ~f:AccountLink.of_xml) (Xml.child xml_arg0 "AccountLink") in
      make ?accountLink ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountLink = field_map json__ "AccountLink" AccountLink.of_json in
      make ?accountLink ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects the account link invitation."]
module RejectAccountLinkInvitationRequest =
  struct
    type nonrec t =
      {
      linkId: LinkId.t [@ocaml.doc "The identifier of the account link"];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "The client token of the account link invitation to reject."]}
    let context_ = "RejectAccountLinkInvitationRequest"
    let make ?clientToken = fun ~linkId -> fun () -> { clientToken; linkId }
    let to_value x =
      structure_to_value
        [("LinkId", (Some (LinkId.to_value x.linkId)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkId") in
      make ?clientToken ~linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      make ?clientToken ~linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects the account link invitation."]
module RegisterWorkspaceDirectoryResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory."];
      state: WorkspaceDirectoryState.t option
        [@ocaml.doc "The registration status of the WorkSpace directory."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedNetworkConfigurationException of
          UnsupportedNetworkConfigurationException.t 
      | `WorkspacesDefaultRoleNotFoundException of
          WorkspacesDefaultRoleNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun ?state -> fun () -> { directoryId; state }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedNetworkConfigurationException" ->
          `UnsupportedNetworkConfigurationException
            (UnsupportedNetworkConfigurationException.of_json json)
      | "WorkspacesDefaultRoleNotFoundException" ->
          `WorkspacesDefaultRoleNotFoundException
            (WorkspacesDefaultRoleNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedNetworkConfigurationException" ->
          `UnsupportedNetworkConfigurationException
            (UnsupportedNetworkConfigurationException.of_xml xml)
      | "WorkspacesDefaultRoleNotFoundException" ->
          `WorkspacesDefaultRoleNotFoundException
            (WorkspacesDefaultRoleNotFoundException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedNetworkConfigurationException e ->
          `Assoc
            [("error", (`String "UnsupportedNetworkConfigurationException"));
            ("details", (UnsupportedNetworkConfigurationException.to_json e))]
      | `WorkspacesDefaultRoleNotFoundException e ->
          `Assoc
            [("error", (`String "WorkspacesDefaultRoleNotFoundException"));
            ("details", (WorkspacesDefaultRoleNotFoundException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("State", (Option.map x.state ~f:WorkspaceDirectoryState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:WorkspaceDirectoryState.of_xml)
          (Xml.child xml_arg0 "State") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?state ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" WorkspaceDirectoryState.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?state ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers the specified directory. This operation is asynchronous and returns before the WorkSpace directory is registered. If this is the first time you are registering a directory, you will need to create the workspaces_DefaultRole role before you can register a directory. For more information, see Creating the workspaces_DefaultRole Role."]
module RegisterWorkspaceDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory. You cannot register a directory if it does not have a status of Active. If the directory does not have a status of Active, you will receive an InvalidResourceStateException error. If you have already registered the maximum number of directories that you can register with Amazon WorkSpaces, you will receive a ResourceLimitExceededException error. Deregister directories that you are not using for WorkSpaces, and try again."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "The identifiers of the subnets for your virtual private cloud (VPC). Make sure that the subnets are in supported Availability Zones. The subnets must also be in separate Availability Zones. If these conditions are not met, you will receive an OperationNotSupportedException error."];
      enableSelfService: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether self-service capabilities are enabled or disabled."];
      tenancy: Tenancy.t option
        [@ocaml.doc
          "Indicates whether your WorkSpace directory is dedicated or shared. To use Bring Your Own License (BYOL) images, this value must be set to DEDICATED and your Amazon Web Services account must be enabled for BYOL. If your account has not been enabled for BYOL, you will receive an InvalidParameterValuesException error. For more information about BYOL images, see Bring Your Own Windows Desktop Images."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the directory."];
      workspaceDirectoryName: WorkspaceDirectoryName.t option
        [@ocaml.doc "The name of the directory to register."];
      workspaceDirectoryDescription: WorkspaceDirectoryDescription.t option
        [@ocaml.doc "Description of the directory to register."];
      userIdentityType: UserIdentityType.t option
        [@ocaml.doc "The type of identity management the user is using."];
      idcInstanceArn: ARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the identity center instance."];
      microsoftEntraConfig: MicrosoftEntraConfig.t option
        [@ocaml.doc "The details about Microsoft Entra config."];
      workspaceType: WorkspaceType.t option
        [@ocaml.doc
          "Indicates whether the directory's WorkSpace type is personal or pools."];
      activeDirectoryConfig: ActiveDirectoryConfig.t option
        [@ocaml.doc "The active directory config of the directory."]}
    let make ?directoryId =
      fun ?subnetIds ->
        fun ?enableSelfService ->
          fun ?tenancy ->
            fun ?tags ->
              fun ?workspaceDirectoryName ->
                fun ?workspaceDirectoryDescription ->
                  fun ?userIdentityType ->
                    fun ?idcInstanceArn ->
                      fun ?microsoftEntraConfig ->
                        fun ?workspaceType ->
                          fun ?activeDirectoryConfig ->
                            fun () ->
                              {
                                directoryId;
                                subnetIds;
                                enableSelfService;
                                tenancy;
                                tags;
                                workspaceDirectoryName;
                                workspaceDirectoryDescription;
                                userIdentityType;
                                idcInstanceArn;
                                microsoftEntraConfig;
                                workspaceType;
                                activeDirectoryConfig
                              }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("SubnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("EnableSelfService",
          (Option.map x.enableSelfService ~f:BooleanObject.to_value));
        ("Tenancy", (Option.map x.tenancy ~f:Tenancy.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("WorkspaceDirectoryName",
          (Option.map x.workspaceDirectoryName
             ~f:WorkspaceDirectoryName.to_value));
        ("WorkspaceDirectoryDescription",
          (Option.map x.workspaceDirectoryDescription
             ~f:WorkspaceDirectoryDescription.to_value));
        ("UserIdentityType",
          (Option.map x.userIdentityType ~f:UserIdentityType.to_value));
        ("IdcInstanceArn", (Option.map x.idcInstanceArn ~f:ARN.to_value));
        ("MicrosoftEntraConfig",
          (Option.map x.microsoftEntraConfig ~f:MicrosoftEntraConfig.to_value));
        ("WorkspaceType",
          (Option.map x.workspaceType ~f:WorkspaceType.to_value));
        ("ActiveDirectoryConfig",
          (Option.map x.activeDirectoryConfig
             ~f:ActiveDirectoryConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activeDirectoryConfig =
        (Option.map ~f:ActiveDirectoryConfig.of_xml)
          (Xml.child xml_arg0 "ActiveDirectoryConfig") in
      let workspaceType =
        (Option.map ~f:WorkspaceType.of_xml)
          (Xml.child xml_arg0 "WorkspaceType") in
      let microsoftEntraConfig =
        (Option.map ~f:MicrosoftEntraConfig.of_xml)
          (Xml.child xml_arg0 "MicrosoftEntraConfig") in
      let idcInstanceArn =
        (Option.map ~f:ARN.of_xml) (Xml.child xml_arg0 "IdcInstanceArn") in
      let userIdentityType =
        (Option.map ~f:UserIdentityType.of_xml)
          (Xml.child xml_arg0 "UserIdentityType") in
      let workspaceDirectoryDescription =
        (Option.map ~f:WorkspaceDirectoryDescription.of_xml)
          (Xml.child xml_arg0 "WorkspaceDirectoryDescription") in
      let workspaceDirectoryName =
        (Option.map ~f:WorkspaceDirectoryName.of_xml)
          (Xml.child xml_arg0 "WorkspaceDirectoryName") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let tenancy =
        (Option.map ~f:Tenancy.of_xml) (Xml.child xml_arg0 "Tenancy") in
      let enableSelfService =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "EnableSelfService") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?activeDirectoryConfig ?workspaceType ?microsoftEntraConfig
        ?idcInstanceArn ?userIdentityType ?workspaceDirectoryDescription
        ?workspaceDirectoryName ?tags ?tenancy ?enableSelfService ?subnetIds
        ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activeDirectoryConfig =
        field_map json__ "ActiveDirectoryConfig"
          ActiveDirectoryConfig.of_json in
      let workspaceType =
        field_map json__ "WorkspaceType" WorkspaceType.of_json in
      let microsoftEntraConfig =
        field_map json__ "MicrosoftEntraConfig" MicrosoftEntraConfig.of_json in
      let idcInstanceArn = field_map json__ "IdcInstanceArn" ARN.of_json in
      let userIdentityType =
        field_map json__ "UserIdentityType" UserIdentityType.of_json in
      let workspaceDirectoryDescription =
        field_map json__ "WorkspaceDirectoryDescription"
          WorkspaceDirectoryDescription.of_json in
      let workspaceDirectoryName =
        field_map json__ "WorkspaceDirectoryName"
          WorkspaceDirectoryName.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let tenancy = field_map json__ "Tenancy" Tenancy.of_json in
      let enableSelfService =
        field_map json__ "EnableSelfService" BooleanObject.of_json in
      let subnetIds = field_map json__ "SubnetIds" SubnetIds.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?activeDirectoryConfig ?workspaceType ?microsoftEntraConfig
        ?idcInstanceArn ?userIdentityType ?workspaceDirectoryDescription
        ?workspaceDirectoryName ?tags ?tenancy ?enableSelfService ?subnetIds
        ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers the specified directory. This operation is asynchronous and returns before the WorkSpace directory is registered. If this is the first time you are registering a directory, you will need to create the workspaces_DefaultRole role before you can register a directory. For more information, see Creating the workspaces_DefaultRole Role."]
module RebuildWorkspacesResult =
  struct
    type nonrec t =
      {
      failedRequests: FailedRebuildWorkspaceRequests.t option
        [@ocaml.doc
          "Information about the WorkSpace that could not be rebuilt."]}
    type nonrec error =
      [ `OperationNotSupportedException of OperationNotSupportedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedRequests = fun () -> { failedRequests }
    let error_of_json name json =
      match name with
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.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
        [("FailedRequests",
           (Option.map x.failedRequests
              ~f:FailedRebuildWorkspaceRequests.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRequests =
        (Option.map ~f:FailedRebuildWorkspaceRequests.of_xml)
          (Xml.child xml_arg0 "FailedRequests") in
      make ?failedRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRequests =
        field_map json__ "FailedRequests"
          FailedRebuildWorkspaceRequests.of_json in
      make ?failedRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rebuilds the specified WorkSpace. You cannot rebuild a WorkSpace unless its state is AVAILABLE, ERROR, UNHEALTHY, STOPPED, or REBOOTING. Rebuilding a WorkSpace is a potentially destructive action that can result in the loss of data. For more information, see Rebuild a WorkSpace. This operation is asynchronous and returns before the WorkSpaces have been completely rebuilt."]
module RebuildWorkspacesRequest =
  struct
    type nonrec t =
      {
      rebuildWorkspaceRequests: RebuildWorkspaceRequests.t
        [@ocaml.doc
          "The WorkSpace to rebuild. You can specify a single WorkSpace."]}
    let context_ = "RebuildWorkspacesRequest"
    let make ~rebuildWorkspaceRequests =
      fun () -> { rebuildWorkspaceRequests }
    let to_value x =
      structure_to_value
        [("RebuildWorkspaceRequests",
           (Some
              (RebuildWorkspaceRequests.to_value x.rebuildWorkspaceRequests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rebuildWorkspaceRequests =
        RebuildWorkspaceRequests.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "RebuildWorkspaceRequests") in
      make ~rebuildWorkspaceRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rebuildWorkspaceRequests =
        field_map_exn json__ "RebuildWorkspaceRequests"
          RebuildWorkspaceRequests.of_json in
      make ~rebuildWorkspaceRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rebuilds the specified WorkSpace. You cannot rebuild a WorkSpace unless its state is AVAILABLE, ERROR, UNHEALTHY, STOPPED, or REBOOTING. Rebuilding a WorkSpace is a potentially destructive action that can result in the loss of data. For more information, see Rebuild a WorkSpace. This operation is asynchronous and returns before the WorkSpaces have been completely rebuilt."]
module RebootWorkspacesResult =
  struct
    type nonrec t =
      {
      failedRequests: FailedRebootWorkspaceRequests.t option
        [@ocaml.doc
          "Information about the WorkSpaces that could not be rebooted."]}
    type nonrec error =
      [ `OperationNotSupportedException of OperationNotSupportedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedRequests = fun () -> { failedRequests }
    let error_of_json name json =
      match name with
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.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
        [("FailedRequests",
           (Option.map x.failedRequests
              ~f:FailedRebootWorkspaceRequests.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRequests =
        (Option.map ~f:FailedRebootWorkspaceRequests.of_xml)
          (Xml.child xml_arg0 "FailedRequests") in
      make ?failedRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRequests =
        field_map json__ "FailedRequests"
          FailedRebootWorkspaceRequests.of_json in
      make ?failedRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Reboots the specified WorkSpaces. You cannot reboot a WorkSpace unless its state is AVAILABLE, UNHEALTHY, or REBOOTING. Reboot a WorkSpace in the REBOOTING state only if your WorkSpace has been stuck in the REBOOTING state for over 20 minutes. This operation is asynchronous and returns before the WorkSpaces have rebooted."]
module RebootWorkspacesRequest =
  struct
    type nonrec t =
      {
      rebootWorkspaceRequests: RebootWorkspaceRequests.t
        [@ocaml.doc
          "The WorkSpaces to reboot. You can specify up to 25 WorkSpaces."]}
    let context_ = "RebootWorkspacesRequest"
    let make ~rebootWorkspaceRequests = fun () -> { rebootWorkspaceRequests }
    let to_value x =
      structure_to_value
        [("RebootWorkspaceRequests",
           (Some (RebootWorkspaceRequests.to_value x.rebootWorkspaceRequests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rebootWorkspaceRequests =
        RebootWorkspaceRequests.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RebootWorkspaceRequests") in
      make ~rebootWorkspaceRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rebootWorkspaceRequests =
        field_map_exn json__ "RebootWorkspaceRequests"
          RebootWorkspaceRequests.of_json in
      make ~rebootWorkspaceRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Reboots the specified WorkSpaces. You cannot reboot a WorkSpace unless its state is AVAILABLE, UNHEALTHY, or REBOOTING. Reboot a WorkSpace in the REBOOTING state only if your WorkSpace has been stuck in the REBOOTING state for over 20 minutes. This operation is asynchronous and returns before the WorkSpaces have rebooted."]
module ModifyWorkspaceStateResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the state of the specified WorkSpace. To maintain a WorkSpace without being interrupted, set the WorkSpace state to ADMIN_MAINTENANCE. WorkSpaces in this state do not respond to requests to reboot, stop, start, rebuild, or restore. An AutoStop WorkSpace in this state is not stopped. Users cannot log into a WorkSpace in the ADMIN_MAINTENANCE state."]
module ModifyWorkspaceStateRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."];
      workspaceState: TargetWorkspaceState.t
        [@ocaml.doc "The WorkSpace state."]}
    let context_ = "ModifyWorkspaceStateRequest"
    let make ~workspaceId =
      fun ~workspaceState -> fun () -> { workspaceId; workspaceState }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("WorkspaceState",
          (Some (TargetWorkspaceState.to_value x.workspaceState)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceState =
        TargetWorkspaceState.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceState") in
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~workspaceState ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceState =
        field_map_exn json__ "WorkspaceState" TargetWorkspaceState.of_json in
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~workspaceState ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the state of the specified WorkSpace. To maintain a WorkSpace without being interrupted, set the WorkSpace state to ADMIN_MAINTENANCE. WorkSpaces in this state do not respond to requests to reboot, stop, start, rebuild, or restore. An AutoStop WorkSpace in this state is not stopped. Users cannot log into a WorkSpace in the ADMIN_MAINTENANCE state."]
module ModifyWorkspacePropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `UnsupportedWorkspaceConfigurationException of
          UnsupportedWorkspaceConfigurationException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_json json)
      | "UnsupportedWorkspaceConfigurationException" ->
          `UnsupportedWorkspaceConfigurationException
            (UnsupportedWorkspaceConfigurationException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_xml xml)
      | "UnsupportedWorkspaceConfigurationException" ->
          `UnsupportedWorkspaceConfigurationException
            (UnsupportedWorkspaceConfigurationException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.to_json e))]
      | `UnsupportedWorkspaceConfigurationException e ->
          `Assoc
            [("error",
               (`String "UnsupportedWorkspaceConfigurationException"));
            ("details",
              (UnsupportedWorkspaceConfigurationException.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
       "Modifies the specified WorkSpace properties. For important information about how to modify the size of the root and user volumes, see Modify a WorkSpace. The MANUAL running mode value is only supported by Amazon WorkSpaces Core. Contact your account team to be allow-listed to use this value. For more information, see Amazon WorkSpaces Core."]
module ModifyWorkspacePropertiesRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."];
      workspaceProperties: WorkspaceProperties.t option
        [@ocaml.doc "The properties of the WorkSpace."];
      dataReplication: DataReplication.t option
        [@ocaml.doc "Indicates the data replication status."]}
    let context_ = "ModifyWorkspacePropertiesRequest"
    let make ?workspaceProperties =
      fun ?dataReplication ->
        fun ~workspaceId ->
          fun () -> { workspaceProperties; dataReplication; workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("WorkspaceProperties",
          (Option.map x.workspaceProperties ~f:WorkspaceProperties.to_value));
        ("DataReplication",
          (Option.map x.dataReplication ~f:DataReplication.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataReplication =
        (Option.map ~f:DataReplication.of_xml)
          (Xml.child xml_arg0 "DataReplication") in
      let workspaceProperties =
        (Option.map ~f:WorkspaceProperties.of_xml)
          (Xml.child xml_arg0 "WorkspaceProperties") in
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ?dataReplication ?workspaceProperties ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataReplication =
        field_map json__ "DataReplication" DataReplication.of_json in
      let workspaceProperties =
        field_map json__ "WorkspaceProperties" WorkspaceProperties.of_json in
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ?dataReplication ?workspaceProperties ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the specified WorkSpace properties. For important information about how to modify the size of the root and user volumes, see Modify a WorkSpace. The MANUAL running mode value is only supported by Amazon WorkSpaces Core. Contact your account team to be allow-listed to use this value. For more information, see Amazon WorkSpaces Core."]
module ModifyWorkspaceCreationPropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Modify the default properties used to create WorkSpaces."]
module ModifyWorkspaceCreationPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      workspaceCreationProperties: WorkspaceCreationProperties.t
        [@ocaml.doc "The default properties for creating WorkSpaces."]}
    let context_ = "ModifyWorkspaceCreationPropertiesRequest"
    let make ~resourceId =
      fun ~workspaceCreationProperties ->
        fun () -> { resourceId; workspaceCreationProperties }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("WorkspaceCreationProperties",
          (Some
             (WorkspaceCreationProperties.to_value
                x.workspaceCreationProperties)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceCreationProperties =
        WorkspaceCreationProperties.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "WorkspaceCreationProperties") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~workspaceCreationProperties ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceCreationProperties =
        field_map_exn json__ "WorkspaceCreationProperties"
          WorkspaceCreationProperties.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ~workspaceCreationProperties ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Modify the default properties used to create WorkSpaces."]
module ModifyWorkspaceAccessPropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterCombinationException of
          InvalidParameterCombinationException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterCombinationException" ->
          `InvalidParameterCombinationException
            (InvalidParameterCombinationException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterCombinationException" ->
          `InvalidParameterCombinationException
            (InvalidParameterCombinationException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterCombinationException e ->
          `Assoc
            [("error", (`String "InvalidParameterCombinationException"));
            ("details", (InvalidParameterCombinationException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies which devices and operating systems users can use to access their WorkSpaces. For more information, see Control Device Access."]
module ModifyWorkspaceAccessPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      workspaceAccessProperties: WorkspaceAccessProperties.t
        [@ocaml.doc
          "The device types and operating systems to enable or disable for access."]}
    let context_ = "ModifyWorkspaceAccessPropertiesRequest"
    let make ~resourceId =
      fun ~workspaceAccessProperties ->
        fun () -> { resourceId; workspaceAccessProperties }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("WorkspaceAccessProperties",
          (Some
             (WorkspaceAccessProperties.to_value x.workspaceAccessProperties)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceAccessProperties =
        WorkspaceAccessProperties.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "WorkspaceAccessProperties") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~workspaceAccessProperties ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceAccessProperties =
        field_map_exn json__ "WorkspaceAccessProperties"
          WorkspaceAccessProperties.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ~workspaceAccessProperties ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies which devices and operating systems users can use to access their WorkSpaces. For more information, see Control Device Access."]
module ModifyStreamingPropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Modifies the specified streaming properties."]
module ModifyStreamingPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc "The identifier of the resource."];
      streamingProperties: StreamingProperties.t option
        [@ocaml.doc "The streaming properties to configure."]}
    let context_ = "ModifyStreamingPropertiesRequest"
    let make ?streamingProperties =
      fun ~resourceId -> fun () -> { streamingProperties; resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("StreamingProperties",
          (Option.map x.streamingProperties ~f:StreamingProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamingProperties =
        (Option.map ~f:StreamingProperties.of_xml)
          (Xml.child xml_arg0 "StreamingProperties") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?streamingProperties ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamingProperties =
        field_map json__ "StreamingProperties" StreamingProperties.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ?streamingProperties ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Modifies the specified streaming properties."]
module ModifySelfservicePermissionsResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the self-service WorkSpace management capabilities for your users. For more information, see Enable Self-Service WorkSpace Management Capabilities for Your Users."]
module ModifySelfservicePermissionsRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      selfservicePermissions: SelfservicePermissions.t
        [@ocaml.doc
          "The permissions to enable or disable self-service capabilities."]}
    let context_ = "ModifySelfservicePermissionsRequest"
    let make ~resourceId =
      fun ~selfservicePermissions ->
        fun () -> { resourceId; selfservicePermissions }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("SelfservicePermissions",
          (Some (SelfservicePermissions.to_value x.selfservicePermissions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selfservicePermissions =
        SelfservicePermissions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SelfservicePermissions") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~selfservicePermissions ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selfservicePermissions =
        field_map_exn json__ "SelfservicePermissions"
          SelfservicePermissions.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ~selfservicePermissions ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the self-service WorkSpace management capabilities for your users. For more information, see Enable Self-Service WorkSpace Management Capabilities for Your Users."]
module ModifySamlPropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies multiple properties related to SAML 2.0 authentication, including the enablement status, user access URL, and relay state parameter name that are used for configuring federation with an SAML 2.0 identity provider."]
module ModifySamlPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier for which you want to configure SAML properties."];
      samlProperties: SamlProperties.t option
        [@ocaml.doc
          "The properties for configuring SAML 2.0 authentication."];
      propertiesToDelete: DeletableSamlPropertiesList.t option
        [@ocaml.doc
          "The SAML properties to delete as part of your request. Specify one of the following options: SAML_PROPERTIES_USER_ACCESS_URL to delete the user access URL. SAML_PROPERTIES_RELAY_STATE_PARAMETER_NAME to delete the relay state parameter name."]}
    let context_ = "ModifySamlPropertiesRequest"
    let make ?samlProperties =
      fun ?propertiesToDelete ->
        fun ~resourceId ->
          fun () -> { samlProperties; propertiesToDelete; resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("SamlProperties",
          (Option.map x.samlProperties ~f:SamlProperties.to_value));
        ("PropertiesToDelete",
          (Option.map x.propertiesToDelete
             ~f:DeletableSamlPropertiesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let propertiesToDelete =
        (Option.map ~f:DeletableSamlPropertiesList.of_xml)
          (Xml.child xml_arg0 "PropertiesToDelete") in
      let samlProperties =
        (Option.map ~f:SamlProperties.of_xml)
          (Xml.child xml_arg0 "SamlProperties") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?propertiesToDelete ?samlProperties ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let propertiesToDelete =
        field_map json__ "PropertiesToDelete"
          DeletableSamlPropertiesList.of_json in
      let samlProperties =
        field_map json__ "SamlProperties" SamlProperties.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ?propertiesToDelete ?samlProperties ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies multiple properties related to SAML 2.0 authentication, including the enablement status, user access URL, and relay state parameter name that are used for configuring federation with an SAML 2.0 identity provider."]
module ModifyEndpointEncryptionModeResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the endpoint encryption mode that allows you to configure the specified directory between Standard TLS and FIPS 140-2 validated mode."]
module ModifyEndpointEncryptionModeRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      endpointEncryptionMode: EndpointEncryptionMode.t
        [@ocaml.doc
          "The encryption mode used for endpoint connections when streaming to WorkSpaces Personal or WorkSpace Pools."]}
    let context_ = "ModifyEndpointEncryptionModeRequest"
    let make ~directoryId =
      fun ~endpointEncryptionMode ->
        fun () -> { directoryId; endpointEncryptionMode }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("EndpointEncryptionMode",
          (Some (EndpointEncryptionMode.to_value x.endpointEncryptionMode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointEncryptionMode =
        EndpointEncryptionMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointEncryptionMode") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~endpointEncryptionMode ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointEncryptionMode =
        field_map_exn json__ "EndpointEncryptionMode"
          EndpointEncryptionMode.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~endpointEncryptionMode ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the endpoint encryption mode that allows you to configure the specified directory between Standard TLS and FIPS 140-2 validated mode."]
module ModifyClientPropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the properties of the specified Amazon WorkSpaces clients."]
module ModifyClientPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceId: NonEmptyString.t
        [@ocaml.doc
          "The resource identifiers, in the form of directory IDs."];
      clientProperties: ClientProperties.t
        [@ocaml.doc "Information about the Amazon WorkSpaces client."]}
    let context_ = "ModifyClientPropertiesRequest"
    let make ~resourceId =
      fun ~clientProperties -> fun () -> { resourceId; clientProperties }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (NonEmptyString.to_value x.resourceId)));
        ("ClientProperties",
          (Some (ClientProperties.to_value x.clientProperties)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientProperties =
        ClientProperties.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientProperties") in
      let resourceId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~clientProperties ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientProperties =
        field_map_exn json__ "ClientProperties" ClientProperties.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" NonEmptyString.of_json in
      make ~clientProperties ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the properties of the specified Amazon WorkSpaces clients."]
module ModifyCertificateBasedAuthPropertiesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the properties of the certificate-based authentication you want to use with your WorkSpaces."]
module ModifyCertificateBasedAuthPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The resource identifiers, in the form of directory IDs."];
      certificateBasedAuthProperties: CertificateBasedAuthProperties.t option
        [@ocaml.doc
          "The properties of the certificate-based authentication."];
      propertiesToDelete:
        DeletableCertificateBasedAuthPropertiesList.t option
        [@ocaml.doc
          "The properties of the certificate-based authentication you want to delete."]}
    let context_ = "ModifyCertificateBasedAuthPropertiesRequest"
    let make ?certificateBasedAuthProperties =
      fun ?propertiesToDelete ->
        fun ~resourceId ->
          fun () ->
            { certificateBasedAuthProperties; propertiesToDelete; resourceId
            }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("CertificateBasedAuthProperties",
          (Option.map x.certificateBasedAuthProperties
             ~f:CertificateBasedAuthProperties.to_value));
        ("PropertiesToDelete",
          (Option.map x.propertiesToDelete
             ~f:DeletableCertificateBasedAuthPropertiesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let propertiesToDelete =
        (Option.map ~f:DeletableCertificateBasedAuthPropertiesList.of_xml)
          (Xml.child xml_arg0 "PropertiesToDelete") in
      let certificateBasedAuthProperties =
        (Option.map ~f:CertificateBasedAuthProperties.of_xml)
          (Xml.child xml_arg0 "CertificateBasedAuthProperties") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?propertiesToDelete ?certificateBasedAuthProperties ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let propertiesToDelete =
        field_map json__ "PropertiesToDelete"
          DeletableCertificateBasedAuthPropertiesList.of_json in
      let certificateBasedAuthProperties =
        field_map json__ "CertificateBasedAuthProperties"
          CertificateBasedAuthProperties.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ?propertiesToDelete ?certificateBasedAuthProperties ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the properties of the certificate-based authentication you want to use with your WorkSpaces."]
module ModifyAccountResult =
  struct
    type nonrec t =
      {
      message: Message.t option
        [@ocaml.doc
          "The text message to describe the status of BYOL modification."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?message = fun () -> { message }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the configuration of Bring Your Own License (BYOL) for the specified account."]
module ModifyAccountRequest =
  struct
    type nonrec t =
      {
      dedicatedTenancySupport: DedicatedTenancySupportEnum.t option
        [@ocaml.doc "The status of BYOL."];
      dedicatedTenancyManagementCidrRange:
        DedicatedTenancyManagementCidrRange.t option
        [@ocaml.doc
          "The IP address range, specified as an IPv4 CIDR block, for the management network interface. Specify an IP address range that is compatible with your network and in CIDR notation (that is, specify the range as an IPv4 CIDR block). The CIDR block size must be /16 (for example, 203.0.113.25/16). It must also be specified as available by the ListAvailableManagementCidrRanges operation."]}
    let make ?dedicatedTenancySupport =
      fun ?dedicatedTenancyManagementCidrRange ->
        fun () ->
          { dedicatedTenancySupport; dedicatedTenancyManagementCidrRange }
    let to_value x =
      structure_to_value
        [("DedicatedTenancySupport",
           (Option.map x.dedicatedTenancySupport
              ~f:DedicatedTenancySupportEnum.to_value));
        ("DedicatedTenancyManagementCidrRange",
          (Option.map x.dedicatedTenancyManagementCidrRange
             ~f:DedicatedTenancyManagementCidrRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dedicatedTenancyManagementCidrRange =
        (Option.map ~f:DedicatedTenancyManagementCidrRange.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancyManagementCidrRange") in
      let dedicatedTenancySupport =
        (Option.map ~f:DedicatedTenancySupportEnum.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancySupport") in
      make ?dedicatedTenancyManagementCidrRange ?dedicatedTenancySupport ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dedicatedTenancyManagementCidrRange =
        field_map json__ "DedicatedTenancyManagementCidrRange"
          DedicatedTenancyManagementCidrRange.of_json in
      let dedicatedTenancySupport =
        field_map json__ "DedicatedTenancySupport"
          DedicatedTenancySupportEnum.of_json in
      make ?dedicatedTenancyManagementCidrRange ?dedicatedTenancySupport ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the configuration of Bring Your Own License (BYOL) for the specified account."]
module MigrateWorkspaceResult =
  struct
    type nonrec t =
      {
      sourceWorkspaceId: WorkspaceId.t option
        [@ocaml.doc
          "The original identifier of the WorkSpace that is being migrated."];
      targetWorkspaceId: WorkspaceId.t option
        [@ocaml.doc
          "The new identifier of the WorkSpace that is being migrated. If the migration does not succeed, the target WorkSpace ID will not be used, and the WorkSpace will still have the original WorkSpace ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationInProgressException of OperationInProgressException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sourceWorkspaceId =
      fun ?targetWorkspaceId ->
        fun () -> { sourceWorkspaceId; targetWorkspaceId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationInProgressException" ->
          `OperationInProgressException
            (OperationInProgressException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationInProgressException e ->
          `Assoc
            [("error", (`String "OperationInProgressException"));
            ("details", (OperationInProgressException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("SourceWorkspaceId",
           (Option.map x.sourceWorkspaceId ~f:WorkspaceId.to_value));
        ("TargetWorkspaceId",
          (Option.map x.targetWorkspaceId ~f:WorkspaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetWorkspaceId =
        (Option.map ~f:WorkspaceId.of_xml)
          (Xml.child xml_arg0 "TargetWorkspaceId") in
      let sourceWorkspaceId =
        (Option.map ~f:WorkspaceId.of_xml)
          (Xml.child xml_arg0 "SourceWorkspaceId") in
      make ?targetWorkspaceId ?sourceWorkspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetWorkspaceId =
        field_map json__ "TargetWorkspaceId" WorkspaceId.of_json in
      let sourceWorkspaceId =
        field_map json__ "SourceWorkspaceId" WorkspaceId.of_json in
      make ?targetWorkspaceId ?sourceWorkspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Migrates a WorkSpace from one operating system or bundle type to another, while retaining the data on the user volume. The migration process recreates the WorkSpace by using a new root volume from the target bundle image and the user volume from the last available snapshot of the original WorkSpace. During migration, the original D:\\Users\\%USERNAME% user profile folder is renamed to D:\\Users\\%USERNAME%MMddyyTHHmmss%.NotMigrated. A new D:\\Users\\%USERNAME%\\ folder is generated by the new OS. Certain files in the old user profile are moved to the new user profile. For available migration scenarios, details about what happens during migration, and best practices, see Migrate a WorkSpace."]
module MigrateWorkspaceRequest =
  struct
    type nonrec t =
      {
      sourceWorkspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace to migrate from."];
      bundleId: BundleId.t
        [@ocaml.doc
          "The identifier of the target bundle type to migrate the WorkSpace to."]}
    let context_ = "MigrateWorkspaceRequest"
    let make ~sourceWorkspaceId =
      fun ~bundleId -> fun () -> { sourceWorkspaceId; bundleId }
    let to_value x =
      structure_to_value
        [("SourceWorkspaceId",
           (Some (WorkspaceId.to_value x.sourceWorkspaceId)));
        ("BundleId", (Some (BundleId.to_value x.bundleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bundleId =
        BundleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "BundleId") in
      let sourceWorkspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceWorkspaceId") in
      make ~bundleId ~sourceWorkspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bundleId = field_map_exn json__ "BundleId" BundleId.of_json in
      let sourceWorkspaceId =
        field_map_exn json__ "SourceWorkspaceId" WorkspaceId.of_json in
      make ~bundleId ~sourceWorkspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Migrates a WorkSpace from one operating system or bundle type to another, while retaining the data on the user volume. The migration process recreates the WorkSpace by using a new root volume from the target bundle image and the user volume from the last available snapshot of the original WorkSpace. During migration, the original D:\\Users\\%USERNAME% user profile folder is renamed to D:\\Users\\%USERNAME%MMddyyTHHmmss%.NotMigrated. A new D:\\Users\\%USERNAME%\\ folder is generated by the new OS. Certain files in the old user profile are moved to the new user profile. For available migration scenarios, details about what happens during migration, and best practices, see Migrate a WorkSpace."]
module ListAvailableManagementCidrRangesResult =
  struct
    type nonrec t =
      {
      managementCidrRanges: DedicatedTenancyCidrRangeList.t option
        [@ocaml.doc
          "The list of available IP address ranges, specified as IPv4 CIDR blocks."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?managementCidrRanges =
      fun ?nextToken -> fun () -> { managementCidrRanges; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.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
        [("ManagementCidrRanges",
           (Option.map x.managementCidrRanges
              ~f:DedicatedTenancyCidrRangeList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let managementCidrRanges =
        (Option.map ~f:DedicatedTenancyCidrRangeList.of_xml)
          (Xml.child xml_arg0 "ManagementCidrRanges") in
      make ?nextToken ?managementCidrRanges ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let managementCidrRanges =
        field_map json__ "ManagementCidrRanges"
          DedicatedTenancyCidrRangeList.of_json in
      make ?nextToken ?managementCidrRanges ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of IP address ranges, specified as IPv4 CIDR blocks, that you can use for the network management interface when you enable Bring Your Own License (BYOL). This operation can be run only by Amazon Web Services accounts that are enabled for BYOL. If your account isn't enabled for BYOL, you'll receive an AccessDeniedException error. The management network interface is connected to a secure Amazon WorkSpaces management network. It is used for interactive streaming of the WorkSpace desktop to Amazon WorkSpaces clients, and to allow Amazon WorkSpaces to manage the WorkSpace."]
module ListAvailableManagementCidrRangesRequest =
  struct
    type nonrec t =
      {
      managementCidrRangeConstraint: ManagementCidrRangeConstraint.t
        [@ocaml.doc
          "The IP address range to search. Specify an IP address range that is compatible with your network and in CIDR notation (that is, specify the range as an IPv4 CIDR block)."];
      maxResults: ManagementCidrRangeMaxResults.t option
        [@ocaml.doc "The maximum number of items to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let context_ = "ListAvailableManagementCidrRangesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~managementCidrRangeConstraint ->
          fun () -> { maxResults; nextToken; managementCidrRangeConstraint }
    let to_value x =
      structure_to_value
        [("ManagementCidrRangeConstraint",
           (Some
              (ManagementCidrRangeConstraint.to_value
                 x.managementCidrRangeConstraint)));
        ("MaxResults",
          (Option.map x.maxResults ~f:ManagementCidrRangeMaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ManagementCidrRangeMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let managementCidrRangeConstraint =
        ManagementCidrRangeConstraint.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ManagementCidrRangeConstraint") in
      make ?nextToken ?maxResults ~managementCidrRangeConstraint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults =
        field_map json__ "MaxResults" ManagementCidrRangeMaxResults.of_json in
      let managementCidrRangeConstraint =
        field_map_exn json__ "ManagementCidrRangeConstraint"
          ManagementCidrRangeConstraint.of_json in
      make ?nextToken ?maxResults ~managementCidrRangeConstraint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of IP address ranges, specified as IPv4 CIDR blocks, that you can use for the network management interface when you enable Bring Your Own License (BYOL). This operation can be run only by Amazon Web Services accounts that are enabled for BYOL. If your account isn't enabled for BYOL, you'll receive an AccessDeniedException error. The management network interface is connected to a secure Amazon WorkSpaces management network. It is used for interactive streaming of the WorkSpace desktop to Amazon WorkSpaces clients, and to allow Amazon WorkSpaces to manage the WorkSpace."]
module ListAccountLinksResult =
  struct
    type nonrec t =
      {
      accountLinks: AccountLinkList.t option
        [@ocaml.doc "Information about the account links."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLinks =
      fun ?nextToken -> fun () -> { accountLinks; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.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)
      | "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))]
      | `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
        [("AccountLinks",
           (Option.map x.accountLinks ~f:AccountLinkList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let accountLinks =
        (Option.map ~f:AccountLinkList.of_xml)
          (Xml.child xml_arg0 "AccountLinks") in
      make ?nextToken ?accountLinks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let accountLinks =
        field_map json__ "AccountLinks" AccountLinkList.of_json in
      make ?nextToken ?accountLinks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all account links."]
module ListAccountLinksRequest =
  struct
    type nonrec t =
      {
      linkStatusFilter: LinkStatusFilterList.t option
        [@ocaml.doc "Filters the account based on their link status."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of accounts to return."]}
    let make ?linkStatusFilter =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { linkStatusFilter; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("LinkStatusFilter",
           (Option.map x.linkStatusFilter ~f:LinkStatusFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let linkStatusFilter =
        (Option.map ~f:LinkStatusFilterList.of_xml)
          (Xml.child xml_arg0 "LinkStatusFilter") in
      make ?maxResults ?nextToken ?linkStatusFilter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let linkStatusFilter =
        field_map json__ "LinkStatusFilter" LinkStatusFilterList.of_json in
      make ?maxResults ?nextToken ?linkStatusFilter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all account links."]
module ImportWorkspaceImageResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the WorkSpace image."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId = fun () -> { imageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports the specified Windows 10 or 11 Bring Your Own License (BYOL) image into Amazon WorkSpaces. The image must be an already licensed Amazon EC2 image that is in your Amazon Web Services account, and you must own the image. For more information about creating BYOL images, see Bring Your Own Windows Desktop Licenses."]
module ImportWorkspaceImageRequest =
  struct
    type nonrec t =
      {
      ec2ImageId: Ec2ImageId.t
        [@ocaml.doc "The identifier of the EC2 image."];
      ingestionProcess: WorkspaceImageIngestionProcess.t
        [@ocaml.doc
          "The ingestion process to be used when importing the image, depending on which protocol you want to use for your BYOL Workspace image, either PCoIP, WSP, or bring your own protocol (BYOP). To use DCV, specify a value that ends in _WSP. To use PCoIP, specify a value that does not end in _WSP. To use BYOP, specify a value that ends in _BYOP. For non-GPU-enabled bundles (bundles other than Graphics or GraphicsPro), specify BYOL_REGULAR, BYOL_REGULAR_WSP, or BYOL_REGULAR_BYOP, depending on the protocol. The BYOL_REGULAR_BYOP and BYOL_GRAPHICS_G4DN_BYOP values are only supported by Amazon WorkSpaces Core. Contact your account team to be allow-listed to use these values. For more information, see Amazon WorkSpaces Core."];
      imageName: WorkspaceImageName.t
        [@ocaml.doc "The name of the WorkSpace image."];
      imageDescription: WorkspaceImageDescription.t
        [@ocaml.doc "The description of the WorkSpace image."];
      tags: TagList.t option
        [@ocaml.doc
          "The tags. Each WorkSpaces resource can have a maximum of 50 tags."];
      applications: ApplicationList.t option
        [@ocaml.doc
          "If specified, the version of Microsoft Office to subscribe to. Valid only for Windows 10 and 11 BYOL images. For more information about subscribing to Office for BYOL images, see Bring Your Own Windows Desktop Licenses. Although this parameter is an array, only one item is allowed at this time. During the image import process, non-GPU DCV (formerly WSP) WorkSpaces with Windows 11 support only Microsoft_Office_2019. GPU DCV (formerly WSP) WorkSpaces with Windows 11 do not support Office installation."]}
    let context_ = "ImportWorkspaceImageRequest"
    let make ?tags =
      fun ?applications ->
        fun ~ec2ImageId ->
          fun ~ingestionProcess ->
            fun ~imageName ->
              fun ~imageDescription ->
                fun () ->
                  {
                    tags;
                    applications;
                    ec2ImageId;
                    ingestionProcess;
                    imageName;
                    imageDescription
                  }
    let to_value x =
      structure_to_value
        [("Ec2ImageId", (Some (Ec2ImageId.to_value x.ec2ImageId)));
        ("IngestionProcess",
          (Some (WorkspaceImageIngestionProcess.to_value x.ingestionProcess)));
        ("ImageName", (Some (WorkspaceImageName.to_value x.imageName)));
        ("ImageDescription",
          (Some (WorkspaceImageDescription.to_value x.imageDescription)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("Applications",
          (Option.map x.applications ~f:ApplicationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applications =
        (Option.map ~f:ApplicationList.of_xml)
          (Xml.child xml_arg0 "Applications") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let imageDescription =
        WorkspaceImageDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageDescription") in
      let imageName =
        WorkspaceImageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageName") in
      let ingestionProcess =
        WorkspaceImageIngestionProcess.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IngestionProcess") in
      let ec2ImageId =
        Ec2ImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Ec2ImageId") in
      make ?applications ?tags ~imageDescription ~imageName ~ingestionProcess
        ~ec2ImageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applications =
        field_map json__ "Applications" ApplicationList.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let imageDescription =
        field_map_exn json__ "ImageDescription"
          WorkspaceImageDescription.of_json in
      let imageName =
        field_map_exn json__ "ImageName" WorkspaceImageName.of_json in
      let ingestionProcess =
        field_map_exn json__ "IngestionProcess"
          WorkspaceImageIngestionProcess.of_json in
      let ec2ImageId = field_map_exn json__ "Ec2ImageId" Ec2ImageId.of_json in
      make ?applications ?tags ~imageDescription ~imageName ~ingestionProcess
        ~ec2ImageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports the specified Windows 10 or 11 Bring Your Own License (BYOL) image into Amazon WorkSpaces. The image must be an already licensed Amazon EC2 image that is in your Amazon Web Services account, and you must own the image. For more information about creating BYOL images, see Bring Your Own Windows Desktop Licenses."]
module ImportCustomWorkspaceImageResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the WorkSpace image."];
      state: CustomWorkspaceImageImportState.t option
        [@ocaml.doc "The state of the WorkSpace image."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId = fun ?state -> fun () -> { imageId; state }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("State",
          (Option.map x.state ~f:CustomWorkspaceImageImportState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:CustomWorkspaceImageImportState.of_xml)
          (Xml.child xml_arg0 "State") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?state ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state =
        field_map json__ "State" CustomWorkspaceImageImportState.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?state ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports the specified Windows 10 or 11 Bring Your Own License (BYOL) image into Amazon WorkSpaces using EC2 Image Builder. The image must be an already licensed image that is in your Amazon Web Services account, and you must own the image. For more information about creating BYOL images, see Bring Your Own Windows Desktop Licenses."]
module ImportCustomWorkspaceImageRequest =
  struct
    type nonrec t =
      {
      imageName: WorkspaceImageName.t
        [@ocaml.doc "The name of the WorkSpace image."];
      imageDescription: WorkspaceImageDescription.t
        [@ocaml.doc "The description of the WorkSpace image."];
      computeType: ImageComputeType.t
        [@ocaml.doc "The supported compute type for the WorkSpace image."];
      protocol: CustomImageProtocol.t
        [@ocaml.doc
          "The supported protocol for the WorkSpace image. Windows 11 does not support PCOIP protocol."];
      imageSource: ImageSourceIdentifier.t
        [@ocaml.doc "The options for image import source."];
      infrastructureConfigurationArn: InfrastructureConfigurationArn.t
        [@ocaml.doc
          "The infrastructure configuration ARN that specifies how the WorkSpace image is built."];
      platform: Platform.t
        [@ocaml.doc "The platform for the WorkSpace image source."];
      osVersion: OSVersion.t
        [@ocaml.doc "The OS version for the WorkSpace image source."];
      tags: TagList.t option
        [@ocaml.doc
          "The resource tags. Each WorkSpaces resource can have a maximum of 50 tags."]}
    let context_ = "ImportCustomWorkspaceImageRequest"
    let make ?tags =
      fun ~imageName ->
        fun ~imageDescription ->
          fun ~computeType ->
            fun ~protocol ->
              fun ~imageSource ->
                fun ~infrastructureConfigurationArn ->
                  fun ~platform ->
                    fun ~osVersion ->
                      fun () ->
                        {
                          tags;
                          imageName;
                          imageDescription;
                          computeType;
                          protocol;
                          imageSource;
                          infrastructureConfigurationArn;
                          platform;
                          osVersion
                        }
    let to_value x =
      structure_to_value
        [("ImageName", (Some (WorkspaceImageName.to_value x.imageName)));
        ("ImageDescription",
          (Some (WorkspaceImageDescription.to_value x.imageDescription)));
        ("ComputeType", (Some (ImageComputeType.to_value x.computeType)));
        ("Protocol", (Some (CustomImageProtocol.to_value x.protocol)));
        ("ImageSource",
          (Some (ImageSourceIdentifier.to_value x.imageSource)));
        ("InfrastructureConfigurationArn",
          (Some
             (InfrastructureConfigurationArn.to_value
                x.infrastructureConfigurationArn)));
        ("Platform", (Some (Platform.to_value x.platform)));
        ("OsVersion", (Some (OSVersion.to_value x.osVersion)));
        ("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 osVersion =
        OSVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OsVersion") in
      let platform =
        Platform.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Platform") in
      let infrastructureConfigurationArn =
        InfrastructureConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "InfrastructureConfigurationArn") in
      let imageSource =
        ImageSourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageSource") in
      let protocol =
        CustomImageProtocol.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Protocol") in
      let computeType =
        ImageComputeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComputeType") in
      let imageDescription =
        WorkspaceImageDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageDescription") in
      let imageName =
        WorkspaceImageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageName") in
      make ?tags ~osVersion ~platform ~infrastructureConfigurationArn
        ~imageSource ~protocol ~computeType ~imageDescription ~imageName ()
    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 osVersion = field_map_exn json__ "OsVersion" OSVersion.of_json in
      let platform = field_map_exn json__ "Platform" Platform.of_json in
      let infrastructureConfigurationArn =
        field_map_exn json__ "InfrastructureConfigurationArn"
          InfrastructureConfigurationArn.of_json in
      let imageSource =
        field_map_exn json__ "ImageSource" ImageSourceIdentifier.of_json in
      let protocol =
        field_map_exn json__ "Protocol" CustomImageProtocol.of_json in
      let computeType =
        field_map_exn json__ "ComputeType" ImageComputeType.of_json in
      let imageDescription =
        field_map_exn json__ "ImageDescription"
          WorkspaceImageDescription.of_json in
      let imageName =
        field_map_exn json__ "ImageName" WorkspaceImageName.of_json in
      make ?tags ~osVersion ~platform ~infrastructureConfigurationArn
        ~imageSource ~protocol ~computeType ~imageDescription ~imageName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports the specified Windows 10 or 11 Bring Your Own License (BYOL) image into Amazon WorkSpaces using EC2 Image Builder. The image must be an already licensed image that is in your Amazon Web Services account, and you must own the image. For more information about creating BYOL images, see Bring Your Own Windows Desktop Licenses."]
module ImportClientBrandingResult =
  struct
    type nonrec t =
      {
      deviceTypeWindows: DefaultClientBrandingAttributes.t option
        [@ocaml.doc
          "The branding information configured for Windows devices."];
      deviceTypeOsx: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information configured for macOS devices."];
      deviceTypeAndroid: DefaultClientBrandingAttributes.t option
        [@ocaml.doc
          "The branding information configured for Android devices."];
      deviceTypeIos: IosClientBrandingAttributes.t option
        [@ocaml.doc "The branding information configured for iOS devices."];
      deviceTypeLinux: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information configured for Linux devices."];
      deviceTypeWeb: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information configured for web access."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deviceTypeWindows =
      fun ?deviceTypeOsx ->
        fun ?deviceTypeAndroid ->
          fun ?deviceTypeIos ->
            fun ?deviceTypeLinux ->
              fun ?deviceTypeWeb ->
                fun () ->
                  {
                    deviceTypeWindows;
                    deviceTypeOsx;
                    deviceTypeAndroid;
                    deviceTypeIos;
                    deviceTypeLinux;
                    deviceTypeWeb
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("DeviceTypeWindows",
           (Option.map x.deviceTypeWindows
              ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeOsx",
          (Option.map x.deviceTypeOsx
             ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeAndroid",
          (Option.map x.deviceTypeAndroid
             ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeIos",
          (Option.map x.deviceTypeIos ~f:IosClientBrandingAttributes.to_value));
        ("DeviceTypeLinux",
          (Option.map x.deviceTypeLinux
             ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeWeb",
          (Option.map x.deviceTypeWeb
             ~f:DefaultClientBrandingAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceTypeWeb =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWeb") in
      let deviceTypeLinux =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeLinux") in
      let deviceTypeIos =
        (Option.map ~f:IosClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeIos") in
      let deviceTypeAndroid =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeAndroid") in
      let deviceTypeOsx =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeOsx") in
      let deviceTypeWindows =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWindows") in
      make ?deviceTypeWeb ?deviceTypeLinux ?deviceTypeIos ?deviceTypeAndroid
        ?deviceTypeOsx ?deviceTypeWindows ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceTypeWeb =
        field_map json__ "DeviceTypeWeb"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeLinux =
        field_map json__ "DeviceTypeLinux"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeIos =
        field_map json__ "DeviceTypeIos" IosClientBrandingAttributes.of_json in
      let deviceTypeAndroid =
        field_map json__ "DeviceTypeAndroid"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeOsx =
        field_map json__ "DeviceTypeOsx"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeWindows =
        field_map json__ "DeviceTypeWindows"
          DefaultClientBrandingAttributes.of_json in
      make ?deviceTypeWeb ?deviceTypeLinux ?deviceTypeIos ?deviceTypeAndroid
        ?deviceTypeOsx ?deviceTypeWindows ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports client branding. Client branding allows you to customize your WorkSpace's client login portal. You can tailor your login portal company logo, the support email address, support link, link to reset password, and a custom message for users trying to sign in. After you import client branding, the default branding experience for the specified platform type is replaced with the imported experience You must specify at least one platform type when importing client branding. You can import up to 6 MB of data with each request. If your request exceeds this limit, you can import client branding for different platform types using separate requests. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify only one parameter for each platform type, but not both. Imported data can take up to a minute to appear in the WorkSpaces client."]
module ImportClientBrandingRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier of the WorkSpace for which you want to import client branding."];
      deviceTypeWindows: DefaultImportClientBrandingAttributes.t option
        [@ocaml.doc
          "The branding information to import for Windows devices."];
      deviceTypeOsx: DefaultImportClientBrandingAttributes.t option
        [@ocaml.doc "The branding information to import for macOS devices."];
      deviceTypeAndroid: DefaultImportClientBrandingAttributes.t option
        [@ocaml.doc
          "The branding information to import for Android devices."];
      deviceTypeIos: IosImportClientBrandingAttributes.t option
        [@ocaml.doc "The branding information to import for iOS devices."];
      deviceTypeLinux: DefaultImportClientBrandingAttributes.t option
        [@ocaml.doc "The branding information to import for Linux devices."];
      deviceTypeWeb: DefaultImportClientBrandingAttributes.t option
        [@ocaml.doc "The branding information to import for web access."]}
    let context_ = "ImportClientBrandingRequest"
    let make ?deviceTypeWindows =
      fun ?deviceTypeOsx ->
        fun ?deviceTypeAndroid ->
          fun ?deviceTypeIos ->
            fun ?deviceTypeLinux ->
              fun ?deviceTypeWeb ->
                fun ~resourceId ->
                  fun () ->
                    {
                      deviceTypeWindows;
                      deviceTypeOsx;
                      deviceTypeAndroid;
                      deviceTypeIos;
                      deviceTypeLinux;
                      deviceTypeWeb;
                      resourceId
                    }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("DeviceTypeWindows",
          (Option.map x.deviceTypeWindows
             ~f:DefaultImportClientBrandingAttributes.to_value));
        ("DeviceTypeOsx",
          (Option.map x.deviceTypeOsx
             ~f:DefaultImportClientBrandingAttributes.to_value));
        ("DeviceTypeAndroid",
          (Option.map x.deviceTypeAndroid
             ~f:DefaultImportClientBrandingAttributes.to_value));
        ("DeviceTypeIos",
          (Option.map x.deviceTypeIos
             ~f:IosImportClientBrandingAttributes.to_value));
        ("DeviceTypeLinux",
          (Option.map x.deviceTypeLinux
             ~f:DefaultImportClientBrandingAttributes.to_value));
        ("DeviceTypeWeb",
          (Option.map x.deviceTypeWeb
             ~f:DefaultImportClientBrandingAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceTypeWeb =
        (Option.map ~f:DefaultImportClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWeb") in
      let deviceTypeLinux =
        (Option.map ~f:DefaultImportClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeLinux") in
      let deviceTypeIos =
        (Option.map ~f:IosImportClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeIos") in
      let deviceTypeAndroid =
        (Option.map ~f:DefaultImportClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeAndroid") in
      let deviceTypeOsx =
        (Option.map ~f:DefaultImportClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeOsx") in
      let deviceTypeWindows =
        (Option.map ~f:DefaultImportClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWindows") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?deviceTypeWeb ?deviceTypeLinux ?deviceTypeIos ?deviceTypeAndroid
        ?deviceTypeOsx ?deviceTypeWindows ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceTypeWeb =
        field_map json__ "DeviceTypeWeb"
          DefaultImportClientBrandingAttributes.of_json in
      let deviceTypeLinux =
        field_map json__ "DeviceTypeLinux"
          DefaultImportClientBrandingAttributes.of_json in
      let deviceTypeIos =
        field_map json__ "DeviceTypeIos"
          IosImportClientBrandingAttributes.of_json in
      let deviceTypeAndroid =
        field_map json__ "DeviceTypeAndroid"
          DefaultImportClientBrandingAttributes.of_json in
      let deviceTypeOsx =
        field_map json__ "DeviceTypeOsx"
          DefaultImportClientBrandingAttributes.of_json in
      let deviceTypeWindows =
        field_map json__ "DeviceTypeWindows"
          DefaultImportClientBrandingAttributes.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ?deviceTypeWeb ?deviceTypeLinux ?deviceTypeIos ?deviceTypeAndroid
        ?deviceTypeOsx ?deviceTypeWindows ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Imports client branding. Client branding allows you to customize your WorkSpace's client login portal. You can tailor your login portal company logo, the support email address, support link, link to reset password, and a custom message for users trying to sign in. After you import client branding, the default branding experience for the specified platform type is replaced with the imported experience You must specify at least one platform type when importing client branding. You can import up to 6 MB of data with each request. If your request exceeds this limit, you can import client branding for different platform types using separate requests. In each platform type, the SupportEmail and SupportLink parameters are mutually exclusive. You can specify only one parameter for each platform type, but not both. Imported data can take up to a minute to appear in the WorkSpaces client."]
module GetAccountLinkResult =
  struct
    type nonrec t =
      {
      accountLink: AccountLink.t option
        [@ocaml.doc "The account link of the account link to retrieve."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLink = fun () -> { accountLink }
    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)
      | "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)
      | "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))]
      | `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
        [("AccountLink", (Option.map x.accountLink ~f:AccountLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountLink =
        (Option.map ~f:AccountLink.of_xml) (Xml.child xml_arg0 "AccountLink") in
      make ?accountLink ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountLink = field_map json__ "AccountLink" AccountLink.of_json in
      make ?accountLink ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves account link information."]
module GetAccountLinkRequest =
  struct
    type nonrec t =
      {
      linkId: LinkId.t option
        [@ocaml.doc "The identifier of the account to link."];
      linkedAccountId: AwsAccount.t option
        [@ocaml.doc "The identifier of the account link"]}
    let make ?linkId =
      fun ?linkedAccountId -> fun () -> { linkId; linkedAccountId }
    let to_value x =
      structure_to_value
        [("LinkId", (Option.map x.linkId ~f:LinkId.to_value));
        ("LinkedAccountId",
          (Option.map x.linkedAccountId ~f:AwsAccount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkedAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "LinkedAccountId") in
      let linkId =
        (Option.map ~f:LinkId.of_xml) (Xml.child xml_arg0 "LinkId") in
      make ?linkedAccountId ?linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkedAccountId =
        field_map json__ "LinkedAccountId" AwsAccount.of_json in
      let linkId = field_map json__ "LinkId" LinkId.of_json in
      make ?linkedAccountId ?linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves account link information."]
module DisassociateWorkspaceApplicationResult =
  struct
    type nonrec t =
      {
      association: WorkspaceResourceAssociation.t option
        [@ocaml.doc "Information about the targeted association."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?association = fun () -> { association }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Association",
           (Option.map x.association ~f:WorkspaceResourceAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let association =
        (Option.map ~f:WorkspaceResourceAssociation.of_xml)
          (Xml.child xml_arg0 "Association") in
      make ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let association =
        field_map json__ "Association" WorkspaceResourceAssociation.of_json in
      make ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified application from a WorkSpace."]
module DisassociateWorkspaceApplicationRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."];
      applicationId: WorkSpaceApplicationId.t
        [@ocaml.doc "The identifier of the application."]}
    let context_ = "DisassociateWorkspaceApplicationRequest"
    let make ~workspaceId =
      fun ~applicationId -> fun () -> { workspaceId; applicationId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("ApplicationId",
          (Some (WorkSpaceApplicationId.to_value x.applicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationId =
        WorkSpaceApplicationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationId") in
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~applicationId ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationId =
        field_map_exn json__ "ApplicationId" WorkSpaceApplicationId.of_json in
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~applicationId ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified application from a WorkSpace."]
module DisassociateIpGroupsResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified IP access control group from the specified directory."]
module DisassociateIpGroupsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      groupIds: IpGroupIdList.t
        [@ocaml.doc
          "The identifiers of one or more IP access control groups."]}
    let context_ = "DisassociateIpGroupsRequest"
    let make ~directoryId =
      fun ~groupIds -> fun () -> { directoryId; groupIds }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("GroupIds", (Some (IpGroupIdList.to_value x.groupIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupIds =
        IpGroupIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GroupIds") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~groupIds ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupIds = field_map_exn json__ "GroupIds" IpGroupIdList.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~groupIds ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified IP access control group from the specified directory."]
module DisassociateConnectionAliasResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a connection alias from a directory. Disassociating a connection alias disables cross-Region redirection between two directories in different Regions. For more information, see Cross-Region Redirection for Amazon WorkSpaces. Before performing this operation, call DescribeConnectionAliases to make sure that the current state of the connection alias is CREATED."]
module DisassociateConnectionAliasRequest =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t
        [@ocaml.doc
          "The identifier of the connection alias to disassociate."]}
    let context_ = "DisassociateConnectionAliasRequest"
    let make ~aliasId = fun () -> { aliasId }
    let to_value x =
      structure_to_value
        [("AliasId", (Some (ConnectionAliasId.to_value x.aliasId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aliasId =
        ConnectionAliasId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasId") in
      make ~aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aliasId = field_map_exn json__ "AliasId" ConnectionAliasId.of_json in
      make ~aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a connection alias from a directory. Disassociating a connection alias disables cross-Region redirection between two directories in different Regions. For more information, see Cross-Region Redirection for Amazon WorkSpaces. Before performing this operation, call DescribeConnectionAliases to make sure that the current state of the connection alias is CREATED."]
module DescribeWorkspacesResult =
  struct
    type nonrec t =
      {
      workspaces: WorkspaceList.t option
        [@ocaml.doc
          "Information about the WorkSpaces. Because CreateWorkspaces is an asynchronous operation, some of the returned information could be incomplete."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspaces =
      fun ?nextToken -> fun () -> { workspaces; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("Workspaces", (Option.map x.workspaces ~f:WorkspaceList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let workspaces =
        (Option.map ~f:WorkspaceList.of_xml)
          (Xml.child xml_arg0 "Workspaces") in
      make ?nextToken ?workspaces ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let workspaces = field_map json__ "Workspaces" WorkspaceList.of_json in
      make ?nextToken ?workspaces ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified WorkSpaces. You can filter the results by using the bundle identifier, directory identifier, or owner, but you can specify only one filter at a time."]
module DescribeWorkspacesRequest =
  struct
    type nonrec t =
      {
      workspaceIds: WorkspaceIdList.t option
        [@ocaml.doc
          "The identifiers of the WorkSpaces. You cannot combine this parameter with any other filter. Because the CreateWorkspaces operation is asynchronous, the identifier it returns is not immediately available. If you immediately call DescribeWorkspaces with this identifier, no information is returned."];
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory. In addition, you can optionally specify a specific directory user (see UserName). You cannot combine this parameter with any other filter."];
      userName: UserName.t option
        [@ocaml.doc
          "The name of the directory user. You must specify this parameter with DirectoryId."];
      bundleId: BundleId.t option
        [@ocaml.doc
          "The identifier of the bundle. All WorkSpaces that are created from this bundle are retrieved. You cannot combine this parameter with any other filter."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of items to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      workspaceName: WorkspaceName.t option
        [@ocaml.doc "The name of the user-decoupled WorkSpace."]}
    let make ?workspaceIds =
      fun ?directoryId ->
        fun ?userName ->
          fun ?bundleId ->
            fun ?limit ->
              fun ?nextToken ->
                fun ?workspaceName ->
                  fun () ->
                    {
                      workspaceIds;
                      directoryId;
                      userName;
                      bundleId;
                      limit;
                      nextToken;
                      workspaceName
                    }
    let to_value x =
      structure_to_value
        [("WorkspaceIds",
           (Option.map x.workspaceIds ~f:WorkspaceIdList.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("UserName", (Option.map x.userName ~f:UserName.to_value));
        ("BundleId", (Option.map x.bundleId ~f:BundleId.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("WorkspaceName",
          (Option.map x.workspaceName ~f:WorkspaceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceName =
        (Option.map ~f:WorkspaceName.of_xml)
          (Xml.child xml_arg0 "WorkspaceName") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      let userName =
        (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "UserName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let workspaceIds =
        (Option.map ~f:WorkspaceIdList.of_xml)
          (Xml.child xml_arg0 "WorkspaceIds") in
      make ?workspaceName ?nextToken ?limit ?bundleId ?userName ?directoryId
        ?workspaceIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceName =
        field_map json__ "WorkspaceName" WorkspaceName.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let limit = field_map json__ "Limit" Limit.of_json in
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      let userName = field_map json__ "UserName" UserName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let workspaceIds =
        field_map json__ "WorkspaceIds" WorkspaceIdList.of_json in
      make ?workspaceName ?nextToken ?limit ?bundleId ?userName ?directoryId
        ?workspaceIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified WorkSpaces. You can filter the results by using the bundle identifier, directory identifier, or owner, but you can specify only one filter at a time."]
module DescribeWorkspacesPoolsResult =
  struct
    type nonrec t =
      {
      workspacesPools: WorkspacesPools.t option
        [@ocaml.doc "Information about the WorkSpaces Pools."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspacesPools =
      fun ?nextToken -> fun () -> { workspacesPools; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkspacesPools",
           (Option.map x.workspacesPools ~f:WorkspacesPools.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let workspacesPools =
        (Option.map ~f:WorkspacesPools.of_xml)
          (Xml.child xml_arg0 "WorkspacesPools") in
      make ?nextToken ?workspacesPools ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let workspacesPools =
        field_map json__ "WorkspacesPools" WorkspacesPools.of_json in
      make ?nextToken ?workspacesPools ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the specified WorkSpaces Pools."]
module DescribeWorkspacesPoolsRequest =
  struct
    type nonrec t =
      {
      poolIds: WorkspacesPoolIds.t option
        [@ocaml.doc "The identifier of the WorkSpaces Pools."];
      filters: DescribeWorkspacesPoolsFilters.t option
        [@ocaml.doc
          "The filter conditions for the WorkSpaces Pool to return."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of items to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let make ?poolIds =
      fun ?filters ->
        fun ?limit ->
          fun ?nextToken -> fun () -> { poolIds; filters; limit; nextToken }
    let to_value x =
      structure_to_value
        [("PoolIds", (Option.map x.poolIds ~f:WorkspacesPoolIds.to_value));
        ("Filters",
          (Option.map x.filters ~f:DescribeWorkspacesPoolsFilters.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let filters =
        (Option.map ~f:DescribeWorkspacesPoolsFilters.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let poolIds =
        (Option.map ~f:WorkspacesPoolIds.of_xml)
          (Xml.child xml_arg0 "PoolIds") in
      make ?nextToken ?limit ?filters ?poolIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let limit = field_map json__ "Limit" Limit.of_json in
      let filters =
        field_map json__ "Filters" DescribeWorkspacesPoolsFilters.of_json in
      let poolIds = field_map json__ "PoolIds" WorkspacesPoolIds.of_json in
      make ?nextToken ?limit ?filters ?poolIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the specified WorkSpaces Pools."]
module DescribeWorkspacesPoolSessionsResult =
  struct
    type nonrec t =
      {
      sessions: WorkspacesPoolSessions.t option
        [@ocaml.doc "Describes the pool sessions."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessions = fun ?nextToken -> fun () -> { sessions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Sessions",
           (Option.map x.sessions ~f:WorkspacesPoolSessions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let sessions =
        (Option.map ~f:WorkspacesPoolSessions.of_xml)
          (Xml.child xml_arg0 "Sessions") in
      make ?nextToken ?sessions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let sessions =
        field_map json__ "Sessions" WorkspacesPoolSessions.of_json in
      make ?nextToken ?sessions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the streaming sessions for a specified pool."]
module DescribeWorkspacesPoolSessionsRequest =
  struct
    type nonrec t =
      {
      poolId: WorkspacesPoolId.t [@ocaml.doc "The identifier of the pool."];
      userId: WorkspacesPoolUserId.t option
        [@ocaml.doc "The identifier of the user."];
      limit: Limit50.t option
        [@ocaml.doc
          "The maximum size of each page of results. The default value is 20 and the maximum value is 50."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let context_ = "DescribeWorkspacesPoolSessionsRequest"
    let make ?userId =
      fun ?limit ->
        fun ?nextToken ->
          fun ~poolId -> fun () -> { userId; limit; nextToken; poolId }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (WorkspacesPoolId.to_value x.poolId)));
        ("UserId", (Option.map x.userId ~f:WorkspacesPoolUserId.to_value));
        ("Limit", (Option.map x.limit ~f:Limit50.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let limit = (Option.map ~f:Limit50.of_xml) (Xml.child xml_arg0 "Limit") in
      let userId =
        (Option.map ~f:WorkspacesPoolUserId.of_xml)
          (Xml.child xml_arg0 "UserId") in
      let poolId =
        WorkspacesPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ?nextToken ?limit ?userId ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let limit = field_map json__ "Limit" Limit50.of_json in
      let userId = field_map json__ "UserId" WorkspacesPoolUserId.of_json in
      let poolId = field_map_exn json__ "PoolId" WorkspacesPoolId.of_json in
      make ?nextToken ?limit ?userId ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the streaming sessions for a specified pool."]
module DescribeWorkspacesConnectionStatusResult =
  struct
    type nonrec t =
      {
      workspacesConnectionStatus: WorkspaceConnectionStatusList.t option
        [@ocaml.doc
          "Information about the connection status of the WorkSpace."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspacesConnectionStatus =
      fun ?nextToken -> fun () -> { workspacesConnectionStatus; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.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
        [("WorkspacesConnectionStatus",
           (Option.map x.workspacesConnectionStatus
              ~f:WorkspaceConnectionStatusList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let workspacesConnectionStatus =
        (Option.map ~f:WorkspaceConnectionStatusList.of_xml)
          (Xml.child xml_arg0 "WorkspacesConnectionStatus") in
      make ?nextToken ?workspacesConnectionStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let workspacesConnectionStatus =
        field_map json__ "WorkspacesConnectionStatus"
          WorkspaceConnectionStatusList.of_json in
      make ?nextToken ?workspacesConnectionStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the connection status of the specified WorkSpaces."]
module DescribeWorkspacesConnectionStatusRequest =
  struct
    type nonrec t =
      {
      workspaceIds: WorkspaceIdList.t option
        [@ocaml.doc
          "The identifiers of the WorkSpaces. You can specify up to 25 WorkSpaces."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let make ?workspaceIds =
      fun ?nextToken -> fun () -> { workspaceIds; nextToken }
    let to_value x =
      structure_to_value
        [("WorkspaceIds",
           (Option.map x.workspaceIds ~f:WorkspaceIdList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let workspaceIds =
        (Option.map ~f:WorkspaceIdList.of_xml)
          (Xml.child xml_arg0 "WorkspaceIds") in
      make ?nextToken ?workspaceIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let workspaceIds =
        field_map json__ "WorkspaceIds" WorkspaceIdList.of_json in
      make ?nextToken ?workspaceIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the connection status of the specified WorkSpaces."]
module DescribeWorkspaceSnapshotsResult =
  struct
    type nonrec t =
      {
      rebuildSnapshots: SnapshotList.t option
        [@ocaml.doc
          "Information about the snapshots that can be used to rebuild a WorkSpace. These snapshots include the user volume."];
      restoreSnapshots: SnapshotList.t option
        [@ocaml.doc
          "Information about the snapshots that can be used to restore a WorkSpace. These snapshots include both the root volume and the user volume."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rebuildSnapshots =
      fun ?restoreSnapshots ->
        fun () -> { rebuildSnapshots; restoreSnapshots }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RebuildSnapshots",
           (Option.map x.rebuildSnapshots ~f:SnapshotList.to_value));
        ("RestoreSnapshots",
          (Option.map x.restoreSnapshots ~f:SnapshotList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let restoreSnapshots =
        (Option.map ~f:SnapshotList.of_xml)
          (Xml.child xml_arg0 "RestoreSnapshots") in
      let rebuildSnapshots =
        (Option.map ~f:SnapshotList.of_xml)
          (Xml.child xml_arg0 "RebuildSnapshots") in
      make ?restoreSnapshots ?rebuildSnapshots ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let restoreSnapshots =
        field_map json__ "RestoreSnapshots" SnapshotList.of_json in
      let rebuildSnapshots =
        field_map json__ "RebuildSnapshots" SnapshotList.of_json in
      make ?restoreSnapshots ?rebuildSnapshots ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the snapshots for the specified WorkSpace."]
module DescribeWorkspaceSnapshotsRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."]}
    let context_ = "DescribeWorkspaceSnapshotsRequest"
    let make ~workspaceId = fun () -> { workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the snapshots for the specified WorkSpace."]
module DescribeWorkspaceImagesResult =
  struct
    type nonrec t =
      {
      images: WorkspaceImageList.t option
        [@ocaml.doc "Information about the images."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?images = fun ?nextToken -> fun () -> { images; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | 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))]
      | `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
        [("Images", (Option.map x.images ~f:WorkspaceImageList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let images =
        (Option.map ~f:WorkspaceImageList.of_xml)
          (Xml.child xml_arg0 "Images") in
      make ?nextToken ?images ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let images = field_map json__ "Images" WorkspaceImageList.of_json in
      make ?nextToken ?images ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes one or more specified images, if the image identifiers are provided. Otherwise, all images in the account are described."]
module DescribeWorkspaceImagesRequest =
  struct
    type nonrec t =
      {
      imageIds: WorkspaceImageIdList.t option
        [@ocaml.doc "The identifier of the image."];
      imageType: ImageType.t option
        [@ocaml.doc "The type (owned or shared) of the image."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of items to return."]}
    let make ?imageIds =
      fun ?imageType ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { imageIds; imageType; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ImageIds",
           (Option.map x.imageIds ~f:WorkspaceImageIdList.to_value));
        ("ImageType", (Option.map x.imageType ~f:ImageType.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let imageType =
        (Option.map ~f:ImageType.of_xml) (Xml.child xml_arg0 "ImageType") in
      let imageIds =
        (Option.map ~f:WorkspaceImageIdList.of_xml)
          (Xml.child xml_arg0 "ImageIds") in
      make ?maxResults ?nextToken ?imageType ?imageIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let imageType = field_map json__ "ImageType" ImageType.of_json in
      let imageIds = field_map json__ "ImageIds" WorkspaceImageIdList.of_json in
      make ?maxResults ?nextToken ?imageType ?imageIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes one or more specified images, if the image identifiers are provided. Otherwise, all images in the account are described."]
module DescribeWorkspaceImagePermissionsResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the image."];
      imagePermissions: ImagePermissions.t option
        [@ocaml.doc
          "The identifiers of the Amazon Web Services accounts that the image has been shared with."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId =
      fun ?imagePermissions ->
        fun ?nextToken -> fun () -> { imageId; imagePermissions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("ImagePermissions",
          (Option.map x.imagePermissions ~f:ImagePermissions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let imagePermissions =
        (Option.map ~f:ImagePermissions.of_xml)
          (Xml.child xml_arg0 "ImagePermissions") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?nextToken ?imagePermissions ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let imagePermissions =
        field_map json__ "ImagePermissions" ImagePermissions.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?nextToken ?imagePermissions ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the permissions that the owner of an image has granted to other Amazon Web Services accounts for an image."]
module DescribeWorkspaceImagePermissionsRequest =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t [@ocaml.doc "The identifier of the image."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of items to return."]}
    let context_ = "DescribeWorkspaceImagePermissionsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~imageId -> fun () -> { nextToken; maxResults; imageId }
    let to_value x =
      structure_to_value
        [("ImageId", (Some (WorkspaceImageId.to_value x.imageId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let imageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageId") in
      make ?maxResults ?nextToken ~imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let imageId = field_map_exn json__ "ImageId" WorkspaceImageId.of_json in
      make ?maxResults ?nextToken ~imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the permissions that the owner of an image has granted to other Amazon Web Services accounts for an image."]
module DescribeWorkspaceDirectoriesResult =
  struct
    type nonrec t =
      {
      directories: DirectoryList.t option
        [@ocaml.doc "Information about the directories."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directories =
      fun ?nextToken -> fun () -> { directories; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.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
        [("Directories",
           (Option.map x.directories ~f:DirectoryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let directories =
        (Option.map ~f:DirectoryList.of_xml)
          (Xml.child xml_arg0 "Directories") in
      make ?nextToken ?directories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let directories = field_map json__ "Directories" DirectoryList.of_json in
      make ?nextToken ?directories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the available directories that are registered with Amazon WorkSpaces."]
module DescribeWorkspaceDirectoriesRequest =
  struct
    type nonrec t =
      {
      directoryIds: DirectoryIdList.t option
        [@ocaml.doc
          "The identifiers of the directories. If the value is null, all directories are retrieved."];
      workspaceDirectoryNames: WorkspaceDirectoryNameList.t option
        [@ocaml.doc "The names of the WorkSpace directories."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of directories to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      filters: DescribeWorkspaceDirectoriesFilterList.t option
        [@ocaml.doc "The filter condition for the WorkSpaces."]}
    let make ?directoryIds =
      fun ?workspaceDirectoryNames ->
        fun ?limit ->
          fun ?nextToken ->
            fun ?filters ->
              fun () ->
                {
                  directoryIds;
                  workspaceDirectoryNames;
                  limit;
                  nextToken;
                  filters
                }
    let to_value x =
      structure_to_value
        [("DirectoryIds",
           (Option.map x.directoryIds ~f:DirectoryIdList.to_value));
        ("WorkspaceDirectoryNames",
          (Option.map x.workspaceDirectoryNames
             ~f:WorkspaceDirectoryNameList.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Filters",
          (Option.map x.filters
             ~f:DescribeWorkspaceDirectoriesFilterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:DescribeWorkspaceDirectoriesFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let workspaceDirectoryNames =
        (Option.map ~f:WorkspaceDirectoryNameList.of_xml)
          (Xml.child xml_arg0 "WorkspaceDirectoryNames") in
      let directoryIds =
        (Option.map ~f:DirectoryIdList.of_xml)
          (Xml.child xml_arg0 "DirectoryIds") in
      make ?filters ?nextToken ?limit ?workspaceDirectoryNames ?directoryIds
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "Filters"
          DescribeWorkspaceDirectoriesFilterList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let limit = field_map json__ "Limit" Limit.of_json in
      let workspaceDirectoryNames =
        field_map json__ "WorkspaceDirectoryNames"
          WorkspaceDirectoryNameList.of_json in
      let directoryIds =
        field_map json__ "DirectoryIds" DirectoryIdList.of_json in
      make ?filters ?nextToken ?limit ?workspaceDirectoryNames ?directoryIds
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the available directories that are registered with Amazon WorkSpaces."]
module DescribeWorkspaceBundlesResult =
  struct
    type nonrec t =
      {
      bundles: BundleList.t option
        [@ocaml.doc "Information about the bundles."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return. This token is valid for one day and must be used within that time frame."]}
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bundles = fun ?nextToken -> fun () -> { bundles; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.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
        [("Bundles", (Option.map x.bundles ~f:BundleList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let bundles =
        (Option.map ~f:BundleList.of_xml) (Xml.child xml_arg0 "Bundles") in
      make ?nextToken ?bundles ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let bundles = field_map json__ "Bundles" BundleList.of_json in
      make ?nextToken ?bundles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the available WorkSpace bundles. You can filter the results using either bundle ID or owner, but not both."]
module DescribeWorkspaceBundlesRequest =
  struct
    type nonrec t =
      {
      bundleIds: BundleIdList.t option
        [@ocaml.doc
          "The identifiers of the bundles. You cannot combine this parameter with any other filter."];
      owner: BundleOwner.t option
        [@ocaml.doc
          "The owner of the bundles. You cannot combine this parameter with any other filter. To describe the bundles provided by Amazon Web Services, specify AMAZON. To describe the bundles that belong to your account, don't specify a value."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token for the next set of results. (You received this token from a previous call.)"]}
    let make ?bundleIds =
      fun ?owner ->
        fun ?nextToken -> fun () -> { bundleIds; owner; nextToken }
    let to_value x =
      structure_to_value
        [("BundleIds", (Option.map x.bundleIds ~f:BundleIdList.to_value));
        ("Owner", (Option.map x.owner ~f:BundleOwner.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let owner =
        (Option.map ~f:BundleOwner.of_xml) (Xml.child xml_arg0 "Owner") in
      let bundleIds =
        (Option.map ~f:BundleIdList.of_xml) (Xml.child xml_arg0 "BundleIds") in
      make ?nextToken ?owner ?bundleIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let owner = field_map json__ "Owner" BundleOwner.of_json in
      let bundleIds = field_map json__ "BundleIds" BundleIdList.of_json in
      make ?nextToken ?owner ?bundleIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the available WorkSpace bundles. You can filter the results using either bundle ID or owner, but not both."]
module DescribeWorkspaceAssociationsResult =
  struct
    type nonrec t =
      {
      associations: WorkspaceResourceAssociationList.t option
        [@ocaml.doc "List of information about the specified associations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?associations = fun () -> { associations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Associations",
           (Option.map x.associations
              ~f:WorkspaceResourceAssociationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associations =
        (Option.map ~f:WorkspaceResourceAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      make ?associations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associations =
        field_map json__ "Associations"
          WorkspaceResourceAssociationList.of_json in
      make ?associations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations betweens applications and the specified WorkSpace."]
module DescribeWorkspaceAssociationsRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."];
      associatedResourceTypes: WorkSpaceAssociatedResourceTypeList.t
        [@ocaml.doc "The resource types of the associated resources."]}
    let context_ = "DescribeWorkspaceAssociationsRequest"
    let make ~workspaceId =
      fun ~associatedResourceTypes ->
        fun () -> { workspaceId; associatedResourceTypes }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("AssociatedResourceTypes",
          (Some
             (WorkSpaceAssociatedResourceTypeList.to_value
                x.associatedResourceTypes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedResourceTypes =
        WorkSpaceAssociatedResourceTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssociatedResourceTypes") in
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~associatedResourceTypes ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedResourceTypes =
        field_map_exn json__ "AssociatedResourceTypes"
          WorkSpaceAssociatedResourceTypeList.of_json in
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~associatedResourceTypes ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations betweens applications and the specified WorkSpace."]
module DescribeTagsResult =
  struct
    type nonrec t = {
      tagList: TagList.t option [@ocaml.doc "The tags."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tagList = fun () -> { tagList }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("TagList", (Option.map x.tagList ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagList =
        (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "TagList") in
      make ?tagList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagList = field_map json__ "TagList" TagList.of_json in
      make ?tagList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified tags for the specified WorkSpaces resource."]
module DescribeTagsRequest =
  struct
    type nonrec t =
      {
      resourceId: NonEmptyString.t
        [@ocaml.doc
          "The identifier of the WorkSpaces resource. The supported resource types are WorkSpaces, registered directories, images, custom bundles, IP access control groups, and connection aliases."]}
    let context_ = "DescribeTagsRequest"
    let make ~resourceId = fun () -> { resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (NonEmptyString.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId =
        field_map_exn json__ "ResourceId" NonEmptyString.of_json in
      make ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified tags for the specified WorkSpaces resource."]
module DescribeIpGroupsResult =
  struct
    type nonrec t =
      {
      result: WorkspacesIpGroupsList.t option
        [@ocaml.doc "Information about the IP access control groups."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?result = fun ?nextToken -> fun () -> { result; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.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
        [("Result", (Option.map x.result ~f:WorkspacesIpGroupsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let result =
        (Option.map ~f:WorkspacesIpGroupsList.of_xml)
          (Xml.child xml_arg0 "Result") in
      make ?nextToken ?result ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let result = field_map json__ "Result" WorkspacesIpGroupsList.of_json in
      make ?nextToken ?result ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes one or more of your IP access control groups."]
module DescribeIpGroupsRequest =
  struct
    type nonrec t =
      {
      groupIds: IpGroupIdList.t option
        [@ocaml.doc
          "The identifiers of one or more IP access control groups."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of items to return."]}
    let make ?groupIds =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { groupIds; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("GroupIds", (Option.map x.groupIds ~f:IpGroupIdList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let groupIds =
        (Option.map ~f:IpGroupIdList.of_xml) (Xml.child xml_arg0 "GroupIds") in
      make ?maxResults ?nextToken ?groupIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let groupIds = field_map json__ "GroupIds" IpGroupIdList.of_json in
      make ?maxResults ?nextToken ?groupIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes one or more of your IP access control groups."]
module DescribeImageAssociationsResult =
  struct
    type nonrec t =
      {
      associations: ImageResourceAssociationList.t option
        [@ocaml.doc "List of information about the specified associations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?associations = fun () -> { associations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Associations",
           (Option.map x.associations
              ~f:ImageResourceAssociationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associations =
        (Option.map ~f:ImageResourceAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      make ?associations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associations =
        field_map json__ "Associations" ImageResourceAssociationList.of_json in
      make ?associations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations between the applications and the specified image."]
module DescribeImageAssociationsRequest =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t [@ocaml.doc "The identifier of the image."];
      associatedResourceTypes: ImageAssociatedResourceTypeList.t
        [@ocaml.doc "The resource types of the associated resource."]}
    let context_ = "DescribeImageAssociationsRequest"
    let make ~imageId =
      fun ~associatedResourceTypes ->
        fun () -> { imageId; associatedResourceTypes }
    let to_value x =
      structure_to_value
        [("ImageId", (Some (WorkspaceImageId.to_value x.imageId)));
        ("AssociatedResourceTypes",
          (Some
             (ImageAssociatedResourceTypeList.to_value
                x.associatedResourceTypes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedResourceTypes =
        ImageAssociatedResourceTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssociatedResourceTypes") in
      let imageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageId") in
      make ~associatedResourceTypes ~imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedResourceTypes =
        field_map_exn json__ "AssociatedResourceTypes"
          ImageAssociatedResourceTypeList.of_json in
      let imageId = field_map_exn json__ "ImageId" WorkspaceImageId.of_json in
      make ~associatedResourceTypes ~imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations between the applications and the specified image."]
module DescribeCustomWorkspaceImageImportResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the WorkSpace image."];
      infrastructureConfigurationArn: InfrastructureConfigurationArn.t option
        [@ocaml.doc
          "The infrastructure configuration ARN that specifies how the WorkSpace image is built."];
      state: CustomWorkspaceImageImportState.t option
        [@ocaml.doc "The state of the WorkSpace image."];
      stateMessage: WorkflowStateMessage.t option
        [@ocaml.doc
          "The state message of the WorkSpace image import workflow."];
      progressPercentage: Percentage.t option
        [@ocaml.doc
          "The estimated progress percentage of the WorkSpace image import workflow."];
      created: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the WorkSpace image import was created."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc
          "The timestamp when the WorkSpace image import was last updated."];
      imageSource: ImageSourceIdentifier.t option
        [@ocaml.doc "Describes the image import source."];
      imageBuilderInstanceId: NonEmptyString.t option
        [@ocaml.doc "The image builder instance ID of the WorkSpace image."];
      errorDetails: CustomWorkspaceImageImportErrorDetailsList.t option
        [@ocaml.doc
          "Describes in-depth details about the error. These details include the possible causes of the error and troubleshooting information."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId =
      fun ?infrastructureConfigurationArn ->
        fun ?state ->
          fun ?stateMessage ->
            fun ?progressPercentage ->
              fun ?created ->
                fun ?lastUpdatedTime ->
                  fun ?imageSource ->
                    fun ?imageBuilderInstanceId ->
                      fun ?errorDetails ->
                        fun () ->
                          {
                            imageId;
                            infrastructureConfigurationArn;
                            state;
                            stateMessage;
                            progressPercentage;
                            created;
                            lastUpdatedTime;
                            imageSource;
                            imageBuilderInstanceId;
                            errorDetails
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("InfrastructureConfigurationArn",
          (Option.map x.infrastructureConfigurationArn
             ~f:InfrastructureConfigurationArn.to_value));
        ("State",
          (Option.map x.state ~f:CustomWorkspaceImageImportState.to_value));
        ("StateMessage",
          (Option.map x.stateMessage ~f:WorkflowStateMessage.to_value));
        ("ProgressPercentage",
          (Option.map x.progressPercentage ~f:Percentage.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("ImageSource",
          (Option.map x.imageSource ~f:ImageSourceIdentifier.to_value));
        ("ImageBuilderInstanceId",
          (Option.map x.imageBuilderInstanceId ~f:NonEmptyString.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails
             ~f:CustomWorkspaceImageImportErrorDetailsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:CustomWorkspaceImageImportErrorDetailsList.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let imageBuilderInstanceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ImageBuilderInstanceId") in
      let imageSource =
        (Option.map ~f:ImageSourceIdentifier.of_xml)
          (Xml.child xml_arg0 "ImageSource") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let progressPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "ProgressPercentage") in
      let stateMessage =
        (Option.map ~f:WorkflowStateMessage.of_xml)
          (Xml.child xml_arg0 "StateMessage") in
      let state =
        (Option.map ~f:CustomWorkspaceImageImportState.of_xml)
          (Xml.child xml_arg0 "State") in
      let infrastructureConfigurationArn =
        (Option.map ~f:InfrastructureConfigurationArn.of_xml)
          (Xml.child xml_arg0 "InfrastructureConfigurationArn") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?errorDetails ?imageBuilderInstanceId ?imageSource
        ?lastUpdatedTime ?created ?progressPercentage ?stateMessage ?state
        ?infrastructureConfigurationArn ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails =
        field_map json__ "ErrorDetails"
          CustomWorkspaceImageImportErrorDetailsList.of_json in
      let imageBuilderInstanceId =
        field_map json__ "ImageBuilderInstanceId" NonEmptyString.of_json in
      let imageSource =
        field_map json__ "ImageSource" ImageSourceIdentifier.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" Timestamp.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let progressPercentage =
        field_map json__ "ProgressPercentage" Percentage.of_json in
      let stateMessage =
        field_map json__ "StateMessage" WorkflowStateMessage.of_json in
      let state =
        field_map json__ "State" CustomWorkspaceImageImportState.of_json in
      let infrastructureConfigurationArn =
        field_map json__ "InfrastructureConfigurationArn"
          InfrastructureConfigurationArn.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?errorDetails ?imageBuilderInstanceId ?imageSource
        ?lastUpdatedTime ?created ?progressPercentage ?stateMessage ?state
        ?infrastructureConfigurationArn ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a WorkSpace BYOL image being imported via ImportCustomWorkspaceImage."]
module DescribeCustomWorkspaceImageImportRequest =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t
        [@ocaml.doc "The identifier of the WorkSpace image."]}
    let context_ = "DescribeCustomWorkspaceImageImportRequest"
    let make ~imageId = fun () -> { imageId }
    let to_value x =
      structure_to_value
        [("ImageId", (Some (WorkspaceImageId.to_value x.imageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageId") in
      make ~imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageId = field_map_exn json__ "ImageId" WorkspaceImageId.of_json in
      make ~imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a WorkSpace BYOL image being imported via ImportCustomWorkspaceImage."]
module DescribeConnectionAliasesResult =
  struct
    type nonrec t =
      {
      connectionAliases: ConnectionAliasList.t option
        [@ocaml.doc "Information about the specified connection aliases."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionAliases =
      fun ?nextToken -> fun () -> { connectionAliases; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.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
        [("ConnectionAliases",
           (Option.map x.connectionAliases ~f:ConnectionAliasList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let connectionAliases =
        (Option.map ~f:ConnectionAliasList.of_xml)
          (Xml.child xml_arg0 "ConnectionAliases") in
      make ?nextToken ?connectionAliases ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let connectionAliases =
        field_map json__ "ConnectionAliases" ConnectionAliasList.of_json in
      make ?nextToken ?connectionAliases ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the connection aliases used for cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module DescribeConnectionAliasesRequest =
  struct
    type nonrec t =
      {
      aliasIds: ConnectionAliasIdList.t option
        [@ocaml.doc "The identifiers of the connection aliases to describe."];
      resourceId: NonEmptyString.t option
        [@ocaml.doc
          "The identifier of the directory associated with the connection alias."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of connection aliases to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let make ?aliasIds =
      fun ?resourceId ->
        fun ?limit ->
          fun ?nextToken ->
            fun () -> { aliasIds; resourceId; limit; nextToken }
    let to_value x =
      structure_to_value
        [("AliasIds",
           (Option.map x.aliasIds ~f:ConnectionAliasIdList.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:NonEmptyString.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let resourceId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let aliasIds =
        (Option.map ~f:ConnectionAliasIdList.of_xml)
          (Xml.child xml_arg0 "AliasIds") in
      make ?nextToken ?limit ?resourceId ?aliasIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let limit = field_map json__ "Limit" Limit.of_json in
      let resourceId = field_map json__ "ResourceId" NonEmptyString.of_json in
      let aliasIds =
        field_map json__ "AliasIds" ConnectionAliasIdList.of_json in
      make ?nextToken ?limit ?resourceId ?aliasIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the connection aliases used for cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module DescribeConnectionAliasPermissionsResult =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t option
        [@ocaml.doc "The identifier of the connection alias."];
      connectionAliasPermissions: ConnectionAliasPermissions.t option
        [@ocaml.doc "The permissions associated with a connection alias."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?aliasId =
      fun ?connectionAliasPermissions ->
        fun ?nextToken ->
          fun () -> { aliasId; connectionAliasPermissions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AliasId", (Option.map x.aliasId ~f:ConnectionAliasId.to_value));
        ("ConnectionAliasPermissions",
          (Option.map x.connectionAliasPermissions
             ~f:ConnectionAliasPermissions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let connectionAliasPermissions =
        (Option.map ~f:ConnectionAliasPermissions.of_xml)
          (Xml.child xml_arg0 "ConnectionAliasPermissions") in
      let aliasId =
        (Option.map ~f:ConnectionAliasId.of_xml)
          (Xml.child xml_arg0 "AliasId") in
      make ?nextToken ?connectionAliasPermissions ?aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let connectionAliasPermissions =
        field_map json__ "ConnectionAliasPermissions"
          ConnectionAliasPermissions.of_json in
      let aliasId = field_map json__ "AliasId" ConnectionAliasId.of_json in
      make ?nextToken ?connectionAliasPermissions ?aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the permissions that the owner of a connection alias has granted to another Amazon Web Services account for the specified connection alias. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module DescribeConnectionAliasPermissionsRequest =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t
        [@ocaml.doc "The identifier of the connection alias."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let context_ = "DescribeConnectionAliasPermissionsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~aliasId -> fun () -> { nextToken; maxResults; aliasId }
    let to_value x =
      structure_to_value
        [("AliasId", (Some (ConnectionAliasId.to_value x.aliasId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let aliasId =
        ConnectionAliasId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasId") in
      make ?maxResults ?nextToken ~aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let aliasId = field_map_exn json__ "AliasId" ConnectionAliasId.of_json in
      make ?maxResults ?nextToken ~aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the permissions that the owner of a connection alias has granted to another Amazon Web Services account for the specified connection alias. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module DescribeConnectClientAddInsResult =
  struct
    type nonrec t =
      {
      addIns: ConnectClientAddInList.t option
        [@ocaml.doc "Information about client add-ins."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addIns = fun ?nextToken -> fun () -> { addIns; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AddIns", (Option.map x.addIns ~f:ConnectClientAddInList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let addIns =
        (Option.map ~f:ConnectClientAddInList.of_xml)
          (Xml.child xml_arg0 "AddIns") in
      make ?nextToken ?addIns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let addIns = field_map json__ "AddIns" ConnectClientAddInList.of_json in
      make ?nextToken ?addIns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of Amazon Connect client add-ins that have been created."]
module DescribeConnectClientAddInsRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier for which the client add-in is configured."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of items to return."]}
    let context_ = "DescribeConnectClientAddInsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceId -> fun () -> { nextToken; maxResults; resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?maxResults ?nextToken ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ?maxResults ?nextToken ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of Amazon Connect client add-ins that have been created."]
module DescribeClientPropertiesResult =
  struct
    type nonrec t =
      {
      clientPropertiesList: ClientPropertiesList.t option
        [@ocaml.doc
          "Information about the specified Amazon WorkSpaces clients."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientPropertiesList = fun () -> { clientPropertiesList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ClientPropertiesList",
           (Option.map x.clientPropertiesList
              ~f:ClientPropertiesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientPropertiesList =
        (Option.map ~f:ClientPropertiesList.of_xml)
          (Xml.child xml_arg0 "ClientPropertiesList") in
      make ?clientPropertiesList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientPropertiesList =
        field_map json__ "ClientPropertiesList" ClientPropertiesList.of_json in
      make ?clientPropertiesList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes one or more specified Amazon WorkSpaces clients."]
module DescribeClientPropertiesRequest =
  struct
    type nonrec t =
      {
      resourceIds: ResourceIdList.t
        [@ocaml.doc "The resource identifier, in the form of directory IDs."]}
    let context_ = "DescribeClientPropertiesRequest"
    let make ~resourceIds = fun () -> { resourceIds }
    let to_value x =
      structure_to_value
        [("ResourceIds", (Some (ResourceIdList.to_value x.resourceIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIds =
        ResourceIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceIds") in
      make ~resourceIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIds =
        field_map_exn json__ "ResourceIds" ResourceIdList.of_json in
      make ~resourceIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes one or more specified Amazon WorkSpaces clients."]
module DescribeClientBrandingResult =
  struct
    type nonrec t =
      {
      deviceTypeWindows: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information for Windows devices."];
      deviceTypeOsx: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information for macOS devices."];
      deviceTypeAndroid: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information for Android devices."];
      deviceTypeIos: IosClientBrandingAttributes.t option
        [@ocaml.doc "The branding information for iOS devices."];
      deviceTypeLinux: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information for Linux devices."];
      deviceTypeWeb: DefaultClientBrandingAttributes.t option
        [@ocaml.doc "The branding information for Web access."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deviceTypeWindows =
      fun ?deviceTypeOsx ->
        fun ?deviceTypeAndroid ->
          fun ?deviceTypeIos ->
            fun ?deviceTypeLinux ->
              fun ?deviceTypeWeb ->
                fun () ->
                  {
                    deviceTypeWindows;
                    deviceTypeOsx;
                    deviceTypeAndroid;
                    deviceTypeIos;
                    deviceTypeLinux;
                    deviceTypeWeb
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("DeviceTypeWindows",
           (Option.map x.deviceTypeWindows
              ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeOsx",
          (Option.map x.deviceTypeOsx
             ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeAndroid",
          (Option.map x.deviceTypeAndroid
             ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeIos",
          (Option.map x.deviceTypeIos ~f:IosClientBrandingAttributes.to_value));
        ("DeviceTypeLinux",
          (Option.map x.deviceTypeLinux
             ~f:DefaultClientBrandingAttributes.to_value));
        ("DeviceTypeWeb",
          (Option.map x.deviceTypeWeb
             ~f:DefaultClientBrandingAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceTypeWeb =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWeb") in
      let deviceTypeLinux =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeLinux") in
      let deviceTypeIos =
        (Option.map ~f:IosClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeIos") in
      let deviceTypeAndroid =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeAndroid") in
      let deviceTypeOsx =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeOsx") in
      let deviceTypeWindows =
        (Option.map ~f:DefaultClientBrandingAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceTypeWindows") in
      make ?deviceTypeWeb ?deviceTypeLinux ?deviceTypeIos ?deviceTypeAndroid
        ?deviceTypeOsx ?deviceTypeWindows ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceTypeWeb =
        field_map json__ "DeviceTypeWeb"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeLinux =
        field_map json__ "DeviceTypeLinux"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeIos =
        field_map json__ "DeviceTypeIos" IosClientBrandingAttributes.of_json in
      let deviceTypeAndroid =
        field_map json__ "DeviceTypeAndroid"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeOsx =
        field_map json__ "DeviceTypeOsx"
          DefaultClientBrandingAttributes.of_json in
      let deviceTypeWindows =
        field_map json__ "DeviceTypeWindows"
          DefaultClientBrandingAttributes.of_json in
      make ?deviceTypeWeb ?deviceTypeLinux ?deviceTypeIos ?deviceTypeAndroid
        ?deviceTypeOsx ?deviceTypeWindows ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified client branding. Client branding allows you to customize the log in page of various device types for your users. You can add your company logo, the support email address, support link, link to reset password, and a custom message for users trying to sign in. Only device types that have branding information configured will be shown in the response."]
module DescribeClientBrandingRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier of the WorkSpace for which you want to view client branding information."]}
    let context_ = "DescribeClientBrandingRequest"
    let make ~resourceId = fun () -> { resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified client branding. Client branding allows you to customize the log in page of various device types for your users. You can add your company logo, the support email address, support link, link to reset password, and a custom message for users trying to sign in. Only device types that have branding information configured will be shown in the response."]
module DescribeBundleAssociationsResult =
  struct
    type nonrec t =
      {
      associations: BundleResourceAssociationList.t option
        [@ocaml.doc "List of information about the specified associations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?associations = fun () -> { associations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Associations",
           (Option.map x.associations
              ~f:BundleResourceAssociationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associations =
        (Option.map ~f:BundleResourceAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      make ?associations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associations =
        field_map json__ "Associations" BundleResourceAssociationList.of_json in
      make ?associations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations between the applications and the specified bundle."]
module DescribeBundleAssociationsRequest =
  struct
    type nonrec t =
      {
      bundleId: BundleId.t [@ocaml.doc "The identifier of the bundle."];
      associatedResourceTypes: BundleAssociatedResourceTypeList.t
        [@ocaml.doc "The resource types of the associated resource."]}
    let context_ = "DescribeBundleAssociationsRequest"
    let make ~bundleId =
      fun ~associatedResourceTypes ->
        fun () -> { bundleId; associatedResourceTypes }
    let to_value x =
      structure_to_value
        [("BundleId", (Some (BundleId.to_value x.bundleId)));
        ("AssociatedResourceTypes",
          (Some
             (BundleAssociatedResourceTypeList.to_value
                x.associatedResourceTypes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedResourceTypes =
        BundleAssociatedResourceTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssociatedResourceTypes") in
      let bundleId =
        BundleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "BundleId") in
      make ~associatedResourceTypes ~bundleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedResourceTypes =
        field_map_exn json__ "AssociatedResourceTypes"
          BundleAssociatedResourceTypeList.of_json in
      let bundleId = field_map_exn json__ "BundleId" BundleId.of_json in
      make ~associatedResourceTypes ~bundleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations between the applications and the specified bundle."]
module DescribeApplicationsResult =
  struct
    type nonrec t =
      {
      applications: WorkSpaceApplicationList.t option
        [@ocaml.doc "List of information about the specified applications."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applications =
      fun ?nextToken -> fun () -> { applications; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Applications",
           (Option.map x.applications ~f:WorkSpaceApplicationList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let applications =
        (Option.map ~f:WorkSpaceApplicationList.of_xml)
          (Xml.child xml_arg0 "Applications") in
      make ?nextToken ?applications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let applications =
        field_map json__ "Applications" WorkSpaceApplicationList.of_json in
      make ?nextToken ?applications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified applications by filtering based on their compute types, license availability, operating systems, and owners."]
module DescribeApplicationsRequest =
  struct
    type nonrec t =
      {
      applicationIds: WorkSpaceApplicationIdList.t option
        [@ocaml.doc "The identifiers of one or more applications."];
      computeTypeNames: ComputeList.t option
        [@ocaml.doc "The compute types supported by the applications."];
      licenseType: WorkSpaceApplicationLicenseType.t option
        [@ocaml.doc "The license availability for the applications."];
      operatingSystemNames: OperatingSystemNameList.t option
        [@ocaml.doc "The operating systems supported by the applications."];
      owner: WorkSpaceApplicationOwner.t option
        [@ocaml.doc "The owner of the applications."];
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of applications to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let make ?applicationIds =
      fun ?computeTypeNames ->
        fun ?licenseType ->
          fun ?operatingSystemNames ->
            fun ?owner ->
              fun ?maxResults ->
                fun ?nextToken ->
                  fun () ->
                    {
                      applicationIds;
                      computeTypeNames;
                      licenseType;
                      operatingSystemNames;
                      owner;
                      maxResults;
                      nextToken
                    }
    let to_value x =
      structure_to_value
        [("ApplicationIds",
           (Option.map x.applicationIds
              ~f:WorkSpaceApplicationIdList.to_value));
        ("ComputeTypeNames",
          (Option.map x.computeTypeNames ~f:ComputeList.to_value));
        ("LicenseType",
          (Option.map x.licenseType
             ~f:WorkSpaceApplicationLicenseType.to_value));
        ("OperatingSystemNames",
          (Option.map x.operatingSystemNames
             ~f:OperatingSystemNameList.to_value));
        ("Owner", (Option.map x.owner ~f:WorkSpaceApplicationOwner.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let owner =
        (Option.map ~f:WorkSpaceApplicationOwner.of_xml)
          (Xml.child xml_arg0 "Owner") in
      let operatingSystemNames =
        (Option.map ~f:OperatingSystemNameList.of_xml)
          (Xml.child xml_arg0 "OperatingSystemNames") in
      let licenseType =
        (Option.map ~f:WorkSpaceApplicationLicenseType.of_xml)
          (Xml.child xml_arg0 "LicenseType") in
      let computeTypeNames =
        (Option.map ~f:ComputeList.of_xml)
          (Xml.child xml_arg0 "ComputeTypeNames") in
      let applicationIds =
        (Option.map ~f:WorkSpaceApplicationIdList.of_xml)
          (Xml.child xml_arg0 "ApplicationIds") in
      make ?nextToken ?maxResults ?owner ?operatingSystemNames ?licenseType
        ?computeTypeNames ?applicationIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let owner = field_map json__ "Owner" WorkSpaceApplicationOwner.of_json in
      let operatingSystemNames =
        field_map json__ "OperatingSystemNames"
          OperatingSystemNameList.of_json in
      let licenseType =
        field_map json__ "LicenseType"
          WorkSpaceApplicationLicenseType.of_json in
      let computeTypeNames =
        field_map json__ "ComputeTypeNames" ComputeList.of_json in
      let applicationIds =
        field_map json__ "ApplicationIds" WorkSpaceApplicationIdList.of_json in
      make ?nextToken ?maxResults ?owner ?operatingSystemNames ?licenseType
        ?computeTypeNames ?applicationIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified applications by filtering based on their compute types, license availability, operating systems, and owners."]
module DescribeApplicationAssociationsResult =
  struct
    type nonrec t =
      {
      associations: ApplicationResourceAssociationList.t option
        [@ocaml.doc "List of associations and information about them."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?associations =
      fun ?nextToken -> fun () -> { associations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Associations",
           (Option.map x.associations
              ~f:ApplicationResourceAssociationList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let associations =
        (Option.map ~f:ApplicationResourceAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      make ?nextToken ?associations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let associations =
        field_map json__ "Associations"
          ApplicationResourceAssociationList.of_json in
      make ?nextToken ?associations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations between the application and the specified associated resources."]
module DescribeApplicationAssociationsRequest =
  struct
    type nonrec t =
      {
      maxResults: Limit.t option
        [@ocaml.doc "The maximum number of associations to return."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."];
      applicationId: WorkSpaceApplicationId.t
        [@ocaml.doc "The identifier of the specified application."];
      associatedResourceTypes: ApplicationAssociatedResourceTypeList.t
        [@ocaml.doc "The resource type of the associated resources."]}
    let context_ = "DescribeApplicationAssociationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~applicationId ->
          fun ~associatedResourceTypes ->
            fun () ->
              { maxResults; nextToken; applicationId; associatedResourceTypes
              }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("ApplicationId",
          (Some (WorkSpaceApplicationId.to_value x.applicationId)));
        ("AssociatedResourceTypes",
          (Some
             (ApplicationAssociatedResourceTypeList.to_value
                x.associatedResourceTypes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedResourceTypes =
        ApplicationAssociatedResourceTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssociatedResourceTypes") in
      let applicationId =
        WorkSpaceApplicationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationId") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ~associatedResourceTypes ~applicationId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedResourceTypes =
        field_map_exn json__ "AssociatedResourceTypes"
          ApplicationAssociatedResourceTypeList.of_json in
      let applicationId =
        field_map_exn json__ "ApplicationId" WorkSpaceApplicationId.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      make ~associatedResourceTypes ~applicationId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the associations between the application and the specified associated resources."]
module DescribeAccountResult =
  struct
    type nonrec t =
      {
      dedicatedTenancySupport: DedicatedTenancySupportResultEnum.t option
        [@ocaml.doc
          "The status of BYOL (whether BYOL is enabled or disabled)."];
      dedicatedTenancyManagementCidrRange:
        DedicatedTenancyManagementCidrRange.t option
        [@ocaml.doc
          "The IP address range, specified as an IPv4 CIDR block, used for the management network interface. The management network interface is connected to a secure Amazon WorkSpaces management network. It is used for interactive streaming of the WorkSpace desktop to Amazon WorkSpaces clients, and to allow Amazon WorkSpaces to manage the WorkSpace."];
      dedicatedTenancyAccountType: DedicatedTenancyAccountType.t option
        [@ocaml.doc "The type of linked account."];
      message: Message.t option
        [@ocaml.doc "The text message to describe the status of BYOL."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dedicatedTenancySupport =
      fun ?dedicatedTenancyManagementCidrRange ->
        fun ?dedicatedTenancyAccountType ->
          fun ?message ->
            fun () ->
              {
                dedicatedTenancySupport;
                dedicatedTenancyManagementCidrRange;
                dedicatedTenancyAccountType;
                message
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | 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))]
      | `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
        [("DedicatedTenancySupport",
           (Option.map x.dedicatedTenancySupport
              ~f:DedicatedTenancySupportResultEnum.to_value));
        ("DedicatedTenancyManagementCidrRange",
          (Option.map x.dedicatedTenancyManagementCidrRange
             ~f:DedicatedTenancyManagementCidrRange.to_value));
        ("DedicatedTenancyAccountType",
          (Option.map x.dedicatedTenancyAccountType
             ~f:DedicatedTenancyAccountType.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let dedicatedTenancyAccountType =
        (Option.map ~f:DedicatedTenancyAccountType.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancyAccountType") in
      let dedicatedTenancyManagementCidrRange =
        (Option.map ~f:DedicatedTenancyManagementCidrRange.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancyManagementCidrRange") in
      let dedicatedTenancySupport =
        (Option.map ~f:DedicatedTenancySupportResultEnum.of_xml)
          (Xml.child xml_arg0 "DedicatedTenancySupport") in
      make ?message ?dedicatedTenancyAccountType
        ?dedicatedTenancyManagementCidrRange ?dedicatedTenancySupport ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      let dedicatedTenancyAccountType =
        field_map json__ "DedicatedTenancyAccountType"
          DedicatedTenancyAccountType.of_json in
      let dedicatedTenancyManagementCidrRange =
        field_map json__ "DedicatedTenancyManagementCidrRange"
          DedicatedTenancyManagementCidrRange.of_json in
      let dedicatedTenancySupport =
        field_map json__ "DedicatedTenancySupport"
          DedicatedTenancySupportResultEnum.of_json in
      make ?message ?dedicatedTenancyAccountType
        ?dedicatedTenancyManagementCidrRange ?dedicatedTenancySupport ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes the configuration of Bring Your Own License (BYOL) for the specified account."]
module DescribeAccountRequest =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "Retrieves a list that describes the configuration of Bring Your Own License (BYOL) for the specified account."]
module DescribeAccountModificationsResult =
  struct
    type nonrec t =
      {
      accountModifications: AccountModificationList.t option
        [@ocaml.doc
          "The list of modifications to the configuration of BYOL."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountModifications =
      fun ?nextToken -> fun () -> { accountModifications; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | 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))]
      | `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
        [("AccountModifications",
           (Option.map x.accountModifications
              ~f:AccountModificationList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let accountModifications =
        (Option.map ~f:AccountModificationList.of_xml)
          (Xml.child xml_arg0 "AccountModifications") in
      make ?nextToken ?accountModifications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let accountModifications =
        field_map json__ "AccountModifications"
          AccountModificationList.of_json in
      make ?nextToken ?accountModifications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes modifications to the configuration of Bring Your Own License (BYOL) for the specified account."]
module DescribeAccountModificationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If you received a NextToken from a previous call that was paginated, provide this token to receive the next set of results."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list that describes modifications to the configuration of Bring Your Own License (BYOL) for the specified account."]
module DeregisterWorkspaceDirectoryResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters the specified directory. This operation is asynchronous and returns before the WorkSpace directory is deregistered. If any WorkSpaces are registered to this directory, you must remove them before you can deregister the directory. Simple AD and AD Connector are made available to you free of charge to use with WorkSpaces. If there are no WorkSpaces being used with your Simple AD or AD Connector directory for 30 consecutive days, this directory will be automatically deregistered for use with Amazon WorkSpaces, and you will be charged for this directory as per the Directory Service pricing terms. To delete empty directories, see Delete the Directory for Your WorkSpaces. If you delete your Simple AD or AD Connector directory, you can always create a new one when you want to start using WorkSpaces again."]
module DeregisterWorkspaceDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory. If any WorkSpaces are registered to this directory, you must remove them before you deregister the directory, or you will receive an OperationNotSupportedException error."]}
    let context_ = "DeregisterWorkspaceDirectoryRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters the specified directory. This operation is asynchronous and returns before the WorkSpace directory is deregistered. If any WorkSpaces are registered to this directory, you must remove them before you can deregister the directory. Simple AD and AD Connector are made available to you free of charge to use with WorkSpaces. If there are no WorkSpaces being used with your Simple AD or AD Connector directory for 30 consecutive days, this directory will be automatically deregistered for use with Amazon WorkSpaces, and you will be charged for this directory as per the Directory Service pricing terms. To delete empty directories, see Delete the Directory for Your WorkSpaces. If you delete your Simple AD or AD Connector directory, you can always create a new one when you want to start using WorkSpaces again."]
module DeployWorkspaceApplicationsResult =
  struct
    type nonrec t =
      {
      deployment: WorkSpaceApplicationDeployment.t option
        [@ocaml.doc
          "The list of deployed associations and information about them."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IncompatibleApplicationsException of
          IncompatibleApplicationsException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deployment = fun () -> { deployment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IncompatibleApplicationsException" ->
          `IncompatibleApplicationsException
            (IncompatibleApplicationsException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IncompatibleApplicationsException" ->
          `IncompatibleApplicationsException
            (IncompatibleApplicationsException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IncompatibleApplicationsException e ->
          `Assoc
            [("error", (`String "IncompatibleApplicationsException"));
            ("details", (IncompatibleApplicationsException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Deployment",
           (Option.map x.deployment
              ~f:WorkSpaceApplicationDeployment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deployment =
        (Option.map ~f:WorkSpaceApplicationDeployment.of_xml)
          (Xml.child xml_arg0 "Deployment") in
      make ?deployment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deployment =
        field_map json__ "Deployment" WorkSpaceApplicationDeployment.of_json in
      make ?deployment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deploys associated applications to the specified WorkSpace"]
module DeployWorkspaceApplicationsRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."];
      force: BooleanObject.t option
        [@ocaml.doc
          "Indicates whether the force flag is applied for the specified WorkSpace. When the force flag is enabled, it allows previously failed deployments to be retried."]}
    let context_ = "DeployWorkspaceApplicationsRequest"
    let make ?force = fun ~workspaceId -> fun () -> { force; workspaceId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("Force", (Option.map x.force ~f:BooleanObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force =
        (Option.map ~f:BooleanObject.of_xml) (Xml.child xml_arg0 "Force") in
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ?force ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "Force" BooleanObject.of_json in
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ?force ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deploys associated applications to the specified WorkSpace"]
module DeleteWorkspaceImageResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `ResourceAssociatedException of ResourceAssociatedException.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)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.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)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.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))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `ResourceAssociatedException e ->
          `Assoc
            [("error", (`String "ResourceAssociatedException"));
            ("details", (ResourceAssociatedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified image from your account. To delete an image, you must first delete any bundles that are associated with the image and unshare the image if it is shared with other accounts."]
module DeleteWorkspaceImageRequest =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t [@ocaml.doc "The identifier of the image."]}
    let context_ = "DeleteWorkspaceImageRequest"
    let make ~imageId = fun () -> { imageId }
    let to_value x =
      structure_to_value
        [("ImageId", (Some (WorkspaceImageId.to_value x.imageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageId") in
      make ~imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageId = field_map_exn json__ "ImageId" WorkspaceImageId.of_json in
      make ~imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified image from your account. To delete an image, you must first delete any bundles that are associated with the image and unshare the image if it is shared with other accounts."]
module DeleteWorkspaceBundleResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceAssociatedException of ResourceAssociatedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceAssociatedException e ->
          `Assoc
            [("error", (`String "ResourceAssociatedException"));
            ("details", (ResourceAssociatedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified WorkSpace bundle. For more information about deleting WorkSpace bundles, see Delete a Custom WorkSpaces Bundle or Image."]
module DeleteWorkspaceBundleRequest =
  struct
    type nonrec t =
      {
      bundleId: BundleId.t option
        [@ocaml.doc "The identifier of the bundle."]}
    let make ?bundleId = fun () -> { bundleId }
    let to_value x =
      structure_to_value
        [("BundleId", (Option.map x.bundleId ~f:BundleId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bundleId =
        (Option.map ~f:BundleId.of_xml) (Xml.child xml_arg0 "BundleId") in
      make ?bundleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bundleId = field_map json__ "BundleId" BundleId.of_json in
      make ?bundleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified WorkSpace bundle. For more information about deleting WorkSpace bundles, see Delete a Custom WorkSpaces Bundle or Image."]
module DeleteTagsResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified tags from the specified WorkSpaces resource."]
module DeleteTagsRequest =
  struct
    type nonrec t =
      {
      resourceId: NonEmptyString.t
        [@ocaml.doc
          "The identifier of the WorkSpaces resource. The supported resource types are WorkSpaces, registered directories, images, custom bundles, IP access control groups, and connection aliases."];
      tagKeys: TagKeyList.t [@ocaml.doc "The tag keys."]}
    let context_ = "DeleteTagsRequest"
    let make ~resourceId = fun ~tagKeys -> fun () -> { resourceId; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (NonEmptyString.to_value x.resourceId)));
        ("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 resourceId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~tagKeys ~resourceId ()
    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 resourceId =
        field_map_exn json__ "ResourceId" NonEmptyString.of_json in
      make ~tagKeys ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified tags from the specified WorkSpaces resource."]
module DeleteIpGroupResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceAssociatedException of ResourceAssociatedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceAssociatedException e ->
          `Assoc
            [("error", (`String "ResourceAssociatedException"));
            ("details", (ResourceAssociatedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified IP access control group. You cannot delete an IP access control group that is associated with a directory."]
module DeleteIpGroupRequest =
  struct
    type nonrec t =
      {
      groupId: IpGroupId.t
        [@ocaml.doc "The identifier of the IP access control group."]}
    let context_ = "DeleteIpGroupRequest"
    let make ~groupId = fun () -> { groupId }
    let to_value x =
      structure_to_value [("GroupId", (Some (IpGroupId.to_value x.groupId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupId =
        IpGroupId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GroupId") in
      make ~groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupId = field_map_exn json__ "GroupId" IpGroupId.of_json in
      make ~groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified IP access control group. You cannot delete an IP access control group that is associated with a directory."]
module DeleteConnectionAliasResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAssociatedException of ResourceAssociatedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAssociatedException e ->
          `Assoc
            [("error", (`String "ResourceAssociatedException"));
            ("details", (ResourceAssociatedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified connection alias. For more information, see Cross-Region Redirection for Amazon WorkSpaces. If you will no longer be using a fully qualified domain name (FQDN) as the registration code for your WorkSpaces users, you must take certain precautions to prevent potential security issues. For more information, see Security Considerations if You Stop Using Cross-Region Redirection. To delete a connection alias that has been shared, the shared account must first disassociate the connection alias from any directories it has been associated with. Then you must unshare the connection alias from the account it has been shared with. You can delete a connection alias only after it is no longer shared with any accounts or associated with any directories."]
module DeleteConnectionAliasRequest =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t
        [@ocaml.doc "The identifier of the connection alias to delete."]}
    let context_ = "DeleteConnectionAliasRequest"
    let make ~aliasId = fun () -> { aliasId }
    let to_value x =
      structure_to_value
        [("AliasId", (Some (ConnectionAliasId.to_value x.aliasId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aliasId =
        ConnectionAliasId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasId") in
      make ~aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aliasId = field_map_exn json__ "AliasId" ConnectionAliasId.of_json in
      make ~aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified connection alias. For more information, see Cross-Region Redirection for Amazon WorkSpaces. If you will no longer be using a fully qualified domain name (FQDN) as the registration code for your WorkSpaces users, you must take certain precautions to prevent potential security issues. For more information, see Security Considerations if You Stop Using Cross-Region Redirection. To delete a connection alias that has been shared, the shared account must first disassociate the connection alias from any directories it has been associated with. Then you must unshare the connection alias from the account it has been shared with. You can delete a connection alias only after it is no longer shared with any accounts or associated with any directories."]
module DeleteConnectClientAddInResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a client-add-in for Amazon Connect that is configured within a directory."]
module DeleteConnectClientAddInRequest =
  struct
    type nonrec t =
      {
      addInId: AmazonUuid.t
        [@ocaml.doc "The identifier of the client add-in to delete."];
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier for which the client add-in is configured."]}
    let context_ = "DeleteConnectClientAddInRequest"
    let make ~addInId = fun ~resourceId -> fun () -> { addInId; resourceId }
    let to_value x =
      structure_to_value
        [("AddInId", (Some (AmazonUuid.to_value x.addInId)));
        ("ResourceId", (Some (DirectoryId.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let addInId =
        AmazonUuid.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AddInId") in
      make ~resourceId ~addInId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      let addInId = field_map_exn json__ "AddInId" AmazonUuid.of_json in
      make ~resourceId ~addInId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a client-add-in for Amazon Connect that is configured within a directory."]
module DeleteClientBrandingResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes customized client branding. Client branding allows you to customize your WorkSpace's client login portal. You can tailor your login portal company logo, the support email address, support link, link to reset password, and a custom message for users trying to sign in. After you delete your customized client branding, your login portal reverts to the default client branding."]
module DeleteClientBrandingRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier of the WorkSpace for which you want to delete client branding."];
      platforms: ClientDeviceTypeList.t
        [@ocaml.doc
          "The device type for which you want to delete client branding."]}
    let context_ = "DeleteClientBrandingRequest"
    let make ~resourceId =
      fun ~platforms -> fun () -> { resourceId; platforms }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("Platforms", (Some (ClientDeviceTypeList.to_value x.platforms)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let platforms =
        ClientDeviceTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Platforms") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~platforms ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let platforms =
        field_map_exn json__ "Platforms" ClientDeviceTypeList.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ~platforms ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes customized client branding. Client branding allows you to customize your WorkSpace's client login portal. You can tailor your login portal company logo, the support email address, support link, link to reset password, and a custom message for users trying to sign in. After you delete your customized client branding, your login portal reverts to the default client branding."]
module DeleteAccountLinkInvitationResult =
  struct
    type nonrec t =
      {
      accountLink: AccountLink.t option
        [@ocaml.doc "Information about the account link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLink = fun () -> { accountLink }
    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)
      | "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)
      | "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))]
      | `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
        [("AccountLink", (Option.map x.accountLink ~f:AccountLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountLink =
        (Option.map ~f:AccountLink.of_xml) (Xml.child xml_arg0 "AccountLink") in
      make ?accountLink ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountLink = field_map json__ "AccountLink" AccountLink.of_json in
      make ?accountLink ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the account link invitation."]
module DeleteAccountLinkInvitationRequest =
  struct
    type nonrec t =
      {
      linkId: LinkId.t [@ocaml.doc "The identifier of the account link."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A string of up to 64 ASCII characters that Amazon WorkSpaces uses to ensure idempotent creation."]}
    let context_ = "DeleteAccountLinkInvitationRequest"
    let make ?clientToken = fun ~linkId -> fun () -> { clientToken; linkId }
    let to_value x =
      structure_to_value
        [("LinkId", (Some (LinkId.to_value x.linkId)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkId") in
      make ?clientToken ~linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      make ?clientToken ~linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the account link invitation."]
module CreateWorkspacesResult =
  struct
    type nonrec t =
      {
      failedRequests: FailedCreateWorkspaceRequests.t option
        [@ocaml.doc
          "Information about the WorkSpaces that could not be created."];
      pendingRequests: WorkspaceList.t option
        [@ocaml.doc
          "Information about the WorkSpaces that were created. Because this operation is asynchronous, the identifier returned is not immediately available for use with other operations. For example, if you call DescribeWorkspaces before the WorkSpace is created, the information returned can be incomplete."]}
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedRequests =
      fun ?pendingRequests -> fun () -> { failedRequests; pendingRequests }
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.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
        [("FailedRequests",
           (Option.map x.failedRequests
              ~f:FailedCreateWorkspaceRequests.to_value));
        ("PendingRequests",
          (Option.map x.pendingRequests ~f:WorkspaceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingRequests =
        (Option.map ~f:WorkspaceList.of_xml)
          (Xml.child xml_arg0 "PendingRequests") in
      let failedRequests =
        (Option.map ~f:FailedCreateWorkspaceRequests.of_xml)
          (Xml.child xml_arg0 "FailedRequests") in
      make ?pendingRequests ?failedRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingRequests =
        field_map json__ "PendingRequests" WorkspaceList.of_json in
      let failedRequests =
        field_map json__ "FailedRequests"
          FailedCreateWorkspaceRequests.of_json in
      make ?pendingRequests ?failedRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates one or more WorkSpaces. This operation is asynchronous and returns before the WorkSpaces are created. The MANUAL running mode value is only supported by Amazon WorkSpaces Core. Contact your account team to be allow-listed to use this value. For more information, see Amazon WorkSpaces Core. You don't need to specify the PCOIP protocol for Linux bundles because DCV (formerly WSP) is the default protocol for those bundles. User-decoupled WorkSpaces are only supported by Amazon WorkSpaces Core. Review your running mode to ensure you are using one that is optimal for your needs and budget. For more information on switching running modes, see Can I switch between hourly and monthly billing?"]
module CreateWorkspacesRequest =
  struct
    type nonrec t =
      {
      workspaces: WorkspaceRequestList.t
        [@ocaml.doc
          "The WorkSpaces to create. You can specify up to 25 WorkSpaces."]}
    let context_ = "CreateWorkspacesRequest"
    let make ~workspaces = fun () -> { workspaces }
    let to_value x =
      structure_to_value
        [("Workspaces", (Some (WorkspaceRequestList.to_value x.workspaces)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaces =
        WorkspaceRequestList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Workspaces") in
      make ~workspaces ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaces =
        field_map_exn json__ "Workspaces" WorkspaceRequestList.of_json in
      make ~workspaces ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates one or more WorkSpaces. This operation is asynchronous and returns before the WorkSpaces are created. The MANUAL running mode value is only supported by Amazon WorkSpaces Core. Contact your account team to be allow-listed to use this value. For more information, see Amazon WorkSpaces Core. You don't need to specify the PCOIP protocol for Linux bundles because DCV (formerly WSP) is the default protocol for those bundles. User-decoupled WorkSpaces are only supported by Amazon WorkSpaces Core. Review your running mode to ensure you are using one that is optimal for your needs and budget. For more information on switching running modes, see Can I switch between hourly and monthly billing?"]
module CreateWorkspacesPoolResult =
  struct
    type nonrec t =
      {
      workspacesPool: WorkspacesPool.t option
        [@ocaml.doc "Indicates the pool to create."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspacesPool = fun () -> { workspacesPool }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("WorkspacesPool",
           (Option.map x.workspacesPool ~f:WorkspacesPool.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspacesPool =
        (Option.map ~f:WorkspacesPool.of_xml)
          (Xml.child xml_arg0 "WorkspacesPool") in
      make ?workspacesPool ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspacesPool =
        field_map json__ "WorkspacesPool" WorkspacesPool.of_json in
      make ?workspacesPool ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a pool of WorkSpaces."]
module CreateWorkspacesPoolRequest =
  struct
    type nonrec t =
      {
      poolName: WorkspacesPoolName.t [@ocaml.doc "The name of the pool."];
      description: UpdateDescription.t [@ocaml.doc "The pool description."];
      bundleId: BundleId.t
        [@ocaml.doc "The identifier of the bundle for the pool."];
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory for the pool."];
      capacity: Capacity.t [@ocaml.doc "The user capacity of the pool."];
      tags: TagList.t option [@ocaml.doc "The tags for the pool."];
      applicationSettings: ApplicationSettingsRequest.t option
        [@ocaml.doc "Indicates the application settings of the pool."];
      timeoutSettings: TimeoutSettings.t option
        [@ocaml.doc "Indicates the timeout settings of the pool."];
      runningMode: PoolsRunningMode.t option
        [@ocaml.doc "The running mode for the pool."]}
    let context_ = "CreateWorkspacesPoolRequest"
    let make ?tags =
      fun ?applicationSettings ->
        fun ?timeoutSettings ->
          fun ?runningMode ->
            fun ~poolName ->
              fun ~description ->
                fun ~bundleId ->
                  fun ~directoryId ->
                    fun ~capacity ->
                      fun () ->
                        {
                          tags;
                          applicationSettings;
                          timeoutSettings;
                          runningMode;
                          poolName;
                          description;
                          bundleId;
                          directoryId;
                          capacity
                        }
    let to_value x =
      structure_to_value
        [("PoolName", (Some (WorkspacesPoolName.to_value x.poolName)));
        ("Description", (Some (UpdateDescription.to_value x.description)));
        ("BundleId", (Some (BundleId.to_value x.bundleId)));
        ("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Capacity", (Some (Capacity.to_value x.capacity)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ApplicationSettings",
          (Option.map x.applicationSettings
             ~f:ApplicationSettingsRequest.to_value));
        ("TimeoutSettings",
          (Option.map x.timeoutSettings ~f:TimeoutSettings.to_value));
        ("RunningMode",
          (Option.map x.runningMode ~f:PoolsRunningMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let runningMode =
        (Option.map ~f:PoolsRunningMode.of_xml)
          (Xml.child xml_arg0 "RunningMode") in
      let timeoutSettings =
        (Option.map ~f:TimeoutSettings.of_xml)
          (Xml.child xml_arg0 "TimeoutSettings") in
      let applicationSettings =
        (Option.map ~f:ApplicationSettingsRequest.of_xml)
          (Xml.child xml_arg0 "ApplicationSettings") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let capacity =
        Capacity.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Capacity") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      let bundleId =
        BundleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "BundleId") in
      let description =
        UpdateDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let poolName =
        WorkspacesPoolName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolName") in
      make ?runningMode ?timeoutSettings ?applicationSettings ?tags ~capacity
        ~directoryId ~bundleId ~description ~poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let runningMode =
        field_map json__ "RunningMode" PoolsRunningMode.of_json in
      let timeoutSettings =
        field_map json__ "TimeoutSettings" TimeoutSettings.of_json in
      let applicationSettings =
        field_map json__ "ApplicationSettings"
          ApplicationSettingsRequest.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let capacity = field_map_exn json__ "Capacity" Capacity.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      let bundleId = field_map_exn json__ "BundleId" BundleId.of_json in
      let description =
        field_map_exn json__ "Description" UpdateDescription.of_json in
      let poolName =
        field_map_exn json__ "PoolName" WorkspacesPoolName.of_json in
      make ?runningMode ?timeoutSettings ?applicationSettings ?tags ~capacity
        ~directoryId ~bundleId ~description ~poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a pool of WorkSpaces."]
module CreateWorkspaceImageResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the new WorkSpace image."];
      name: WorkspaceImageName.t option [@ocaml.doc "The name of the image."];
      description: WorkspaceImageDescription.t option
        [@ocaml.doc "The description of the image."];
      operatingSystem: OperatingSystem.t option
        [@ocaml.doc "The operating system that the image is running."];
      state: WorkspaceImageState.t option
        [@ocaml.doc "The availability status of the image."];
      requiredTenancy: WorkspaceImageRequiredTenancy.t option
        [@ocaml.doc
          "Specifies whether the image is running on dedicated hardware. When Bring Your Own License (BYOL) is enabled, this value is set to DEDICATED. For more information, see Bring Your Own Windows Desktop Images.."];
      created: Timestamp.t option
        [@ocaml.doc "The date when the image was created."];
      ownerAccountId: AwsAccount.t option
        [@ocaml.doc
          "The identifier of the Amazon Web Services account that owns the image."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId =
      fun ?name ->
        fun ?description ->
          fun ?operatingSystem ->
            fun ?state ->
              fun ?requiredTenancy ->
                fun ?created ->
                  fun ?ownerAccountId ->
                    fun () ->
                      {
                        imageId;
                        name;
                        description;
                        operatingSystem;
                        state;
                        requiredTenancy;
                        created;
                        ownerAccountId
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value));
        ("Name", (Option.map x.name ~f:WorkspaceImageName.to_value));
        ("Description",
          (Option.map x.description ~f:WorkspaceImageDescription.to_value));
        ("OperatingSystem",
          (Option.map x.operatingSystem ~f:OperatingSystem.to_value));
        ("State", (Option.map x.state ~f:WorkspaceImageState.to_value));
        ("RequiredTenancy",
          (Option.map x.requiredTenancy
             ~f:WorkspaceImageRequiredTenancy.to_value));
        ("Created", (Option.map x.created ~f:Timestamp.to_value));
        ("OwnerAccountId",
          (Option.map x.ownerAccountId ~f:AwsAccount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ownerAccountId =
        (Option.map ~f:AwsAccount.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Created") in
      let requiredTenancy =
        (Option.map ~f:WorkspaceImageRequiredTenancy.of_xml)
          (Xml.child xml_arg0 "RequiredTenancy") in
      let state =
        (Option.map ~f:WorkspaceImageState.of_xml)
          (Xml.child xml_arg0 "State") in
      let operatingSystem =
        (Option.map ~f:OperatingSystem.of_xml)
          (Xml.child xml_arg0 "OperatingSystem") in
      let description =
        (Option.map ~f:WorkspaceImageDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:WorkspaceImageName.of_xml) (Xml.child xml_arg0 "Name") in
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?ownerAccountId ?created ?requiredTenancy ?state ?operatingSystem
        ?description ?name ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ownerAccountId =
        field_map json__ "OwnerAccountId" AwsAccount.of_json in
      let created = field_map json__ "Created" Timestamp.of_json in
      let requiredTenancy =
        field_map json__ "RequiredTenancy"
          WorkspaceImageRequiredTenancy.of_json in
      let state = field_map json__ "State" WorkspaceImageState.of_json in
      let operatingSystem =
        field_map json__ "OperatingSystem" OperatingSystem.of_json in
      let description =
        field_map json__ "Description" WorkspaceImageDescription.of_json in
      let name = field_map json__ "Name" WorkspaceImageName.of_json in
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?ownerAccountId ?created ?requiredTenancy ?state ?operatingSystem
        ?description ?name ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new WorkSpace image from an existing WorkSpace."]
module CreateWorkspaceImageRequest =
  struct
    type nonrec t =
      {
      name: WorkspaceImageName.t
        [@ocaml.doc "The name of the new WorkSpace image."];
      description: WorkspaceImageDescription.t
        [@ocaml.doc "The description of the new WorkSpace image."];
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the source WorkSpace"];
      tags: TagList.t option
        [@ocaml.doc
          "The tags that you want to add to the new WorkSpace image. To add tags when you're creating the image, you must create an IAM policy that grants your IAM user permission to use workspaces:CreateTags."]}
    let context_ = "CreateWorkspaceImageRequest"
    let make ?tags =
      fun ~name ->
        fun ~description ->
          fun ~workspaceId ->
            fun () -> { tags; name; description; workspaceId }
    let to_value x =
      structure_to_value
        [("Name", (Some (WorkspaceImageName.to_value x.name)));
        ("Description",
          (Some (WorkspaceImageDescription.to_value x.description)));
        ("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("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 workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      let description =
        WorkspaceImageDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let name =
        WorkspaceImageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ~workspaceId ~description ~name ()
    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 workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      let description =
        field_map_exn json__ "Description" WorkspaceImageDescription.of_json in
      let name = field_map_exn json__ "Name" WorkspaceImageName.of_json in
      make ?tags ~workspaceId ~description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new WorkSpace image from an existing WorkSpace."]
module CreateWorkspaceBundleResult =
  struct
    type nonrec t = {
      workspaceBundle: WorkspaceBundle.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workspaceBundle = fun () -> { workspaceBundle }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("WorkspaceBundle",
           (Option.map x.workspaceBundle ~f:WorkspaceBundle.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workspaceBundle =
        (Option.map ~f:WorkspaceBundle.of_xml)
          (Xml.child xml_arg0 "WorkspaceBundle") in
      make ?workspaceBundle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workspaceBundle =
        field_map json__ "WorkspaceBundle" WorkspaceBundle.of_json in
      make ?workspaceBundle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified WorkSpace bundle. For more information about creating WorkSpace bundles, see Create a Custom WorkSpaces Image and Bundle."]
module CreateWorkspaceBundleRequest =
  struct
    type nonrec t =
      {
      bundleName: WorkspaceBundleName.t
        [@ocaml.doc "The name of the bundle."];
      bundleDescription: WorkspaceBundleDescription.t
        [@ocaml.doc "The description of the bundle."];
      imageId: WorkspaceImageId.t
        [@ocaml.doc
          "The identifier of the image that is used to create the bundle."];
      computeType: ComputeType.t ;
      userStorage: UserStorage.t ;
      rootStorage: RootStorage.t option ;
      tags: TagList.t option
        [@ocaml.doc
          "The tags associated with the bundle. To add tags at the same time when you're creating the bundle, you must create an IAM policy that grants your IAM user permissions to use workspaces:CreateTags."]}
    let context_ = "CreateWorkspaceBundleRequest"
    let make ?rootStorage =
      fun ?tags ->
        fun ~bundleName ->
          fun ~bundleDescription ->
            fun ~imageId ->
              fun ~computeType ->
                fun ~userStorage ->
                  fun () ->
                    {
                      rootStorage;
                      tags;
                      bundleName;
                      bundleDescription;
                      imageId;
                      computeType;
                      userStorage
                    }
    let to_value x =
      structure_to_value
        [("BundleName", (Some (WorkspaceBundleName.to_value x.bundleName)));
        ("BundleDescription",
          (Some (WorkspaceBundleDescription.to_value x.bundleDescription)));
        ("ImageId", (Some (WorkspaceImageId.to_value x.imageId)));
        ("ComputeType", (Some (ComputeType.to_value x.computeType)));
        ("UserStorage", (Some (UserStorage.to_value x.userStorage)));
        ("RootStorage", (Option.map x.rootStorage ~f:RootStorage.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 rootStorage =
        (Option.map ~f:RootStorage.of_xml) (Xml.child xml_arg0 "RootStorage") in
      let userStorage =
        UserStorage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserStorage") in
      let computeType =
        ComputeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComputeType") in
      let imageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImageId") in
      let bundleDescription =
        WorkspaceBundleDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BundleDescription") in
      let bundleName =
        WorkspaceBundleName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BundleName") in
      make ?tags ?rootStorage ~userStorage ~computeType ~imageId
        ~bundleDescription ~bundleName ()
    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 rootStorage = field_map json__ "RootStorage" RootStorage.of_json in
      let userStorage =
        field_map_exn json__ "UserStorage" UserStorage.of_json in
      let computeType =
        field_map_exn json__ "ComputeType" ComputeType.of_json in
      let imageId = field_map_exn json__ "ImageId" WorkspaceImageId.of_json in
      let bundleDescription =
        field_map_exn json__ "BundleDescription"
          WorkspaceBundleDescription.of_json in
      let bundleName =
        field_map_exn json__ "BundleName" WorkspaceBundleName.of_json in
      make ?tags ?rootStorage ~userStorage ~computeType ~imageId
        ~bundleDescription ~bundleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified WorkSpace bundle. For more information about creating WorkSpace bundles, see Create a Custom WorkSpaces Image and Bundle."]
module CreateUpdatedWorkspaceImageResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the new updated WorkSpace image."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId = fun () -> { imageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new updated WorkSpace image based on the specified source image. The new updated WorkSpace image has the latest drivers and other updates required by the Amazon WorkSpaces components. To determine which WorkSpace images need to be updated with the latest Amazon WorkSpaces requirements, use DescribeWorkspaceImages. Only Windows 10, Windows Server 2016, and Windows Server 2019 WorkSpace images can be programmatically updated at this time. Microsoft Windows updates and other application updates are not included in the update process. The source WorkSpace image is not deleted. You can delete the source image after you've verified your new updated image and created a new bundle."]
module CreateUpdatedWorkspaceImageRequest =
  struct
    type nonrec t =
      {
      name: WorkspaceImageName.t
        [@ocaml.doc "The name of the new updated WorkSpace image."];
      description: WorkspaceImageDescription.t
        [@ocaml.doc
          "A description of whether updates for the WorkSpace image are available."];
      sourceImageId: WorkspaceImageId.t
        [@ocaml.doc "The identifier of the source WorkSpace image."];
      tags: TagList.t option
        [@ocaml.doc
          "The tags that you want to add to the new updated WorkSpace image. To add tags at the same time when you're creating the updated image, you must create an IAM policy that grants your IAM user permissions to use workspaces:CreateTags."]}
    let context_ = "CreateUpdatedWorkspaceImageRequest"
    let make ?tags =
      fun ~name ->
        fun ~description ->
          fun ~sourceImageId ->
            fun () -> { tags; name; description; sourceImageId }
    let to_value x =
      structure_to_value
        [("Name", (Some (WorkspaceImageName.to_value x.name)));
        ("Description",
          (Some (WorkspaceImageDescription.to_value x.description)));
        ("SourceImageId", (Some (WorkspaceImageId.to_value x.sourceImageId)));
        ("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 sourceImageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceImageId") in
      let description =
        WorkspaceImageDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let name =
        WorkspaceImageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ~sourceImageId ~description ~name ()
    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 sourceImageId =
        field_map_exn json__ "SourceImageId" WorkspaceImageId.of_json in
      let description =
        field_map_exn json__ "Description" WorkspaceImageDescription.of_json in
      let name = field_map_exn json__ "Name" WorkspaceImageName.of_json in
      make ?tags ~sourceImageId ~description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new updated WorkSpace image based on the specified source image. The new updated WorkSpace image has the latest drivers and other updates required by the Amazon WorkSpaces components. To determine which WorkSpace images need to be updated with the latest Amazon WorkSpaces requirements, use DescribeWorkspaceImages. Only Windows 10, Windows Server 2016, and Windows Server 2019 WorkSpace images can be programmatically updated at this time. Microsoft Windows updates and other application updates are not included in the update process. The source WorkSpace image is not deleted. You can delete the source image after you've verified your new updated image and created a new bundle."]
module CreateTagsResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified tags for the specified WorkSpaces resource."]
module CreateTagsRequest =
  struct
    type nonrec t =
      {
      resourceId: NonEmptyString.t
        [@ocaml.doc
          "The identifier of the WorkSpaces resource. The supported resource types are WorkSpaces, registered directories, images, custom bundles, IP access control groups, and connection aliases."];
      tags: TagList.t
        [@ocaml.doc
          "The tags. Each WorkSpaces resource can have a maximum of 50 tags."]}
    let context_ = "CreateTagsRequest"
    let make ~resourceId = fun ~tags -> fun () -> { resourceId; tags }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (NonEmptyString.to_value x.resourceId)));
        ("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 resourceId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~tags ~resourceId ()
    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 resourceId =
        field_map_exn json__ "ResourceId" NonEmptyString.of_json in
      make ~tags ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified tags for the specified WorkSpaces resource."]
module CreateStandbyWorkspacesResult =
  struct
    type nonrec t =
      {
      failedStandbyRequests:
        FailedCreateStandbyWorkspacesRequestList.t option
        [@ocaml.doc
          "Information about the standby WorkSpace that could not be created."];
      pendingStandbyRequests:
        PendingCreateStandbyWorkspacesRequestList.t option
        [@ocaml.doc
          "Information about the standby WorkSpace that was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?failedStandbyRequests =
      fun ?pendingStandbyRequests ->
        fun () -> { failedStandbyRequests; pendingStandbyRequests }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("FailedStandbyRequests",
           (Option.map x.failedStandbyRequests
              ~f:FailedCreateStandbyWorkspacesRequestList.to_value));
        ("PendingStandbyRequests",
          (Option.map x.pendingStandbyRequests
             ~f:PendingCreateStandbyWorkspacesRequestList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingStandbyRequests =
        (Option.map ~f:PendingCreateStandbyWorkspacesRequestList.of_xml)
          (Xml.child xml_arg0 "PendingStandbyRequests") in
      let failedStandbyRequests =
        (Option.map ~f:FailedCreateStandbyWorkspacesRequestList.of_xml)
          (Xml.child xml_arg0 "FailedStandbyRequests") in
      make ?pendingStandbyRequests ?failedStandbyRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingStandbyRequests =
        field_map json__ "PendingStandbyRequests"
          PendingCreateStandbyWorkspacesRequestList.of_json in
      let failedStandbyRequests =
        field_map json__ "FailedStandbyRequests"
          FailedCreateStandbyWorkspacesRequestList.of_json in
      make ?pendingStandbyRequests ?failedStandbyRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a standby WorkSpace in a secondary Region."]
module CreateStandbyWorkspacesRequest =
  struct
    type nonrec t =
      {
      primaryRegion: Region.t
        [@ocaml.doc "The Region of the primary WorkSpace."];
      standbyWorkspaces: StandbyWorkspacesList.t
        [@ocaml.doc "Information about the standby WorkSpace to be created."]}
    let context_ = "CreateStandbyWorkspacesRequest"
    let make ~primaryRegion =
      fun ~standbyWorkspaces ->
        fun () -> { primaryRegion; standbyWorkspaces }
    let to_value x =
      structure_to_value
        [("PrimaryRegion", (Some (Region.to_value x.primaryRegion)));
        ("StandbyWorkspaces",
          (Some (StandbyWorkspacesList.to_value x.standbyWorkspaces)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let standbyWorkspaces =
        StandbyWorkspacesList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StandbyWorkspaces") in
      let primaryRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryRegion") in
      make ~standbyWorkspaces ~primaryRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let standbyWorkspaces =
        field_map_exn json__ "StandbyWorkspaces"
          StandbyWorkspacesList.of_json in
      let primaryRegion = field_map_exn json__ "PrimaryRegion" Region.of_json in
      make ~standbyWorkspaces ~primaryRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a standby WorkSpace in a secondary Region."]
module CreateIpGroupResult =
  struct
    type nonrec t =
      {
      groupId: IpGroupId.t option [@ocaml.doc "The identifier of the group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceCreationFailedException of ResourceCreationFailedException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?groupId = fun () -> { groupId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceCreationFailedException" ->
          `ResourceCreationFailedException
            (ResourceCreationFailedException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceCreationFailedException" ->
          `ResourceCreationFailedException
            (ResourceCreationFailedException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceCreationFailedException e ->
          `Assoc
            [("error", (`String "ResourceCreationFailedException"));
            ("details", (ResourceCreationFailedException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.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
        [("GroupId", (Option.map x.groupId ~f:IpGroupId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupId =
        (Option.map ~f:IpGroupId.of_xml) (Xml.child xml_arg0 "GroupId") in
      make ?groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupId = field_map json__ "GroupId" IpGroupId.of_json in
      make ?groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an IP access control group. An IP access control group provides you with the ability to control the IP addresses from which users are allowed to access their WorkSpaces. To specify the CIDR address ranges, add rules to your IP access control group and then associate the group with your directory. You can add rules when you create the group or at any time using AuthorizeIpRules. There is a default IP access control group associated with your directory. If you don't associate an IP access control group with your directory, the default group is used. The default group includes a default rule that allows users to access their WorkSpaces from anywhere. You cannot modify the default IP access control group for your directory."]
module CreateIpGroupRequest =
  struct
    type nonrec t =
      {
      groupName: IpGroupName.t [@ocaml.doc "The name of the group."];
      groupDesc: IpGroupDesc.t option
        [@ocaml.doc "The description of the group."];
      userRules: IpRuleList.t option
        [@ocaml.doc "The rules to add to the group."];
      tags: TagList.t option
        [@ocaml.doc
          "The tags. Each WorkSpaces resource can have a maximum of 50 tags."]}
    let context_ = "CreateIpGroupRequest"
    let make ?groupDesc =
      fun ?userRules ->
        fun ?tags ->
          fun ~groupName ->
            fun () -> { groupDesc; userRules; tags; groupName }
    let to_value x =
      structure_to_value
        [("GroupName", (Some (IpGroupName.to_value x.groupName)));
        ("GroupDesc", (Option.map x.groupDesc ~f:IpGroupDesc.to_value));
        ("UserRules", (Option.map x.userRules ~f:IpRuleList.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 userRules =
        (Option.map ~f:IpRuleList.of_xml) (Xml.child xml_arg0 "UserRules") in
      let groupDesc =
        (Option.map ~f:IpGroupDesc.of_xml) (Xml.child xml_arg0 "GroupDesc") in
      let groupName =
        IpGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GroupName") in
      make ?tags ?userRules ?groupDesc ~groupName ()
    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 userRules = field_map json__ "UserRules" IpRuleList.of_json in
      let groupDesc = field_map json__ "GroupDesc" IpGroupDesc.of_json in
      let groupName = field_map_exn json__ "GroupName" IpGroupName.of_json in
      make ?tags ?userRules ?groupDesc ~groupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an IP access control group. An IP access control group provides you with the ability to control the IP addresses from which users are allowed to access their WorkSpaces. To specify the CIDR address ranges, add rules to your IP access control group and then associate the group with your directory. You can add rules when you create the group or at any time using AuthorizeIpRules. There is a default IP access control group associated with your directory. If you don't associate an IP access control group with your directory, the default group is used. The default group includes a default rule that allows users to access their WorkSpaces from anywhere. You cannot modify the default IP access control group for your directory."]
module CreateConnectionAliasResult =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t option
        [@ocaml.doc "The identifier of the connection alias."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?aliasId = fun () -> { aliasId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.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
        [("AliasId", (Option.map x.aliasId ~f:ConnectionAliasId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aliasId =
        (Option.map ~f:ConnectionAliasId.of_xml)
          (Xml.child xml_arg0 "AliasId") in
      make ?aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aliasId = field_map json__ "AliasId" ConnectionAliasId.of_json in
      make ?aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified connection alias for use with cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module CreateConnectionAliasRequest =
  struct
    type nonrec t =
      {
      connectionString: ConnectionString.t
        [@ocaml.doc
          "A connection string in the form of a fully qualified domain name (FQDN), such as www.example.com. After you create a connection string, it is always associated to your Amazon Web Services account. You cannot recreate the same connection string with a different account, even if you delete all instances of it from the original account. The connection string is globally reserved for your account."];
      tags: TagList.t option
        [@ocaml.doc "The tags to associate with the connection alias."]}
    let context_ = "CreateConnectionAliasRequest"
    let make ?tags =
      fun ~connectionString -> fun () -> { tags; connectionString }
    let to_value x =
      structure_to_value
        [("ConnectionString",
           (Some (ConnectionString.to_value x.connectionString)));
        ("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 connectionString =
        ConnectionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionString") in
      make ?tags ~connectionString ()
    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 connectionString =
        field_map_exn json__ "ConnectionString" ConnectionString.of_json in
      make ?tags ~connectionString ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates the specified connection alias for use with cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces."]
module CreateConnectClientAddInResult =
  struct
    type nonrec t =
      {
      addInId: AmazonUuid.t option
        [@ocaml.doc "The client add-in identifier."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceCreationFailedException of ResourceCreationFailedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addInId = fun () -> { addInId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceCreationFailedException" ->
          `ResourceCreationFailedException
            (ResourceCreationFailedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceCreationFailedException" ->
          `ResourceCreationFailedException
            (ResourceCreationFailedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceCreationFailedException e ->
          `Assoc
            [("error", (`String "ResourceCreationFailedException"));
            ("details", (ResourceCreationFailedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AddInId", (Option.map x.addInId ~f:AmazonUuid.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let addInId =
        (Option.map ~f:AmazonUuid.of_xml) (Xml.child xml_arg0 "AddInId") in
      make ?addInId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let addInId = field_map json__ "AddInId" AmazonUuid.of_json in
      make ?addInId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a client-add-in for Amazon Connect within a directory. You can create only one Amazon Connect client add-in within a directory. This client add-in allows WorkSpaces users to seamlessly connect to Amazon Connect."]
module CreateConnectClientAddInRequest =
  struct
    type nonrec t =
      {
      resourceId: DirectoryId.t
        [@ocaml.doc
          "The directory identifier for which to configure the client add-in."];
      name: AddInName.t [@ocaml.doc "The name of the client add-in."];
      uRL: AddInUrl.t
        [@ocaml.doc "The endpoint URL of the Amazon Connect client add-in."]}
    let context_ = "CreateConnectClientAddInRequest"
    let make ~resourceId =
      fun ~name -> fun ~uRL -> fun () -> { resourceId; name; uRL }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (DirectoryId.to_value x.resourceId)));
        ("Name", (Some (AddInName.to_value x.name)));
        ("URL", (Some (AddInUrl.to_value x.uRL)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uRL =
        AddInUrl.of_xml (Xml.child_exn ~context:context_ xml_arg0 "URL") in
      let name =
        AddInName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let resourceId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~uRL ~name ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uRL = field_map_exn json__ "URL" AddInUrl.of_json in
      let name = field_map_exn json__ "Name" AddInName.of_json in
      let resourceId = field_map_exn json__ "ResourceId" DirectoryId.of_json in
      make ~uRL ~name ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a client-add-in for Amazon Connect within a directory. You can create only one Amazon Connect client add-in within a directory. This client add-in allows WorkSpaces users to seamlessly connect to Amazon Connect."]
module CreateAccountLinkInvitationResult =
  struct
    type nonrec t =
      {
      accountLink: AccountLink.t option
        [@ocaml.doc "Information about the account link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLink = fun () -> { accountLink }
    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)
      | "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)
      | "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))]
      | `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
        [("AccountLink", (Option.map x.accountLink ~f:AccountLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountLink =
        (Option.map ~f:AccountLink.of_xml) (Xml.child xml_arg0 "AccountLink") in
      make ?accountLink ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountLink = field_map json__ "AccountLink" AccountLink.of_json in
      make ?accountLink ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates the account link invitation."]
module CreateAccountLinkInvitationRequest =
  struct
    type nonrec t =
      {
      targetAccountId: AwsAccount.t
        [@ocaml.doc "The identifier of the target account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A string of up to 64 ASCII characters that Amazon WorkSpaces uses to ensure idempotent creation."]}
    let context_ = "CreateAccountLinkInvitationRequest"
    let make ?clientToken =
      fun ~targetAccountId -> fun () -> { clientToken; targetAccountId }
    let to_value x =
      structure_to_value
        [("TargetAccountId", (Some (AwsAccount.to_value x.targetAccountId)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let targetAccountId =
        AwsAccount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetAccountId") in
      make ?clientToken ~targetAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let targetAccountId =
        field_map_exn json__ "TargetAccountId" AwsAccount.of_json in
      make ?clientToken ~targetAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates the account link invitation."]
module CopyWorkspaceImageResult =
  struct
    type nonrec t =
      {
      imageId: WorkspaceImageId.t option
        [@ocaml.doc "The identifier of the image."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageId = fun () -> { imageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("ImageId", (Option.map x.imageId ~f:WorkspaceImageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageId =
        (Option.map ~f:WorkspaceImageId.of_xml)
          (Xml.child xml_arg0 "ImageId") in
      make ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageId = field_map json__ "ImageId" WorkspaceImageId.of_json in
      make ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Copies the specified image from the specified Region to the current Region. For more information about copying images, see Copy a Custom WorkSpaces Image. In the China (Ningxia) Region, you can copy images only within the same Region. In Amazon Web Services GovCloud (US), to copy images to and from other Regions, contact Amazon Web Services Support. Before copying a shared image, be sure to verify that it has been shared from the correct Amazon Web Services account. To determine if an image has been shared and to see the ID of the Amazon Web Services account that owns an image, use the DescribeWorkSpaceImages and DescribeWorkspaceImagePermissions API operations."]
module CopyWorkspaceImageRequest =
  struct
    type nonrec t =
      {
      name: WorkspaceImageName.t [@ocaml.doc "The name of the image."];
      description: WorkspaceImageDescription.t option
        [@ocaml.doc "A description of the image."];
      sourceImageId: WorkspaceImageId.t
        [@ocaml.doc "The identifier of the source image."];
      sourceRegion: Region.t
        [@ocaml.doc "The identifier of the source Region."];
      tags: TagList.t option [@ocaml.doc "The tags for the image."]}
    let context_ = "CopyWorkspaceImageRequest"
    let make ?description =
      fun ?tags ->
        fun ~name ->
          fun ~sourceImageId ->
            fun ~sourceRegion ->
              fun () ->
                { description; tags; name; sourceImageId; sourceRegion }
    let to_value x =
      structure_to_value
        [("Name", (Some (WorkspaceImageName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:WorkspaceImageDescription.to_value));
        ("SourceImageId", (Some (WorkspaceImageId.to_value x.sourceImageId)));
        ("SourceRegion", (Some (Region.to_value x.sourceRegion)));
        ("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 sourceRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceRegion") in
      let sourceImageId =
        WorkspaceImageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceImageId") in
      let description =
        (Option.map ~f:WorkspaceImageDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        WorkspaceImageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ~sourceRegion ~sourceImageId ?description ~name ()
    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 sourceRegion = field_map_exn json__ "SourceRegion" Region.of_json in
      let sourceImageId =
        field_map_exn json__ "SourceImageId" WorkspaceImageId.of_json in
      let description =
        field_map json__ "Description" WorkspaceImageDescription.of_json in
      let name = field_map_exn json__ "Name" WorkspaceImageName.of_json in
      make ?tags ~sourceRegion ~sourceImageId ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Copies the specified image from the specified Region to the current Region. For more information about copying images, see Copy a Custom WorkSpaces Image. In the China (Ningxia) Region, you can copy images only within the same Region. In Amazon Web Services GovCloud (US), to copy images to and from other Regions, contact Amazon Web Services Support. Before copying a shared image, be sure to verify that it has been shared from the correct Amazon Web Services account. To determine if an image has been shared and to see the ID of the Amazon Web Services account that owns an image, use the DescribeWorkSpaceImages and DescribeWorkspaceImagePermissions API operations."]
module AuthorizeIpRulesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more rules to the specified IP access control group. This action gives users permission to access their WorkSpaces from the CIDR address ranges specified in the rules."]
module AuthorizeIpRulesRequest =
  struct
    type nonrec t =
      {
      groupId: IpGroupId.t [@ocaml.doc "The identifier of the group."];
      userRules: IpRuleList.t [@ocaml.doc "The rules to add to the group."]}
    let context_ = "AuthorizeIpRulesRequest"
    let make ~groupId = fun ~userRules -> fun () -> { groupId; userRules }
    let to_value x =
      structure_to_value
        [("GroupId", (Some (IpGroupId.to_value x.groupId)));
        ("UserRules", (Some (IpRuleList.to_value x.userRules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userRules =
        IpRuleList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserRules") in
      let groupId =
        IpGroupId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GroupId") in
      make ~userRules ~groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userRules = field_map_exn json__ "UserRules" IpRuleList.of_json in
      let groupId = field_map_exn json__ "GroupId" IpGroupId.of_json in
      make ~userRules ~groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more rules to the specified IP access control group. This action gives users permission to access their WorkSpaces from the CIDR address ranges specified in the rules."]
module AssociateWorkspaceApplicationResult =
  struct
    type nonrec t =
      {
      association: WorkspaceResourceAssociation.t option
        [@ocaml.doc
          "Information about the association between the specified WorkSpace and the specified application."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ApplicationNotSupportedException of
          ApplicationNotSupportedException.t 
      | `ComputeNotCompatibleException of ComputeNotCompatibleException.t 
      | `IncompatibleApplicationsException of
          IncompatibleApplicationsException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `OperatingSystemNotCompatibleException of
          OperatingSystemNotCompatibleException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?association = fun () -> { association }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ApplicationNotSupportedException" ->
          `ApplicationNotSupportedException
            (ApplicationNotSupportedException.of_json json)
      | "ComputeNotCompatibleException" ->
          `ComputeNotCompatibleException
            (ComputeNotCompatibleException.of_json json)
      | "IncompatibleApplicationsException" ->
          `IncompatibleApplicationsException
            (IncompatibleApplicationsException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "OperatingSystemNotCompatibleException" ->
          `OperatingSystemNotCompatibleException
            (OperatingSystemNotCompatibleException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ApplicationNotSupportedException" ->
          `ApplicationNotSupportedException
            (ApplicationNotSupportedException.of_xml xml)
      | "ComputeNotCompatibleException" ->
          `ComputeNotCompatibleException
            (ComputeNotCompatibleException.of_xml xml)
      | "IncompatibleApplicationsException" ->
          `IncompatibleApplicationsException
            (IncompatibleApplicationsException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "OperatingSystemNotCompatibleException" ->
          `OperatingSystemNotCompatibleException
            (OperatingSystemNotCompatibleException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ApplicationNotSupportedException e ->
          `Assoc
            [("error", (`String "ApplicationNotSupportedException"));
            ("details", (ApplicationNotSupportedException.to_json e))]
      | `ComputeNotCompatibleException e ->
          `Assoc
            [("error", (`String "ComputeNotCompatibleException"));
            ("details", (ComputeNotCompatibleException.to_json e))]
      | `IncompatibleApplicationsException e ->
          `Assoc
            [("error", (`String "IncompatibleApplicationsException"));
            ("details", (IncompatibleApplicationsException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `OperatingSystemNotCompatibleException e ->
          `Assoc
            [("error", (`String "OperatingSystemNotCompatibleException"));
            ("details", (OperatingSystemNotCompatibleException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Association",
           (Option.map x.association ~f:WorkspaceResourceAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let association =
        (Option.map ~f:WorkspaceResourceAssociation.of_xml)
          (Xml.child xml_arg0 "Association") in
      make ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let association =
        field_map json__ "Association" WorkspaceResourceAssociation.of_json in
      make ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified application to the specified WorkSpace."]
module AssociateWorkspaceApplicationRequest =
  struct
    type nonrec t =
      {
      workspaceId: WorkspaceId.t
        [@ocaml.doc "The identifier of the WorkSpace."];
      applicationId: WorkSpaceApplicationId.t
        [@ocaml.doc "The identifier of the application."]}
    let context_ = "AssociateWorkspaceApplicationRequest"
    let make ~workspaceId =
      fun ~applicationId -> fun () -> { workspaceId; applicationId }
    let to_value x =
      structure_to_value
        [("WorkspaceId", (Some (WorkspaceId.to_value x.workspaceId)));
        ("ApplicationId",
          (Some (WorkSpaceApplicationId.to_value x.applicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationId =
        WorkSpaceApplicationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationId") in
      let workspaceId =
        WorkspaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WorkspaceId") in
      make ~applicationId ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationId =
        field_map_exn json__ "ApplicationId" WorkSpaceApplicationId.of_json in
      let workspaceId =
        field_map_exn json__ "WorkspaceId" WorkspaceId.of_json in
      make ~applicationId ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified application to the specified WorkSpace."]
module AssociateIpGroupsResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified IP access control group with the specified directory."]
module AssociateIpGroupsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      groupIds: IpGroupIdList.t
        [@ocaml.doc
          "The identifiers of one or more IP access control groups."]}
    let context_ = "AssociateIpGroupsRequest"
    let make ~directoryId =
      fun ~groupIds -> fun () -> { directoryId; groupIds }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("GroupIds", (Some (IpGroupIdList.to_value x.groupIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupIds =
        IpGroupIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GroupIds") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~groupIds ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupIds = field_map_exn json__ "GroupIds" IpGroupIdList.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~groupIds ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified IP access control group with the specified directory."]
module AssociateConnectionAliasResult =
  struct
    type nonrec t =
      {
      connectionIdentifier: ConnectionIdentifier.t option
        [@ocaml.doc
          "The identifier of the connection alias association. You use the connection identifier in the DNS TXT record when you're configuring your DNS routing policies."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterValuesException of InvalidParameterValuesException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `OperationNotSupportedException of OperationNotSupportedException.t 
      | `ResourceAssociatedException of ResourceAssociatedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionIdentifier = fun () -> { connectionIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_json json)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterValuesException" ->
          `InvalidParameterValuesException
            (InvalidParameterValuesException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "OperationNotSupportedException" ->
          `OperationNotSupportedException
            (OperationNotSupportedException.of_xml xml)
      | "ResourceAssociatedException" ->
          `ResourceAssociatedException
            (ResourceAssociatedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterValuesException e ->
          `Assoc
            [("error", (`String "InvalidParameterValuesException"));
            ("details", (InvalidParameterValuesException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `OperationNotSupportedException e ->
          `Assoc
            [("error", (`String "OperationNotSupportedException"));
            ("details", (OperationNotSupportedException.to_json e))]
      | `ResourceAssociatedException e ->
          `Assoc
            [("error", (`String "ResourceAssociatedException"));
            ("details", (ResourceAssociatedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConnectionIdentifier",
           (Option.map x.connectionIdentifier
              ~f:ConnectionIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionIdentifier =
        (Option.map ~f:ConnectionIdentifier.of_xml)
          (Xml.child xml_arg0 "ConnectionIdentifier") in
      make ?connectionIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionIdentifier =
        field_map json__ "ConnectionIdentifier" ConnectionIdentifier.of_json in
      make ?connectionIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified connection alias with the specified directory to enable cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces. Before performing this operation, call DescribeConnectionAliases to make sure that the current state of the connection alias is CREATED."]
module AssociateConnectionAliasRequest =
  struct
    type nonrec t =
      {
      aliasId: ConnectionAliasId.t
        [@ocaml.doc "The identifier of the connection alias."];
      resourceId: NonEmptyString.t
        [@ocaml.doc
          "The identifier of the directory to associate the connection alias with."]}
    let context_ = "AssociateConnectionAliasRequest"
    let make ~aliasId = fun ~resourceId -> fun () -> { aliasId; resourceId }
    let to_value x =
      structure_to_value
        [("AliasId", (Some (ConnectionAliasId.to_value x.aliasId)));
        ("ResourceId", (Some (NonEmptyString.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let aliasId =
        ConnectionAliasId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AliasId") in
      make ~resourceId ~aliasId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId =
        field_map_exn json__ "ResourceId" NonEmptyString.of_json in
      let aliasId = field_map_exn json__ "AliasId" ConnectionAliasId.of_json in
      make ~resourceId ~aliasId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified connection alias with the specified directory to enable cross-Region redirection. For more information, see Cross-Region Redirection for Amazon WorkSpaces. Before performing this operation, call DescribeConnectionAliases to make sure that the current state of the connection alias is CREATED."]
module AcceptAccountLinkInvitationResult =
  struct
    type nonrec t =
      {
      accountLink: AccountLink.t option
        [@ocaml.doc "Information about the account link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLink = fun () -> { accountLink }
    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)
      | "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)
      | "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))]
      | `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
        [("AccountLink", (Option.map x.accountLink ~f:AccountLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountLink =
        (Option.map ~f:AccountLink.of_xml) (Xml.child xml_arg0 "AccountLink") in
      make ?accountLink ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountLink = field_map json__ "AccountLink" AccountLink.of_json in
      make ?accountLink ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts the account link invitation. There's currently no unlinking capability after you accept the account linking invitation."]
module AcceptAccountLinkInvitationRequest =
  struct
    type nonrec t =
      {
      linkId: LinkId.t [@ocaml.doc "The identifier of the account link."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A string of up to 64 ASCII characters that Amazon WorkSpaces uses to ensure idempotent creation."]}
    let context_ = "AcceptAccountLinkInvitationRequest"
    let make ?clientToken = fun ~linkId -> fun () -> { clientToken; linkId }
    let to_value x =
      structure_to_value
        [("LinkId", (Some (LinkId.to_value x.linkId)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let linkId =
        LinkId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkId") in
      make ?clientToken ~linkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let linkId = field_map_exn json__ "LinkId" LinkId.of_json in
      make ?clientToken ~linkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts the account link invitation. There's currently no unlinking capability after you accept the account linking invitation."]