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_thin_client
let apiVersion = "2023-08-22"
let endpointPrefix = "thinclient"
let serviceFullName = "Amazon WorkSpaces Thin Client"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
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 DayOfWeek =
  struct
    type nonrec t =
      | MONDAY 
      | TUESDAY 
      | WEDNESDAY 
      | THURSDAY 
      | FRIDAY 
      | SATURDAY 
      | SUNDAY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MONDAY -> "MONDAY"
      | TUESDAY -> "TUESDAY"
      | WEDNESDAY -> "WEDNESDAY"
      | THURSDAY -> "THURSDAY"
      | FRIDAY -> "FRIDAY"
      | SATURDAY -> "SATURDAY"
      | SUNDAY -> "SUNDAY"
      | Non_static_id s -> s
    let of_string =
      function
      | "MONDAY" -> MONDAY
      | "TUESDAY" -> TUESDAY
      | "WEDNESDAY" -> WEDNESDAY
      | "THURSDAY" -> THURSDAY
      | "FRIDAY" -> FRIDAY
      | "SATURDAY" -> SATURDAY
      | "SUNDAY" -> SUNDAY
      | 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 DayOfWeek" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DayOfWeek" j)
    let to_json = simple_to_json to_value
  end
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 FieldName =
  struct
    type nonrec t = string
    let context_ = "FieldName"
    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:"FieldName" j
    let to_json = simple_to_json to_value
  end
module ApplyTimeOf =
  struct
    type nonrec t =
      | UTC 
      | DEVICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UTC -> "UTC" | DEVICE -> "DEVICE" | Non_static_id s -> s
    let of_string =
      function | "UTC" -> UTC | "DEVICE" -> DEVICE | 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 ApplyTimeOf" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApplyTimeOf" j)
    let to_json = simple_to_json to_value
  end
module DayOfWeekList =
  struct
    type nonrec t = DayOfWeek.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:7) >>= (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:DayOfWeek.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:DayOfWeek.of_xml)
    let of_json j =
      list_of_json ~kind:"DayOfWeekList" ~of_json:DayOfWeek.of_json j
    let to_json v = composed_to_json to_value v
  end
module Hour =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:23) >>= (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 Hour" 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 MaintenanceWindowType =
  struct
    type nonrec t =
      | SYSTEM 
      | CUSTOM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SYSTEM -> "SYSTEM"
      | CUSTOM -> "CUSTOM"
      | Non_static_id s -> s
    let of_string =
      function
      | "SYSTEM" -> SYSTEM
      | "CUSTOM" -> CUSTOM
      | 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 MaintenanceWindowType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MaintenanceWindowType" j)
    let to_json = simple_to_json to_value
  end
module Minute =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:59) >>= (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 Minute" 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 String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: FieldName.t option [@ocaml.doc "The name of the exception."];
      message: ExceptionMessage.t option
        [@ocaml.doc "A message that describes the reason for the exception."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:FieldName.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
      let name = (Option.map ~f:FieldName.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      let name = field_map json__ "name" FieldName.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a validation exception."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[\\w+=\\/,.@-]+:[a-zA-Z0-9\\-]+:[a-zA-Z0-9\\-]*:[0-9]{0,12}:[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:"Arn" j
    let to_json = simple_to_json to_value
  end
module SoftwareSetId =
  struct
    type nonrec t = string
    let context_ = "SoftwareSetId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{1,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:"SoftwareSetId" j
    let to_json = simple_to_json to_value
  end
module SoftwareSetValidationStatus =
  struct
    type nonrec t =
      | VALIDATED 
      | NOT_VALIDATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VALIDATED -> "VALIDATED"
      | NOT_VALIDATED -> "NOT_VALIDATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "VALIDATED" -> VALIDATED
      | "NOT_VALIDATED" -> NOT_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 SoftwareSetValidationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SoftwareSetValidationStatus" 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 ActivationCode =
  struct
    type nonrec t = string
    let context_ = "ActivationCode"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z]{2}[a-z0-9]{6}"); 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:"ActivationCode" j
    let to_json = simple_to_json to_value
  end
module DesktopEndpoint =
  struct
    type nonrec t = string
    let context_ = "DesktopEndpoint"
    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:"(https:\\/\\/)[a-z0-9]+([\\-\\.]{1}[a-z0-9]+)*\\.[a-z]{2,32}(:[0-9]{1,5})?(\\/.*)?")));
        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:"DesktopEndpoint" j
    let to_json = simple_to_json to_value
  end
module DesktopType =
  struct
    type nonrec t =
      | Workspaces 
      | Appstream 
      | Workspaces_web 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Workspaces -> "workspaces"
      | Appstream -> "appstream"
      | Workspaces_web -> "workspaces-web"
      | Non_static_id s -> s
    let of_string =
      function
      | "workspaces" -> Workspaces
      | "appstream" -> Appstream
      | "workspaces-web" -> Workspaces_web
      | 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 DesktopType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DesktopType" j)
    let to_json = simple_to_json to_value
  end
module EnvironmentId =
  struct
    type nonrec t = string
    let context_ = "EnvironmentId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z0-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:"EnvironmentId" j
    let to_json = simple_to_json to_value
  end
module EnvironmentName =
  struct
    type nonrec t = string
    let context_ = "EnvironmentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"$|^[0-9\\p{IsAlphabetic}+:,.@'\" -][0-9\\p{IsAlphabetic}+=:,.@'\" -]*")));
        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:"EnvironmentName" j
    let to_json = simple_to_json to_value
  end
module MaintenanceWindow =
  struct
    type nonrec t =
      {
      type_: MaintenanceWindowType.t
        [@ocaml.doc
          "An option to select the default or custom maintenance window."];
      startTimeHour: Hour.t option
        [@ocaml.doc "The hour for the maintenance window start (00-23)."];
      startTimeMinute: Minute.t option
        [@ocaml.doc
          "The minutes past the hour for the maintenance window start (00-59)."];
      endTimeHour: Hour.t option
        [@ocaml.doc "The hour for the maintenance window end (00-23)."];
      endTimeMinute: Minute.t option
        [@ocaml.doc "The minutes for the maintenance window end (00-59)."];
      daysOfTheWeek: DayOfWeekList.t option
        [@ocaml.doc
          "The days of the week during which the maintenance window is open."];
      applyTimeOf: ApplyTimeOf.t option
        [@ocaml.doc
          "The option to set the maintenance window during the device local time or Universal Coordinated Time (UTC)."]}
    let context_ = "MaintenanceWindow"
    let make ?startTimeHour =
      fun ?startTimeMinute ->
        fun ?endTimeHour ->
          fun ?endTimeMinute ->
            fun ?daysOfTheWeek ->
              fun ?applyTimeOf ->
                fun ~type_ ->
                  fun () ->
                    {
                      startTimeHour;
                      startTimeMinute;
                      endTimeHour;
                      endTimeMinute;
                      daysOfTheWeek;
                      applyTimeOf;
                      type_
                    }
    let to_value x =
      structure_to_value
        [("type", (Some (MaintenanceWindowType.to_value x.type_)));
        ("startTimeHour", (Option.map x.startTimeHour ~f:Hour.to_value));
        ("startTimeMinute",
          (Option.map x.startTimeMinute ~f:Minute.to_value));
        ("endTimeHour", (Option.map x.endTimeHour ~f:Hour.to_value));
        ("endTimeMinute", (Option.map x.endTimeMinute ~f:Minute.to_value));
        ("daysOfTheWeek",
          (Option.map x.daysOfTheWeek ~f:DayOfWeekList.to_value));
        ("applyTimeOf", (Option.map x.applyTimeOf ~f:ApplyTimeOf.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applyTimeOf =
        (Option.map ~f:ApplyTimeOf.of_xml) (Xml.child xml_arg0 "applyTimeOf") in
      let daysOfTheWeek =
        (Option.map ~f:DayOfWeekList.of_xml)
          (Xml.child xml_arg0 "daysOfTheWeek") in
      let endTimeMinute =
        (Option.map ~f:Minute.of_xml) (Xml.child xml_arg0 "endTimeMinute") in
      let endTimeHour =
        (Option.map ~f:Hour.of_xml) (Xml.child xml_arg0 "endTimeHour") in
      let startTimeMinute =
        (Option.map ~f:Minute.of_xml) (Xml.child xml_arg0 "startTimeMinute") in
      let startTimeHour =
        (Option.map ~f:Hour.of_xml) (Xml.child xml_arg0 "startTimeHour") in
      let type_ =
        MaintenanceWindowType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?applyTimeOf ?daysOfTheWeek ?endTimeMinute ?endTimeHour
        ?startTimeMinute ?startTimeHour ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applyTimeOf = field_map json__ "applyTimeOf" ApplyTimeOf.of_json in
      let daysOfTheWeek =
        field_map json__ "daysOfTheWeek" DayOfWeekList.of_json in
      let endTimeMinute = field_map json__ "endTimeMinute" Minute.of_json in
      let endTimeHour = field_map json__ "endTimeHour" Hour.of_json in
      let startTimeMinute = field_map json__ "startTimeMinute" Minute.of_json in
      let startTimeHour = field_map json__ "startTimeHour" Hour.of_json in
      let type_ = field_map_exn json__ "type" MaintenanceWindowType.of_json in
      make ?applyTimeOf ?daysOfTheWeek ?endTimeMinute ?endTimeHour
        ?startTimeMinute ?startTimeHour ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the maintenance window for a thin client device."]
module SoftwareSetUpdateMode =
  struct
    type nonrec t =
      | USE_LATEST 
      | USE_DESIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USE_LATEST -> "USE_LATEST"
      | USE_DESIRED -> "USE_DESIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "USE_LATEST" -> USE_LATEST
      | "USE_DESIRED" -> USE_DESIRED
      | 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 SoftwareSetUpdateMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SoftwareSetUpdateMode" j)
    let to_json = simple_to_json to_value
  end
module SoftwareSetUpdateSchedule =
  struct
    type nonrec t =
      | USE_MAINTENANCE_WINDOW 
      | APPLY_IMMEDIATELY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USE_MAINTENANCE_WINDOW -> "USE_MAINTENANCE_WINDOW"
      | APPLY_IMMEDIATELY -> "APPLY_IMMEDIATELY"
      | Non_static_id s -> s
    let of_string =
      function
      | "USE_MAINTENANCE_WINDOW" -> USE_MAINTENANCE_WINDOW
      | "APPLY_IMMEDIATELY" -> APPLY_IMMEDIATELY
      | 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 SoftwareSetUpdateSchedule" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SoftwareSetUpdateSchedule" j)
    let to_json = simple_to_json to_value
  end
module DeviceId =
  struct
    type nonrec t = string
    let context_ = "DeviceId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9]{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:"DeviceId" j
    let to_json = simple_to_json to_value
  end
module DeviceName =
  struct
    type nonrec t = string
    let context_ = "DeviceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"$|^[0-9\\p{IsAlphabetic}+:,.@'\" -]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeviceName" j
    let to_json = simple_to_json to_value
  end
module DeviceStatus =
  struct
    type nonrec t =
      | REGISTERED 
      | DEREGISTERING 
      | DEREGISTERED 
      | ARCHIVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGISTERED -> "REGISTERED"
      | DEREGISTERING -> "DEREGISTERING"
      | DEREGISTERED -> "DEREGISTERED"
      | ARCHIVED -> "ARCHIVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGISTERED" -> REGISTERED
      | "DEREGISTERING" -> DEREGISTERING
      | "DEREGISTERED" -> DEREGISTERED
      | "ARCHIVED" -> ARCHIVED
      | 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 DeviceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeviceStatus" j)
    let to_json = simple_to_json to_value
  end
module UserId =
  struct
    type nonrec t = string
    let context_ = "UserId"
    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:"UserId" j
    let to_json = simple_to_json to_value
  end
module Software =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the software component."];
      version: String_.t option
        [@ocaml.doc "The version of the software component."]}
    let make ?name = fun ?version -> fun () -> { name; version }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?version ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?version ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes software."]
module DeviceCreationTagKey =
  struct
    type nonrec t = string
    let context_ = "DeviceCreationTagKey"
    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:"(?!aws:)[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:"DeviceCreationTagKey" j
    let to_json = simple_to_json to_value
  end
module DeviceCreationTagValue =
  struct
    type nonrec t = string
    let context_ = "DeviceCreationTagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"DeviceCreationTagValue" j
    let to_json = simple_to_json to_value
  end
module RetryAfterSeconds =
  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 RetryAfterSeconds" 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 ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t = string
    let context_ = "ResourceType"
    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:"ResourceType" j
    let to_json = simple_to_json to_value
  end
module QuotaCode =
  struct
    type nonrec t = string
    let context_ = "QuotaCode"
    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:"QuotaCode" j
    let to_json = simple_to_json to_value
  end
module ServiceCode =
  struct
    type nonrec t = string
    let context_ = "ServiceCode"
    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:"ServiceCode" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module SoftwareSetSummary =
  struct
    type nonrec t =
      {
      id: SoftwareSetId.t option [@ocaml.doc "The ID of the software set."];
      version: String_.t option
        [@ocaml.doc "The version of the software set."];
      releasedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the software set was released."];
      supportedUntil: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the end of support for the software set."];
      validationStatus: SoftwareSetValidationStatus.t option
        [@ocaml.doc
          "An option to define if the software set has been validated."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the software set."]}
    let make ?id =
      fun ?version ->
        fun ?releasedAt ->
          fun ?supportedUntil ->
            fun ?validationStatus ->
              fun ?arn ->
                fun () ->
                  {
                    id;
                    version;
                    releasedAt;
                    supportedUntil;
                    validationStatus;
                    arn
                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SoftwareSetId.to_value));
        ("version", (Option.map x.version ~f:String_.to_value));
        ("releasedAt", (Option.map x.releasedAt ~f:Timestamp.to_value));
        ("supportedUntil",
          (Option.map x.supportedUntil ~f:Timestamp.to_value));
        ("validationStatus",
          (Option.map x.validationStatus
             ~f:SoftwareSetValidationStatus.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let validationStatus =
        (Option.map ~f:SoftwareSetValidationStatus.of_xml)
          (Xml.child xml_arg0 "validationStatus") in
      let supportedUntil =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "supportedUntil") in
      let releasedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "releasedAt") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      let id = (Option.map ~f:SoftwareSetId.of_xml) (Xml.child xml_arg0 "id") in
      make ?arn ?validationStatus ?supportedUntil ?releasedAt ?version ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let validationStatus =
        field_map json__ "validationStatus"
          SoftwareSetValidationStatus.of_json in
      let supportedUntil =
        field_map json__ "supportedUntil" Timestamp.of_json in
      let releasedAt = field_map json__ "releasedAt" Timestamp.of_json in
      let version = field_map json__ "version" String_.of_json in
      let id = field_map json__ "id" SoftwareSetId.of_json in
      make ?arn ?validationStatus ?supportedUntil ?releasedAt ?version ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a software set."]
module EnvironmentSummary =
  struct
    type nonrec t =
      {
      id: EnvironmentId.t option [@ocaml.doc "The ID of the environment."];
      name: EnvironmentName.t option
        [@ocaml.doc "The name of the environment."];
      desktopArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the desktop to stream from Amazon WorkSpaces, WorkSpaces Secure Browser, or AppStream 2.0."];
      desktopEndpoint: DesktopEndpoint.t option
        [@ocaml.doc
          "The URL for the identity provider login (only for environments that use AppStream 2.0)."];
      desktopType: DesktopType.t option
        [@ocaml.doc "The type of streaming desktop for the environment."];
      activationCode: ActivationCode.t option
        [@ocaml.doc
          "The activation code to register a device to the environment."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."];
      maintenanceWindow: MaintenanceWindow.t option
        [@ocaml.doc
          "A specification for a time window to apply software updates."];
      softwareSetUpdateMode: SoftwareSetUpdateMode.t option
        [@ocaml.doc "An option to define which software updates to apply."];
      desiredSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc "The ID of the software set to apply."];
      pendingSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set that is pending to be installed."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the environment was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the device was updated."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the environment."]}
    let make ?id =
      fun ?name ->
        fun ?desktopArn ->
          fun ?desktopEndpoint ->
            fun ?desktopType ->
              fun ?activationCode ->
                fun ?softwareSetUpdateSchedule ->
                  fun ?maintenanceWindow ->
                    fun ?softwareSetUpdateMode ->
                      fun ?desiredSoftwareSetId ->
                        fun ?pendingSoftwareSetId ->
                          fun ?createdAt ->
                            fun ?updatedAt ->
                              fun ?arn ->
                                fun () ->
                                  {
                                    id;
                                    name;
                                    desktopArn;
                                    desktopEndpoint;
                                    desktopType;
                                    activationCode;
                                    softwareSetUpdateSchedule;
                                    maintenanceWindow;
                                    softwareSetUpdateMode;
                                    desiredSoftwareSetId;
                                    pendingSoftwareSetId;
                                    createdAt;
                                    updatedAt;
                                    arn
                                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:EnvironmentId.to_value));
        ("name", (Option.map x.name ~f:EnvironmentName.to_value));
        ("desktopArn", (Option.map x.desktopArn ~f:Arn.to_value));
        ("desktopEndpoint",
          (Option.map x.desktopEndpoint ~f:DesktopEndpoint.to_value));
        ("desktopType", (Option.map x.desktopType ~f:DesktopType.to_value));
        ("activationCode",
          (Option.map x.activationCode ~f:ActivationCode.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value));
        ("maintenanceWindow",
          (Option.map x.maintenanceWindow ~f:MaintenanceWindow.to_value));
        ("softwareSetUpdateMode",
          (Option.map x.softwareSetUpdateMode
             ~f:SoftwareSetUpdateMode.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId ~f:SoftwareSetId.to_value));
        ("pendingSoftwareSetId",
          (Option.map x.pendingSoftwareSetId ~f:SoftwareSetId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let pendingSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "pendingSoftwareSetId") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let softwareSetUpdateMode =
        (Option.map ~f:SoftwareSetUpdateMode.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateMode") in
      let maintenanceWindow =
        (Option.map ~f:MaintenanceWindow.of_xml)
          (Xml.child xml_arg0 "maintenanceWindow") in
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let activationCode =
        (Option.map ~f:ActivationCode.of_xml)
          (Xml.child xml_arg0 "activationCode") in
      let desktopType =
        (Option.map ~f:DesktopType.of_xml) (Xml.child xml_arg0 "desktopType") in
      let desktopEndpoint =
        (Option.map ~f:DesktopEndpoint.of_xml)
          (Xml.child xml_arg0 "desktopEndpoint") in
      let desktopArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "desktopArn") in
      let name =
        (Option.map ~f:EnvironmentName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:EnvironmentId.of_xml) (Xml.child xml_arg0 "id") in
      make ?arn ?updatedAt ?createdAt ?pendingSoftwareSetId
        ?desiredSoftwareSetId ?softwareSetUpdateMode ?maintenanceWindow
        ?softwareSetUpdateSchedule ?activationCode ?desktopType
        ?desktopEndpoint ?desktopArn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let pendingSoftwareSetId =
        field_map json__ "pendingSoftwareSetId" SoftwareSetId.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId" SoftwareSetId.of_json in
      let softwareSetUpdateMode =
        field_map json__ "softwareSetUpdateMode"
          SoftwareSetUpdateMode.of_json in
      let maintenanceWindow =
        field_map json__ "maintenanceWindow" MaintenanceWindow.of_json in
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let activationCode =
        field_map json__ "activationCode" ActivationCode.of_json in
      let desktopType = field_map json__ "desktopType" DesktopType.of_json in
      let desktopEndpoint =
        field_map json__ "desktopEndpoint" DesktopEndpoint.of_json in
      let desktopArn = field_map json__ "desktopArn" Arn.of_json in
      let name = field_map json__ "name" EnvironmentName.of_json in
      let id = field_map json__ "id" EnvironmentId.of_json in
      make ?arn ?updatedAt ?createdAt ?pendingSoftwareSetId
        ?desiredSoftwareSetId ?softwareSetUpdateMode ?maintenanceWindow
        ?softwareSetUpdateSchedule ?activationCode ?desktopType
        ?desktopEndpoint ?desktopArn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an environment."]
module DeviceSummary =
  struct
    type nonrec t =
      {
      id: DeviceId.t option [@ocaml.doc "The ID of the device."];
      serialNumber: String_.t option
        [@ocaml.doc "The hardware serial number of the device."];
      name: DeviceName.t option [@ocaml.doc "The name of the device."];
      model: String_.t option [@ocaml.doc "The model number of the device."];
      environmentId: EnvironmentId.t option
        [@ocaml.doc
          "The ID of the environment the device is associated with."];
      status: DeviceStatus.t option [@ocaml.doc "The status of the device."];
      currentSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set currently installed on the device."];
      desiredSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set which the device has been set to."];
      pendingSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set that is pending to be installed on the device."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."];
      lastConnectedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the most recent session on the device."];
      lastPostureAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the most recent check-in of the device."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the device was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the device was updated."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the device."];
      lastUserId: UserId.t option
        [@ocaml.doc "The user ID of the most recent session on the device."]}
    let make ?id =
      fun ?serialNumber ->
        fun ?name ->
          fun ?model ->
            fun ?environmentId ->
              fun ?status ->
                fun ?currentSoftwareSetId ->
                  fun ?desiredSoftwareSetId ->
                    fun ?pendingSoftwareSetId ->
                      fun ?softwareSetUpdateSchedule ->
                        fun ?lastConnectedAt ->
                          fun ?lastPostureAt ->
                            fun ?createdAt ->
                              fun ?updatedAt ->
                                fun ?arn ->
                                  fun ?lastUserId ->
                                    fun () ->
                                      {
                                        id;
                                        serialNumber;
                                        name;
                                        model;
                                        environmentId;
                                        status;
                                        currentSoftwareSetId;
                                        desiredSoftwareSetId;
                                        pendingSoftwareSetId;
                                        softwareSetUpdateSchedule;
                                        lastConnectedAt;
                                        lastPostureAt;
                                        createdAt;
                                        updatedAt;
                                        arn;
                                        lastUserId
                                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:DeviceId.to_value));
        ("serialNumber", (Option.map x.serialNumber ~f:String_.to_value));
        ("name", (Option.map x.name ~f:DeviceName.to_value));
        ("model", (Option.map x.model ~f:String_.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("status", (Option.map x.status ~f:DeviceStatus.to_value));
        ("currentSoftwareSetId",
          (Option.map x.currentSoftwareSetId ~f:SoftwareSetId.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId ~f:SoftwareSetId.to_value));
        ("pendingSoftwareSetId",
          (Option.map x.pendingSoftwareSetId ~f:SoftwareSetId.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value));
        ("lastConnectedAt",
          (Option.map x.lastConnectedAt ~f:Timestamp.to_value));
        ("lastPostureAt", (Option.map x.lastPostureAt ~f:Timestamp.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("lastUserId", (Option.map x.lastUserId ~f:UserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUserId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "lastUserId") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let lastPostureAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastPostureAt") in
      let lastConnectedAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastConnectedAt") in
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let pendingSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "pendingSoftwareSetId") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let currentSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "currentSoftwareSetId") in
      let status =
        (Option.map ~f:DeviceStatus.of_xml) (Xml.child xml_arg0 "status") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let model = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "model") in
      let name =
        (Option.map ~f:DeviceName.of_xml) (Xml.child xml_arg0 "name") in
      let serialNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serialNumber") in
      let id = (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastUserId ?arn ?updatedAt ?createdAt ?lastPostureAt
        ?lastConnectedAt ?softwareSetUpdateSchedule ?pendingSoftwareSetId
        ?desiredSoftwareSetId ?currentSoftwareSetId ?status ?environmentId
        ?model ?name ?serialNumber ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUserId = field_map json__ "lastUserId" UserId.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let lastPostureAt = field_map json__ "lastPostureAt" Timestamp.of_json in
      let lastConnectedAt =
        field_map json__ "lastConnectedAt" Timestamp.of_json in
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let pendingSoftwareSetId =
        field_map json__ "pendingSoftwareSetId" SoftwareSetId.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId" SoftwareSetId.of_json in
      let currentSoftwareSetId =
        field_map json__ "currentSoftwareSetId" SoftwareSetId.of_json in
      let status = field_map json__ "status" DeviceStatus.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let model = field_map json__ "model" String_.of_json in
      let name = field_map json__ "name" DeviceName.of_json in
      let serialNumber = field_map json__ "serialNumber" String_.of_json in
      let id = field_map json__ "id" DeviceId.of_json in
      make ?lastUserId ?arn ?updatedAt ?createdAt ?lastPostureAt
        ?lastConnectedAt ?softwareSetUpdateSchedule ?pendingSoftwareSetId
        ?desiredSoftwareSetId ?currentSoftwareSetId ?status ?environmentId
        ?model ?name ?serialNumber ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a thin client device."]
module SoftwareList =
  struct
    type nonrec t = Software.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:Software.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:Software.of_xml)
    let of_json j =
      list_of_json ~kind:"SoftwareList" ~of_json:Software.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeviceCreationTagsMap =
  struct
    type nonrec t = (DeviceCreationTagKey.t * DeviceCreationTagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_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 ->
                            ((DeviceCreationTagKey.of_string chopped),
                              (DeviceCreationTagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (DeviceCreationTagKey.to_value x) |>
                    (fun x ->
                       (DeviceCreationTagValue.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:DeviceCreationTagKey.of_string
        ~of_json:DeviceCreationTagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnvironmentSoftwareSetComplianceStatus =
  struct
    type nonrec t =
      | NO_REGISTERED_DEVICES 
      | COMPLIANT 
      | NOT_COMPLIANT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NO_REGISTERED_DEVICES -> "NO_REGISTERED_DEVICES"
      | COMPLIANT -> "COMPLIANT"
      | NOT_COMPLIANT -> "NOT_COMPLIANT"
      | Non_static_id s -> s
    let of_string =
      function
      | "NO_REGISTERED_DEVICES" -> NO_REGISTERED_DEVICES
      | "COMPLIANT" -> COMPLIANT
      | "NOT_COMPLIANT" -> NOT_COMPLIANT
      | 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 EnvironmentSoftwareSetComplianceStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"EnvironmentSoftwareSetComplianceStatus" j)
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module KmsKeyArn =
  struct
    type nonrec t = string
    let context_ = "KmsKeyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[\\w+=\\/,.@-]+:kms:[a-zA-Z0-9\\-]*:[0-9]{0,12}:key\\/[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:"KmsKeyArn" j
    let to_json = simple_to_json to_value
  end
module DeviceSoftwareSetComplianceStatus =
  struct
    type nonrec t =
      | NONE 
      | COMPLIANT 
      | NOT_COMPLIANT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | COMPLIANT -> "COMPLIANT"
      | NOT_COMPLIANT -> "NOT_COMPLIANT"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "COMPLIANT" -> COMPLIANT
      | "NOT_COMPLIANT" -> NOT_COMPLIANT
      | 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 DeviceSoftwareSetComplianceStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DeviceSoftwareSetComplianceStatus" j)
    let to_json = simple_to_json to_value
  end
module SoftwareSetUpdateStatus =
  struct
    type nonrec t =
      | AVAILABLE 
      | IN_PROGRESS 
      | UP_TO_DATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | IN_PROGRESS -> "IN_PROGRESS"
      | UP_TO_DATE -> "UP_TO_DATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "IN_PROGRESS" -> IN_PROGRESS
      | "UP_TO_DATE" -> UP_TO_DATE
      | 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 SoftwareSetUpdateStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SoftwareSetUpdateStatus" j)
    let to_json = simple_to_json to_value
  end
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
       "You do not have sufficient access to perform this action."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the next request."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("Retry-After",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The server encountered an internal error and is unable to complete the request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the resource associated with the request."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of the resource associated with the request."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource specified in the request was not found."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      serviceCode: ServiceCode.t option
        [@ocaml.doc "The code for the service in Service Quotas."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc "The code for the quota in Service Quotas."];
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the next request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("Retry-After",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" RetryAfterSeconds.of_json in
      let quotaCode = field_map json__ "quotaCode" QuotaCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the exception."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "A list of fields that didn't validate."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input fails to satisfy the specified constraints."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the resource associated with the request."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of the resource associated with the request."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation would cause a conflict with the current state of a service resource associated with the request. Resolve the conflict before retrying this request."]
module SoftwareSetIdOrEmptyString =
  struct
    type nonrec t = string
    let context_ = "SoftwareSetIdOrEmptyString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[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:"SoftwareSetIdOrEmptyString" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsMap =
  struct
    type nonrec t = (String_.t * String_.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 ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.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:String_.of_string
        ~of_json:String_.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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"\\S*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module SoftwareSetList =
  struct
    type nonrec t = SoftwareSetSummary.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:SoftwareSetSummary.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:SoftwareSetSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"SoftwareSetList"
        ~of_json:SoftwareSetSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max: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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module EnvironmentList =
  struct
    type nonrec t = EnvironmentSummary.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:EnvironmentSummary.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:EnvironmentSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"EnvironmentList"
        ~of_json:EnvironmentSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeviceList =
  struct
    type nonrec t = DeviceSummary.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:DeviceSummary.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:DeviceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DeviceList" ~of_json:DeviceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module SoftwareSet =
  struct
    type nonrec t =
      {
      id: SoftwareSetId.t option [@ocaml.doc "The ID of the software set."];
      version: String_.t option
        [@ocaml.doc "The version of the software set."];
      releasedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the software set was released."];
      supportedUntil: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the end of support for the software set."];
      validationStatus: SoftwareSetValidationStatus.t option
        [@ocaml.doc
          "An option to define if the software set has been validated."];
      software: SoftwareList.t option
        [@ocaml.doc "A list of the software components in the software set."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the software set."]}
    let make ?id =
      fun ?version ->
        fun ?releasedAt ->
          fun ?supportedUntil ->
            fun ?validationStatus ->
              fun ?software ->
                fun ?arn ->
                  fun () ->
                    {
                      id;
                      version;
                      releasedAt;
                      supportedUntil;
                      validationStatus;
                      software;
                      arn
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SoftwareSetId.to_value));
        ("version", (Option.map x.version ~f:String_.to_value));
        ("releasedAt", (Option.map x.releasedAt ~f:Timestamp.to_value));
        ("supportedUntil",
          (Option.map x.supportedUntil ~f:Timestamp.to_value));
        ("validationStatus",
          (Option.map x.validationStatus
             ~f:SoftwareSetValidationStatus.to_value));
        ("software", (Option.map x.software ~f:SoftwareList.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let software =
        (Option.map ~f:SoftwareList.of_xml) (Xml.child xml_arg0 "software") in
      let validationStatus =
        (Option.map ~f:SoftwareSetValidationStatus.of_xml)
          (Xml.child xml_arg0 "validationStatus") in
      let supportedUntil =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "supportedUntil") in
      let releasedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "releasedAt") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      let id = (Option.map ~f:SoftwareSetId.of_xml) (Xml.child xml_arg0 "id") in
      make ?arn ?software ?validationStatus ?supportedUntil ?releasedAt
        ?version ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let software = field_map json__ "software" SoftwareList.of_json in
      let validationStatus =
        field_map json__ "validationStatus"
          SoftwareSetValidationStatus.of_json in
      let supportedUntil =
        field_map json__ "supportedUntil" Timestamp.of_json in
      let releasedAt = field_map json__ "releasedAt" Timestamp.of_json in
      let version = field_map json__ "version" String_.of_json in
      let id = field_map json__ "id" SoftwareSetId.of_json in
      make ?arn ?software ?validationStatus ?supportedUntil ?releasedAt
        ?version ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a software set."]
module Environment =
  struct
    type nonrec t =
      {
      id: EnvironmentId.t option [@ocaml.doc "The ID of the environment."];
      name: EnvironmentName.t option
        [@ocaml.doc "The name of the environment."];
      desktopArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the desktop to stream from Amazon WorkSpaces, WorkSpaces Secure Browser, or AppStream 2.0."];
      desktopEndpoint: DesktopEndpoint.t option
        [@ocaml.doc
          "The URL for the identity provider login (only for environments that use AppStream 2.0)."];
      desktopType: DesktopType.t option
        [@ocaml.doc "The type of streaming desktop for the environment."];
      activationCode: ActivationCode.t option
        [@ocaml.doc
          "The activation code to register a device to the environment."];
      registeredDevicesCount: Integer.t option
        [@ocaml.doc "The number of devices registered to the environment."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."];
      maintenanceWindow: MaintenanceWindow.t option
        [@ocaml.doc
          "A specification for a time window to apply software updates."];
      softwareSetUpdateMode: SoftwareSetUpdateMode.t option
        [@ocaml.doc "An option to define which software updates to apply."];
      desiredSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc "The ID of the software set to apply."];
      pendingSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set that is pending to be installed."];
      pendingSoftwareSetVersion: String_.t option
        [@ocaml.doc
          "The version of the software set that is pending to be installed."];
      softwareSetComplianceStatus:
        EnvironmentSoftwareSetComplianceStatus.t option
        [@ocaml.doc
          "Describes if the software currently installed on all devices in the environment is a supported version."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the environment was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the device was updated."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the environment."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Key Management Service key used to encrypt the environment."];
      deviceCreationTags: DeviceCreationTagsMap.t option
        [@ocaml.doc
          "The tag keys and optional values for the newly created devices for this environment."]}
    let make ?id =
      fun ?name ->
        fun ?desktopArn ->
          fun ?desktopEndpoint ->
            fun ?desktopType ->
              fun ?activationCode ->
                fun ?registeredDevicesCount ->
                  fun ?softwareSetUpdateSchedule ->
                    fun ?maintenanceWindow ->
                      fun ?softwareSetUpdateMode ->
                        fun ?desiredSoftwareSetId ->
                          fun ?pendingSoftwareSetId ->
                            fun ?pendingSoftwareSetVersion ->
                              fun ?softwareSetComplianceStatus ->
                                fun ?createdAt ->
                                  fun ?updatedAt ->
                                    fun ?arn ->
                                      fun ?kmsKeyArn ->
                                        fun ?deviceCreationTags ->
                                          fun () ->
                                            {
                                              id;
                                              name;
                                              desktopArn;
                                              desktopEndpoint;
                                              desktopType;
                                              activationCode;
                                              registeredDevicesCount;
                                              softwareSetUpdateSchedule;
                                              maintenanceWindow;
                                              softwareSetUpdateMode;
                                              desiredSoftwareSetId;
                                              pendingSoftwareSetId;
                                              pendingSoftwareSetVersion;
                                              softwareSetComplianceStatus;
                                              createdAt;
                                              updatedAt;
                                              arn;
                                              kmsKeyArn;
                                              deviceCreationTags
                                            }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:EnvironmentId.to_value));
        ("name", (Option.map x.name ~f:EnvironmentName.to_value));
        ("desktopArn", (Option.map x.desktopArn ~f:Arn.to_value));
        ("desktopEndpoint",
          (Option.map x.desktopEndpoint ~f:DesktopEndpoint.to_value));
        ("desktopType", (Option.map x.desktopType ~f:DesktopType.to_value));
        ("activationCode",
          (Option.map x.activationCode ~f:ActivationCode.to_value));
        ("registeredDevicesCount",
          (Option.map x.registeredDevicesCount ~f:Integer.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value));
        ("maintenanceWindow",
          (Option.map x.maintenanceWindow ~f:MaintenanceWindow.to_value));
        ("softwareSetUpdateMode",
          (Option.map x.softwareSetUpdateMode
             ~f:SoftwareSetUpdateMode.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId ~f:SoftwareSetId.to_value));
        ("pendingSoftwareSetId",
          (Option.map x.pendingSoftwareSetId ~f:SoftwareSetId.to_value));
        ("pendingSoftwareSetVersion",
          (Option.map x.pendingSoftwareSetVersion ~f:String_.to_value));
        ("softwareSetComplianceStatus",
          (Option.map x.softwareSetComplianceStatus
             ~f:EnvironmentSoftwareSetComplianceStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("deviceCreationTags",
          (Option.map x.deviceCreationTags ~f:DeviceCreationTagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceCreationTags =
        (Option.map ~f:DeviceCreationTagsMap.of_xml)
          (Xml.child xml_arg0 "deviceCreationTags") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let softwareSetComplianceStatus =
        (Option.map ~f:EnvironmentSoftwareSetComplianceStatus.of_xml)
          (Xml.child xml_arg0 "softwareSetComplianceStatus") in
      let pendingSoftwareSetVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "pendingSoftwareSetVersion") in
      let pendingSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "pendingSoftwareSetId") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let softwareSetUpdateMode =
        (Option.map ~f:SoftwareSetUpdateMode.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateMode") in
      let maintenanceWindow =
        (Option.map ~f:MaintenanceWindow.of_xml)
          (Xml.child xml_arg0 "maintenanceWindow") in
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let registeredDevicesCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "registeredDevicesCount") in
      let activationCode =
        (Option.map ~f:ActivationCode.of_xml)
          (Xml.child xml_arg0 "activationCode") in
      let desktopType =
        (Option.map ~f:DesktopType.of_xml) (Xml.child xml_arg0 "desktopType") in
      let desktopEndpoint =
        (Option.map ~f:DesktopEndpoint.of_xml)
          (Xml.child xml_arg0 "desktopEndpoint") in
      let desktopArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "desktopArn") in
      let name =
        (Option.map ~f:EnvironmentName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:EnvironmentId.of_xml) (Xml.child xml_arg0 "id") in
      make ?deviceCreationTags ?kmsKeyArn ?arn ?updatedAt ?createdAt
        ?softwareSetComplianceStatus ?pendingSoftwareSetVersion
        ?pendingSoftwareSetId ?desiredSoftwareSetId ?softwareSetUpdateMode
        ?maintenanceWindow ?softwareSetUpdateSchedule ?registeredDevicesCount
        ?activationCode ?desktopType ?desktopEndpoint ?desktopArn ?name ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceCreationTags =
        field_map json__ "deviceCreationTags" DeviceCreationTagsMap.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let softwareSetComplianceStatus =
        field_map json__ "softwareSetComplianceStatus"
          EnvironmentSoftwareSetComplianceStatus.of_json in
      let pendingSoftwareSetVersion =
        field_map json__ "pendingSoftwareSetVersion" String_.of_json in
      let pendingSoftwareSetId =
        field_map json__ "pendingSoftwareSetId" SoftwareSetId.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId" SoftwareSetId.of_json in
      let softwareSetUpdateMode =
        field_map json__ "softwareSetUpdateMode"
          SoftwareSetUpdateMode.of_json in
      let maintenanceWindow =
        field_map json__ "maintenanceWindow" MaintenanceWindow.of_json in
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let registeredDevicesCount =
        field_map json__ "registeredDevicesCount" Integer.of_json in
      let activationCode =
        field_map json__ "activationCode" ActivationCode.of_json in
      let desktopType = field_map json__ "desktopType" DesktopType.of_json in
      let desktopEndpoint =
        field_map json__ "desktopEndpoint" DesktopEndpoint.of_json in
      let desktopArn = field_map json__ "desktopArn" Arn.of_json in
      let name = field_map json__ "name" EnvironmentName.of_json in
      let id = field_map json__ "id" EnvironmentId.of_json in
      make ?deviceCreationTags ?kmsKeyArn ?arn ?updatedAt ?createdAt
        ?softwareSetComplianceStatus ?pendingSoftwareSetVersion
        ?pendingSoftwareSetId ?desiredSoftwareSetId ?softwareSetUpdateMode
        ?maintenanceWindow ?softwareSetUpdateSchedule ?registeredDevicesCount
        ?activationCode ?desktopType ?desktopEndpoint ?desktopArn ?name ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an environment."]
module Device =
  struct
    type nonrec t =
      {
      id: DeviceId.t option [@ocaml.doc "The ID of the device."];
      serialNumber: String_.t option
        [@ocaml.doc "The hardware serial number of the device."];
      name: DeviceName.t option [@ocaml.doc "The name of the device."];
      model: String_.t option [@ocaml.doc "The model number of the device."];
      environmentId: EnvironmentId.t option
        [@ocaml.doc
          "The ID of the environment the device is associated with."];
      status: DeviceStatus.t option [@ocaml.doc "The status of the device."];
      currentSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set currently installed on the device."];
      currentSoftwareSetVersion: String_.t option
        [@ocaml.doc
          "The version of the software set currently installed on the device."];
      desiredSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set which the device has been set to."];
      pendingSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc
          "The ID of the software set that is pending to be installed on the device."];
      pendingSoftwareSetVersion: String_.t option
        [@ocaml.doc
          "The version of the software set that is pending to be installed on the device."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."];
      softwareSetComplianceStatus: DeviceSoftwareSetComplianceStatus.t option
        [@ocaml.doc
          "Describes if the software currently installed on the device is a supported version."];
      softwareSetUpdateStatus: SoftwareSetUpdateStatus.t option
        [@ocaml.doc
          "Describes if the device has a supported version of software installed."];
      lastConnectedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the most recent session on the device."];
      lastPostureAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of the most recent check-in of the device."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the device was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the device was updated."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the device."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Key Management Service key used to encrypt the device."];
      lastUserId: UserId.t option
        [@ocaml.doc "The user ID of the most recent session on the device."]}
    let make ?id =
      fun ?serialNumber ->
        fun ?name ->
          fun ?model ->
            fun ?environmentId ->
              fun ?status ->
                fun ?currentSoftwareSetId ->
                  fun ?currentSoftwareSetVersion ->
                    fun ?desiredSoftwareSetId ->
                      fun ?pendingSoftwareSetId ->
                        fun ?pendingSoftwareSetVersion ->
                          fun ?softwareSetUpdateSchedule ->
                            fun ?softwareSetComplianceStatus ->
                              fun ?softwareSetUpdateStatus ->
                                fun ?lastConnectedAt ->
                                  fun ?lastPostureAt ->
                                    fun ?createdAt ->
                                      fun ?updatedAt ->
                                        fun ?arn ->
                                          fun ?kmsKeyArn ->
                                            fun ?lastUserId ->
                                              fun () ->
                                                {
                                                  id;
                                                  serialNumber;
                                                  name;
                                                  model;
                                                  environmentId;
                                                  status;
                                                  currentSoftwareSetId;
                                                  currentSoftwareSetVersion;
                                                  desiredSoftwareSetId;
                                                  pendingSoftwareSetId;
                                                  pendingSoftwareSetVersion;
                                                  softwareSetUpdateSchedule;
                                                  softwareSetComplianceStatus;
                                                  softwareSetUpdateStatus;
                                                  lastConnectedAt;
                                                  lastPostureAt;
                                                  createdAt;
                                                  updatedAt;
                                                  arn;
                                                  kmsKeyArn;
                                                  lastUserId
                                                }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:DeviceId.to_value));
        ("serialNumber", (Option.map x.serialNumber ~f:String_.to_value));
        ("name", (Option.map x.name ~f:DeviceName.to_value));
        ("model", (Option.map x.model ~f:String_.to_value));
        ("environmentId",
          (Option.map x.environmentId ~f:EnvironmentId.to_value));
        ("status", (Option.map x.status ~f:DeviceStatus.to_value));
        ("currentSoftwareSetId",
          (Option.map x.currentSoftwareSetId ~f:SoftwareSetId.to_value));
        ("currentSoftwareSetVersion",
          (Option.map x.currentSoftwareSetVersion ~f:String_.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId ~f:SoftwareSetId.to_value));
        ("pendingSoftwareSetId",
          (Option.map x.pendingSoftwareSetId ~f:SoftwareSetId.to_value));
        ("pendingSoftwareSetVersion",
          (Option.map x.pendingSoftwareSetVersion ~f:String_.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value));
        ("softwareSetComplianceStatus",
          (Option.map x.softwareSetComplianceStatus
             ~f:DeviceSoftwareSetComplianceStatus.to_value));
        ("softwareSetUpdateStatus",
          (Option.map x.softwareSetUpdateStatus
             ~f:SoftwareSetUpdateStatus.to_value));
        ("lastConnectedAt",
          (Option.map x.lastConnectedAt ~f:Timestamp.to_value));
        ("lastPostureAt", (Option.map x.lastPostureAt ~f:Timestamp.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("lastUserId", (Option.map x.lastUserId ~f:UserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUserId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "lastUserId") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let lastPostureAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastPostureAt") in
      let lastConnectedAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastConnectedAt") in
      let softwareSetUpdateStatus =
        (Option.map ~f:SoftwareSetUpdateStatus.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateStatus") in
      let softwareSetComplianceStatus =
        (Option.map ~f:DeviceSoftwareSetComplianceStatus.of_xml)
          (Xml.child xml_arg0 "softwareSetComplianceStatus") in
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let pendingSoftwareSetVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "pendingSoftwareSetVersion") in
      let pendingSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "pendingSoftwareSetId") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let currentSoftwareSetVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "currentSoftwareSetVersion") in
      let currentSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "currentSoftwareSetId") in
      let status =
        (Option.map ~f:DeviceStatus.of_xml) (Xml.child xml_arg0 "status") in
      let environmentId =
        (Option.map ~f:EnvironmentId.of_xml)
          (Xml.child xml_arg0 "environmentId") in
      let model = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "model") in
      let name =
        (Option.map ~f:DeviceName.of_xml) (Xml.child xml_arg0 "name") in
      let serialNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serialNumber") in
      let id = (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastUserId ?kmsKeyArn ?arn ?updatedAt ?createdAt ?lastPostureAt
        ?lastConnectedAt ?softwareSetUpdateStatus
        ?softwareSetComplianceStatus ?softwareSetUpdateSchedule
        ?pendingSoftwareSetVersion ?pendingSoftwareSetId
        ?desiredSoftwareSetId ?currentSoftwareSetVersion
        ?currentSoftwareSetId ?status ?environmentId ?model ?name
        ?serialNumber ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUserId = field_map json__ "lastUserId" UserId.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let lastPostureAt = field_map json__ "lastPostureAt" Timestamp.of_json in
      let lastConnectedAt =
        field_map json__ "lastConnectedAt" Timestamp.of_json in
      let softwareSetUpdateStatus =
        field_map json__ "softwareSetUpdateStatus"
          SoftwareSetUpdateStatus.of_json in
      let softwareSetComplianceStatus =
        field_map json__ "softwareSetComplianceStatus"
          DeviceSoftwareSetComplianceStatus.of_json in
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let pendingSoftwareSetVersion =
        field_map json__ "pendingSoftwareSetVersion" String_.of_json in
      let pendingSoftwareSetId =
        field_map json__ "pendingSoftwareSetId" SoftwareSetId.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId" SoftwareSetId.of_json in
      let currentSoftwareSetVersion =
        field_map json__ "currentSoftwareSetVersion" String_.of_json in
      let currentSoftwareSetId =
        field_map json__ "currentSoftwareSetId" SoftwareSetId.of_json in
      let status = field_map json__ "status" DeviceStatus.of_json in
      let environmentId =
        field_map json__ "environmentId" EnvironmentId.of_json in
      let model = field_map json__ "model" String_.of_json in
      let name = field_map json__ "name" DeviceName.of_json in
      let serialNumber = field_map json__ "serialNumber" String_.of_json in
      let id = field_map json__ "id" DeviceId.of_json in
      make ?lastUserId ?kmsKeyArn ?arn ?updatedAt ?createdAt ?lastPostureAt
        ?lastConnectedAt ?softwareSetUpdateStatus
        ?softwareSetComplianceStatus ?softwareSetUpdateSchedule
        ?pendingSoftwareSetVersion ?pendingSoftwareSetId
        ?desiredSoftwareSetId ?currentSoftwareSetVersion
        ?currentSoftwareSetId ?status ?environmentId ?model ?name
        ?serialNumber ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a thin client device."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module TargetDeviceStatus =
  struct
    type nonrec t =
      | DEREGISTERED 
      | ARCHIVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEREGISTERED -> "DEREGISTERED"
      | ARCHIVED -> "ARCHIVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEREGISTERED" -> DEREGISTERED
      | "ARCHIVED" -> ARCHIVED
      | 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 TargetDeviceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetDeviceStatus" j)
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc "The ID of the resource that exceeds the service quota."];
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of the resource that exceeds the service quota."];
      serviceCode: ServiceCode.t option
        [@ocaml.doc "The code for the service in Service Quotas."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc "The code for the quota in Service Quotas."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" QuotaCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your request exceeds a service quota."]
module UpdateSoftwareSetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a software set."]
module UpdateSoftwareSetRequest =
  struct
    type nonrec t =
      {
      id: SoftwareSetId.t
        [@ocaml.doc "The ID of the software set to update."];
      validationStatus: SoftwareSetValidationStatus.t
        [@ocaml.doc
          "An option to define if the software set has been validated."]}
    let context_ = "UpdateSoftwareSetRequest"
    let make ~id =
      fun ~validationStatus -> fun () -> { id; validationStatus }
    let to_value x =
      structure_to_value
        [("id", (Some (SoftwareSetId.to_value x.id)));
        ("validationStatus",
          (Some (SoftwareSetValidationStatus.to_value x.validationStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationStatus =
        SoftwareSetValidationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "validationStatus") in
      let id =
        SoftwareSetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~validationStatus ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationStatus =
        field_map_exn json__ "validationStatus"
          SoftwareSetValidationStatus.of_json in
      let id = field_map_exn json__ "id" SoftwareSetId.of_json in
      make ~validationStatus ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a software set."]
module UpdateEnvironmentResponse =
  struct
    type nonrec t =
      {
      environment: EnvironmentSummary.t option
        [@ocaml.doc "Describes an environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?environment = fun () -> { environment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("environment",
           (Option.map x.environment ~f:EnvironmentSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environment =
        (Option.map ~f:EnvironmentSummary.of_xml)
          (Xml.child xml_arg0 "environment") in
      make ?environment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environment =
        field_map json__ "environment" EnvironmentSummary.of_json in
      make ?environment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an environment."]
module UpdateEnvironmentRequest =
  struct
    type nonrec t =
      {
      id: EnvironmentId.t [@ocaml.doc "The ID of the environment to update."];
      name: EnvironmentName.t option
        [@ocaml.doc "The name of the environment to update."];
      desktopArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the desktop to stream from Amazon WorkSpaces, WorkSpaces Secure Browser, or AppStream 2.0."];
      desktopEndpoint: DesktopEndpoint.t option
        [@ocaml.doc
          "The URL for the identity provider login (only for environments that use AppStream 2.0)."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."];
      maintenanceWindow: MaintenanceWindow.t option
        [@ocaml.doc
          "A specification for a time window to apply software updates."];
      softwareSetUpdateMode: SoftwareSetUpdateMode.t option
        [@ocaml.doc "An option to define which software updates to apply."];
      desiredSoftwareSetId: SoftwareSetIdOrEmptyString.t option
        [@ocaml.doc "The ID of the software set to apply."];
      deviceCreationTags: DeviceCreationTagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the newly created devices for this environment."]}
    let context_ = "UpdateEnvironmentRequest"
    let make ?name =
      fun ?desktopArn ->
        fun ?desktopEndpoint ->
          fun ?softwareSetUpdateSchedule ->
            fun ?maintenanceWindow ->
              fun ?softwareSetUpdateMode ->
                fun ?desiredSoftwareSetId ->
                  fun ?deviceCreationTags ->
                    fun ~id ->
                      fun () ->
                        {
                          name;
                          desktopArn;
                          desktopEndpoint;
                          softwareSetUpdateSchedule;
                          maintenanceWindow;
                          softwareSetUpdateMode;
                          desiredSoftwareSetId;
                          deviceCreationTags;
                          id
                        }
    let to_value x =
      structure_to_value
        [("id", (Some (EnvironmentId.to_value x.id)));
        ("name", (Option.map x.name ~f:EnvironmentName.to_value));
        ("desktopArn", (Option.map x.desktopArn ~f:Arn.to_value));
        ("desktopEndpoint",
          (Option.map x.desktopEndpoint ~f:DesktopEndpoint.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value));
        ("maintenanceWindow",
          (Option.map x.maintenanceWindow ~f:MaintenanceWindow.to_value));
        ("softwareSetUpdateMode",
          (Option.map x.softwareSetUpdateMode
             ~f:SoftwareSetUpdateMode.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId
             ~f:SoftwareSetIdOrEmptyString.to_value));
        ("deviceCreationTags",
          (Option.map x.deviceCreationTags ~f:DeviceCreationTagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceCreationTags =
        (Option.map ~f:DeviceCreationTagsMap.of_xml)
          (Xml.child xml_arg0 "deviceCreationTags") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetIdOrEmptyString.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let softwareSetUpdateMode =
        (Option.map ~f:SoftwareSetUpdateMode.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateMode") in
      let maintenanceWindow =
        (Option.map ~f:MaintenanceWindow.of_xml)
          (Xml.child xml_arg0 "maintenanceWindow") in
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let desktopEndpoint =
        (Option.map ~f:DesktopEndpoint.of_xml)
          (Xml.child xml_arg0 "desktopEndpoint") in
      let desktopArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "desktopArn") in
      let name =
        (Option.map ~f:EnvironmentName.of_xml) (Xml.child xml_arg0 "name") in
      let id =
        EnvironmentId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?deviceCreationTags ?desiredSoftwareSetId ?softwareSetUpdateMode
        ?maintenanceWindow ?softwareSetUpdateSchedule ?desktopEndpoint
        ?desktopArn ?name ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceCreationTags =
        field_map json__ "deviceCreationTags" DeviceCreationTagsMap.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId"
          SoftwareSetIdOrEmptyString.of_json in
      let softwareSetUpdateMode =
        field_map json__ "softwareSetUpdateMode"
          SoftwareSetUpdateMode.of_json in
      let maintenanceWindow =
        field_map json__ "maintenanceWindow" MaintenanceWindow.of_json in
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let desktopEndpoint =
        field_map json__ "desktopEndpoint" DesktopEndpoint.of_json in
      let desktopArn = field_map json__ "desktopArn" Arn.of_json in
      let name = field_map json__ "name" EnvironmentName.of_json in
      let id = field_map_exn json__ "id" EnvironmentId.of_json in
      make ?deviceCreationTags ?desiredSoftwareSetId ?softwareSetUpdateMode
        ?maintenanceWindow ?softwareSetUpdateSchedule ?desktopEndpoint
        ?desktopArn ?name ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an environment."]
module UpdateDeviceResponse =
  struct
    type nonrec t =
      {
      device: DeviceSummary.t option [@ocaml.doc "Describes a device."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?device = fun () -> { device }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("device", (Option.map x.device ~f:DeviceSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let device =
        (Option.map ~f:DeviceSummary.of_xml) (Xml.child xml_arg0 "device") in
      make ?device ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let device = field_map json__ "device" DeviceSummary.of_json in
      make ?device ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a thin client device."]
module UpdateDeviceRequest =
  struct
    type nonrec t =
      {
      id: DeviceId.t [@ocaml.doc "The ID of the device to update."];
      name: DeviceName.t option
        [@ocaml.doc "The name of the device to update."];
      desiredSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc "The ID of the software set to apply."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."]}
    let context_ = "UpdateDeviceRequest"
    let make ?name =
      fun ?desiredSoftwareSetId ->
        fun ?softwareSetUpdateSchedule ->
          fun ~id ->
            fun () ->
              { name; desiredSoftwareSetId; softwareSetUpdateSchedule; id }
    let to_value x =
      structure_to_value
        [("id", (Some (DeviceId.to_value x.id)));
        ("name", (Option.map x.name ~f:DeviceName.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId ~f:SoftwareSetId.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let name =
        (Option.map ~f:DeviceName.of_xml) (Xml.child xml_arg0 "name") in
      let id =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?softwareSetUpdateSchedule ?desiredSoftwareSetId ?name ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId" SoftwareSetId.of_json in
      let name = field_map json__ "name" DeviceName.of_json in
      let id = field_map_exn json__ "id" DeviceId.of_json in
      make ?softwareSetUpdateSchedule ?desiredSoftwareSetId ?name ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a thin client device."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag or tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to untag."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "The keys of the key-value pairs for the tag or tags you want to remove from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag or tags from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to tag."];
      tags: TagsMap.t
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tags", (Some (TagsMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagsMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagsMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which you want to retrieve tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of tags for a resource."]
module ListSoftwareSetsResponse =
  struct
    type nonrec t =
      {
      softwareSets: SoftwareSetList.t option
        [@ocaml.doc "Describes software sets."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?softwareSets =
      fun ?nextToken -> fun () -> { softwareSets; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("softwareSets",
           (Option.map x.softwareSets ~f:SoftwareSetList.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 softwareSets =
        (Option.map ~f:SoftwareSetList.of_xml)
          (Xml.child xml_arg0 "softwareSets") in
      make ?nextToken ?softwareSets ()
    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 softwareSets =
        field_map json__ "softwareSets" SoftwareSetList.of_json in
      make ?nextToken ?softwareSets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of software sets."]
module ListSoftwareSetsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of software sets."]
module ListEnvironmentsResponse =
  struct
    type nonrec t =
      {
      environments: EnvironmentList.t option
        [@ocaml.doc "Describes environments."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?environments =
      fun ?nextToken -> fun () -> { environments; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("environments",
           (Option.map x.environments ~f:EnvironmentList.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 environments =
        (Option.map ~f:EnvironmentList.of_xml)
          (Xml.child xml_arg0 "environments") in
      make ?nextToken ?environments ()
    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 environments =
        field_map json__ "environments" EnvironmentList.of_json in
      make ?nextToken ?environments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of environments."]
module ListEnvironmentsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of environments."]
module ListDevicesResponse =
  struct
    type nonrec t =
      {
      devices: DeviceList.t option [@ocaml.doc "Describes devices."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?devices = fun ?nextToken -> fun () -> { devices; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("devices", (Option.map x.devices ~f:DeviceList.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 devices =
        (Option.map ~f:DeviceList.of_xml) (Xml.child xml_arg0 "devices") in
      make ?nextToken ?devices ()
    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 devices = field_map json__ "devices" DeviceList.of_json in
      make ?nextToken ?devices ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of thin client devices."]
module ListDevicesRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of thin client devices."]
module GetSoftwareSetResponse =
  struct
    type nonrec t =
      {
      softwareSet: SoftwareSet.t option
        [@ocaml.doc "Describes a software set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?softwareSet = fun () -> { softwareSet }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("softwareSet", (Option.map x.softwareSet ~f:SoftwareSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let softwareSet =
        (Option.map ~f:SoftwareSet.of_xml) (Xml.child xml_arg0 "softwareSet") in
      make ?softwareSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let softwareSet = field_map json__ "softwareSet" SoftwareSet.of_json in
      make ?softwareSet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information for a software set."]
module GetSoftwareSetRequest =
  struct
    type nonrec t =
      {
      id: SoftwareSetId.t
        [@ocaml.doc
          "The ID of the software set for which to return information."]}
    let context_ = "GetSoftwareSetRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (SoftwareSetId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        SoftwareSetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" SoftwareSetId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information for a software set."]
module GetEnvironmentResponse =
  struct
    type nonrec t =
      {
      environment: Environment.t option
        [@ocaml.doc "Describes an environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?environment = fun () -> { environment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("environment", (Option.map x.environment ~f:Environment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environment =
        (Option.map ~f:Environment.of_xml) (Xml.child xml_arg0 "environment") in
      make ?environment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environment = field_map json__ "environment" Environment.of_json in
      make ?environment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information for an environment."]
module GetEnvironmentRequest =
  struct
    type nonrec t =
      {
      id: EnvironmentId.t
        [@ocaml.doc
          "The ID of the environment for which to return information."]}
    let context_ = "GetEnvironmentRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (EnvironmentId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        EnvironmentId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" EnvironmentId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information for an environment."]
module GetDeviceResponse =
  struct
    type nonrec t =
      {
      device: Device.t option [@ocaml.doc "Describes an device."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?device = fun () -> { device }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("device", (Option.map x.device ~f:Device.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let device =
        (Option.map ~f:Device.of_xml) (Xml.child xml_arg0 "device") in
      make ?device ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let device = field_map json__ "device" Device.of_json in
      make ?device ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information for a thin client device."]
module GetDeviceRequest =
  struct
    type nonrec t =
      {
      id: DeviceId.t
        [@ocaml.doc "The ID of the device for which to return information."]}
    let context_ = "GetDeviceRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (DeviceId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" DeviceId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information for a thin client device."]
module DeregisterDeviceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deregisters a thin client device."]
module DeregisterDeviceRequest =
  struct
    type nonrec t =
      {
      id: DeviceId.t [@ocaml.doc "The ID of the device to deregister."];
      targetDeviceStatus: TargetDeviceStatus.t option
        [@ocaml.doc "The desired new status for the device."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."]}
    let context_ = "DeregisterDeviceRequest"
    let make ?targetDeviceStatus =
      fun ?clientToken ->
        fun ~id -> fun () -> { targetDeviceStatus; clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (DeviceId.to_value x.id)));
        ("targetDeviceStatus",
          (Option.map x.targetDeviceStatus ~f:TargetDeviceStatus.to_value));
        ("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 targetDeviceStatus =
        (Option.map ~f:TargetDeviceStatus.of_xml)
          (Xml.child xml_arg0 "targetDeviceStatus") in
      let id =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ?targetDeviceStatus ~id ()
    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 targetDeviceStatus =
        field_map json__ "targetDeviceStatus" TargetDeviceStatus.of_json in
      let id = field_map_exn json__ "id" DeviceId.of_json in
      make ?clientToken ?targetDeviceStatus ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deregisters a thin client device."]
module DeleteEnvironmentResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an environment."]
module DeleteEnvironmentRequest =
  struct
    type nonrec t =
      {
      id: EnvironmentId.t [@ocaml.doc "The ID of the environment to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."]}
    let context_ = "DeleteEnvironmentRequest"
    let make ?clientToken = fun ~id -> fun () -> { clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (EnvironmentId.to_value x.id)));
        ("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 id =
        EnvironmentId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ~id ()
    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 id = field_map_exn json__ "id" EnvironmentId.of_json in
      make ?clientToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an environment."]
module DeleteDeviceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a thin client device."]
module DeleteDeviceRequest =
  struct
    type nonrec t =
      {
      id: DeviceId.t [@ocaml.doc "The ID of the device to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."]}
    let context_ = "DeleteDeviceRequest"
    let make ?clientToken = fun ~id -> fun () -> { clientToken; id }
    let to_value x =
      structure_to_value
        [("id", (Some (DeviceId.to_value x.id)));
        ("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 id =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?clientToken ~id ()
    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 id = field_map_exn json__ "id" DeviceId.of_json in
      make ?clientToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a thin client device."]
module CreateEnvironmentResponse =
  struct
    type nonrec t =
      {
      environment: EnvironmentSummary.t option
        [@ocaml.doc "Describes an environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?environment = fun () -> { environment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("environment",
           (Option.map x.environment ~f:EnvironmentSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environment =
        (Option.map ~f:EnvironmentSummary.of_xml)
          (Xml.child xml_arg0 "environment") in
      make ?environment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environment =
        field_map json__ "environment" EnvironmentSummary.of_json in
      make ?environment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an environment for your thin client devices."]
module CreateEnvironmentRequest =
  struct
    type nonrec t =
      {
      name: EnvironmentName.t option
        [@ocaml.doc "The name for the environment."];
      desktopArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the desktop to stream from Amazon WorkSpaces, WorkSpaces Secure Browser, or AppStream 2.0."];
      desktopEndpoint: DesktopEndpoint.t option
        [@ocaml.doc
          "The URL for the identity provider login (only for environments that use AppStream 2.0)."];
      softwareSetUpdateSchedule: SoftwareSetUpdateSchedule.t option
        [@ocaml.doc
          "An option to define if software updates should be applied within a maintenance window."];
      maintenanceWindow: MaintenanceWindow.t option
        [@ocaml.doc
          "A specification for a time window to apply software updates."];
      softwareSetUpdateMode: SoftwareSetUpdateMode.t option
        [@ocaml.doc "An option to define which software updates to apply."];
      desiredSoftwareSetId: SoftwareSetId.t option
        [@ocaml.doc "The ID of the software set to apply."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Key Management Service key to use to encrypt the environment."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."];
      tags: TagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."];
      deviceCreationTags: DeviceCreationTagsMap.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the newly created devices for this environment."]}
    let context_ = "CreateEnvironmentRequest"
    let make ?name =
      fun ?desktopEndpoint ->
        fun ?softwareSetUpdateSchedule ->
          fun ?maintenanceWindow ->
            fun ?softwareSetUpdateMode ->
              fun ?desiredSoftwareSetId ->
                fun ?kmsKeyArn ->
                  fun ?clientToken ->
                    fun ?tags ->
                      fun ?deviceCreationTags ->
                        fun ~desktopArn ->
                          fun () ->
                            {
                              name;
                              desktopEndpoint;
                              softwareSetUpdateSchedule;
                              maintenanceWindow;
                              softwareSetUpdateMode;
                              desiredSoftwareSetId;
                              kmsKeyArn;
                              clientToken;
                              tags;
                              deviceCreationTags;
                              desktopArn
                            }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:EnvironmentName.to_value));
        ("desktopArn", (Some (Arn.to_value x.desktopArn)));
        ("desktopEndpoint",
          (Option.map x.desktopEndpoint ~f:DesktopEndpoint.to_value));
        ("softwareSetUpdateSchedule",
          (Option.map x.softwareSetUpdateSchedule
             ~f:SoftwareSetUpdateSchedule.to_value));
        ("maintenanceWindow",
          (Option.map x.maintenanceWindow ~f:MaintenanceWindow.to_value));
        ("softwareSetUpdateMode",
          (Option.map x.softwareSetUpdateMode
             ~f:SoftwareSetUpdateMode.to_value));
        ("desiredSoftwareSetId",
          (Option.map x.desiredSoftwareSetId ~f:SoftwareSetId.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("deviceCreationTags",
          (Option.map x.deviceCreationTags ~f:DeviceCreationTagsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceCreationTags =
        (Option.map ~f:DeviceCreationTagsMap.of_xml)
          (Xml.child xml_arg0 "deviceCreationTags") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let desiredSoftwareSetId =
        (Option.map ~f:SoftwareSetId.of_xml)
          (Xml.child xml_arg0 "desiredSoftwareSetId") in
      let softwareSetUpdateMode =
        (Option.map ~f:SoftwareSetUpdateMode.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateMode") in
      let maintenanceWindow =
        (Option.map ~f:MaintenanceWindow.of_xml)
          (Xml.child xml_arg0 "maintenanceWindow") in
      let softwareSetUpdateSchedule =
        (Option.map ~f:SoftwareSetUpdateSchedule.of_xml)
          (Xml.child xml_arg0 "softwareSetUpdateSchedule") in
      let desktopEndpoint =
        (Option.map ~f:DesktopEndpoint.of_xml)
          (Xml.child xml_arg0 "desktopEndpoint") in
      let desktopArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "desktopArn") in
      let name =
        (Option.map ~f:EnvironmentName.of_xml) (Xml.child xml_arg0 "name") in
      make ?deviceCreationTags ?tags ?clientToken ?kmsKeyArn
        ?desiredSoftwareSetId ?softwareSetUpdateMode ?maintenanceWindow
        ?softwareSetUpdateSchedule ?desktopEndpoint ~desktopArn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceCreationTags =
        field_map json__ "deviceCreationTags" DeviceCreationTagsMap.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let desiredSoftwareSetId =
        field_map json__ "desiredSoftwareSetId" SoftwareSetId.of_json in
      let softwareSetUpdateMode =
        field_map json__ "softwareSetUpdateMode"
          SoftwareSetUpdateMode.of_json in
      let maintenanceWindow =
        field_map json__ "maintenanceWindow" MaintenanceWindow.of_json in
      let softwareSetUpdateSchedule =
        field_map json__ "softwareSetUpdateSchedule"
          SoftwareSetUpdateSchedule.of_json in
      let desktopEndpoint =
        field_map json__ "desktopEndpoint" DesktopEndpoint.of_json in
      let desktopArn = field_map_exn json__ "desktopArn" Arn.of_json in
      let name = field_map json__ "name" EnvironmentName.of_json in
      make ?deviceCreationTags ?tags ?clientToken ?kmsKeyArn
        ?desiredSoftwareSetId ?softwareSetUpdateMode ?maintenanceWindow
        ?softwareSetUpdateSchedule ?desktopEndpoint ~desktopArn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an environment for your thin client devices."]