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.chime
let apiVersion = "2018-05-01"
let endpointPrefix = "chime"
let serviceFullName = "Amazon Chime"
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 Iso8601Timestamp =
  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 PhoneNumberAssociationName =
  struct
    type nonrec t =
      | AccountId 
      | UserId 
      | VoiceConnectorId 
      | VoiceConnectorGroupId 
      | SipRuleId 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AccountId -> "AccountId"
      | UserId -> "UserId"
      | VoiceConnectorId -> "VoiceConnectorId"
      | VoiceConnectorGroupId -> "VoiceConnectorGroupId"
      | SipRuleId -> "SipRuleId"
      | Non_static_id s -> s
    let of_string =
      function
      | "AccountId" -> AccountId
      | "UserId" -> UserId
      | "VoiceConnectorId" -> VoiceConnectorId
      | "VoiceConnectorGroupId" -> VoiceConnectorGroupId
      | "SipRuleId" -> SipRuleId
      | 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 PhoneNumberAssociationName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberAssociationName" 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 E164PhoneNumber =
  struct
    type nonrec t = string
    let context_ = "E164PhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^\\+?[1-9]\\d{1,14}$"); 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:"E164PhoneNumber" j
    let to_json = simple_to_json to_value
  end
module OrderedPhoneNumberStatus =
  struct
    type nonrec t =
      | Processing 
      | Acquired 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Processing -> "Processing"
      | Acquired -> "Acquired"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Processing" -> Processing
      | "Acquired" -> Acquired
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration OrderedPhoneNumberStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"OrderedPhoneNumberStatus" j)
    let to_json = simple_to_json to_value
  end
module NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    let make i =
      let open Result in
        ok_or_failwith (check_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:"NonEmptyString" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "SensitiveString"
    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:"SensitiveString" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberType =
  struct
    type nonrec t =
      | Local 
      | TollFree 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Local -> "Local"
      | TollFree -> "TollFree"
      | Non_static_id s -> s
    let of_string =
      function
      | "Local" -> Local
      | "TollFree" -> TollFree
      | 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 PhoneNumberType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PhoneNumberType" j)
    let to_json = simple_to_json to_value
  end
module MemberType =
  struct
    type nonrec t =
      | User 
      | Bot 
      | Webhook 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | User -> "User"
      | Bot -> "Bot"
      | Webhook -> "Webhook"
      | Non_static_id s -> s
    let of_string =
      function
      | "User" -> User
      | "Bot" -> Bot
      | "Webhook" -> Webhook
      | 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 MemberType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MemberType" j)
    let to_json = simple_to_json to_value
  end
module PhoneNumberAssociation =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "Contains the ID for the entity specified in Name."];
      name: PhoneNumberAssociationName.t option
        [@ocaml.doc
          "Defines the association with an Amazon Chime account ID, user ID, Amazon Chime Voice Connector ID, or Amazon Chime Voice Connector group ID."];
      associatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The timestamp of the phone number association, in ISO 8601 format."]}
    let make ?value =
      fun ?name ->
        fun ?associatedTimestamp ->
          fun () -> { value; name; associatedTimestamp }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:PhoneNumberAssociationName.to_value));
        ("AssociatedTimestamp",
          (Option.map x.associatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "AssociatedTimestamp") in
      let name =
        (Option.map ~f:PhoneNumberAssociationName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?associatedTimestamp ?name ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedTimestamp =
        field_map json__ "AssociatedTimestamp" Iso8601Timestamp.of_json in
      let name = field_map json__ "Name" PhoneNumberAssociationName.of_json in
      let value = field_map json__ "Value" String_.of_json in
      make ?associatedTimestamp ?name ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number associations, such as Amazon Chime account ID, Amazon Chime user ID, Amazon Chime Voice Connector ID, or Amazon Chime Voice Connector group ID."]
module NullableBoolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module OrderedPhoneNumber =
  struct
    type nonrec t =
      {
      e164PhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The phone number, in E.164 format."];
      status: OrderedPhoneNumberStatus.t option
        [@ocaml.doc "The phone number status."]}
    let make ?e164PhoneNumber =
      fun ?status -> fun () -> { e164PhoneNumber; status }
    let to_value x =
      structure_to_value
        [("E164PhoneNumber",
           (Option.map x.e164PhoneNumber ~f:E164PhoneNumber.to_value));
        ("Status",
          (Option.map x.status ~f:OrderedPhoneNumberStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OrderedPhoneNumberStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let e164PhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumber") in
      make ?status ?e164PhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OrderedPhoneNumberStatus.of_json in
      let e164PhoneNumber =
        field_map json__ "E164PhoneNumber" E164PhoneNumber.of_json in
      make ?status ?e164PhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A phone number for which an order has been placed."]
module License =
  struct
    type nonrec t =
      | Basic 
      | Plus 
      | Pro 
      | ProTrial 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Basic -> "Basic"
      | Plus -> "Plus"
      | Pro -> "Pro"
      | ProTrial -> "ProTrial"
      | Non_static_id s -> s
    let of_string =
      function
      | "Basic" -> Basic
      | "Plus" -> Plus
      | "Pro" -> Pro
      | "ProTrial" -> ProTrial
      | 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 License" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"License" j)
    let to_json = simple_to_json to_value
  end
module SigninDelegateGroup =
  struct
    type nonrec t =
      {
      groupName: NonEmptyString.t option [@ocaml.doc "The group name."]}
    let make ?groupName = fun () -> { groupName }
    let to_value x =
      structure_to_value
        [("GroupName", (Option.map x.groupName ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "GroupName") in
      make ?groupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupName = field_map json__ "GroupName" NonEmptyString.of_json in
      make ?groupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Active Directory (AD) group whose members are granted permission to act as delegates."]
module RetentionDays =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5475) >>= (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 RetentionDays" 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 AlexaForBusinessMetadata =
  struct
    type nonrec t =
      {
      isAlexaForBusinessEnabled: Boolean.t option
        [@ocaml.doc "Starts or stops Alexa for Business."];
      alexaForBusinessRoomArn: SensitiveString.t option
        [@ocaml.doc "The ARN of the room resource."]}
    let make ?isAlexaForBusinessEnabled =
      fun ?alexaForBusinessRoomArn ->
        fun () -> { isAlexaForBusinessEnabled; alexaForBusinessRoomArn }
    let to_value x =
      structure_to_value
        [("IsAlexaForBusinessEnabled",
           (Option.map x.isAlexaForBusinessEnabled ~f:Boolean.to_value));
        ("AlexaForBusinessRoomArn",
          (Option.map x.alexaForBusinessRoomArn ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alexaForBusinessRoomArn =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "AlexaForBusinessRoomArn") in
      let isAlexaForBusinessEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "IsAlexaForBusinessEnabled") in
      make ?alexaForBusinessRoomArn ?isAlexaForBusinessEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alexaForBusinessRoomArn =
        field_map json__ "AlexaForBusinessRoomArn" SensitiveString.of_json in
      let isAlexaForBusinessEnabled =
        field_map json__ "IsAlexaForBusinessEnabled" Boolean.of_json in
      make ?alexaForBusinessRoomArn ?isAlexaForBusinessEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Alexa for Business metadata associated with an Amazon Chime user, used to integrate Alexa for Business with a device."]
module EmailAddress =
  struct
    type nonrec t = string
    let context_ = "EmailAddress"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:".+@.+\\..+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EmailAddress" j
    let to_json = simple_to_json to_value
  end
module InviteStatus =
  struct
    type nonrec t =
      | Pending 
      | Accepted 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "Pending"
      | Accepted -> "Accepted"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Pending" -> Pending
      | "Accepted" -> Accepted
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration InviteStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InviteStatus" j)
    let to_json = simple_to_json to_value
  end
module RegistrationStatus =
  struct
    type nonrec t =
      | Unregistered 
      | Registered 
      | Suspended 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Unregistered -> "Unregistered"
      | Registered -> "Registered"
      | Suspended -> "Suspended"
      | Non_static_id s -> s
    let of_string =
      function
      | "Unregistered" -> Unregistered
      | "Registered" -> Registered
      | "Suspended" -> Suspended
      | 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 RegistrationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegistrationStatus" j)
    let to_json = simple_to_json to_value
  end
module UserType =
  struct
    type nonrec t =
      | PrivateUser 
      | SharedDevice 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PrivateUser -> "PrivateUser"
      | SharedDevice -> "SharedDevice"
      | Non_static_id s -> s
    let of_string =
      function
      | "PrivateUser" -> PrivateUser
      | "SharedDevice" -> SharedDevice
      | 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 UserType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserType" j)
    let to_json = simple_to_json to_value
  end
module Alpha2CountryCode =
  struct
    type nonrec t = string
    let context_ = "Alpha2CountryCode"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[A-Z]{2}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Alpha2CountryCode" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberTypeList =
  struct
    type nonrec t = PhoneNumberType.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:PhoneNumberType.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:PhoneNumberType.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberTypeList"
        ~of_json:PhoneNumberType.of_json j
    let to_json v = composed_to_json to_value v
  end
module Member =
  struct
    type nonrec t =
      {
      memberId: NonEmptyString.t option
        [@ocaml.doc "The member ID (user ID or bot ID)."];
      memberType: MemberType.t option [@ocaml.doc "The member type."];
      email: SensitiveString.t option
        [@ocaml.doc "The member email address."];
      fullName: SensitiveString.t option [@ocaml.doc "The member name."];
      accountId: NonEmptyString.t option
        [@ocaml.doc "The Amazon Chime account ID."]}
    let make ?memberId =
      fun ?memberType ->
        fun ?email ->
          fun ?fullName ->
            fun ?accountId ->
              fun () -> { memberId; memberType; email; fullName; accountId }
    let to_value x =
      structure_to_value
        [("MemberId", (Option.map x.memberId ~f:NonEmptyString.to_value));
        ("MemberType", (Option.map x.memberType ~f:MemberType.to_value));
        ("Email", (Option.map x.email ~f:SensitiveString.to_value));
        ("FullName", (Option.map x.fullName ~f:SensitiveString.to_value));
        ("AccountId", (Option.map x.accountId ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "AccountId") in
      let fullName =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "FullName") in
      let email =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "Email") in
      let memberType =
        (Option.map ~f:MemberType.of_xml) (Xml.child xml_arg0 "MemberType") in
      let memberId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "MemberId") in
      make ?accountId ?fullName ?email ?memberType ?memberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "AccountId" NonEmptyString.of_json in
      let fullName = field_map json__ "FullName" SensitiveString.of_json in
      let email = field_map json__ "Email" SensitiveString.of_json in
      let memberType = field_map json__ "MemberType" MemberType.of_json in
      let memberId = field_map json__ "MemberId" NonEmptyString.of_json in
      make ?accountId ?fullName ?email ?memberType ?memberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The member details, such as email address, name, member ID, and member type."]
module RoomMembershipRole =
  struct
    type nonrec t =
      | Administrator 
      | Member 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Administrator -> "Administrator"
      | Member -> "Member"
      | Non_static_id s -> s
    let of_string =
      function
      | "Administrator" -> Administrator
      | "Member" -> Member
      | 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 RoomMembershipRole" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RoomMembershipRole" j)
    let to_json = simple_to_json to_value
  end
module CallingName =
  struct
    type nonrec t = string
    let context_ = "CallingName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^$|^[a-zA-Z0-9 ]{2,15}$");
        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:"CallingName" j
    let to_json = simple_to_json to_value
  end
module CallingNameStatus =
  struct
    type nonrec t =
      | Unassigned 
      | UpdateInProgress 
      | UpdateSucceeded 
      | UpdateFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Unassigned -> "Unassigned"
      | UpdateInProgress -> "UpdateInProgress"
      | UpdateSucceeded -> "UpdateSucceeded"
      | UpdateFailed -> "UpdateFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Unassigned" -> Unassigned
      | "UpdateInProgress" -> UpdateInProgress
      | "UpdateSucceeded" -> UpdateSucceeded
      | "UpdateFailed" -> UpdateFailed
      | 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 CallingNameStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CallingNameStatus" j)
    let to_json = simple_to_json to_value
  end
module PhoneNumberAssociationList =
  struct
    type nonrec t = PhoneNumberAssociation.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:PhoneNumberAssociation.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:PhoneNumberAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberAssociationList"
        ~of_json:PhoneNumberAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberCapabilities =
  struct
    type nonrec t =
      {
      inboundCall: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound calling for the specified phone number."];
      outboundCall: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies outbound calling for the specified phone number."];
      inboundSMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound SMS messaging for the specified phone number."];
      outboundSMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies outbound SMS messaging for the specified phone number."];
      inboundMMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound MMS messaging for the specified phone number."];
      outboundMMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies outbound MMS messaging for the specified phone number."]}
    let make ?inboundCall =
      fun ?outboundCall ->
        fun ?inboundSMS ->
          fun ?outboundSMS ->
            fun ?inboundMMS ->
              fun ?outboundMMS ->
                fun () ->
                  {
                    inboundCall;
                    outboundCall;
                    inboundSMS;
                    outboundSMS;
                    inboundMMS;
                    outboundMMS
                  }
    let to_value x =
      structure_to_value
        [("InboundCall",
           (Option.map x.inboundCall ~f:NullableBoolean.to_value));
        ("OutboundCall",
          (Option.map x.outboundCall ~f:NullableBoolean.to_value));
        ("InboundSMS", (Option.map x.inboundSMS ~f:NullableBoolean.to_value));
        ("OutboundSMS",
          (Option.map x.outboundSMS ~f:NullableBoolean.to_value));
        ("InboundMMS", (Option.map x.inboundMMS ~f:NullableBoolean.to_value));
        ("OutboundMMS",
          (Option.map x.outboundMMS ~f:NullableBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outboundMMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "OutboundMMS") in
      let inboundMMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "InboundMMS") in
      let outboundSMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "OutboundSMS") in
      let inboundSMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "InboundSMS") in
      let outboundCall =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "OutboundCall") in
      let inboundCall =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "InboundCall") in
      make ?outboundMMS ?inboundMMS ?outboundSMS ?inboundSMS ?outboundCall
        ?inboundCall ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outboundMMS =
        field_map json__ "OutboundMMS" NullableBoolean.of_json in
      let inboundMMS = field_map json__ "InboundMMS" NullableBoolean.of_json in
      let outboundSMS =
        field_map json__ "OutboundSMS" NullableBoolean.of_json in
      let inboundSMS = field_map json__ "InboundSMS" NullableBoolean.of_json in
      let outboundCall =
        field_map json__ "OutboundCall" NullableBoolean.of_json in
      let inboundCall =
        field_map json__ "InboundCall" NullableBoolean.of_json in
      make ?outboundMMS ?inboundMMS ?outboundSMS ?inboundSMS ?outboundCall
        ?inboundCall ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number capabilities for Amazon Chime Business Calling phone numbers, such as enabled inbound and outbound calling and text messaging."]
module PhoneNumberProductType =
  struct
    type nonrec t =
      | BusinessCalling 
      | VoiceConnector 
      | SipMediaApplicationDialIn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BusinessCalling -> "BusinessCalling"
      | VoiceConnector -> "VoiceConnector"
      | SipMediaApplicationDialIn -> "SipMediaApplicationDialIn"
      | Non_static_id s -> s
    let of_string =
      function
      | "BusinessCalling" -> BusinessCalling
      | "VoiceConnector" -> VoiceConnector
      | "SipMediaApplicationDialIn" -> SipMediaApplicationDialIn
      | 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 PhoneNumberProductType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberProductType" j)
    let to_json = simple_to_json to_value
  end
module PhoneNumberStatus =
  struct
    type nonrec t =
      | AcquireInProgress 
      | AcquireFailed 
      | Unassigned 
      | Assigned 
      | ReleaseInProgress 
      | DeleteInProgress 
      | ReleaseFailed 
      | DeleteFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AcquireInProgress -> "AcquireInProgress"
      | AcquireFailed -> "AcquireFailed"
      | Unassigned -> "Unassigned"
      | Assigned -> "Assigned"
      | ReleaseInProgress -> "ReleaseInProgress"
      | DeleteInProgress -> "DeleteInProgress"
      | ReleaseFailed -> "ReleaseFailed"
      | DeleteFailed -> "DeleteFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "AcquireInProgress" -> AcquireInProgress
      | "AcquireFailed" -> AcquireFailed
      | "Unassigned" -> Unassigned
      | "Assigned" -> Assigned
      | "ReleaseInProgress" -> ReleaseInProgress
      | "DeleteInProgress" -> DeleteInProgress
      | "ReleaseFailed" -> ReleaseFailed
      | "DeleteFailed" -> DeleteFailed
      | 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 PhoneNumberStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PhoneNumberStatus" j)
    let to_json = simple_to_json to_value
  end
module GuidString =
  struct
    type nonrec t = string
    let context_ = "GuidString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-fA-F0-9]{8}(?:-[a-fA-F0-9]{4}){3}-[a-fA-F0-9]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GuidString" j
    let to_json = simple_to_json to_value
  end
module OrderedPhoneNumberList =
  struct
    type nonrec t = OrderedPhoneNumber.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:OrderedPhoneNumber.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:OrderedPhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"OrderedPhoneNumberList"
        ~of_json:OrderedPhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberOrderStatus =
  struct
    type nonrec t =
      | Processing 
      | Successful 
      | Failed 
      | Partial 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Processing -> "Processing"
      | Successful -> "Successful"
      | Failed -> "Failed"
      | Partial -> "Partial"
      | Non_static_id s -> s
    let of_string =
      function
      | "Processing" -> Processing
      | "Successful" -> Successful
      | "Failed" -> Failed
      | "Partial" -> Partial
      | 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 PhoneNumberOrderStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberOrderStatus" j)
    let to_json = simple_to_json to_value
  end
module BotType =
  struct
    type nonrec t =
      | ChatBot 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ChatBot -> "ChatBot" | Non_static_id s -> s
    let of_string = function | "ChatBot" -> ChatBot | 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 BotType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BotType" j)
    let to_json = simple_to_json to_value
  end
module AccountStatus =
  struct
    type nonrec t =
      | Suspended 
      | Active 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Suspended -> "Suspended"
      | Active -> "Active"
      | Non_static_id s -> s
    let of_string =
      function
      | "Suspended" -> Suspended
      | "Active" -> Active
      | 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 AccountStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountType =
  struct
    type nonrec t =
      | Team 
      | EnterpriseDirectory 
      | EnterpriseLWA 
      | EnterpriseOIDC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Team -> "Team"
      | EnterpriseDirectory -> "EnterpriseDirectory"
      | EnterpriseLWA -> "EnterpriseLWA"
      | EnterpriseOIDC -> "EnterpriseOIDC"
      | Non_static_id s -> s
    let of_string =
      function
      | "Team" -> Team
      | "EnterpriseDirectory" -> EnterpriseDirectory
      | "EnterpriseLWA" -> EnterpriseLWA
      | "EnterpriseOIDC" -> EnterpriseOIDC
      | 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 AccountType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountType" j)
    let to_json = simple_to_json to_value
  end
module LicenseList =
  struct
    type nonrec t = License.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:License.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:License.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseList" ~of_json:License.of_json j
    let to_json v = composed_to_json to_value v
  end
module SigninDelegateGroupList =
  struct
    type nonrec t = SigninDelegateGroup.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:SigninDelegateGroup.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:SigninDelegateGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"SigninDelegateGroupList"
        ~of_json:SigninDelegateGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmailStatus =
  struct
    type nonrec t =
      | NotSent 
      | Sent 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NotSent -> "NotSent"
      | Sent -> "Sent"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "NotSent" -> NotSent
      | "Sent" -> Sent
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EmailStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EmailStatus" j)
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t =
      | BadRequest 
      | Conflict 
      | Forbidden 
      | NotFound 
      | PreconditionFailed 
      | ResourceLimitExceeded 
      | ServiceFailure 
      | AccessDenied 
      | ServiceUnavailable 
      | Throttled 
      | Throttling 
      | Unauthorized 
      | Unprocessable 
      | VoiceConnectorGroupAssociationsExist 
      | PhoneNumberAssociationsExist 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BadRequest -> "BadRequest"
      | Conflict -> "Conflict"
      | Forbidden -> "Forbidden"
      | NotFound -> "NotFound"
      | PreconditionFailed -> "PreconditionFailed"
      | ResourceLimitExceeded -> "ResourceLimitExceeded"
      | ServiceFailure -> "ServiceFailure"
      | AccessDenied -> "AccessDenied"
      | ServiceUnavailable -> "ServiceUnavailable"
      | Throttled -> "Throttled"
      | Throttling -> "Throttling"
      | Unauthorized -> "Unauthorized"
      | Unprocessable -> "Unprocessable"
      | VoiceConnectorGroupAssociationsExist ->
          "VoiceConnectorGroupAssociationsExist"
      | PhoneNumberAssociationsExist -> "PhoneNumberAssociationsExist"
      | Non_static_id s -> s
    let of_string =
      function
      | "BadRequest" -> BadRequest
      | "Conflict" -> Conflict
      | "Forbidden" -> Forbidden
      | "NotFound" -> NotFound
      | "PreconditionFailed" -> PreconditionFailed
      | "ResourceLimitExceeded" -> ResourceLimitExceeded
      | "ServiceFailure" -> ServiceFailure
      | "AccessDenied" -> AccessDenied
      | "ServiceUnavailable" -> ServiceUnavailable
      | "Throttled" -> Throttled
      | "Throttling" -> Throttling
      | "Unauthorized" -> Unauthorized
      | "Unprocessable" -> Unprocessable
      | "VoiceConnectorGroupAssociationsExist" ->
          VoiceConnectorGroupAssociationsExist
      | "PhoneNumberAssociationsExist" -> PhoneNumberAssociationsExist
      | 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 ErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCode" j)
    let to_json = simple_to_json to_value
  end
module TelephonySettings =
  struct
    type nonrec t =
      {
      inboundCalling: Boolean.t
        [@ocaml.doc "Allows or denies inbound calling."];
      outboundCalling: Boolean.t
        [@ocaml.doc "Allows or denies outbound calling."];
      sMS: Boolean.t [@ocaml.doc "Allows or denies SMS messaging."]}
    let context_ = "TelephonySettings"
    let make ~inboundCalling =
      fun ~outboundCalling ->
        fun ~sMS -> fun () -> { inboundCalling; outboundCalling; sMS }
    let to_value x =
      structure_to_value
        [("InboundCalling", (Some (Boolean.to_value x.inboundCalling)));
        ("OutboundCalling", (Some (Boolean.to_value x.outboundCalling)));
        ("SMS", (Some (Boolean.to_value x.sMS)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sMS =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SMS") in
      let outboundCalling =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutboundCalling") in
      let inboundCalling =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InboundCalling") in
      make ~sMS ~outboundCalling ~inboundCalling ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sMS = field_map_exn json__ "SMS" Boolean.of_json in
      let outboundCalling =
        field_map_exn json__ "OutboundCalling" Boolean.of_json in
      let inboundCalling =
        field_map_exn json__ "InboundCalling" Boolean.of_json in
      make ~sMS ~outboundCalling ~inboundCalling ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Settings that allow management of telephony permissions for an Amazon Chime user, such as inbound and outbound calling and text messaging."]
module ConversationRetentionSettings =
  struct
    type nonrec t =
      {
      retentionDays: RetentionDays.t option
        [@ocaml.doc
          "The number of days for which to retain conversation messages."]}
    let make ?retentionDays = fun () -> { retentionDays }
    let to_value x =
      structure_to_value
        [("RetentionDays",
           (Option.map x.retentionDays ~f:RetentionDays.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retentionDays =
        (Option.map ~f:RetentionDays.of_xml)
          (Xml.child xml_arg0 "RetentionDays") in
      make ?retentionDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retentionDays =
        field_map json__ "RetentionDays" RetentionDays.of_json in
      make ?retentionDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The retention settings that determine how long to retain conversation messages for an Amazon Chime Enterprise account."]
module RoomRetentionSettings =
  struct
    type nonrec t =
      {
      retentionDays: RetentionDays.t option
        [@ocaml.doc
          "The number of days for which to retain chat-room messages."]}
    let make ?retentionDays = fun () -> { retentionDays }
    let to_value x =
      structure_to_value
        [("RetentionDays",
           (Option.map x.retentionDays ~f:RetentionDays.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retentionDays =
        (Option.map ~f:RetentionDays.of_xml)
          (Xml.child xml_arg0 "RetentionDays") in
      make ?retentionDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retentionDays =
        field_map json__ "RetentionDays" RetentionDays.of_json in
      make ?retentionDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The retention settings that determine how long to retain chat-room messages for an Amazon Chime Enterprise account."]
module User =
  struct
    type nonrec t =
      {
      userId: String_.t option [@ocaml.doc "The user ID."];
      accountId: String_.t option [@ocaml.doc "The Amazon Chime account ID."];
      primaryEmail: EmailAddress.t option
        [@ocaml.doc "The primary email address of the user."];
      primaryProvisionedNumber: SensitiveString.t option
        [@ocaml.doc "The primary phone number associated with the user."];
      displayName: SensitiveString.t option
        [@ocaml.doc "The display name of the user."];
      licenseType: License.t option
        [@ocaml.doc "The license type for the user."];
      userType: UserType.t option [@ocaml.doc "The user type."];
      userRegistrationStatus: RegistrationStatus.t option
        [@ocaml.doc "The user registration status."];
      userInvitationStatus: InviteStatus.t option
        [@ocaml.doc "The user invite status."];
      registeredOn: Iso8601Timestamp.t option
        [@ocaml.doc
          "Date and time when the user is registered, in ISO 8601 format."];
      invitedOn: Iso8601Timestamp.t option
        [@ocaml.doc
          "Date and time when the user is invited to the Amazon Chime account, in ISO 8601 format."];
      alexaForBusinessMetadata: AlexaForBusinessMetadata.t option
        [@ocaml.doc "The Alexa for Business metadata."];
      personalPIN: String_.t option
        [@ocaml.doc "The user's personal meeting PIN."]}
    let make ?userId =
      fun ?accountId ->
        fun ?primaryEmail ->
          fun ?primaryProvisionedNumber ->
            fun ?displayName ->
              fun ?licenseType ->
                fun ?userType ->
                  fun ?userRegistrationStatus ->
                    fun ?userInvitationStatus ->
                      fun ?registeredOn ->
                        fun ?invitedOn ->
                          fun ?alexaForBusinessMetadata ->
                            fun ?personalPIN ->
                              fun () ->
                                {
                                  userId;
                                  accountId;
                                  primaryEmail;
                                  primaryProvisionedNumber;
                                  displayName;
                                  licenseType;
                                  userType;
                                  userRegistrationStatus;
                                  userInvitationStatus;
                                  registeredOn;
                                  invitedOn;
                                  alexaForBusinessMetadata;
                                  personalPIN
                                }
    let to_value x =
      structure_to_value
        [("UserId", (Option.map x.userId ~f:String_.to_value));
        ("AccountId", (Option.map x.accountId ~f:String_.to_value));
        ("PrimaryEmail",
          (Option.map x.primaryEmail ~f:EmailAddress.to_value));
        ("PrimaryProvisionedNumber",
          (Option.map x.primaryProvisionedNumber ~f:SensitiveString.to_value));
        ("DisplayName",
          (Option.map x.displayName ~f:SensitiveString.to_value));
        ("LicenseType", (Option.map x.licenseType ~f:License.to_value));
        ("UserType", (Option.map x.userType ~f:UserType.to_value));
        ("UserRegistrationStatus",
          (Option.map x.userRegistrationStatus ~f:RegistrationStatus.to_value));
        ("UserInvitationStatus",
          (Option.map x.userInvitationStatus ~f:InviteStatus.to_value));
        ("RegisteredOn",
          (Option.map x.registeredOn ~f:Iso8601Timestamp.to_value));
        ("InvitedOn", (Option.map x.invitedOn ~f:Iso8601Timestamp.to_value));
        ("AlexaForBusinessMetadata",
          (Option.map x.alexaForBusinessMetadata
             ~f:AlexaForBusinessMetadata.to_value));
        ("PersonalPIN", (Option.map x.personalPIN ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let personalPIN =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PersonalPIN") in
      let alexaForBusinessMetadata =
        (Option.map ~f:AlexaForBusinessMetadata.of_xml)
          (Xml.child xml_arg0 "AlexaForBusinessMetadata") in
      let invitedOn =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "InvitedOn") in
      let registeredOn =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "RegisteredOn") in
      let userInvitationStatus =
        (Option.map ~f:InviteStatus.of_xml)
          (Xml.child xml_arg0 "UserInvitationStatus") in
      let userRegistrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "UserRegistrationStatus") in
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "UserType") in
      let licenseType =
        (Option.map ~f:License.of_xml) (Xml.child xml_arg0 "LicenseType") in
      let displayName =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let primaryProvisionedNumber =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "PrimaryProvisionedNumber") in
      let primaryEmail =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "PrimaryEmail") in
      let accountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AccountId") in
      let userId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UserId") in
      make ?personalPIN ?alexaForBusinessMetadata ?invitedOn ?registeredOn
        ?userInvitationStatus ?userRegistrationStatus ?userType ?licenseType
        ?displayName ?primaryProvisionedNumber ?primaryEmail ?accountId
        ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let personalPIN = field_map json__ "PersonalPIN" String_.of_json in
      let alexaForBusinessMetadata =
        field_map json__ "AlexaForBusinessMetadata"
          AlexaForBusinessMetadata.of_json in
      let invitedOn = field_map json__ "InvitedOn" Iso8601Timestamp.of_json in
      let registeredOn =
        field_map json__ "RegisteredOn" Iso8601Timestamp.of_json in
      let userInvitationStatus =
        field_map json__ "UserInvitationStatus" InviteStatus.of_json in
      let userRegistrationStatus =
        field_map json__ "UserRegistrationStatus" RegistrationStatus.of_json in
      let userType = field_map json__ "UserType" UserType.of_json in
      let licenseType = field_map json__ "LicenseType" License.of_json in
      let displayName =
        field_map json__ "DisplayName" SensitiveString.of_json in
      let primaryProvisionedNumber =
        field_map json__ "PrimaryProvisionedNumber" SensitiveString.of_json in
      let primaryEmail = field_map json__ "PrimaryEmail" EmailAddress.of_json in
      let accountId = field_map json__ "AccountId" String_.of_json in
      let userId = field_map json__ "UserId" String_.of_json in
      make ?personalPIN ?alexaForBusinessMetadata ?invitedOn ?registeredOn
        ?userInvitationStatus ?userRegistrationStatus ?userType ?licenseType
        ?displayName ?primaryProvisionedNumber ?primaryEmail ?accountId
        ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The user on the Amazon Chime account."]
module PhoneNumberCountry =
  struct
    type nonrec t =
      {
      countryCode: Alpha2CountryCode.t option
        [@ocaml.doc
          "The phone number country code. Format: ISO 3166-1 alpha-2."];
      supportedPhoneNumberTypes: PhoneNumberTypeList.t option
        [@ocaml.doc "The supported phone number types."]}
    let make ?countryCode =
      fun ?supportedPhoneNumberTypes ->
        fun () -> { countryCode; supportedPhoneNumberTypes }
    let to_value x =
      structure_to_value
        [("CountryCode",
           (Option.map x.countryCode ~f:Alpha2CountryCode.to_value));
        ("SupportedPhoneNumberTypes",
          (Option.map x.supportedPhoneNumberTypes
             ~f:PhoneNumberTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedPhoneNumberTypes =
        (Option.map ~f:PhoneNumberTypeList.of_xml)
          (Xml.child xml_arg0 "SupportedPhoneNumberTypes") in
      let countryCode =
        (Option.map ~f:Alpha2CountryCode.of_xml)
          (Xml.child xml_arg0 "CountryCode") in
      make ?supportedPhoneNumberTypes ?countryCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedPhoneNumberTypes =
        field_map json__ "SupportedPhoneNumberTypes"
          PhoneNumberTypeList.of_json in
      let countryCode =
        field_map json__ "CountryCode" Alpha2CountryCode.of_json in
      make ?supportedPhoneNumberTypes ?countryCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The phone number country."]
module Room =
  struct
    type nonrec t =
      {
      roomId: NonEmptyString.t option [@ocaml.doc "The room ID."];
      name: SensitiveString.t option [@ocaml.doc "The room name."];
      accountId: NonEmptyString.t option
        [@ocaml.doc "The Amazon Chime account ID."];
      createdBy: NonEmptyString.t option
        [@ocaml.doc "The identifier of the room creator."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The room creation timestamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The room update timestamp, in ISO 8601 format."]}
    let make ?roomId =
      fun ?name ->
        fun ?accountId ->
          fun ?createdBy ->
            fun ?createdTimestamp ->
              fun ?updatedTimestamp ->
                fun () ->
                  {
                    roomId;
                    name;
                    accountId;
                    createdBy;
                    createdTimestamp;
                    updatedTimestamp
                  }
    let to_value x =
      structure_to_value
        [("RoomId", (Option.map x.roomId ~f:NonEmptyString.to_value));
        ("Name", (Option.map x.name ~f:SensitiveString.to_value));
        ("AccountId", (Option.map x.accountId ~f:NonEmptyString.to_value));
        ("CreatedBy", (Option.map x.createdBy ~f:NonEmptyString.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let createdBy =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "CreatedBy") in
      let accountId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "AccountId") in
      let name =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "Name") in
      let roomId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "RoomId") in
      make ?updatedTimestamp ?createdTimestamp ?createdBy ?accountId ?name
        ?roomId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let createdBy = field_map json__ "CreatedBy" NonEmptyString.of_json in
      let accountId = field_map json__ "AccountId" NonEmptyString.of_json in
      let name = field_map json__ "Name" SensitiveString.of_json in
      let roomId = field_map json__ "RoomId" NonEmptyString.of_json in
      make ?updatedTimestamp ?createdTimestamp ?createdBy ?accountId ?name
        ?roomId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Amazon Chime chat room details."]
module RoomMembership =
  struct
    type nonrec t =
      {
      roomId: NonEmptyString.t option [@ocaml.doc "The room ID."];
      member: Member.t option
        [@ocaml.doc
          "The member details, such as email address, name, member ID, and member type."];
      role: RoomMembershipRole.t option [@ocaml.doc "The membership role."];
      invitedBy: NonEmptyString.t option
        [@ocaml.doc
          "The identifier of the user that invited the room member."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The room membership update timestamp, in ISO 8601 format."]}
    let make ?roomId =
      fun ?member ->
        fun ?role ->
          fun ?invitedBy ->
            fun ?updatedTimestamp ->
              fun () -> { roomId; member; role; invitedBy; updatedTimestamp }
    let to_value x =
      structure_to_value
        [("RoomId", (Option.map x.roomId ~f:NonEmptyString.to_value));
        ("Member", (Option.map x.member ~f:Member.to_value));
        ("Role", (Option.map x.role ~f:RoomMembershipRole.to_value));
        ("InvitedBy", (Option.map x.invitedBy ~f:NonEmptyString.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let invitedBy =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "InvitedBy") in
      let role =
        (Option.map ~f:RoomMembershipRole.of_xml) (Xml.child xml_arg0 "Role") in
      let member =
        (Option.map ~f:Member.of_xml) (Xml.child xml_arg0 "Member") in
      let roomId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "RoomId") in
      make ?updatedTimestamp ?invitedBy ?role ?member ?roomId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let invitedBy = field_map json__ "InvitedBy" NonEmptyString.of_json in
      let role = field_map json__ "Role" RoomMembershipRole.of_json in
      let member = field_map json__ "Member" Member.of_json in
      let roomId = field_map json__ "RoomId" NonEmptyString.of_json in
      make ?updatedTimestamp ?invitedBy ?role ?member ?roomId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The room membership details."]
module PhoneNumber =
  struct
    type nonrec t =
      {
      phoneNumberId: String_.t option [@ocaml.doc "The phone number ID."];
      e164PhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The phone number, in E.164 format."];
      country: Alpha2CountryCode.t option
        [@ocaml.doc "The phone number country. Format: ISO 3166-1 alpha-2."];
      type_: PhoneNumberType.t option [@ocaml.doc "The phone number type."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The phone number product type."];
      status: PhoneNumberStatus.t option
        [@ocaml.doc "The phone number status."];
      capabilities: PhoneNumberCapabilities.t option
        [@ocaml.doc "The phone number capabilities."];
      associations: PhoneNumberAssociationList.t option
        [@ocaml.doc "The phone number associations."];
      callingName: CallingName.t option
        [@ocaml.doc
          "The outbound calling name associated with the phone number."];
      callingNameStatus: CallingNameStatus.t option
        [@ocaml.doc "The outbound calling name status."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The phone number creation timestamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The updated phone number timestamp, in ISO 8601 format."];
      deletionTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The deleted phone number timestamp, in ISO 8601 format."]}
    let make ?phoneNumberId =
      fun ?e164PhoneNumber ->
        fun ?country ->
          fun ?type_ ->
            fun ?productType ->
              fun ?status ->
                fun ?capabilities ->
                  fun ?associations ->
                    fun ?callingName ->
                      fun ?callingNameStatus ->
                        fun ?createdTimestamp ->
                          fun ?updatedTimestamp ->
                            fun ?deletionTimestamp ->
                              fun () ->
                                {
                                  phoneNumberId;
                                  e164PhoneNumber;
                                  country;
                                  type_;
                                  productType;
                                  status;
                                  capabilities;
                                  associations;
                                  callingName;
                                  callingNameStatus;
                                  createdTimestamp;
                                  updatedTimestamp;
                                  deletionTimestamp
                                }
    let to_value x =
      structure_to_value
        [("PhoneNumberId", (Option.map x.phoneNumberId ~f:String_.to_value));
        ("E164PhoneNumber",
          (Option.map x.e164PhoneNumber ~f:E164PhoneNumber.to_value));
        ("Country", (Option.map x.country ~f:Alpha2CountryCode.to_value));
        ("Type", (Option.map x.type_ ~f:PhoneNumberType.to_value));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("Status", (Option.map x.status ~f:PhoneNumberStatus.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:PhoneNumberCapabilities.to_value));
        ("Associations",
          (Option.map x.associations ~f:PhoneNumberAssociationList.to_value));
        ("CallingName", (Option.map x.callingName ~f:CallingName.to_value));
        ("CallingNameStatus",
          (Option.map x.callingNameStatus ~f:CallingNameStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("DeletionTimestamp",
          (Option.map x.deletionTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "DeletionTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let callingNameStatus =
        (Option.map ~f:CallingNameStatus.of_xml)
          (Xml.child xml_arg0 "CallingNameStatus") in
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      let associations =
        (Option.map ~f:PhoneNumberAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      let capabilities =
        (Option.map ~f:PhoneNumberCapabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let status =
        (Option.map ~f:PhoneNumberStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let type_ =
        (Option.map ~f:PhoneNumberType.of_xml) (Xml.child xml_arg0 "Type") in
      let country =
        (Option.map ~f:Alpha2CountryCode.of_xml)
          (Xml.child xml_arg0 "Country") in
      let e164PhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumber") in
      let phoneNumberId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberId") in
      make ?deletionTimestamp ?updatedTimestamp ?createdTimestamp
        ?callingNameStatus ?callingName ?associations ?capabilities ?status
        ?productType ?type_ ?country ?e164PhoneNumber ?phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionTimestamp =
        field_map json__ "DeletionTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let callingNameStatus =
        field_map json__ "CallingNameStatus" CallingNameStatus.of_json in
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      let associations =
        field_map json__ "Associations" PhoneNumberAssociationList.of_json in
      let capabilities =
        field_map json__ "Capabilities" PhoneNumberCapabilities.of_json in
      let status = field_map json__ "Status" PhoneNumberStatus.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let type_ = field_map json__ "Type" PhoneNumberType.of_json in
      let country = field_map json__ "Country" Alpha2CountryCode.of_json in
      let e164PhoneNumber =
        field_map json__ "E164PhoneNumber" E164PhoneNumber.of_json in
      let phoneNumberId = field_map json__ "PhoneNumberId" String_.of_json in
      make ?deletionTimestamp ?updatedTimestamp ?createdTimestamp
        ?callingNameStatus ?callingName ?associations ?capabilities ?status
        ?productType ?type_ ?country ?e164PhoneNumber ?phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A phone number used for Amazon Chime Business Calling or an Amazon Chime Voice Connector."]
module PhoneNumberOrder =
  struct
    type nonrec t =
      {
      phoneNumberOrderId: GuidString.t option
        [@ocaml.doc "The phone number order ID."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The phone number order product type."];
      status: PhoneNumberOrderStatus.t option
        [@ocaml.doc "The status of the phone number order."];
      orderedPhoneNumbers: OrderedPhoneNumberList.t option
        [@ocaml.doc
          "The ordered phone number details, such as the phone number in E.164 format and the phone number status."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The phone number order creation time stamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The updated phone number order time stamp, in ISO 8601 format."]}
    let make ?phoneNumberOrderId =
      fun ?productType ->
        fun ?status ->
          fun ?orderedPhoneNumbers ->
            fun ?createdTimestamp ->
              fun ?updatedTimestamp ->
                fun () ->
                  {
                    phoneNumberOrderId;
                    productType;
                    status;
                    orderedPhoneNumbers;
                    createdTimestamp;
                    updatedTimestamp
                  }
    let to_value x =
      structure_to_value
        [("PhoneNumberOrderId",
           (Option.map x.phoneNumberOrderId ~f:GuidString.to_value));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("Status", (Option.map x.status ~f:PhoneNumberOrderStatus.to_value));
        ("OrderedPhoneNumbers",
          (Option.map x.orderedPhoneNumbers
             ~f:OrderedPhoneNumberList.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let orderedPhoneNumbers =
        (Option.map ~f:OrderedPhoneNumberList.of_xml)
          (Xml.child xml_arg0 "OrderedPhoneNumbers") in
      let status =
        (Option.map ~f:PhoneNumberOrderStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let phoneNumberOrderId =
        (Option.map ~f:GuidString.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrderId") in
      make ?updatedTimestamp ?createdTimestamp ?orderedPhoneNumbers ?status
        ?productType ?phoneNumberOrderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let orderedPhoneNumbers =
        field_map json__ "OrderedPhoneNumbers" OrderedPhoneNumberList.of_json in
      let status = field_map json__ "Status" PhoneNumberOrderStatus.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let phoneNumberOrderId =
        field_map json__ "PhoneNumberOrderId" GuidString.of_json in
      make ?updatedTimestamp ?createdTimestamp ?orderedPhoneNumbers ?status
        ?productType ?phoneNumberOrderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of a phone number order created for Amazon Chime."]
module Bot =
  struct
    type nonrec t =
      {
      botId: String_.t option [@ocaml.doc "The bot ID."];
      userId: String_.t option [@ocaml.doc "The unique ID for the bot user."];
      displayName: SensitiveString.t option
        [@ocaml.doc "The bot display name."];
      botType: BotType.t option [@ocaml.doc "The bot type."];
      disabled: NullableBoolean.t option
        [@ocaml.doc
          "When true, the bot is stopped from running in your account."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The bot creation timestamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The updated bot timestamp, in ISO 8601 format."];
      botEmail: SensitiveString.t option
        [@ocaml.doc "The bot email address."];
      securityToken: SensitiveString.t option
        [@ocaml.doc
          "The security token used to authenticate Amazon Chime with the outgoing event endpoint."]}
    let make ?botId =
      fun ?userId ->
        fun ?displayName ->
          fun ?botType ->
            fun ?disabled ->
              fun ?createdTimestamp ->
                fun ?updatedTimestamp ->
                  fun ?botEmail ->
                    fun ?securityToken ->
                      fun () ->
                        {
                          botId;
                          userId;
                          displayName;
                          botType;
                          disabled;
                          createdTimestamp;
                          updatedTimestamp;
                          botEmail;
                          securityToken
                        }
    let to_value x =
      structure_to_value
        [("BotId", (Option.map x.botId ~f:String_.to_value));
        ("UserId", (Option.map x.userId ~f:String_.to_value));
        ("DisplayName",
          (Option.map x.displayName ~f:SensitiveString.to_value));
        ("BotType", (Option.map x.botType ~f:BotType.to_value));
        ("Disabled", (Option.map x.disabled ~f:NullableBoolean.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("BotEmail", (Option.map x.botEmail ~f:SensitiveString.to_value));
        ("SecurityToken",
          (Option.map x.securityToken ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityToken =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "SecurityToken") in
      let botEmail =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "BotEmail") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let disabled =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "Disabled") in
      let botType =
        (Option.map ~f:BotType.of_xml) (Xml.child xml_arg0 "BotType") in
      let displayName =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let userId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UserId") in
      let botId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BotId") in
      make ?securityToken ?botEmail ?updatedTimestamp ?createdTimestamp
        ?disabled ?botType ?displayName ?userId ?botId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityToken =
        field_map json__ "SecurityToken" SensitiveString.of_json in
      let botEmail = field_map json__ "BotEmail" SensitiveString.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let disabled = field_map json__ "Disabled" NullableBoolean.of_json in
      let botType = field_map json__ "BotType" BotType.of_json in
      let displayName =
        field_map json__ "DisplayName" SensitiveString.of_json in
      let userId = field_map json__ "UserId" String_.of_json in
      let botId = field_map json__ "BotId" String_.of_json in
      make ?securityToken ?botEmail ?updatedTimestamp ?createdTimestamp
        ?disabled ?botType ?displayName ?userId ?botId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource that allows Enterprise account administrators to configure an interface to receive events from Amazon Chime."]
module Account =
  struct
    type nonrec t =
      {
      awsAccountId: String_.t option [@ocaml.doc "The AWS account ID."];
      accountId: String_.t option [@ocaml.doc "The Amazon Chime account ID."];
      name: String_.t option [@ocaml.doc "The Amazon Chime account name."];
      accountType: AccountType.t option
        [@ocaml.doc
          "The Amazon Chime account type. For more information about different account types, see Managing Your Amazon Chime Accounts in the Amazon Chime Administration Guide."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The Amazon Chime account creation timestamp, in ISO 8601 format."];
      defaultLicense: License.t option
        [@ocaml.doc "The default license for the Amazon Chime account."];
      supportedLicenses: LicenseList.t option
        [@ocaml.doc "Supported licenses for the Amazon Chime account."];
      accountStatus: AccountStatus.t option
        [@ocaml.doc "The status of the account."];
      signinDelegateGroups: SigninDelegateGroupList.t option
        [@ocaml.doc
          "The sign-in delegate groups associated with the account."]}
    let make ?awsAccountId =
      fun ?accountId ->
        fun ?name ->
          fun ?accountType ->
            fun ?createdTimestamp ->
              fun ?defaultLicense ->
                fun ?supportedLicenses ->
                  fun ?accountStatus ->
                    fun ?signinDelegateGroups ->
                      fun () ->
                        {
                          awsAccountId;
                          accountId;
                          name;
                          accountType;
                          createdTimestamp;
                          defaultLicense;
                          supportedLicenses;
                          accountStatus;
                          signinDelegateGroups
                        }
    let to_value x =
      structure_to_value
        [("AwsAccountId", (Option.map x.awsAccountId ~f:String_.to_value));
        ("AccountId", (Option.map x.accountId ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("AccountType", (Option.map x.accountType ~f:AccountType.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("DefaultLicense", (Option.map x.defaultLicense ~f:License.to_value));
        ("SupportedLicenses",
          (Option.map x.supportedLicenses ~f:LicenseList.to_value));
        ("AccountStatus",
          (Option.map x.accountStatus ~f:AccountStatus.to_value));
        ("SigninDelegateGroups",
          (Option.map x.signinDelegateGroups
             ~f:SigninDelegateGroupList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signinDelegateGroups =
        (Option.map ~f:SigninDelegateGroupList.of_xml)
          (Xml.child xml_arg0 "SigninDelegateGroups") in
      let accountStatus =
        (Option.map ~f:AccountStatus.of_xml)
          (Xml.child xml_arg0 "AccountStatus") in
      let supportedLicenses =
        (Option.map ~f:LicenseList.of_xml)
          (Xml.child xml_arg0 "SupportedLicenses") in
      let defaultLicense =
        (Option.map ~f:License.of_xml) (Xml.child xml_arg0 "DefaultLicense") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let accountType =
        (Option.map ~f:AccountType.of_xml) (Xml.child xml_arg0 "AccountType") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let accountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AccountId") in
      let awsAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AwsAccountId") in
      make ?signinDelegateGroups ?accountStatus ?supportedLicenses
        ?defaultLicense ?createdTimestamp ?accountType ?name ?accountId
        ?awsAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signinDelegateGroups =
        field_map json__ "SigninDelegateGroups"
          SigninDelegateGroupList.of_json in
      let accountStatus =
        field_map json__ "AccountStatus" AccountStatus.of_json in
      let supportedLicenses =
        field_map json__ "SupportedLicenses" LicenseList.of_json in
      let defaultLicense = field_map json__ "DefaultLicense" License.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let accountType = field_map json__ "AccountType" AccountType.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let accountId = field_map json__ "AccountId" String_.of_json in
      let awsAccountId = field_map json__ "AwsAccountId" String_.of_json in
      make ?signinDelegateGroups ?accountStatus ?supportedLicenses
        ?defaultLicense ?createdTimestamp ?accountType ?name ?accountId
        ?awsAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Chime account details. An AWS account can have multiple Amazon Chime accounts."]
module Invite =
  struct
    type nonrec t =
      {
      inviteId: String_.t option [@ocaml.doc "The invite ID."];
      status: InviteStatus.t option [@ocaml.doc "The status of the invite."];
      emailAddress: EmailAddress.t option
        [@ocaml.doc "The email address to which the invite is sent."];
      emailStatus: EmailStatus.t option
        [@ocaml.doc "The status of the invite email."]}
    let make ?inviteId =
      fun ?status ->
        fun ?emailAddress ->
          fun ?emailStatus ->
            fun () -> { inviteId; status; emailAddress; emailStatus }
    let to_value x =
      structure_to_value
        [("InviteId", (Option.map x.inviteId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:InviteStatus.to_value));
        ("EmailAddress",
          (Option.map x.emailAddress ~f:EmailAddress.to_value));
        ("EmailStatus", (Option.map x.emailStatus ~f:EmailStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailStatus =
        (Option.map ~f:EmailStatus.of_xml) (Xml.child xml_arg0 "EmailStatus") in
      let emailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      let status =
        (Option.map ~f:InviteStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let inviteId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InviteId") in
      make ?emailStatus ?emailAddress ?status ?inviteId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailStatus = field_map json__ "EmailStatus" EmailStatus.of_json in
      let emailAddress = field_map json__ "EmailAddress" EmailAddress.of_json in
      let status = field_map json__ "Status" InviteStatus.of_json in
      let inviteId = field_map json__ "InviteId" String_.of_json in
      make ?emailStatus ?emailAddress ?status ?inviteId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Invitation object returned after emailing users to invite them to join the Amazon Chime Team account."]
module UserError =
  struct
    type nonrec t =
      {
      userId: NonEmptyString.t option
        [@ocaml.doc "The user ID for which the action failed."];
      errorCode: ErrorCode.t option [@ocaml.doc "The error code."];
      errorMessage: String_.t option [@ocaml.doc "The error message."]}
    let make ?userId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { userId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("UserId", (Option.map x.userId ~f:NonEmptyString.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let userId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "UserId") in
      make ?errorMessage ?errorCode ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let userId = field_map json__ "UserId" NonEmptyString.of_json in
      make ?errorMessage ?errorCode ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of errors returned when errors are encountered during the BatchSuspendUser, BatchUnsuspendUser, or BatchUpdateUser actions. This includes user IDs, error codes, and error messages."]
module UpdateUserRequestItem =
  struct
    type nonrec t =
      {
      userId: NonEmptyString.t [@ocaml.doc "The user ID."];
      licenseType: License.t option [@ocaml.doc "The user license type."];
      userType: UserType.t option [@ocaml.doc "The user type."];
      alexaForBusinessMetadata: AlexaForBusinessMetadata.t option
        [@ocaml.doc "The Alexa for Business metadata."]}
    let context_ = "UpdateUserRequestItem"
    let make ?licenseType =
      fun ?userType ->
        fun ?alexaForBusinessMetadata ->
          fun ~userId ->
            fun () ->
              { licenseType; userType; alexaForBusinessMetadata; userId }
    let to_value x =
      structure_to_value
        [("UserId", (Some (NonEmptyString.to_value x.userId)));
        ("LicenseType", (Option.map x.licenseType ~f:License.to_value));
        ("UserType", (Option.map x.userType ~f:UserType.to_value));
        ("AlexaForBusinessMetadata",
          (Option.map x.alexaForBusinessMetadata
             ~f:AlexaForBusinessMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alexaForBusinessMetadata =
        (Option.map ~f:AlexaForBusinessMetadata.of_xml)
          (Xml.child xml_arg0 "AlexaForBusinessMetadata") in
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "UserType") in
      let licenseType =
        (Option.map ~f:License.of_xml) (Xml.child xml_arg0 "LicenseType") in
      let userId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserId") in
      make ?alexaForBusinessMetadata ?userType ?licenseType ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alexaForBusinessMetadata =
        field_map json__ "AlexaForBusinessMetadata"
          AlexaForBusinessMetadata.of_json in
      let userType = field_map json__ "UserType" UserType.of_json in
      let licenseType = field_map json__ "LicenseType" License.of_json in
      let userId = field_map_exn json__ "UserId" NonEmptyString.of_json in
      make ?alexaForBusinessMetadata ?userType ?licenseType ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user ID and user fields to update, used with the BatchUpdateUser action."]
module PhoneNumberError =
  struct
    type nonrec t =
      {
      phoneNumberId: NonEmptyString.t option
        [@ocaml.doc "The phone number ID for which the action failed."];
      errorCode: ErrorCode.t option [@ocaml.doc "The error code."];
      errorMessage: String_.t option [@ocaml.doc "The error message."]}
    let make ?phoneNumberId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { phoneNumberId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("PhoneNumberId",
           (Option.map x.phoneNumberId ~f:NonEmptyString.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let phoneNumberId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "PhoneNumberId") in
      make ?errorMessage ?errorCode ?phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let phoneNumberId =
        field_map json__ "PhoneNumberId" NonEmptyString.of_json in
      make ?errorMessage ?errorCode ?phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the phone number action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]
module UpdatePhoneNumberRequestItem =
  struct
    type nonrec t =
      {
      phoneNumberId: NonEmptyString.t
        [@ocaml.doc "The phone number ID to update."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The product type to update."];
      callingName: CallingName.t option
        [@ocaml.doc "The outbound calling name to update."]}
    let context_ = "UpdatePhoneNumberRequestItem"
    let make ?productType =
      fun ?callingName ->
        fun ~phoneNumberId ->
          fun () -> { productType; callingName; phoneNumberId }
    let to_value x =
      structure_to_value
        [("PhoneNumberId", (Some (NonEmptyString.to_value x.phoneNumberId)));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("CallingName", (Option.map x.callingName ~f:CallingName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let phoneNumberId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumberId") in
      make ?callingName ?productType ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" NonEmptyString.of_json in
      make ?callingName ?productType ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number ID, product type, or calling name fields to update, used with the BatchUpdatePhoneNumber and UpdatePhoneNumber actions."]
module MemberError =
  struct
    type nonrec t =
      {
      memberId: NonEmptyString.t option [@ocaml.doc "The member ID."];
      errorCode: ErrorCode.t option [@ocaml.doc "The error code."];
      errorMessage: String_.t option [@ocaml.doc "The error message."]}
    let make ?memberId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { memberId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("MemberId", (Option.map x.memberId ~f:NonEmptyString.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let memberId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "MemberId") in
      make ?errorMessage ?errorCode ?memberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let memberId = field_map json__ "MemberId" NonEmptyString.of_json in
      make ?errorMessage ?errorCode ?memberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of errors returned when a member action results in an error."]
module MembershipItem =
  struct
    type nonrec t =
      {
      memberId: NonEmptyString.t option [@ocaml.doc "The member ID."];
      role: RoomMembershipRole.t option [@ocaml.doc "The member role."]}
    let make ?memberId = fun ?role -> fun () -> { memberId; role }
    let to_value x =
      structure_to_value
        [("MemberId", (Option.map x.memberId ~f:NonEmptyString.to_value));
        ("Role", (Option.map x.role ~f:RoomMembershipRole.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let role =
        (Option.map ~f:RoomMembershipRole.of_xml) (Xml.child xml_arg0 "Role") in
      let memberId =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "MemberId") in
      make ?role ?memberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let role = field_map json__ "Role" RoomMembershipRole.of_json in
      let memberId = field_map json__ "MemberId" NonEmptyString.of_json in
      make ?role ?memberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Membership details, such as member ID and member role."]
module UserSettings =
  struct
    type nonrec t =
      {
      telephony: TelephonySettings.t
        [@ocaml.doc "The telephony settings associated with the user."]}
    let context_ = "UserSettings"
    let make ~telephony = fun () -> { telephony }
    let to_value x =
      structure_to_value
        [("Telephony", (Some (TelephonySettings.to_value x.telephony)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let telephony =
        TelephonySettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Telephony") in
      make ~telephony ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let telephony =
        field_map_exn json__ "Telephony" TelephonySettings.of_json in
      make ~telephony ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Settings associated with an Amazon Chime user, including inbound and outbound calling and text messaging."]
module BadRequestException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input parameters don't match the service's restrictions."]
module ForbiddenException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client is permanently forbidden from making the request."]
module NotFoundException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more of the resources in the request does not exist in the system."]
module ServiceFailureException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The service encountered an unexpected error."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The service is currently unavailable."]
module ThrottledClientException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The client exceeded its request rate limit."]
module UnauthorizedClientException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client is not currently authorized to make the request."]
module ConflictException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request could not be processed because of conflict in the current state of the resource."]
module BusinessCallingSettings =
  struct
    type nonrec t =
      {
      cdrBucket: String_.t option
        [@ocaml.doc
          "The Amazon S3 bucket designated for call detail record storage."]}
    let make ?cdrBucket = fun () -> { cdrBucket }
    let to_value x =
      structure_to_value
        [("CdrBucket", (Option.map x.cdrBucket ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cdrBucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CdrBucket") in
      make ?cdrBucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cdrBucket = field_map json__ "CdrBucket" String_.of_json in
      make ?cdrBucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Chime Business Calling settings for the administrator's AWS account. Includes any Amazon S3 buckets designated for storing call detail records."]
module VoiceConnectorSettings =
  struct
    type nonrec t =
      {
      cdrBucket: String_.t option
        [@ocaml.doc
          "The Amazon S3 bucket designated for call detail record storage."]}
    let make ?cdrBucket = fun () -> { cdrBucket }
    let to_value x =
      structure_to_value
        [("CdrBucket", (Option.map x.cdrBucket ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cdrBucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CdrBucket") in
      make ?cdrBucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cdrBucket = field_map json__ "CdrBucket" String_.of_json in
      make ?cdrBucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Chime Voice Connector settings. Includes any Amazon S3 buckets designated for storing call detail records."]
module AccountSettings =
  struct
    type nonrec t =
      {
      disableRemoteControl: Boolean.t option
        [@ocaml.doc
          "Setting that stops or starts remote control of shared screens during meetings."];
      enableDialOut: Boolean.t option
        [@ocaml.doc
          "Setting that allows meeting participants to choose the Call me at a phone number option. For more information, see Join a Meeting without the Amazon Chime App."]}
    let make ?disableRemoteControl =
      fun ?enableDialOut -> fun () -> { disableRemoteControl; enableDialOut }
    let to_value x =
      structure_to_value
        [("DisableRemoteControl",
           (Option.map x.disableRemoteControl ~f:Boolean.to_value));
        ("EnableDialOut", (Option.map x.enableDialOut ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableDialOut =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EnableDialOut") in
      let disableRemoteControl =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DisableRemoteControl") in
      make ?enableDialOut ?disableRemoteControl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableDialOut = field_map json__ "EnableDialOut" Boolean.of_json in
      let disableRemoteControl =
        field_map json__ "DisableRemoteControl" Boolean.of_json in
      make ?enableDialOut ?disableRemoteControl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Settings related to the Amazon Chime account. This includes settings that start or stop remote control of shared screens, or start or stop the dial-out option in the Amazon Chime web application. For more information about these settings, see Use the Policies Page in the Amazon Chime Administration Guide."]
module AccountName =
  struct
    type nonrec t = string
    let context_ = "AccountName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (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:"AccountName" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You don't have permissions to perform the requested operation."]
module E164PhoneNumberList =
  struct
    type nonrec t = E164PhoneNumber.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:E164PhoneNumber.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:E164PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"E164PhoneNumberList"
        ~of_json:E164PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 PhoneNumberMaxResults" 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 TollFreePrefix =
  struct
    type nonrec t = string
    let context_ = "TollFreePrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^8(00|33|44|55|66|77|88)$")));
        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:"TollFreePrefix" j
    let to_json = simple_to_json to_value
  end
module ResourceLimitExceededException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request exceeds the resource limit."]
module RetentionSettings =
  struct
    type nonrec t =
      {
      roomRetentionSettings: RoomRetentionSettings.t option
        [@ocaml.doc "The chat room retention settings."];
      conversationRetentionSettings: ConversationRetentionSettings.t option
        [@ocaml.doc "The chat conversation retention settings."]}
    let make ?roomRetentionSettings =
      fun ?conversationRetentionSettings ->
        fun () -> { roomRetentionSettings; conversationRetentionSettings }
    let to_value x =
      structure_to_value
        [("RoomRetentionSettings",
           (Option.map x.roomRetentionSettings
              ~f:RoomRetentionSettings.to_value));
        ("ConversationRetentionSettings",
          (Option.map x.conversationRetentionSettings
             ~f:ConversationRetentionSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conversationRetentionSettings =
        (Option.map ~f:ConversationRetentionSettings.of_xml)
          (Xml.child xml_arg0 "ConversationRetentionSettings") in
      let roomRetentionSettings =
        (Option.map ~f:RoomRetentionSettings.of_xml)
          (Xml.child xml_arg0 "RoomRetentionSettings") in
      make ?conversationRetentionSettings ?roomRetentionSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conversationRetentionSettings =
        field_map json__ "ConversationRetentionSettings"
          ConversationRetentionSettings.of_json in
      let roomRetentionSettings =
        field_map json__ "RoomRetentionSettings"
          RoomRetentionSettings.of_json in
      make ?conversationRetentionSettings ?roomRetentionSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The retention settings for an Amazon Chime Enterprise account that determine how long to retain items such as chat-room messages and chat-conversation messages."]
module EventsConfiguration =
  struct
    type nonrec t =
      {
      botId: String_.t option [@ocaml.doc "The bot ID."];
      outboundEventsHTTPSEndpoint: SensitiveString.t option
        [@ocaml.doc
          "HTTPS endpoint that allows a bot to receive outgoing events."];
      lambdaFunctionArn: SensitiveString.t option
        [@ocaml.doc
          "Lambda function ARN that allows a bot to receive outgoing events."]}
    let make ?botId =
      fun ?outboundEventsHTTPSEndpoint ->
        fun ?lambdaFunctionArn ->
          fun () -> { botId; outboundEventsHTTPSEndpoint; lambdaFunctionArn }
    let to_value x =
      structure_to_value
        [("BotId", (Option.map x.botId ~f:String_.to_value));
        ("OutboundEventsHTTPSEndpoint",
          (Option.map x.outboundEventsHTTPSEndpoint
             ~f:SensitiveString.to_value));
        ("LambdaFunctionArn",
          (Option.map x.lambdaFunctionArn ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lambdaFunctionArn =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "LambdaFunctionArn") in
      let outboundEventsHTTPSEndpoint =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "OutboundEventsHTTPSEndpoint") in
      let botId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BotId") in
      make ?lambdaFunctionArn ?outboundEventsHTTPSEndpoint ?botId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lambdaFunctionArn =
        field_map json__ "LambdaFunctionArn" SensitiveString.of_json in
      let outboundEventsHTTPSEndpoint =
        field_map json__ "OutboundEventsHTTPSEndpoint"
          SensitiveString.of_json in
      let botId = field_map json__ "BotId" String_.of_json in
      make ?lambdaFunctionArn ?outboundEventsHTTPSEndpoint ?botId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration that allows a bot to receive outgoing events. Can be either an HTTPS endpoint or a Lambda function ARN."]
module UserList =
  struct
    type nonrec t = User.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:User.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:User.of_xml)
    let of_json j = list_of_json ~kind:"UserList" ~of_json:User.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProfileServiceMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:200) >>= (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 ProfileServiceMaxResults"
           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 PhoneNumberCountriesList =
  struct
    type nonrec t = PhoneNumberCountry.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:PhoneNumberCountry.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:PhoneNumberCountry.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberCountriesList"
        ~of_json:PhoneNumberCountry.of_json j
    let to_json v = composed_to_json to_value v
  end
module RoomList =
  struct
    type nonrec t = Room.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:Room.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:Room.of_xml)
    let of_json j = list_of_json ~kind:"RoomList" ~of_json:Room.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResultMax =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:99) >>= (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 ResultMax" 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 RoomMembershipList =
  struct
    type nonrec t = RoomMembership.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:RoomMembership.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:RoomMembership.of_xml)
    let of_json j =
      list_of_json ~kind:"RoomMembershipList" ~of_json:RoomMembership.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberList =
  struct
    type nonrec t = PhoneNumber.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:PhoneNumber.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:PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberList" ~of_json:PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberOrderList =
  struct
    type nonrec t = PhoneNumberOrder.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:PhoneNumberOrder.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:PhoneNumberOrder.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberOrderList"
        ~of_json:PhoneNumberOrder.of_json j
    let to_json v = composed_to_json to_value v
  end
module BotList =
  struct
    type nonrec t = Bot.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:Bot.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:Bot.of_xml)
    let of_json j = list_of_json ~kind:"BotList" ~of_json:Bot.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountList =
  struct
    type nonrec t = Account.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:Account.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:Account.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountList" ~of_json:Account.of_json j
    let to_json v = composed_to_json to_value v
  end
module InviteList =
  struct
    type nonrec t = Invite.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:Invite.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:Invite.of_xml)
    let of_json j = list_of_json ~kind:"InviteList" ~of_json:Invite.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserEmailList =
  struct
    type nonrec t = EmailAddress.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EmailAddress.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:EmailAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"UserEmailList" ~of_json:EmailAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module NonEmptyStringList =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f: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:"NonEmptyStringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UnprocessableEntityException =
  struct
    type nonrec t = {
      code: ErrorCode.t option ;
      message: String_.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" ErrorCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was well-formed but was unable to be followed due to semantic errors."]
module ClientRequestToken =
  struct
    type nonrec t = string
    let context_ = "ClientRequestToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[-_a-zA-Z0-9]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientRequestToken" j
    let to_json = simple_to_json to_value
  end
module JoinTokenString =
  struct
    type nonrec t = string
    let context_ = "JoinTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (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:"JoinTokenString" j
    let to_json = simple_to_json to_value
  end
module UserErrorList =
  struct
    type nonrec t = UserError.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:UserError.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:UserError.of_xml)
    let of_json j =
      list_of_json ~kind:"UserErrorList" ~of_json:UserError.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateUserRequestItemList =
  struct
    type nonrec t = UpdateUserRequestItem.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:20); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UpdateUserRequestItem.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:UpdateUserRequestItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateUserRequestItemList"
        ~of_json:UpdateUserRequestItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberErrorList =
  struct
    type nonrec t = PhoneNumberError.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:PhoneNumberError.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:PhoneNumberError.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberErrorList"
        ~of_json:PhoneNumberError.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdatePhoneNumberRequestItemList =
  struct
    type nonrec t = UpdatePhoneNumberRequestItem.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:UpdatePhoneNumberRequestItem.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:UpdatePhoneNumberRequestItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdatePhoneNumberRequestItemList"
        ~of_json:UpdatePhoneNumberRequestItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserIdList =
  struct
    type nonrec t = NonEmptyString.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:NonEmptyString.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"UserIdList" ~of_json:NonEmptyString.of_json j
    let to_json v = composed_to_json to_value v
  end
module MemberErrorList =
  struct
    type nonrec t = MemberError.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:MemberError.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:MemberError.of_xml)
    let of_json j =
      list_of_json ~kind:"MemberErrorList" ~of_json:MemberError.of_json j
    let to_json v = composed_to_json to_value v
  end
module MembershipItemList =
  struct
    type nonrec t = MembershipItem.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MembershipItem.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:MembershipItem.of_xml)
    let of_json j =
      list_of_json ~kind:"MembershipItemList" ~of_json:MembershipItem.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module UpdateUserSettingsRequest =
  struct
    type nonrec t =
      {
      accountId: String_.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: String_.t [@ocaml.doc "The user ID."];
      userSettings: UserSettings.t
        [@ocaml.doc "The user settings to update."]}
    let context_ = "UpdateUserSettingsRequest"
    let make ~accountId =
      fun ~userId ->
        fun ~userSettings -> fun () -> { accountId; userId; userSettings }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("userId", (Some (String_.to_value x.userId)));
        ("UserSettings", (Some (UserSettings.to_value x.userSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userSettings =
        UserSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserSettings") in
      let userId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userSettings ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userSettings =
        field_map_exn json__ "UserSettings" UserSettings.of_json in
      let userId = field_map_exn json__ "UserId" String_.of_json in
      let accountId = field_map_exn json__ "AccountId" String_.of_json in
      make ~userSettings ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the settings for the specified user, such as phone number settings."]
module UpdateUserResponse =
  struct
    type nonrec t =
      {
      user: User.t option [@ocaml.doc "The updated user details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates user details for a specified user ID. Currently, only LicenseType updates are supported for this action."]
module UpdateUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: NonEmptyString.t [@ocaml.doc "The user ID."];
      licenseType: License.t option
        [@ocaml.doc
          "The user license type to update. This must be a supported license type for the Amazon Chime account that the user belongs to."];
      userType: UserType.t option [@ocaml.doc "The user type."];
      alexaForBusinessMetadata: AlexaForBusinessMetadata.t option
        [@ocaml.doc "The Alexa for Business metadata."]}
    let context_ = "UpdateUserRequest"
    let make ?licenseType =
      fun ?userType ->
        fun ?alexaForBusinessMetadata ->
          fun ~accountId ->
            fun ~userId ->
              fun () ->
                {
                  licenseType;
                  userType;
                  alexaForBusinessMetadata;
                  accountId;
                  userId
                }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("userId", (Some (NonEmptyString.to_value x.userId)));
        ("LicenseType", (Option.map x.licenseType ~f:License.to_value));
        ("UserType", (Option.map x.userType ~f:UserType.to_value));
        ("AlexaForBusinessMetadata",
          (Option.map x.alexaForBusinessMetadata
             ~f:AlexaForBusinessMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alexaForBusinessMetadata =
        (Option.map ~f:AlexaForBusinessMetadata.of_xml)
          (Xml.child xml_arg0 "AlexaForBusinessMetadata") in
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "UserType") in
      let licenseType =
        (Option.map ~f:License.of_xml) (Xml.child xml_arg0 "LicenseType") in
      let userId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?alexaForBusinessMetadata ?userType ?licenseType ~userId
        ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alexaForBusinessMetadata =
        field_map json__ "AlexaForBusinessMetadata"
          AlexaForBusinessMetadata.of_json in
      let userType = field_map json__ "UserType" UserType.of_json in
      let licenseType = field_map json__ "LicenseType" License.of_json in
      let userId = field_map_exn json__ "UserId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?alexaForBusinessMetadata ?userType ?licenseType ~userId
        ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates user details for a specified user ID. Currently, only LicenseType updates are supported for this action."]
module UpdateRoomResponse =
  struct
    type nonrec t = {
      room: Room.t option [@ocaml.doc "The room details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?room = fun () -> { room }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Room", (Option.map x.room ~f:Room.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let room = (Option.map ~f:Room.of_xml) (Xml.child xml_arg0 "Room") in
      make ?room ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let room = field_map json__ "Room" Room.of_json in make ?room ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates room details, such as the room name, for a room in an Amazon Chime Enterprise account."]
module UpdateRoomRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      name: SensitiveString.t option [@ocaml.doc "The room name."]}
    let context_ = "UpdateRoomRequest"
    let make ?name =
      fun ~accountId -> fun ~roomId -> fun () -> { name; accountId; roomId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("Name", (Option.map x.name ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "Name") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?name ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" SensitiveString.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?name ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates room details, such as the room name, for a room in an Amazon Chime Enterprise account."]
module UpdateRoomMembershipResponse =
  struct
    type nonrec t =
      {
      roomMembership: RoomMembership.t option
        [@ocaml.doc "The room membership details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?roomMembership = fun () -> { roomMembership }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("RoomMembership",
           (Option.map x.roomMembership ~f:RoomMembership.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roomMembership =
        (Option.map ~f:RoomMembership.of_xml)
          (Xml.child xml_arg0 "RoomMembership") in
      make ?roomMembership ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roomMembership =
        field_map json__ "RoomMembership" RoomMembership.of_json in
      make ?roomMembership ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates room membership details, such as the member role, for a room in an Amazon Chime Enterprise account. The member role designates whether the member is a chat room administrator or a general chat room member. The member role can be updated only for user IDs."]
module UpdateRoomMembershipRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      memberId: NonEmptyString.t [@ocaml.doc "The member ID."];
      role: RoomMembershipRole.t option
        [@ocaml.doc "The role of the member."]}
    let context_ = "UpdateRoomMembershipRequest"
    let make ?role =
      fun ~accountId ->
        fun ~roomId ->
          fun ~memberId -> fun () -> { role; accountId; roomId; memberId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("memberId", (Some (NonEmptyString.to_value x.memberId)));
        ("Role", (Option.map x.role ~f:RoomMembershipRole.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let role =
        (Option.map ~f:RoomMembershipRole.of_xml) (Xml.child xml_arg0 "Role") in
      let memberId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "memberId") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?role ~memberId ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let role = field_map json__ "Role" RoomMembershipRole.of_json in
      let memberId = field_map_exn json__ "MemberId" NonEmptyString.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?role ~memberId ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates room membership details, such as the member role, for a room in an Amazon Chime Enterprise account. The member role designates whether the member is a chat room administrator or a general chat room member. The member role can be updated only for user IDs."]
module UpdatePhoneNumberSettingsRequest =
  struct
    type nonrec t =
      {
      callingName: CallingName.t
        [@ocaml.doc "The default outbound calling name for the account."]}
    let context_ = "UpdatePhoneNumberSettingsRequest"
    let make ~callingName = fun () -> { callingName }
    let to_value x =
      structure_to_value
        [("CallingName", (Some (CallingName.to_value x.callingName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingName =
        CallingName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CallingName") in
      make ~callingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingName =
        field_map_exn json__ "CallingName" CallingName.of_json in
      make ~callingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the phone number settings for the administrator's AWS account, such as the default outbound calling name. You can update the default outbound calling name once every seven days. Outbound calling names can take up to 72 hours to update."]
module UpdatePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The updated phone number details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber = fun () -> { phoneNumber }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      make ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      make ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number details, such as product type or calling name, for the specified phone number ID. You can update one phone number detail at a time. For example, you can update either the product type or the calling name in one action. For toll-free numbers, you cannot use the Amazon Chime Business Calling product type. For numbers outside the U.S., you must use the Amazon Chime SIP Media Application Dial-In product type. Updates to outbound calling names can take 72 hours to complete. Pending updates to outbound calling names must be complete before you can request another update."]
module UpdatePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: String_.t [@ocaml.doc "The phone number ID."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The product type."];
      callingName: CallingName.t option
        [@ocaml.doc
          "The outbound calling name associated with the phone number."]}
    let context_ = "UpdatePhoneNumberRequest"
    let make ?productType =
      fun ?callingName ->
        fun ~phoneNumberId ->
          fun () -> { productType; callingName; phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId", (Some (String_.to_value x.phoneNumberId)));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("CallingName", (Option.map x.callingName ~f:CallingName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let phoneNumberId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ?callingName ?productType ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" String_.of_json in
      make ?callingName ?productType ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number details, such as product type or calling name, for the specified phone number ID. You can update one phone number detail at a time. For example, you can update either the product type or the calling name in one action. For toll-free numbers, you cannot use the Amazon Chime Business Calling product type. For numbers outside the U.S., you must use the Amazon Chime SIP Media Application Dial-In product type. Updates to outbound calling names can take 72 hours to complete. Pending updates to outbound calling names must be complete before you can request another update."]
module UpdateGlobalSettingsRequest =
  struct
    type nonrec t =
      {
      businessCalling: BusinessCallingSettings.t option
        [@ocaml.doc "The Amazon Chime Business Calling settings."];
      voiceConnector: VoiceConnectorSettings.t option
        [@ocaml.doc "The Amazon Chime Voice Connector settings."]}
    let make ?businessCalling =
      fun ?voiceConnector -> fun () -> { businessCalling; voiceConnector }
    let to_value x =
      structure_to_value
        [("BusinessCalling",
           (Option.map x.businessCalling ~f:BusinessCallingSettings.to_value));
        ("VoiceConnector",
          (Option.map x.voiceConnector ~f:VoiceConnectorSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnectorSettings.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      let businessCalling =
        (Option.map ~f:BusinessCallingSettings.of_xml)
          (Xml.child xml_arg0 "BusinessCalling") in
      make ?voiceConnector ?businessCalling ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnectorSettings.of_json in
      let businessCalling =
        field_map json__ "BusinessCalling" BusinessCallingSettings.of_json in
      make ?voiceConnector ?businessCalling ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates global settings for the administrator's AWS account, such as Amazon Chime Business Calling and Amazon Chime Voice Connector settings."]
module UpdateBotResponse =
  struct
    type nonrec t =
      {
      bot: Bot.t option [@ocaml.doc "The updated bot details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bot = fun () -> { bot }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Bot", (Option.map x.bot ~f:Bot.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bot = (Option.map ~f:Bot.of_xml) (Xml.child xml_arg0 "Bot") in
      make ?bot ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bot = field_map json__ "Bot" Bot.of_json in make ?bot ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status of the specified bot, such as starting or stopping the bot from running in your Amazon Chime Enterprise account."]
module UpdateBotRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      botId: NonEmptyString.t [@ocaml.doc "The bot ID."];
      disabled: NullableBoolean.t option
        [@ocaml.doc
          "When true, stops the specified bot from running in your account."]}
    let context_ = "UpdateBotRequest"
    let make ?disabled =
      fun ~accountId ->
        fun ~botId -> fun () -> { disabled; accountId; botId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("botId", (Some (NonEmptyString.to_value x.botId)));
        ("Disabled", (Option.map x.disabled ~f:NullableBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disabled =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "Disabled") in
      let botId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "botId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?disabled ~botId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disabled = field_map json__ "Disabled" NullableBoolean.of_json in
      let botId = field_map_exn json__ "BotId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?disabled ~botId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status of the specified bot, such as starting or stopping the bot from running in your Amazon Chime Enterprise account."]
module UpdateAccountSettingsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 the settings for the specified Amazon Chime account. You can update settings for remote control of shared screens, or for the dial-out option. For more information about these settings, see Use the Policies Page in the Amazon Chime Administration Guide."]
module UpdateAccountSettingsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      accountSettings: AccountSettings.t
        [@ocaml.doc "The Amazon Chime account settings to update."]}
    let context_ = "UpdateAccountSettingsRequest"
    let make ~accountId =
      fun ~accountSettings -> fun () -> { accountId; accountSettings }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("AccountSettings",
          (Some (AccountSettings.to_value x.accountSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountSettings =
        AccountSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountSettings") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountSettings ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountSettings =
        field_map_exn json__ "AccountSettings" AccountSettings.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~accountSettings ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the settings for the specified Amazon Chime account. You can update settings for remote control of shared screens, or for the dial-out option. For more information about these settings, see Use the Policies Page in the Amazon Chime Administration Guide."]
module UpdateAccountResponse =
  struct
    type nonrec t =
      {
      account: Account.t option
        [@ocaml.doc "The updated Amazon Chime account details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?account = fun () -> { account }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Account", (Option.map x.account ~f:Account.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Account") in
      make ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map json__ "Account" Account.of_json in
      make ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates account details for the specified Amazon Chime account. Currently, only account name and default license updates are supported for this action."]
module UpdateAccountRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      name: AccountName.t option
        [@ocaml.doc "The new name for the specified Amazon Chime account."];
      defaultLicense: License.t option
        [@ocaml.doc
          "The default license applied when you add users to an Amazon Chime account."]}
    let context_ = "UpdateAccountRequest"
    let make ?name =
      fun ?defaultLicense ->
        fun ~accountId -> fun () -> { name; defaultLicense; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("Name", (Option.map x.name ~f:AccountName.to_value));
        ("DefaultLicense", (Option.map x.defaultLicense ~f:License.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultLicense =
        (Option.map ~f:License.of_xml) (Xml.child xml_arg0 "DefaultLicense") in
      let name =
        (Option.map ~f:AccountName.of_xml) (Xml.child xml_arg0 "Name") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?defaultLicense ?name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultLicense = field_map json__ "DefaultLicense" License.of_json in
      let name = field_map json__ "Name" AccountName.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?defaultLicense ?name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates account details for the specified Amazon Chime account. Currently, only account name and default license updates are supported for this action."]
module SearchAvailablePhoneNumbersResponse =
  struct
    type nonrec t =
      {
      e164PhoneNumbers: E164PhoneNumberList.t option
        [@ocaml.doc "List of phone numbers, in E.164 format."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token used to retrieve the next page of search results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?e164PhoneNumbers =
      fun ?nextToken -> fun () -> { e164PhoneNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("E164PhoneNumbers",
           (Option.map x.e164PhoneNumbers ~f:E164PhoneNumberList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let e164PhoneNumbers =
        (Option.map ~f:E164PhoneNumberList.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumbers") in
      make ?nextToken ?e164PhoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let e164PhoneNumbers =
        field_map json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      make ?nextToken ?e164PhoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for phone numbers that can be ordered. For US numbers, provide at least one of the following search filters: AreaCode, City, State, or TollFreePrefix. If you provide City, you must also provide State. Numbers outside the US only support the PhoneNumberType filter, which you must use."]
module SearchAvailablePhoneNumbersRequest =
  struct
    type nonrec t =
      {
      areaCode: String_.t option
        [@ocaml.doc
          "The area code used to filter results. Only applies to the US."];
      city: String_.t option
        [@ocaml.doc
          "The city used to filter results. Only applies to the US."];
      country: Alpha2CountryCode.t option
        [@ocaml.doc
          "The country used to filter results. Defaults to the US Format: ISO 3166-1 alpha-2."];
      state: String_.t option
        [@ocaml.doc
          "The state used to filter results. Required only if you provide City. Only applies to the US."];
      tollFreePrefix: TollFreePrefix.t option
        [@ocaml.doc
          "The toll-free prefix that you use to filter results. Only applies to the US."];
      phoneNumberType: PhoneNumberType.t option
        [@ocaml.doc
          "The phone number type used to filter results. Required for non-US numbers."];
      maxResults: PhoneNumberMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to retrieve the next page of results."]}
    let make ?areaCode =
      fun ?city ->
        fun ?country ->
          fun ?state ->
            fun ?tollFreePrefix ->
              fun ?phoneNumberType ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun () ->
                      {
                        areaCode;
                        city;
                        country;
                        state;
                        tollFreePrefix;
                        phoneNumberType;
                        maxResults;
                        nextToken
                      }
    let to_value x =
      structure_to_value
        [("area-code", (Option.map x.areaCode ~f:String_.to_value));
        ("city", (Option.map x.city ~f:String_.to_value));
        ("country", (Option.map x.country ~f:Alpha2CountryCode.to_value));
        ("state", (Option.map x.state ~f:String_.to_value));
        ("toll-free-prefix",
          (Option.map x.tollFreePrefix ~f:TollFreePrefix.to_value));
        ("phone-number-type",
          (Option.map x.phoneNumberType ~f:PhoneNumberType.to_value));
        ("max-results",
          (Option.map x.maxResults ~f:PhoneNumberMaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:PhoneNumberMaxResults.of_xml)
          (Xml.child xml_arg0 "max-results") in
      let phoneNumberType =
        (Option.map ~f:PhoneNumberType.of_xml)
          (Xml.child xml_arg0 "phone-number-type") in
      let tollFreePrefix =
        (Option.map ~f:TollFreePrefix.of_xml)
          (Xml.child xml_arg0 "toll-free-prefix") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "state") in
      let country =
        (Option.map ~f:Alpha2CountryCode.of_xml)
          (Xml.child xml_arg0 "country") in
      let city = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "city") in
      let areaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "area-code") in
      make ?nextToken ?maxResults ?phoneNumberType ?tollFreePrefix ?state
        ?country ?city ?areaCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults =
        field_map json__ "MaxResults" PhoneNumberMaxResults.of_json in
      let phoneNumberType =
        field_map json__ "PhoneNumberType" PhoneNumberType.of_json in
      let tollFreePrefix =
        field_map json__ "TollFreePrefix" TollFreePrefix.of_json in
      let state = field_map json__ "State" String_.of_json in
      let country = field_map json__ "Country" Alpha2CountryCode.of_json in
      let city = field_map json__ "City" String_.of_json in
      let areaCode = field_map json__ "AreaCode" String_.of_json in
      make ?nextToken ?maxResults ?phoneNumberType ?tollFreePrefix ?state
        ?country ?city ?areaCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for phone numbers that can be ordered. For US numbers, provide at least one of the following search filters: AreaCode, City, State, or TollFreePrefix. If you provide City, you must also provide State. Numbers outside the US only support the PhoneNumberType filter, which you must use."]
module RestorePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber = fun () -> { phoneNumber }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      make ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      make ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves a phone number from the Deletion queue back into the phone number Inventory."]
module RestorePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: NonEmptyString.t [@ocaml.doc "The phone number."]}
    let context_ = "RestorePhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId", (Some (NonEmptyString.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" NonEmptyString.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves a phone number from the Deletion queue back into the phone number Inventory."]
module ResetPersonalPINResponse =
  struct
    type nonrec t =
      {
      user: User.t option
        [@ocaml.doc "The user details and new personal meeting PIN."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets the personal meeting PIN for the specified user on an Amazon Chime account. Returns the User object with the updated personal meeting PIN."]
module ResetPersonalPINRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: NonEmptyString.t [@ocaml.doc "The user ID."]}
    let context_ = "ResetPersonalPINRequest"
    let make ~accountId = fun ~userId -> fun () -> { accountId; userId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("userId", (Some (NonEmptyString.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets the personal meeting PIN for the specified user on an Amazon Chime account. Returns the User object with the updated personal meeting PIN."]
module RegenerateSecurityTokenResponse =
  struct
    type nonrec t =
      {
      bot: Bot.t option
        [@ocaml.doc
          "A resource that allows Enterprise account administrators to configure an interface that receives events from Amazon Chime."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bot = fun () -> { bot }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Bot", (Option.map x.bot ~f:Bot.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bot = (Option.map ~f:Bot.of_xml) (Xml.child xml_arg0 "Bot") in
      make ?bot ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bot = field_map json__ "Bot" Bot.of_json in make ?bot ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Regenerates the security token for a bot."]
module RegenerateSecurityTokenRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      botId: NonEmptyString.t [@ocaml.doc "The bot ID."]}
    let context_ = "RegenerateSecurityTokenRequest"
    let make ~accountId = fun ~botId -> fun () -> { accountId; botId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("botId", (Some (NonEmptyString.to_value x.botId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let botId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "botId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~botId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let botId = field_map_exn json__ "BotId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~botId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Regenerates the security token for a bot."]
module RedactRoomMessageResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
       "Redacts the specified message from the specified Amazon Chime channel."]
module RedactRoomMessageRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      messageId: NonEmptyString.t [@ocaml.doc "The message ID."]}
    let context_ = "RedactRoomMessageRequest"
    let make ~accountId =
      fun ~roomId ->
        fun ~messageId -> fun () -> { accountId; roomId; messageId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("messageId", (Some (NonEmptyString.to_value x.messageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "messageId") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~messageId ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map_exn json__ "MessageId" NonEmptyString.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~messageId ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Redacts the specified message from the specified Amazon Chime channel."]
module RedactConversationMessageResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
       "Redacts the specified message from the specified Amazon Chime conversation."]
module RedactConversationMessageRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      conversationId: NonEmptyString.t [@ocaml.doc "The conversation ID."];
      messageId: NonEmptyString.t [@ocaml.doc "The message ID."]}
    let context_ = "RedactConversationMessageRequest"
    let make ~accountId =
      fun ~conversationId ->
        fun ~messageId -> fun () -> { accountId; conversationId; messageId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("conversationId", (Some (NonEmptyString.to_value x.conversationId)));
        ("messageId", (Some (NonEmptyString.to_value x.messageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "messageId") in
      let conversationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conversationId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~messageId ~conversationId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map_exn json__ "MessageId" NonEmptyString.of_json in
      let conversationId =
        field_map_exn json__ "ConversationId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~messageId ~conversationId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Redacts the specified message from the specified Amazon Chime conversation."]
module PutRetentionSettingsResponse =
  struct
    type nonrec t =
      {
      retentionSettings: RetentionSettings.t option
        [@ocaml.doc "The retention settings."];
      initiateDeletionTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The timestamp representing the time at which the specified items are permanently deleted, in ISO 8601 format."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?retentionSettings =
      fun ?initiateDeletionTimestamp ->
        fun () -> { retentionSettings; initiateDeletionTimestamp }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("RetentionSettings",
           (Option.map x.retentionSettings ~f:RetentionSettings.to_value));
        ("InitiateDeletionTimestamp",
          (Option.map x.initiateDeletionTimestamp
             ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiateDeletionTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "InitiateDeletionTimestamp") in
      let retentionSettings =
        (Option.map ~f:RetentionSettings.of_xml)
          (Xml.child xml_arg0 "RetentionSettings") in
      make ?initiateDeletionTimestamp ?retentionSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiateDeletionTimestamp =
        field_map json__ "InitiateDeletionTimestamp" Iso8601Timestamp.of_json in
      let retentionSettings =
        field_map json__ "RetentionSettings" RetentionSettings.of_json in
      make ?initiateDeletionTimestamp ?retentionSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Puts retention settings for the specified Amazon Chime Enterprise account. We recommend using AWS CloudTrail to monitor usage of this API for your account. For more information, see Logging Amazon Chime API Calls with AWS CloudTrail in the Amazon Chime Administration Guide. To turn off existing retention settings, remove the number of days from the corresponding RetentionDays field in the RetentionSettings object. For more information about retention settings, see Managing Chat Retention Policies in the Amazon Chime Administration Guide."]
module PutRetentionSettingsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      retentionSettings: RetentionSettings.t
        [@ocaml.doc "The retention settings."]}
    let context_ = "PutRetentionSettingsRequest"
    let make ~accountId =
      fun ~retentionSettings -> fun () -> { accountId; retentionSettings }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("RetentionSettings",
          (Some (RetentionSettings.to_value x.retentionSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retentionSettings =
        RetentionSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RetentionSettings") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~retentionSettings ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retentionSettings =
        field_map_exn json__ "RetentionSettings" RetentionSettings.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~retentionSettings ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Puts retention settings for the specified Amazon Chime Enterprise account. We recommend using AWS CloudTrail to monitor usage of this API for your account. For more information, see Logging Amazon Chime API Calls with AWS CloudTrail in the Amazon Chime Administration Guide. To turn off existing retention settings, remove the number of days from the corresponding RetentionDays field in the RetentionSettings object. For more information about retention settings, see Managing Chat Retention Policies in the Amazon Chime Administration Guide."]
module PutEventsConfigurationResponse =
  struct
    type nonrec t =
      {
      eventsConfiguration: EventsConfiguration.t option
        [@ocaml.doc
          "The configuration that allows a bot to receive outgoing events. Can be an HTTPS endpoint or an AWS Lambda function ARN."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventsConfiguration = fun () -> { eventsConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("EventsConfiguration",
           (Option.map x.eventsConfiguration ~f:EventsConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventsConfiguration =
        (Option.map ~f:EventsConfiguration.of_xml)
          (Xml.child xml_arg0 "EventsConfiguration") in
      make ?eventsConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventsConfiguration =
        field_map json__ "EventsConfiguration" EventsConfiguration.of_json in
      make ?eventsConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an events configuration that allows a bot to receive outgoing events sent by Amazon Chime. Choose either an HTTPS endpoint or a Lambda function ARN. For more information, see Bot."]
module PutEventsConfigurationRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      botId: NonEmptyString.t [@ocaml.doc "The bot ID."];
      outboundEventsHTTPSEndpoint: SensitiveString.t option
        [@ocaml.doc
          "HTTPS endpoint that allows the bot to receive outgoing events."];
      lambdaFunctionArn: SensitiveString.t option
        [@ocaml.doc
          "Lambda function ARN that allows the bot to receive outgoing events."]}
    let context_ = "PutEventsConfigurationRequest"
    let make ?outboundEventsHTTPSEndpoint =
      fun ?lambdaFunctionArn ->
        fun ~accountId ->
          fun ~botId ->
            fun () ->
              {
                outboundEventsHTTPSEndpoint;
                lambdaFunctionArn;
                accountId;
                botId
              }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("botId", (Some (NonEmptyString.to_value x.botId)));
        ("OutboundEventsHTTPSEndpoint",
          (Option.map x.outboundEventsHTTPSEndpoint
             ~f:SensitiveString.to_value));
        ("LambdaFunctionArn",
          (Option.map x.lambdaFunctionArn ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lambdaFunctionArn =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "LambdaFunctionArn") in
      let outboundEventsHTTPSEndpoint =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "OutboundEventsHTTPSEndpoint") in
      let botId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "botId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?lambdaFunctionArn ?outboundEventsHTTPSEndpoint ~botId ~accountId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lambdaFunctionArn =
        field_map json__ "LambdaFunctionArn" SensitiveString.of_json in
      let outboundEventsHTTPSEndpoint =
        field_map json__ "OutboundEventsHTTPSEndpoint"
          SensitiveString.of_json in
      let botId = field_map_exn json__ "BotId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?lambdaFunctionArn ?outboundEventsHTTPSEndpoint ~botId ~accountId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an events configuration that allows a bot to receive outgoing events sent by Amazon Chime. Choose either an HTTPS endpoint or a Lambda function ARN. For more information, see Bot."]
module LogoutUserResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
       "Logs out the specified user from all of the devices they are currently logged into."]
module LogoutUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: NonEmptyString.t [@ocaml.doc "The user ID."]}
    let context_ = "LogoutUserRequest"
    let make ~accountId = fun ~userId -> fun () -> { accountId; userId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("userId", (Some (NonEmptyString.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Logs out the specified user from all of the devices they are currently logged into."]
module ListUsersResponse =
  struct
    type nonrec t =
      {
      users: UserList.t option [@ocaml.doc "List of users and user details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?users = fun ?nextToken -> fun () -> { users; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Users", (Option.map x.users ~f:UserList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let users =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "Users") in
      make ?nextToken ?users ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let users = field_map json__ "Users" UserList.of_json in
      make ?nextToken ?users ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the users that belong to the specified Amazon Chime account. You can specify an email address to list only the user that the email address belongs to."]
module ListUsersRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userEmail: EmailAddress.t option
        [@ocaml.doc
          "Optional. The user email address used to filter results. Maximum 1."];
      userType: UserType.t option [@ocaml.doc "The user type."];
      maxResults: ProfileServiceMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Defaults to 100."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    let context_ = "ListUsersRequest"
    let make ?userEmail =
      fun ?userType ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~accountId ->
              fun () ->
                { userEmail; userType; maxResults; nextToken; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("user-email", (Option.map x.userEmail ~f:EmailAddress.to_value));
        ("user-type", (Option.map x.userType ~f:UserType.to_value));
        ("max-results",
          (Option.map x.maxResults ~f:ProfileServiceMaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ProfileServiceMaxResults.of_xml)
          (Xml.child xml_arg0 "max-results") in
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "user-type") in
      let userEmail =
        (Option.map ~f:EmailAddress.of_xml) (Xml.child xml_arg0 "user-email") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?nextToken ?maxResults ?userType ?userEmail ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults =
        field_map json__ "MaxResults" ProfileServiceMaxResults.of_json in
      let userType = field_map json__ "UserType" UserType.of_json in
      let userEmail = field_map json__ "UserEmail" EmailAddress.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?nextToken ?maxResults ?userType ?userEmail ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the users that belong to the specified Amazon Chime account. You can specify an email address to list only the user that the email address belongs to."]
module ListSupportedPhoneNumberCountriesResponse =
  struct
    type nonrec t =
      {
      phoneNumberCountries: PhoneNumberCountriesList.t option
        [@ocaml.doc "The supported phone number countries."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberCountries = fun () -> { phoneNumberCountries }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberCountries",
           (Option.map x.phoneNumberCountries
              ~f:PhoneNumberCountriesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberCountries =
        (Option.map ~f:PhoneNumberCountriesList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberCountries") in
      make ?phoneNumberCountries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberCountries =
        field_map json__ "PhoneNumberCountries"
          PhoneNumberCountriesList.of_json in
      make ?phoneNumberCountries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists supported phone number countries."]
module ListSupportedPhoneNumberCountriesRequest =
  struct
    type nonrec t =
      {
      productType: PhoneNumberProductType.t
        [@ocaml.doc "The phone number product type."]}
    let context_ = "ListSupportedPhoneNumberCountriesRequest"
    let make ~productType = fun () -> { productType }
    let to_value x =
      structure_to_value
        [("product-type",
           (Some (PhoneNumberProductType.to_value x.productType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productType =
        PhoneNumberProductType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "product-type") in
      make ~productType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productType =
        field_map_exn json__ "ProductType" PhoneNumberProductType.of_json in
      make ~productType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists supported phone number countries."]
module ListRoomsResponse =
  struct
    type nonrec t =
      {
      rooms: RoomList.t option [@ocaml.doc "The room details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rooms = fun ?nextToken -> fun () -> { rooms; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Rooms", (Option.map x.rooms ~f:RoomList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let rooms =
        (Option.map ~f:RoomList.of_xml) (Xml.child xml_arg0 "Rooms") in
      make ?nextToken ?rooms ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let rooms = field_map json__ "Rooms" RoomList.of_json in
      make ?nextToken ?rooms ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the room details for the specified Amazon Chime Enterprise account. Optionally, filter the results by a member ID (user ID or bot ID) to see a list of rooms that the member belongs to."]
module ListRoomsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      memberId: String_.t option
        [@ocaml.doc "The member ID (user ID or bot ID)."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    let context_ = "ListRoomsRequest"
    let make ?memberId =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~accountId ->
            fun () -> { memberId; maxResults; nextToken; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("member-id", (Option.map x.memberId ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let memberId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "member-id") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?nextToken ?maxResults ?memberId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let memberId = field_map json__ "MemberId" String_.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?nextToken ?maxResults ?memberId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the room details for the specified Amazon Chime Enterprise account. Optionally, filter the results by a member ID (user ID or bot ID) to see a list of rooms that the member belongs to."]
module ListRoomMembershipsResponse =
  struct
    type nonrec t =
      {
      roomMemberships: RoomMembershipList.t option
        [@ocaml.doc "The room membership details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?roomMemberships =
      fun ?nextToken -> fun () -> { roomMemberships; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("RoomMemberships",
           (Option.map x.roomMemberships ~f:RoomMembershipList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let roomMemberships =
        (Option.map ~f:RoomMembershipList.of_xml)
          (Xml.child xml_arg0 "RoomMemberships") in
      make ?nextToken ?roomMemberships ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let roomMemberships =
        field_map json__ "RoomMemberships" RoomMembershipList.of_json in
      make ?nextToken ?roomMemberships ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the membership details for the specified room in an Amazon Chime Enterprise account, such as the members' IDs, email addresses, and names."]
module ListRoomMembershipsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    let context_ = "ListRoomMembershipsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~accountId ->
          fun ~roomId ->
            fun () -> { maxResults; nextToken; accountId; roomId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?nextToken ?maxResults ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?nextToken ?maxResults ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the membership details for the specified room in an Amazon Chime Enterprise account, such as the members' IDs, email addresses, and names."]
module ListPhoneNumbersResponse =
  struct
    type nonrec t =
      {
      phoneNumbers: PhoneNumberList.t option
        [@ocaml.doc "The phone number details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumbers =
      fun ?nextToken -> fun () -> { phoneNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumbers",
           (Option.map x.phoneNumbers ~f:PhoneNumberList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let phoneNumbers =
        (Option.map ~f:PhoneNumberList.of_xml)
          (Xml.child xml_arg0 "PhoneNumbers") in
      make ?nextToken ?phoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let phoneNumbers =
        field_map json__ "PhoneNumbers" PhoneNumberList.of_json in
      make ?nextToken ?phoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone numbers for the specified Amazon Chime account, Amazon Chime user, Amazon Chime Voice Connector, or Amazon Chime Voice Connector group."]
module ListPhoneNumbersRequest =
  struct
    type nonrec t =
      {
      status: PhoneNumberStatus.t option
        [@ocaml.doc "The phone number status."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The phone number product type."];
      filterName: PhoneNumberAssociationName.t option
        [@ocaml.doc "The filter to use to limit the number of results."];
      filterValue: String_.t option
        [@ocaml.doc "The value to use for the filter."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    let make ?status =
      fun ?productType ->
        fun ?filterName ->
          fun ?filterValue ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    status;
                    productType;
                    filterName;
                    filterValue;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:PhoneNumberStatus.to_value));
        ("product-type",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("filter-name",
          (Option.map x.filterName ~f:PhoneNumberAssociationName.to_value));
        ("filter-value", (Option.map x.filterValue ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let filterValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "filter-value") in
      let filterName =
        (Option.map ~f:PhoneNumberAssociationName.of_xml)
          (Xml.child xml_arg0 "filter-name") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "product-type") in
      let status =
        (Option.map ~f:PhoneNumberStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?nextToken ?maxResults ?filterValue ?filterName ?productType
        ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let filterValue = field_map json__ "FilterValue" String_.of_json in
      let filterName =
        field_map json__ "FilterName" PhoneNumberAssociationName.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let status = field_map json__ "Status" PhoneNumberStatus.of_json in
      make ?nextToken ?maxResults ?filterValue ?filterName ?productType
        ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone numbers for the specified Amazon Chime account, Amazon Chime user, Amazon Chime Voice Connector, or Amazon Chime Voice Connector group."]
module ListPhoneNumberOrdersResponse =
  struct
    type nonrec t =
      {
      phoneNumberOrders: PhoneNumberOrderList.t option
        [@ocaml.doc "The phone number order details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberOrders =
      fun ?nextToken -> fun () -> { phoneNumberOrders; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberOrders",
           (Option.map x.phoneNumberOrders ~f:PhoneNumberOrderList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let phoneNumberOrders =
        (Option.map ~f:PhoneNumberOrderList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrders") in
      make ?nextToken ?phoneNumberOrders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let phoneNumberOrders =
        field_map json__ "PhoneNumberOrders" PhoneNumberOrderList.of_json in
      make ?nextToken ?phoneNumberOrders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone number orders for the administrator's Amazon Chime account."]
module ListPhoneNumberOrdersRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") 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" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone number orders for the administrator's Amazon Chime account."]
module ListBotsResponse =
  struct
    type nonrec t =
      {
      bots: BotList.t option [@ocaml.doc "List of bots and bot details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bots = fun ?nextToken -> fun () -> { bots; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Bots", (Option.map x.bots ~f:BotList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let bots = (Option.map ~f:BotList.of_xml) (Xml.child xml_arg0 "Bots") in
      make ?nextToken ?bots ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let bots = field_map json__ "Bots" BotList.of_json in
      make ?nextToken ?bots ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the bots associated with the administrator's Amazon Chime Enterprise account ID."]
module ListBotsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. The default is 10."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    let context_ = "ListBotsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~accountId -> fun () -> { maxResults; nextToken; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?nextToken ?maxResults ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?nextToken ?maxResults ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the bots associated with the administrator's Amazon Chime Enterprise account ID."]
module ListAccountsResponse =
  struct
    type nonrec t =
      {
      accounts: AccountList.t option
        [@ocaml.doc "List of Amazon Chime accounts and account details."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accounts = fun ?nextToken -> fun () -> { accounts; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Accounts", (Option.map x.accounts ~f:AccountList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let accounts =
        (Option.map ~f:AccountList.of_xml) (Xml.child xml_arg0 "Accounts") in
      make ?nextToken ?accounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let accounts = field_map json__ "Accounts" AccountList.of_json in
      make ?nextToken ?accounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Chime accounts under the administrator's AWS account. You can filter accounts by account name prefix. To find out which Amazon Chime account a user belongs to, you can filter by the user's email address, which returns one account result."]
module ListAccountsRequest =
  struct
    type nonrec t =
      {
      name: AccountName.t option
        [@ocaml.doc
          "Amazon Chime account name prefix with which to filter results."];
      userEmail: EmailAddress.t option
        [@ocaml.doc "User email address with which to filter results."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to retrieve the next page of results."];
      maxResults: ProfileServiceMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Defaults to 100."]}
    let make ?name =
      fun ?userEmail ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { name; userEmail; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:AccountName.to_value));
        ("user-email", (Option.map x.userEmail ~f:EmailAddress.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results",
          (Option.map x.maxResults ~f:ProfileServiceMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ProfileServiceMaxResults.of_xml)
          (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let userEmail =
        (Option.map ~f:EmailAddress.of_xml) (Xml.child xml_arg0 "user-email") in
      let name =
        (Option.map ~f:AccountName.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?userEmail ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" ProfileServiceMaxResults.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let userEmail = field_map json__ "UserEmail" EmailAddress.of_json in
      let name = field_map json__ "Name" AccountName.of_json in
      make ?maxResults ?nextToken ?userEmail ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Chime accounts under the administrator's AWS account. You can filter accounts by account name prefix. To find out which Amazon Chime account a user belongs to, you can filter by the user's email address, which returns one account result."]
module InviteUsersResponse =
  struct
    type nonrec t =
      {
      invites: InviteList.t option
        [@ocaml.doc "The email invitation details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?invites = fun () -> { invites }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Invites", (Option.map x.invites ~f:InviteList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invites =
        (Option.map ~f:InviteList.of_xml) (Xml.child xml_arg0 "Invites") in
      make ?invites ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invites = field_map json__ "Invites" InviteList.of_json in
      make ?invites ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends email to a maximum of 50 users, inviting them to the specified Amazon Chime Team account. Only Team account types are currently supported for this action."]
module InviteUsersRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userEmailList: UserEmailList.t
        [@ocaml.doc
          "The user email addresses to which to send the email invitation."];
      userType: UserType.t option [@ocaml.doc "The user type."]}
    let context_ = "InviteUsersRequest"
    let make ?userType =
      fun ~accountId ->
        fun ~userEmailList ->
          fun () -> { userType; accountId; userEmailList }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("UserEmailList", (Some (UserEmailList.to_value x.userEmailList)));
        ("UserType", (Option.map x.userType ~f:UserType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "UserType") in
      let userEmailList =
        UserEmailList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserEmailList") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?userType ~userEmailList ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userType = field_map json__ "UserType" UserType.of_json in
      let userEmailList =
        field_map_exn json__ "UserEmailList" UserEmailList.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?userType ~userEmailList ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends email to a maximum of 50 users, inviting them to the specified Amazon Chime Team account. Only Team account types are currently supported for this action."]
module GetUserSettingsResponse =
  struct
    type nonrec t =
      {
      userSettings: UserSettings.t option [@ocaml.doc "The user settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userSettings = fun () -> { userSettings }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("UserSettings",
           (Option.map x.userSettings ~f:UserSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userSettings =
        (Option.map ~f:UserSettings.of_xml)
          (Xml.child xml_arg0 "UserSettings") in
      make ?userSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userSettings = field_map json__ "UserSettings" UserSettings.of_json in
      make ?userSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves settings for the specified user ID, such as any associated phone number settings."]
module GetUserSettingsRequest =
  struct
    type nonrec t =
      {
      accountId: String_.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: String_.t [@ocaml.doc "The user ID."]}
    let context_ = "GetUserSettingsRequest"
    let make ~accountId = fun ~userId -> fun () -> { accountId; userId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("userId", (Some (String_.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" String_.of_json in
      let accountId = field_map_exn json__ "AccountId" String_.of_json in
      make ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves settings for the specified user ID, such as any associated phone number settings."]
module GetUserResponse =
  struct
    type nonrec t = {
      user: User.t option [@ocaml.doc "The user details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified user ID, such as primary email address, license type,and personal meeting PIN. To retrieve user details with an email address instead of a user ID, use the ListUsers action, and then filter by email address."]
module GetUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: NonEmptyString.t [@ocaml.doc "The user ID."]}
    let context_ = "GetUserRequest"
    let make ~accountId = fun ~userId -> fun () -> { accountId; userId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("userId", (Some (NonEmptyString.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified user ID, such as primary email address, license type,and personal meeting PIN. To retrieve user details with an email address instead of a user ID, use the ListUsers action, and then filter by email address."]
module GetRoomResponse =
  struct
    type nonrec t = {
      room: Room.t option [@ocaml.doc "The room details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?room = fun () -> { room }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Room", (Option.map x.room ~f:Room.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let room = (Option.map ~f:Room.of_xml) (Xml.child xml_arg0 "Room") in
      make ?room ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let room = field_map json__ "Room" Room.of_json in make ?room ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves room details, such as the room name, for a room in an Amazon Chime Enterprise account."]
module GetRoomRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."]}
    let context_ = "GetRoomRequest"
    let make ~accountId = fun ~roomId -> fun () -> { accountId; roomId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves room details, such as the room name, for a room in an Amazon Chime Enterprise account."]
module GetRetentionSettingsResponse =
  struct
    type nonrec t =
      {
      retentionSettings: RetentionSettings.t option
        [@ocaml.doc "The retention settings."];
      initiateDeletionTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The timestamp representing the time at which the specified items are permanently deleted, in ISO 8601 format."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?retentionSettings =
      fun ?initiateDeletionTimestamp ->
        fun () -> { retentionSettings; initiateDeletionTimestamp }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("RetentionSettings",
           (Option.map x.retentionSettings ~f:RetentionSettings.to_value));
        ("InitiateDeletionTimestamp",
          (Option.map x.initiateDeletionTimestamp
             ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiateDeletionTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "InitiateDeletionTimestamp") in
      let retentionSettings =
        (Option.map ~f:RetentionSettings.of_xml)
          (Xml.child xml_arg0 "RetentionSettings") in
      make ?initiateDeletionTimestamp ?retentionSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiateDeletionTimestamp =
        field_map json__ "InitiateDeletionTimestamp" Iso8601Timestamp.of_json in
      let retentionSettings =
        field_map json__ "RetentionSettings" RetentionSettings.of_json in
      make ?initiateDeletionTimestamp ?retentionSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the retention settings for the specified Amazon Chime Enterprise account. For more information about retention settings, see Managing Chat Retention Policies in the Amazon Chime Administration Guide."]
module GetRetentionSettingsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."]}
    let context_ = "GetRetentionSettingsRequest"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the retention settings for the specified Amazon Chime Enterprise account. For more information about retention settings, see Managing Chat Retention Policies in the Amazon Chime Administration Guide."]
module GetPhoneNumberSettingsResponse =
  struct
    type nonrec t =
      {
      callingName: CallingName.t option
        [@ocaml.doc "The default outbound calling name for the account."];
      callingNameUpdatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The updated outbound calling name timestamp, in ISO 8601 format."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?callingName =
      fun ?callingNameUpdatedTimestamp ->
        fun () -> { callingName; callingNameUpdatedTimestamp }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("CallingName", (Option.map x.callingName ~f:CallingName.to_value));
        ("CallingNameUpdatedTimestamp",
          (Option.map x.callingNameUpdatedTimestamp
             ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingNameUpdatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CallingNameUpdatedTimestamp") in
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      make ?callingNameUpdatedTimestamp ?callingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingNameUpdatedTimestamp =
        field_map json__ "CallingNameUpdatedTimestamp"
          Iso8601Timestamp.of_json in
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      make ?callingNameUpdatedTimestamp ?callingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the phone number settings for the administrator's AWS account, such as the default outbound calling name."]
module GetPhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber = fun () -> { phoneNumber }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      make ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      make ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number ID, such as associations, capabilities, and product type."]
module GetPhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: String_.t [@ocaml.doc "The phone number ID."]}
    let context_ = "GetPhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId", (Some (String_.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" String_.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number ID, such as associations, capabilities, and product type."]
module GetPhoneNumberOrderResponse =
  struct
    type nonrec t =
      {
      phoneNumberOrder: PhoneNumberOrder.t option
        [@ocaml.doc "The phone number order details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberOrder = fun () -> { phoneNumberOrder }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberOrder",
           (Option.map x.phoneNumberOrder ~f:PhoneNumberOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberOrder =
        (Option.map ~f:PhoneNumberOrder.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrder") in
      make ?phoneNumberOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberOrder =
        field_map json__ "PhoneNumberOrder" PhoneNumberOrder.of_json in
      make ?phoneNumberOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number order, such as the order creation timestamp, phone numbers in E.164 format, product type, and order status."]
module GetPhoneNumberOrderRequest =
  struct
    type nonrec t =
      {
      phoneNumberOrderId: GuidString.t
        [@ocaml.doc "The ID for the phone number order."]}
    let context_ = "GetPhoneNumberOrderRequest"
    let make ~phoneNumberOrderId = fun () -> { phoneNumberOrderId }
    let to_value x =
      structure_to_value
        [("phoneNumberOrderId",
           (Some (GuidString.to_value x.phoneNumberOrderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberOrderId =
        GuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberOrderId") in
      make ~phoneNumberOrderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberOrderId =
        field_map_exn json__ "PhoneNumberOrderId" GuidString.of_json in
      make ~phoneNumberOrderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number order, such as the order creation timestamp, phone numbers in E.164 format, product type, and order status."]
module GetGlobalSettingsResponse =
  struct
    type nonrec t =
      {
      businessCalling: BusinessCallingSettings.t option
        [@ocaml.doc "The Amazon Chime Business Calling settings."];
      voiceConnector: VoiceConnectorSettings.t option
        [@ocaml.doc "The Amazon Chime Voice Connector settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?businessCalling =
      fun ?voiceConnector -> fun () -> { businessCalling; voiceConnector }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("BusinessCalling",
           (Option.map x.businessCalling ~f:BusinessCallingSettings.to_value));
        ("VoiceConnector",
          (Option.map x.voiceConnector ~f:VoiceConnectorSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnectorSettings.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      let businessCalling =
        (Option.map ~f:BusinessCallingSettings.of_xml)
          (Xml.child xml_arg0 "BusinessCalling") in
      make ?voiceConnector ?businessCalling ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnectorSettings.of_json in
      let businessCalling =
        field_map json__ "BusinessCalling" BusinessCallingSettings.of_json in
      make ?voiceConnector ?businessCalling ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves global settings for the administrator's AWS account, such as Amazon Chime Business Calling and Amazon Chime Voice Connector settings."]
module GetEventsConfigurationResponse =
  struct
    type nonrec t =
      {
      eventsConfiguration: EventsConfiguration.t option
        [@ocaml.doc "The events configuration details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventsConfiguration = fun () -> { eventsConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("EventsConfiguration",
           (Option.map x.eventsConfiguration ~f:EventsConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventsConfiguration =
        (Option.map ~f:EventsConfiguration.of_xml)
          (Xml.child xml_arg0 "EventsConfiguration") in
      make ?eventsConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventsConfiguration =
        field_map json__ "EventsConfiguration" EventsConfiguration.of_json in
      make ?eventsConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details for an events configuration that allows a bot to receive outgoing events, such as an HTTPS endpoint or Lambda function ARN."]
module GetEventsConfigurationRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      botId: NonEmptyString.t [@ocaml.doc "The bot ID."]}
    let context_ = "GetEventsConfigurationRequest"
    let make ~accountId = fun ~botId -> fun () -> { accountId; botId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("botId", (Some (NonEmptyString.to_value x.botId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let botId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "botId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~botId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let botId = field_map_exn json__ "BotId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~botId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details for an events configuration that allows a bot to receive outgoing events, such as an HTTPS endpoint or Lambda function ARN."]
module GetBotResponse =
  struct
    type nonrec t = {
      bot: Bot.t option [@ocaml.doc "The chat bot details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bot = fun () -> { bot }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Bot", (Option.map x.bot ~f:Bot.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bot = (Option.map ~f:Bot.of_xml) (Xml.child xml_arg0 "Bot") in
      make ?bot ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bot = field_map json__ "Bot" Bot.of_json in make ?bot ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified bot, such as bot email address, bot type, status, and display name."]
module GetBotRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      botId: NonEmptyString.t [@ocaml.doc "The bot ID."]}
    let context_ = "GetBotRequest"
    let make ~accountId = fun ~botId -> fun () -> { accountId; botId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("botId", (Some (NonEmptyString.to_value x.botId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let botId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "botId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~botId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let botId = field_map_exn json__ "BotId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~botId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified bot, such as bot email address, bot type, status, and display name."]
module GetAccountSettingsResponse =
  struct
    type nonrec t =
      {
      accountSettings: AccountSettings.t option
        [@ocaml.doc "The Amazon Chime account settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountSettings = fun () -> { accountSettings }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("AccountSettings",
           (Option.map x.accountSettings ~f:AccountSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountSettings =
        (Option.map ~f:AccountSettings.of_xml)
          (Xml.child xml_arg0 "AccountSettings") in
      make ?accountSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountSettings =
        field_map json__ "AccountSettings" AccountSettings.of_json in
      make ?accountSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves account settings for the specified Amazon Chime account ID, such as remote control and dialout settings. For more information about these settings, see Use the Policies Page in the Amazon Chime Administration Guide."]
module GetAccountSettingsRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."]}
    let context_ = "GetAccountSettingsRequest"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves account settings for the specified Amazon Chime account ID, such as remote control and dialout settings. For more information about these settings, see Use the Policies Page in the Amazon Chime Administration Guide."]
module GetAccountResponse =
  struct
    type nonrec t =
      {
      account: Account.t option
        [@ocaml.doc "The Amazon Chime account details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?account = fun () -> { account }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Account", (Option.map x.account ~f:Account.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Account") in
      make ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map json__ "Account" Account.of_json in
      make ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified Amazon Chime account, such as account type and supported licenses."]
module GetAccountRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."]}
    let context_ = "GetAccountRequest"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified Amazon Chime account, such as account type and supported licenses."]
module DisassociateSigninDelegateGroupsFromAccountResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified sign-in delegate groups from the specified Amazon Chime account."]
module DisassociateSigninDelegateGroupsFromAccountRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      groupNames: NonEmptyStringList.t
        [@ocaml.doc "The sign-in delegate group names."]}
    let context_ = "DisassociateSigninDelegateGroupsFromAccountRequest"
    let make ~accountId =
      fun ~groupNames -> fun () -> { accountId; groupNames }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("GroupNames", (Some (NonEmptyStringList.to_value x.groupNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupNames =
        NonEmptyStringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GroupNames") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~groupNames ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupNames =
        field_map_exn json__ "GroupNames" NonEmptyStringList.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~groupNames ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified sign-in delegate groups from the specified Amazon Chime account."]
module DisassociatePhoneNumberFromUserResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the primary provisioned phone number from the specified Amazon Chime user."]
module DisassociatePhoneNumberFromUserRequest =
  struct
    type nonrec t =
      {
      accountId: String_.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: String_.t [@ocaml.doc "The user ID."]}
    let context_ = "DisassociatePhoneNumberFromUserRequest"
    let make ~accountId = fun ~userId -> fun () -> { accountId; userId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("userId", (Some (String_.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" String_.of_json in
      let accountId = field_map_exn json__ "AccountId" String_.of_json in
      make ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the primary provisioned phone number from the specified Amazon Chime user."]
module DeleteRoomRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The chat room ID."]}
    let context_ = "DeleteRoomRequest"
    let make ~accountId = fun ~roomId -> fun () -> { accountId; roomId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a chat room in an Amazon Chime Enterprise account."]
module DeleteRoomMembershipRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      memberId: NonEmptyString.t
        [@ocaml.doc "The member ID (user ID or bot ID)."]}
    let context_ = "DeleteRoomMembershipRequest"
    let make ~accountId =
      fun ~roomId ->
        fun ~memberId -> fun () -> { accountId; roomId; memberId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("memberId", (Some (NonEmptyString.to_value x.memberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memberId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "memberId") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~memberId ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memberId = field_map_exn json__ "MemberId" NonEmptyString.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~memberId ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a member from a chat room in an Amazon Chime Enterprise account."]
module DeletePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: String_.t [@ocaml.doc "The phone number ID."]}
    let context_ = "DeletePhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId", (Some (String_.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" String_.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves the specified phone number into the Deletion queue. A phone number must be disassociated from any users or Amazon Chime Voice Connectors before it can be deleted. Deleted phone numbers remain in the Deletion queue for 7 days before they are deleted permanently."]
module DeleteEventsConfigurationRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      botId: NonEmptyString.t [@ocaml.doc "The bot ID."]}
    let context_ = "DeleteEventsConfigurationRequest"
    let make ~accountId = fun ~botId -> fun () -> { accountId; botId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("botId", (Some (NonEmptyString.to_value x.botId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let botId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "botId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~botId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let botId = field_map_exn json__ "BotId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~botId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the events configuration that allows a bot to receive outgoing events."]
module DeleteAccountResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Amazon Chime account. You must suspend all users before deleting Team account. You can use the BatchSuspendUser action to dodo. For EnterpriseLWA and EnterpriseAD accounts, you must release the claimed domains for your Amazon Chime account before deletion. As soon as you release the domain, all users under that account are suspended. Deleted accounts appear in your Disabled accounts list for 90 days. To restore deleted account from your Disabled accounts list, you must contact AWS Support. After 90 days, deleted accounts are permanently removed from your Disabled accounts list."]
module DeleteAccountRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."]}
    let context_ = "DeleteAccountRequest"
    let make ~accountId = fun () -> { accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified Amazon Chime account. You must suspend all users before deleting Team account. You can use the BatchSuspendUser action to dodo. For EnterpriseLWA and EnterpriseAD accounts, you must release the claimed domains for your Amazon Chime account before deletion. As soon as you release the domain, all users under that account are suspended. Deleted accounts appear in your Disabled accounts list for 90 days. To restore deleted account from your Disabled accounts list, you must contact AWS Support. After 90 days, deleted accounts are permanently removed from your Disabled accounts list."]
module CreateUserResponse =
  struct
    type nonrec t =
      {
      user: User.t option
        [@ocaml.doc "The user on the Amazon Chime account."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a user under the specified Amazon Chime account."]
module CreateUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      username: String_.t option [@ocaml.doc "The user name."];
      email: EmailAddress.t option [@ocaml.doc "The user's email address."];
      userType: UserType.t option [@ocaml.doc "The user type."]}
    let context_ = "CreateUserRequest"
    let make ?username =
      fun ?email ->
        fun ?userType ->
          fun ~accountId ->
            fun () -> { username; email; userType; accountId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("Username", (Option.map x.username ~f:String_.to_value));
        ("Email", (Option.map x.email ~f:EmailAddress.to_value));
        ("UserType", (Option.map x.userType ~f:UserType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "UserType") in
      let email =
        (Option.map ~f:EmailAddress.of_xml) (Xml.child xml_arg0 "Email") in
      let username =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Username") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?userType ?email ?username ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userType = field_map json__ "UserType" UserType.of_json in
      let email = field_map json__ "Email" EmailAddress.of_json in
      let username = field_map json__ "Username" String_.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?userType ?email ?username ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a user under the specified Amazon Chime account."]
module CreateRoomResponse =
  struct
    type nonrec t = {
      room: Room.t option [@ocaml.doc "The room details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?room = fun () -> { room }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Room", (Option.map x.room ~f:Room.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let room = (Option.map ~f:Room.of_xml) (Xml.child xml_arg0 "Room") in
      make ?room ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let room = field_map json__ "Room" Room.of_json in make ?room ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a chat room for the specified Amazon Chime Enterprise account."]
module CreateRoomRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      name: SensitiveString.t [@ocaml.doc "The room name."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc "The idempotency token for the request."]}
    let context_ = "CreateRoomRequest"
    let make ?clientRequestToken =
      fun ~accountId ->
        fun ~name -> fun () -> { clientRequestToken; accountId; name }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("Name", (Some (SensitiveString.to_value x.name)));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let name =
        SensitiveString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?clientRequestToken ~name ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestToken.of_json in
      let name = field_map_exn json__ "Name" SensitiveString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?clientRequestToken ~name ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a chat room for the specified Amazon Chime Enterprise account."]
module CreateRoomMembershipResponse =
  struct
    type nonrec t =
      {
      roomMembership: RoomMembership.t option
        [@ocaml.doc "The room membership details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?roomMembership = fun () -> { roomMembership }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("RoomMembership",
           (Option.map x.roomMembership ~f:RoomMembership.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roomMembership =
        (Option.map ~f:RoomMembership.of_xml)
          (Xml.child xml_arg0 "RoomMembership") in
      make ?roomMembership ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roomMembership =
        field_map json__ "RoomMembership" RoomMembership.of_json in
      make ?roomMembership ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a member to a chat room in an Amazon Chime Enterprise account. A member can be either a user or a bot. The member role designates whether the member is a chat room administrator or a general chat room member."]
module CreateRoomMembershipRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      memberId: NonEmptyString.t
        [@ocaml.doc "The Amazon Chime member ID (user ID or bot ID)."];
      role: RoomMembershipRole.t option
        [@ocaml.doc "The role of the member."]}
    let context_ = "CreateRoomMembershipRequest"
    let make ?role =
      fun ~accountId ->
        fun ~roomId ->
          fun ~memberId -> fun () -> { role; accountId; roomId; memberId }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("MemberId", (Some (NonEmptyString.to_value x.memberId)));
        ("Role", (Option.map x.role ~f:RoomMembershipRole.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let role =
        (Option.map ~f:RoomMembershipRole.of_xml) (Xml.child xml_arg0 "Role") in
      let memberId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MemberId") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?role ~memberId ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let role = field_map json__ "Role" RoomMembershipRole.of_json in
      let memberId = field_map_exn json__ "MemberId" NonEmptyString.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?role ~memberId ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a member to a chat room in an Amazon Chime Enterprise account. A member can be either a user or a bot. The member role designates whether the member is a chat room administrator or a general chat room member."]
module CreatePhoneNumberOrderResponse =
  struct
    type nonrec t =
      {
      phoneNumberOrder: PhoneNumberOrder.t option
        [@ocaml.doc "The phone number order details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberOrder = fun () -> { phoneNumberOrder }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberOrder",
           (Option.map x.phoneNumberOrder ~f:PhoneNumberOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberOrder =
        (Option.map ~f:PhoneNumberOrder.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrder") in
      make ?phoneNumberOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberOrder =
        field_map json__ "PhoneNumberOrder" PhoneNumberOrder.of_json in
      make ?phoneNumberOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an order for phone numbers to be provisioned. For toll-free numbers, you cannot use the Amazon Chime Business Calling product type. For numbers outside the U.S., you must use the Amazon Chime SIP Media Application Dial-In product type."]
module CreatePhoneNumberOrderRequest =
  struct
    type nonrec t =
      {
      productType: PhoneNumberProductType.t
        [@ocaml.doc "The phone number product type."];
      e164PhoneNumbers: E164PhoneNumberList.t
        [@ocaml.doc "List of phone numbers, in E.164 format."]}
    let context_ = "CreatePhoneNumberOrderRequest"
    let make ~productType =
      fun ~e164PhoneNumbers -> fun () -> { productType; e164PhoneNumbers }
    let to_value x =
      structure_to_value
        [("ProductType",
           (Some (PhoneNumberProductType.to_value x.productType)));
        ("E164PhoneNumbers",
          (Some (E164PhoneNumberList.to_value x.e164PhoneNumbers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let e164PhoneNumbers =
        E164PhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumbers") in
      let productType =
        PhoneNumberProductType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductType") in
      make ~e164PhoneNumbers ~productType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let e164PhoneNumbers =
        field_map_exn json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      let productType =
        field_map_exn json__ "ProductType" PhoneNumberProductType.of_json in
      make ~e164PhoneNumbers ~productType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an order for phone numbers to be provisioned. For toll-free numbers, you cannot use the Amazon Chime Business Calling product type. For numbers outside the U.S., you must use the Amazon Chime SIP Media Application Dial-In product type."]
module CreateMeetingDialOutResponse =
  struct
    type nonrec t =
      {
      transactionId: GuidString.t option
        [@ocaml.doc "Unique ID that tracks API calls."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transactionId = fun () -> { transactionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("TransactionId",
           (Option.map x.transactionId ~f:GuidString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transactionId =
        (Option.map ~f:GuidString.of_xml)
          (Xml.child xml_arg0 "TransactionId") in
      make ?transactionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transactionId = field_map json__ "TransactionId" GuidString.of_json in
      make ?transactionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Uses the join token and call metadata in a meeting request (From number, To number, and so forth) to initiate an outbound call to a public switched telephone network (PSTN) and join them into a Chime meeting. Also ensures that the From number belongs to the customer. To play welcome audio or implement an interactive voice response (IVR), use the CreateSipMediaApplicationCall action with the corresponding SIP media application ID. This API is not available in a dedicated namespace."]
module CreateMeetingDialOutRequest =
  struct
    type nonrec t =
      {
      meetingId: GuidString.t [@ocaml.doc "The Amazon Chime SDK meeting ID."];
      fromPhoneNumber: E164PhoneNumber.t
        [@ocaml.doc
          "Phone number used as the caller ID when the remote party receives a call."];
      toPhoneNumber: E164PhoneNumber.t
        [@ocaml.doc
          "Phone number called when inviting someone to a meeting."];
      joinToken: JoinTokenString.t
        [@ocaml.doc
          "Token used by the Amazon Chime SDK attendee. Call the CreateAttendee action to get a join token."]}
    let context_ = "CreateMeetingDialOutRequest"
    let make ~meetingId =
      fun ~fromPhoneNumber ->
        fun ~toPhoneNumber ->
          fun ~joinToken ->
            fun () ->
              { meetingId; fromPhoneNumber; toPhoneNumber; joinToken }
    let to_value x =
      structure_to_value
        [("meetingId", (Some (GuidString.to_value x.meetingId)));
        ("FromPhoneNumber",
          (Some (E164PhoneNumber.to_value x.fromPhoneNumber)));
        ("ToPhoneNumber", (Some (E164PhoneNumber.to_value x.toPhoneNumber)));
        ("JoinToken", (Some (JoinTokenString.to_value x.joinToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let joinToken =
        JoinTokenString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "JoinToken") in
      let toPhoneNumber =
        E164PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ToPhoneNumber") in
      let fromPhoneNumber =
        E164PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FromPhoneNumber") in
      let meetingId =
        GuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "meetingId") in
      make ~joinToken ~toPhoneNumber ~fromPhoneNumber ~meetingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let joinToken =
        field_map_exn json__ "JoinToken" JoinTokenString.of_json in
      let toPhoneNumber =
        field_map_exn json__ "ToPhoneNumber" E164PhoneNumber.of_json in
      let fromPhoneNumber =
        field_map_exn json__ "FromPhoneNumber" E164PhoneNumber.of_json in
      let meetingId = field_map_exn json__ "MeetingId" GuidString.of_json in
      make ~joinToken ~toPhoneNumber ~fromPhoneNumber ~meetingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Uses the join token and call metadata in a meeting request (From number, To number, and so forth) to initiate an outbound call to a public switched telephone network (PSTN) and join them into a Chime meeting. Also ensures that the From number belongs to the customer. To play welcome audio or implement an interactive voice response (IVR), use the CreateSipMediaApplicationCall action with the corresponding SIP media application ID. This API is not available in a dedicated namespace."]
module CreateBotResponse =
  struct
    type nonrec t = {
      bot: Bot.t option [@ocaml.doc "The bot details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bot = fun () -> { bot }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Bot", (Option.map x.bot ~f:Bot.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bot = (Option.map ~f:Bot.of_xml) (Xml.child xml_arg0 "Bot") in
      make ?bot ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bot = field_map json__ "Bot" Bot.of_json in make ?bot ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a bot for an Amazon Chime Enterprise account."]
module CreateBotRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      displayName: SensitiveString.t [@ocaml.doc "The bot display name."];
      domain: NonEmptyString.t option
        [@ocaml.doc "The domain of the Amazon Chime Enterprise account."]}
    let context_ = "CreateBotRequest"
    let make ?domain =
      fun ~accountId ->
        fun ~displayName -> fun () -> { domain; accountId; displayName }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("DisplayName", (Some (SensitiveString.to_value x.displayName)));
        ("Domain", (Option.map x.domain ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domain =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Domain") in
      let displayName =
        SensitiveString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DisplayName") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?domain ~displayName ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domain = field_map json__ "Domain" NonEmptyString.of_json in
      let displayName =
        field_map_exn json__ "DisplayName" SensitiveString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ?domain ~displayName ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a bot for an Amazon Chime Enterprise account."]
module CreateAccountResponse =
  struct
    type nonrec t =
      {
      account: Account.t option
        [@ocaml.doc "The Amazon Chime account details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?account = fun () -> { account }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Account", (Option.map x.account ~f:Account.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Account") in
      make ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map json__ "Account" Account.of_json in
      make ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime account under the administrator's AWS account. Only Team account types are currently supported for this action. For more information about different account types, see Managing Your Amazon Chime Accounts in the Amazon Chime Administration Guide."]
module CreateAccountRequest =
  struct
    type nonrec t =
      {
      name: AccountName.t
        [@ocaml.doc "The name of the Amazon Chime account."]}
    let context_ = "CreateAccountRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (AccountName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AccountName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AccountName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime account under the administrator's AWS account. Only Team account types are currently supported for this action. For more information about different account types, see Managing Your Amazon Chime Accounts in the Amazon Chime Administration Guide."]
module BatchUpdateUserResponse =
  struct
    type nonrec t =
      {
      userErrors: UserErrorList.t option
        [@ocaml.doc
          "If the BatchUpdateUser action fails for one or more of the user IDs in the request, a list of the user IDs is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userErrors = fun () -> { userErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("UserErrors", (Option.map x.userErrors ~f:UserErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userErrors =
        (Option.map ~f:UserErrorList.of_xml)
          (Xml.child xml_arg0 "UserErrors") in
      make ?userErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userErrors = field_map json__ "UserErrors" UserErrorList.of_json in
      make ?userErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates user details within the UpdateUserRequestItem object for up to 20 users for the specified Amazon Chime account. Currently, only LicenseType updates are supported for this action."]
module BatchUpdateUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      updateUserRequestItems: UpdateUserRequestItemList.t
        [@ocaml.doc
          "The request containing the user IDs and details to update."]}
    let context_ = "BatchUpdateUserRequest"
    let make ~accountId =
      fun ~updateUserRequestItems ->
        fun () -> { accountId; updateUserRequestItems }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("UpdateUserRequestItems",
          (Some (UpdateUserRequestItemList.to_value x.updateUserRequestItems)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateUserRequestItems =
        UpdateUserRequestItemList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateUserRequestItems") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~updateUserRequestItems ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateUserRequestItems =
        field_map_exn json__ "UpdateUserRequestItems"
          UpdateUserRequestItemList.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~updateUserRequestItems ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates user details within the UpdateUserRequestItem object for up to 20 users for the specified Amazon Chime account. Currently, only LicenseType updates are supported for this action."]
module BatchUpdatePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number product types or calling names. You can update one attribute at a time for each UpdatePhoneNumberRequestItem. For example, you can update the product type or the calling name. For toll-free numbers, you cannot use the Amazon Chime Business Calling product type. For numbers outside the U.S., you must use the Amazon Chime SIP Media Application Dial-In product type. Updates to outbound calling names can take up to 72 hours to complete. Pending updates to outbound calling names must be complete before you can request another update."]
module BatchUpdatePhoneNumberRequest =
  struct
    type nonrec t =
      {
      updatePhoneNumberRequestItems: UpdatePhoneNumberRequestItemList.t
        [@ocaml.doc
          "The request containing the phone number IDs and product types or calling names to update."]}
    let context_ = "BatchUpdatePhoneNumberRequest"
    let make ~updatePhoneNumberRequestItems =
      fun () -> { updatePhoneNumberRequestItems }
    let to_value x =
      structure_to_value
        [("UpdatePhoneNumberRequestItems",
           (Some
              (UpdatePhoneNumberRequestItemList.to_value
                 x.updatePhoneNumberRequestItems)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatePhoneNumberRequestItems =
        UpdatePhoneNumberRequestItemList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "UpdatePhoneNumberRequestItems") in
      make ~updatePhoneNumberRequestItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatePhoneNumberRequestItems =
        field_map_exn json__ "UpdatePhoneNumberRequestItems"
          UpdatePhoneNumberRequestItemList.of_json in
      make ~updatePhoneNumberRequestItems ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number product types or calling names. You can update one attribute at a time for each UpdatePhoneNumberRequestItem. For example, you can update the product type or the calling name. For toll-free numbers, you cannot use the Amazon Chime Business Calling product type. For numbers outside the U.S., you must use the Amazon Chime SIP Media Application Dial-In product type. Updates to outbound calling names can take up to 72 hours to complete. Pending updates to outbound calling names must be complete before you can request another update."]
module BatchUnsuspendUserResponse =
  struct
    type nonrec t =
      {
      userErrors: UserErrorList.t option
        [@ocaml.doc
          "If the BatchUnsuspendUser action fails for one or more of the user IDs in the request, a list of the user IDs is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userErrors = fun () -> { userErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("UserErrors", (Option.map x.userErrors ~f:UserErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userErrors =
        (Option.map ~f:UserErrorList.of_xml)
          (Xml.child xml_arg0 "UserErrors") in
      make ?userErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userErrors = field_map json__ "UserErrors" UserErrorList.of_json in
      make ?userErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the suspension from up to 50 previously suspended users for the specified Amazon Chime EnterpriseLWA account. Only users on EnterpriseLWA accounts can be unsuspended using this action. For more information about different account types, see Managing Your Amazon Chime Accounts in the account types, in the Amazon Chime Administration Guide. Previously suspended users who are unsuspended using this action are returned to Registered status. Users who are not previously suspended are ignored."]
module BatchUnsuspendUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userIdList: UserIdList.t
        [@ocaml.doc "The request containing the user IDs to unsuspend."]}
    let context_ = "BatchUnsuspendUserRequest"
    let make ~accountId =
      fun ~userIdList -> fun () -> { accountId; userIdList }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("UserIdList", (Some (UserIdList.to_value x.userIdList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userIdList =
        UserIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserIdList") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userIdList ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userIdList = field_map_exn json__ "UserIdList" UserIdList.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~userIdList ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the suspension from up to 50 previously suspended users for the specified Amazon Chime EnterpriseLWA account. Only users on EnterpriseLWA accounts can be unsuspended using this action. For more information about different account types, see Managing Your Amazon Chime Accounts in the account types, in the Amazon Chime Administration Guide. Previously suspended users who are unsuspended using this action are returned to Registered status. Users who are not previously suspended are ignored."]
module BatchSuspendUserResponse =
  struct
    type nonrec t =
      {
      userErrors: UserErrorList.t option
        [@ocaml.doc
          "If the BatchSuspendUser action fails for one or more of the user IDs in the request, a list of the user IDs is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userErrors = fun () -> { userErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("UserErrors", (Option.map x.userErrors ~f:UserErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userErrors =
        (Option.map ~f:UserErrorList.of_xml)
          (Xml.child xml_arg0 "UserErrors") in
      make ?userErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userErrors = field_map json__ "UserErrors" UserErrorList.of_json in
      make ?userErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Suspends up to 50 users from a Team or EnterpriseLWA Amazon Chime account. For more information about different account types, see Managing Your Amazon Chime Accounts in the Amazon Chime Administration Guide. Users suspended from a Team account are disassociated from the account,but they can continue to use Amazon Chime as free users. To remove the suspension from suspended Team account users, invite them to the Team account again. You can use the InviteUsers action to do so. Users suspended from an EnterpriseLWA account are immediately signed out of Amazon Chime and can no longer sign in. To remove the suspension from suspended EnterpriseLWA account users, use the BatchUnsuspendUser action. To sign out users without suspending them, use the LogoutUser action."]
module BatchSuspendUserRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      userIdList: UserIdList.t
        [@ocaml.doc "The request containing the user IDs to suspend."]}
    let context_ = "BatchSuspendUserRequest"
    let make ~accountId =
      fun ~userIdList -> fun () -> { accountId; userIdList }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("UserIdList", (Some (UserIdList.to_value x.userIdList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userIdList =
        UserIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserIdList") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~userIdList ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userIdList = field_map_exn json__ "UserIdList" UserIdList.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~userIdList ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Suspends up to 50 users from a Team or EnterpriseLWA Amazon Chime account. For more information about different account types, see Managing Your Amazon Chime Accounts in the Amazon Chime Administration Guide. Users suspended from a Team account are disassociated from the account,but they can continue to use Amazon Chime as free users. To remove the suspension from suspended Team account users, invite them to the Team account again. You can use the InviteUsers action to do so. Users suspended from an EnterpriseLWA account are immediately signed out of Amazon Chime and can no longer sign in. To remove the suspension from suspended EnterpriseLWA account users, use the BatchUnsuspendUser action. To sign out users without suspending them, use the LogoutUser action."]
module BatchDeletePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves phone numbers into the Deletion queue. Phone numbers must be disassociated from any users or Amazon Chime Voice Connectors before they can be deleted. Phone numbers remain in the Deletion queue for 7 days before they are deleted permanently."]
module BatchDeletePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberIds: NonEmptyStringList.t
        [@ocaml.doc "List of phone number IDs."]}
    let context_ = "BatchDeletePhoneNumberRequest"
    let make ~phoneNumberIds = fun () -> { phoneNumberIds }
    let to_value x =
      structure_to_value
        [("PhoneNumberIds",
           (Some (NonEmptyStringList.to_value x.phoneNumberIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberIds =
        NonEmptyStringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumberIds") in
      make ~phoneNumberIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberIds =
        field_map_exn json__ "PhoneNumberIds" NonEmptyStringList.of_json in
      make ~phoneNumberIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves phone numbers into the Deletion queue. Phone numbers must be disassociated from any users or Amazon Chime Voice Connectors before they can be deleted. Phone numbers remain in the Deletion queue for 7 days before they are deleted permanently."]
module BatchCreateRoomMembershipResponse =
  struct
    type nonrec t =
      {
      errors: MemberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the member IDs in the request, a list of the member IDs is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?errors = fun () -> { errors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Errors", (Option.map x.errors ~f:MemberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:MemberErrorList.of_xml) (Xml.child xml_arg0 "Errors") in
      make ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "Errors" MemberErrorList.of_json in
      make ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds up to 50 members to a chat room in an Amazon Chime Enterprise account. Members can be users or bots. The member role designates whether the member is a chat room administrator or a general chat room member."]
module BatchCreateRoomMembershipRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      roomId: NonEmptyString.t [@ocaml.doc "The room ID."];
      membershipItemList: MembershipItemList.t
        [@ocaml.doc "The list of membership items."]}
    let context_ = "BatchCreateRoomMembershipRequest"
    let make ~accountId =
      fun ~roomId ->
        fun ~membershipItemList ->
          fun () -> { accountId; roomId; membershipItemList }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("roomId", (Some (NonEmptyString.to_value x.roomId)));
        ("MembershipItemList",
          (Some (MembershipItemList.to_value x.membershipItemList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipItemList =
        MembershipItemList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MembershipItemList") in
      let roomId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomId") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~membershipItemList ~roomId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipItemList =
        field_map_exn json__ "MembershipItemList" MembershipItemList.of_json in
      let roomId = field_map_exn json__ "RoomId" NonEmptyString.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~membershipItemList ~roomId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds up to 50 members to a chat room in an Amazon Chime Enterprise account. Members can be users or bots. The member role designates whether the member is a chat room administrator or a general chat room member."]
module AssociateSigninDelegateGroupsWithAccountResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified sign-in delegate groups with the specified Amazon Chime account."]
module AssociateSigninDelegateGroupsWithAccountRequest =
  struct
    type nonrec t =
      {
      accountId: NonEmptyString.t [@ocaml.doc "The Amazon Chime account ID."];
      signinDelegateGroups: SigninDelegateGroupList.t
        [@ocaml.doc "The sign-in delegate groups."]}
    let context_ = "AssociateSigninDelegateGroupsWithAccountRequest"
    let make ~accountId =
      fun ~signinDelegateGroups ->
        fun () -> { accountId; signinDelegateGroups }
    let to_value x =
      structure_to_value
        [("accountId", (Some (NonEmptyString.to_value x.accountId)));
        ("SigninDelegateGroups",
          (Some (SigninDelegateGroupList.to_value x.signinDelegateGroups)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signinDelegateGroups =
        SigninDelegateGroupList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SigninDelegateGroups") in
      let accountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~signinDelegateGroups ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signinDelegateGroups =
        field_map_exn json__ "SigninDelegateGroups"
          SigninDelegateGroupList.of_json in
      let accountId = field_map_exn json__ "AccountId" NonEmptyString.of_json in
      make ~signinDelegateGroups ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified sign-in delegate groups with the specified Amazon Chime account."]
module AssociatePhoneNumberWithUserResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a phone number with the specified Amazon Chime user."]
module AssociatePhoneNumberWithUserRequest =
  struct
    type nonrec t =
      {
      accountId: String_.t [@ocaml.doc "The Amazon Chime account ID."];
      userId: String_.t [@ocaml.doc "The user ID."];
      e164PhoneNumber: E164PhoneNumber.t
        [@ocaml.doc "The phone number, in E.164 format."]}
    let context_ = "AssociatePhoneNumberWithUserRequest"
    let make ~accountId =
      fun ~userId ->
        fun ~e164PhoneNumber ->
          fun () -> { accountId; userId; e164PhoneNumber }
    let to_value x =
      structure_to_value
        [("accountId", (Some (String_.to_value x.accountId)));
        ("userId", (Some (String_.to_value x.userId)));
        ("E164PhoneNumber",
          (Some (E164PhoneNumber.to_value x.e164PhoneNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let e164PhoneNumber =
        E164PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumber") in
      let userId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let accountId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~e164PhoneNumber ~userId ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let e164PhoneNumber =
        field_map_exn json__ "E164PhoneNumber" E164PhoneNumber.of_json in
      let userId = field_map_exn json__ "UserId" String_.of_json in
      let accountId = field_map_exn json__ "AccountId" String_.of_json in
      make ~e164PhoneNumber ~userId ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a phone number with the specified Amazon Chime user."]