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_sdk_identity
let apiVersion = "2021-04-20"
let endpointPrefix = "identity-chime"
let serviceFullName = "Amazon Chime SDK Identity"
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 StandardMessages =
  struct
    type nonrec t =
      | AUTO 
      | ALL 
      | MENTIONS 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUTO -> "AUTO"
      | ALL -> "ALL"
      | MENTIONS -> "MENTIONS"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUTO" -> AUTO
      | "ALL" -> ALL
      | "MENTIONS" -> MENTIONS
      | "NONE" -> NONE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StandardMessages" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StandardMessages" j)
    let to_json = simple_to_json to_value
  end
module TargetedMessages =
  struct
    type nonrec t =
      | ALL 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALL -> "ALL" | NONE -> "NONE" | Non_static_id s -> s
    let of_string =
      function | "ALL" -> ALL | "NONE" -> NONE | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration TargetedMessages" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetedMessages" j)
    let to_json = simple_to_json to_value
  end
module EndpointStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | 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 EndpointStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EndpointStatus" j)
    let to_json = simple_to_json to_value
  end
module EndpointStatusReason =
  struct
    type nonrec t =
      | INVALID_DEVICE_TOKEN 
      | INVALID_PINPOINT_ARN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVALID_DEVICE_TOKEN -> "INVALID_DEVICE_TOKEN"
      | INVALID_PINPOINT_ARN -> "INVALID_PINPOINT_ARN"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVALID_DEVICE_TOKEN" -> INVALID_DEVICE_TOKEN
      | "INVALID_PINPOINT_ARN" -> INVALID_PINPOINT_ARN
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration EndpointStatusReason" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EndpointStatusReason" j)
    let to_json = simple_to_json to_value
  end
module ChimeArn =
  struct
    type nonrec t = string
    let context_ = "ChimeArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9-\\.]{1,63}:[a-z0-9-\\.]{0,63}:[a-z0-9-\\.]{0,63}:[a-z0-9-\\.]{0,63}:[^/].{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChimeArn" j
    let to_json = simple_to_json to_value
  end
module ResourceName =
  struct
    type nonrec t = string
    let context_ = "ResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0009\\u000A\\u000D\\u0020-\\u007E\\u0085\\u00A0-\\uD7FF\\uE000-\\uFFFD\\u10000-\\u10FFFF]*")));
        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:"ResourceName" j
    let to_json = simple_to_json to_value
  end
module InvokedBy =
  struct
    type nonrec t =
      {
      standardMessages: StandardMessages.t
        [@ocaml.doc
          "Sets standard messages as the bot trigger. For standard messages: ALL: The bot processes all standard messages. AUTO: The bot responds to ALL messages when the channel has one other non-hidden member, and responds to MENTIONS when the channel has more than one other non-hidden member. MENTIONS: The bot processes all standard messages that have a message attribute with CHIME.mentions and a value of the bot ARN. NONE: The bot processes no standard messages."];
      targetedMessages: TargetedMessages.t
        [@ocaml.doc
          "Sets targeted messages as the bot trigger. For targeted messages: ALL: The bot processes all TargetedMessages sent to it. The bot then responds with a targeted message back to the sender. NONE: The bot processes no targeted messages."]}
    let context_ = "InvokedBy"
    let make ~standardMessages =
      fun ~targetedMessages ->
        fun () -> { standardMessages; targetedMessages }
    let to_value x =
      structure_to_value
        [("StandardMessages",
           (Some (StandardMessages.to_value x.standardMessages)));
        ("TargetedMessages",
          (Some (TargetedMessages.to_value x.targetedMessages)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetedMessages =
        TargetedMessages.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetedMessages") in
      let standardMessages =
        StandardMessages.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StandardMessages") in
      make ~targetedMessages ~standardMessages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetedMessages =
        field_map_exn json__ "TargetedMessages" TargetedMessages.of_json in
      let standardMessages =
        field_map_exn json__ "StandardMessages" StandardMessages.of_json in
      make ~targetedMessages ~standardMessages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies the type of message that triggers a bot."]
module LexBotAliasArn =
  struct
    type nonrec t = string
    let context_ = "LexBotAliasArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:lex:[a-z]{2}-[a-z]+-\\d{1}:\\d{12}:bot-alias/[A-Z0-9]{10}/[A-Z0-9]{10}")));
        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:"LexBotAliasArn" j
    let to_json = simple_to_json to_value
  end
module LexIntentName =
  struct
    type nonrec t = string
    let context_ = "LexIntentName"
    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:"^([A-Za-z]_?)+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LexIntentName" j
    let to_json = simple_to_json to_value
  end
module RespondsTo =
  struct
    type nonrec t =
      | STANDARD_MESSAGES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD_MESSAGES -> "STANDARD_MESSAGES"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD_MESSAGES" -> STANDARD_MESSAGES
      | 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 RespondsTo" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RespondsTo" 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 TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
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 Metadata =
  struct
    type nonrec t = string
    let context_ = "Metadata"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Metadata" j
    let to_json = simple_to_json to_value
  end
module NonEmptyResourceName =
  struct
    type nonrec t = string
    let context_ = "NonEmptyResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0009\\u000A\\u000D\\u0020-\\u007E\\u0085\\u00A0-\\uD7FF\\uE000-\\uFFFD\\u10000-\\u10FFFF]*")));
        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:"NonEmptyResourceName" j
    let to_json = simple_to_json to_value
  end
module UserName =
  struct
    type nonrec t = string
    let context_ = "UserName"
    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:"UserName" j
    let to_json = simple_to_json to_value
  end
module AllowMessages =
  struct
    type nonrec t =
      | ALL 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALL -> "ALL" | NONE -> "NONE" | Non_static_id s -> s
    let of_string =
      function | "ALL" -> ALL | "NONE" -> NONE | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AllowMessages" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AllowMessages" j)
    let to_json = simple_to_json to_value
  end
module AppInstanceUserEndpointType =
  struct
    type nonrec t =
      | APNS 
      | APNS_SANDBOX 
      | GCM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APNS -> "APNS"
      | APNS_SANDBOX -> "APNS_SANDBOX"
      | GCM -> "GCM"
      | Non_static_id s -> s
    let of_string =
      function
      | "APNS" -> APNS
      | "APNS_SANDBOX" -> APNS_SANDBOX
      | "GCM" -> GCM
      | 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 AppInstanceUserEndpointType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AppInstanceUserEndpointType" j)
    let to_json = simple_to_json to_value
  end
module EndpointState =
  struct
    type nonrec t =
      {
      status: EndpointStatus.t option
        [@ocaml.doc
          "Enum that indicates the Status of an AppInstanceUserEndpoint."];
      statusReason: EndpointStatusReason.t option
        [@ocaml.doc "The reason for the EndpointStatus."]}
    let make ?status =
      fun ?statusReason -> fun () -> { status; statusReason }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:EndpointStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:EndpointStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:EndpointStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:EndpointStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?statusReason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason =
        field_map json__ "StatusReason" EndpointStatusReason.of_json in
      let status = field_map json__ "Status" EndpointStatus.of_json in
      make ?statusReason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A read-only field that represents the state of an AppInstanceUserEndpoint. Supported values: ACTIVE: The AppInstanceUserEndpoint is active and able to receive messages. When ACTIVE, the EndpointStatusReason remains empty. INACTIVE: The AppInstanceUserEndpoint is inactive and can't receive message. When INACTIVE, the corresponding reason will be conveyed through EndpointStatusReason. INVALID_DEVICE_TOKEN indicates that an AppInstanceUserEndpoint is INACTIVE due to invalid device token INVALID_PINPOINT_ARN indicates that an AppInstanceUserEndpoint is INACTIVE due to an invalid pinpoint ARN that was input through the ResourceArn field."]
module SensitiveString1600 =
  struct
    type nonrec t = string
    let context_ = "SensitiveString1600"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveString1600" j
    let to_json = simple_to_json to_value
  end
module String64 =
  struct
    type nonrec t = string
    let context_ = "String64"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String64" j
    let to_json = simple_to_json to_value
  end
module Identity =
  struct
    type nonrec t =
      {
      arn: ChimeArn.t option [@ocaml.doc "The ARN in an Identity."];
      name: ResourceName.t option [@ocaml.doc "The name in an Identity."]}
    let make ?arn = fun ?name -> fun () -> { arn; name }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:ResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn = (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" ResourceName.of_json in
      let arn = field_map json__ "Arn" ChimeArn.of_json in make ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a user or bot."]
module ExpirationCriterion =
  struct
    type nonrec t =
      | CREATED_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED_TIMESTAMP -> "CREATED_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED_TIMESTAMP" -> CREATED_TIMESTAMP
      | 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 ExpirationCriterion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExpirationCriterion" j)
    let to_json = simple_to_json to_value
  end
module ExpirationDays =
  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 ExpirationDays" 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 NonEmptySensitiveString1600 =
  struct
    type nonrec t = string
    let context_ = "NonEmptySensitiveString1600"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptySensitiveString1600" j
    let to_json = simple_to_json to_value
  end
module LexConfiguration =
  struct
    type nonrec t =
      {
      respondsTo: RespondsTo.t option
        [@ocaml.doc
          "Deprecated. Use InvokedBy instead. Determines whether the Amazon Lex V2 bot responds to all standard messages. Control messages are not supported."];
      invokedBy: InvokedBy.t option
        [@ocaml.doc "Specifies the type of message that triggers a bot."];
      lexBotAliasArn: LexBotAliasArn.t
        [@ocaml.doc
          "The ARN of the Amazon Lex V2 bot's alias. The ARN uses this format: arn:aws:lex:REGION:ACCOUNT:bot-alias/MYBOTID/MYBOTALIAS"];
      localeId: String_.t
        [@ocaml.doc
          "Identifies the Amazon Lex V2 bot's language and locale. The string must match one of the supported locales in Amazon Lex V2. All of the intents, slot types, and slots used in the bot must have the same locale. For more information, see Supported languages in the Amazon Lex V2 Developer Guide."];
      welcomeIntent: LexIntentName.t option
        [@ocaml.doc
          "The name of the welcome intent configured in the Amazon Lex V2 bot."]}
    let context_ = "LexConfiguration"
    let make ?respondsTo =
      fun ?invokedBy ->
        fun ?welcomeIntent ->
          fun ~lexBotAliasArn ->
            fun ~localeId ->
              fun () ->
                {
                  respondsTo;
                  invokedBy;
                  welcomeIntent;
                  lexBotAliasArn;
                  localeId
                }
    let to_value x =
      structure_to_value
        [("RespondsTo", (Option.map x.respondsTo ~f:RespondsTo.to_value));
        ("InvokedBy", (Option.map x.invokedBy ~f:InvokedBy.to_value));
        ("LexBotAliasArn", (Some (LexBotAliasArn.to_value x.lexBotAliasArn)));
        ("LocaleId", (Some (String_.to_value x.localeId)));
        ("WelcomeIntent",
          (Option.map x.welcomeIntent ~f:LexIntentName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let welcomeIntent =
        (Option.map ~f:LexIntentName.of_xml)
          (Xml.child xml_arg0 "WelcomeIntent") in
      let localeId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LocaleId") in
      let lexBotAliasArn =
        LexBotAliasArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LexBotAliasArn") in
      let invokedBy =
        (Option.map ~f:InvokedBy.of_xml) (Xml.child xml_arg0 "InvokedBy") in
      let respondsTo =
        (Option.map ~f:RespondsTo.of_xml) (Xml.child xml_arg0 "RespondsTo") in
      make ?welcomeIntent ~localeId ~lexBotAliasArn ?invokedBy ?respondsTo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let welcomeIntent =
        field_map json__ "WelcomeIntent" LexIntentName.of_json in
      let localeId = field_map_exn json__ "LocaleId" String_.of_json in
      let lexBotAliasArn =
        field_map_exn json__ "LexBotAliasArn" LexBotAliasArn.of_json in
      let invokedBy = field_map json__ "InvokedBy" InvokedBy.of_json in
      let respondsTo = field_map json__ "RespondsTo" RespondsTo.of_json in
      make ?welcomeIntent ~localeId ~lexBotAliasArn ?invokedBy ?respondsTo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration for an Amazon Lex V2 bot."]
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 Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key in a tag."];
      value: TagValue.t [@ocaml.doc "The value in a tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A tag object containing a key-value pair."]
module ChannelRetentionSettings =
  struct
    type nonrec t =
      {
      retentionDays: RetentionDays.t option
        [@ocaml.doc "The time in days to retain the messages in a channel."]}
    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 details of the retention settings for a channel."]
module AppInstanceSummary =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option [@ocaml.doc "The AppInstance ARN."];
      name: NonEmptyResourceName.t option
        [@ocaml.doc "The name of the AppInstance."];
      metadata: Metadata.t option
        [@ocaml.doc "The metadata of the AppInstance."]}
    let make ?appInstanceArn =
      fun ?name ->
        fun ?metadata -> fun () -> { appInstanceArn; name; metadata }
    let to_value x =
      structure_to_value
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:NonEmptyResourceName.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name =
        (Option.map ~f:NonEmptyResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?metadata ?name ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map json__ "Name" NonEmptyResourceName.of_json in
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?metadata ?name ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of the data for an AppInstance."]
module AppInstanceUserSummary =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      name: UserName.t option [@ocaml.doc "The name of an AppInstanceUser."];
      metadata: Metadata.t option
        [@ocaml.doc "The metadata of the AppInstanceUser."]}
    let make ?appInstanceUserArn =
      fun ?name ->
        fun ?metadata -> fun () -> { appInstanceUserArn; name; metadata }
    let to_value x =
      structure_to_value
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:UserName.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name = (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "Name") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?metadata ?name ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map json__ "Name" UserName.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?metadata ?name ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of the details of an AppInstanceUser."]
module AppInstanceUserEndpointSummary =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t option
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."];
      name: SensitiveString1600.t option
        [@ocaml.doc "The name of the AppInstanceUserEndpoint."];
      type_: AppInstanceUserEndpointType.t option
        [@ocaml.doc "The type of the AppInstanceUserEndpoint."];
      allowMessages: AllowMessages.t option
        [@ocaml.doc
          "BBoolean that controls whether the AppInstanceUserEndpoint is opted in to receive messages. ALL indicates the endpoint will receive all messages. NONE indicates the endpoint will receive no messages."];
      endpointState: EndpointState.t option
        [@ocaml.doc
          "A read-only field that represent the state of an AppInstanceUserEndpoint."]}
    let make ?appInstanceUserArn =
      fun ?endpointId ->
        fun ?name ->
          fun ?type_ ->
            fun ?allowMessages ->
              fun ?endpointState ->
                fun () ->
                  {
                    appInstanceUserArn;
                    endpointId;
                    name;
                    type_;
                    allowMessages;
                    endpointState
                  }
    let to_value x =
      structure_to_value
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:String64.to_value));
        ("Name", (Option.map x.name ~f:SensitiveString1600.to_value));
        ("Type",
          (Option.map x.type_ ~f:AppInstanceUserEndpointType.to_value));
        ("AllowMessages",
          (Option.map x.allowMessages ~f:AllowMessages.to_value));
        ("EndpointState",
          (Option.map x.endpointState ~f:EndpointState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointState =
        (Option.map ~f:EndpointState.of_xml)
          (Xml.child xml_arg0 "EndpointState") in
      let allowMessages =
        (Option.map ~f:AllowMessages.of_xml)
          (Xml.child xml_arg0 "AllowMessages") in
      let type_ =
        (Option.map ~f:AppInstanceUserEndpointType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let name =
        (Option.map ~f:SensitiveString1600.of_xml)
          (Xml.child xml_arg0 "Name") in
      let endpointId =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?endpointState ?allowMessages ?type_ ?name ?endpointId
        ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointState =
        field_map json__ "EndpointState" EndpointState.of_json in
      let allowMessages =
        field_map json__ "AllowMessages" AllowMessages.of_json in
      let type_ = field_map json__ "Type" AppInstanceUserEndpointType.of_json in
      let name = field_map json__ "Name" SensitiveString1600.of_json in
      let endpointId = field_map json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?endpointState ?allowMessages ?type_ ?name ?endpointId
        ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of the details of an AppInstanceUserEndpoint."]
module AppInstanceBotSummary =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceBot."];
      name: ResourceName.t option
        [@ocaml.doc "The name of the AppInstanceBox."];
      metadata: Metadata.t option
        [@ocaml.doc "The metadata of the AppInstanceBot."]}
    let make ?appInstanceBotArn =
      fun ?name ->
        fun ?metadata -> fun () -> { appInstanceBotArn; name; metadata }
    let to_value x =
      structure_to_value
        [("AppInstanceBotArn",
           (Option.map x.appInstanceBotArn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      let appInstanceBotArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceBotArn") in
      make ?metadata ?name ?appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      let appInstanceBotArn =
        field_map json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ?metadata ?name ?appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "High-level information about an AppInstanceBot."]
module AppInstanceAdminSummary =
  struct
    type nonrec t =
      {
      admin: Identity.t option
        [@ocaml.doc "The details of the AppInstanceAdmin."]}
    let make ?admin = fun () -> { admin }
    let to_value x =
      structure_to_value
        [("Admin", (Option.map x.admin ~f:Identity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let admin =
        (Option.map ~f:Identity.of_xml) (Xml.child xml_arg0 "Admin") in
      make ?admin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let admin = field_map json__ "Admin" Identity.of_json in make ?admin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of the details of an AppInstanceAdmin."]
module ExpirationSettings =
  struct
    type nonrec t =
      {
      expirationDays: ExpirationDays.t
        [@ocaml.doc
          "The period in days after which an AppInstanceUser will be automatically deleted."];
      expirationCriterion: ExpirationCriterion.t
        [@ocaml.doc
          "Specifies the conditions under which an AppInstanceUser will expire."]}
    let context_ = "ExpirationSettings"
    let make ~expirationDays =
      fun ~expirationCriterion ->
        fun () -> { expirationDays; expirationCriterion }
    let to_value x =
      structure_to_value
        [("ExpirationDays",
           (Some (ExpirationDays.to_value x.expirationDays)));
        ("ExpirationCriterion",
          (Some (ExpirationCriterion.to_value x.expirationCriterion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationCriterion =
        ExpirationCriterion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExpirationCriterion") in
      let expirationDays =
        ExpirationDays.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExpirationDays") in
      make ~expirationCriterion ~expirationDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationCriterion =
        field_map_exn json__ "ExpirationCriterion"
          ExpirationCriterion.of_json in
      let expirationDays =
        field_map_exn json__ "ExpirationDays" ExpirationDays.of_json in
      make ~expirationCriterion ~expirationDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Determines the interval after which an AppInstanceUser is automatically deleted."]
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module EndpointAttributes =
  struct
    type nonrec t =
      {
      deviceToken: NonEmptySensitiveString1600.t
        [@ocaml.doc
          "The device token for the GCM, APNS, and APNS_SANDBOX endpoint types."];
      voipDeviceToken: NonEmptySensitiveString1600.t option
        [@ocaml.doc
          "The VOIP device token for the APNS and APNS_SANDBOX endpoint types."]}
    let context_ = "EndpointAttributes"
    let make ?voipDeviceToken =
      fun ~deviceToken -> fun () -> { voipDeviceToken; deviceToken }
    let to_value x =
      structure_to_value
        [("DeviceToken",
           (Some (NonEmptySensitiveString1600.to_value x.deviceToken)));
        ("VoipDeviceToken",
          (Option.map x.voipDeviceToken
             ~f:NonEmptySensitiveString1600.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voipDeviceToken =
        (Option.map ~f:NonEmptySensitiveString1600.of_xml)
          (Xml.child xml_arg0 "VoipDeviceToken") in
      let deviceToken =
        NonEmptySensitiveString1600.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeviceToken") in
      make ?voipDeviceToken ~deviceToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voipDeviceToken =
        field_map json__ "VoipDeviceToken"
          NonEmptySensitiveString1600.of_json in
      let deviceToken =
        field_map_exn json__ "DeviceToken"
          NonEmptySensitiveString1600.of_json in
      make ?voipDeviceToken ~deviceToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The attributes of an Endpoint."]
module Configuration =
  struct
    type nonrec t =
      {
      lex: LexConfiguration.t
        [@ocaml.doc "The configuration for an Amazon Lex V2 bot."]}
    let context_ = "Configuration"
    let make ~lex = fun () -> { lex }
    let to_value x =
      structure_to_value [("Lex", (Some (LexConfiguration.to_value x.lex)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lex =
        LexConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Lex") in
      make ~lex ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lex = field_map_exn json__ "Lex" LexConfiguration.of_json in
      make ~lex ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structure that contains configuration data."]
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 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 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 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 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 TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min: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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module 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 SensitiveChimeArn =
  struct
    type nonrec t = string
    let context_ = "SensitiveChimeArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9-\\.]{1,63}:[a-z0-9-\\.]{0,63}:[a-z0-9-\\.]{0,63}:[a-z0-9-\\.]{0,63}:[^/].{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveChimeArn" j
    let to_json = simple_to_json to_value
  end
module AppInstanceRetentionSettings =
  struct
    type nonrec t =
      {
      channelRetentionSettings: ChannelRetentionSettings.t option
        [@ocaml.doc
          "The length of time in days to retain the messages in a channel."]}
    let make ?channelRetentionSettings =
      fun () -> { channelRetentionSettings }
    let to_value x =
      structure_to_value
        [("ChannelRetentionSettings",
           (Option.map x.channelRetentionSettings
              ~f:ChannelRetentionSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelRetentionSettings =
        (Option.map ~f:ChannelRetentionSettings.of_xml)
          (Xml.child xml_arg0 "ChannelRetentionSettings") in
      make ?channelRetentionSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelRetentionSettings =
        field_map json__ "ChannelRetentionSettings"
          ChannelRetentionSettings.of_json in
      make ?channelRetentionSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the data-retention settings for an AppInstance."]
module AppInstanceList =
  struct
    type nonrec t = AppInstanceSummary.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:AppInstanceSummary.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:AppInstanceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppInstanceList"
        ~of_json:AppInstanceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AppInstanceUserList =
  struct
    type nonrec t = AppInstanceUserSummary.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:AppInstanceUserSummary.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:AppInstanceUserSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppInstanceUserList"
        ~of_json:AppInstanceUserSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppInstanceUserEndpointSummaryList =
  struct
    type nonrec t = AppInstanceUserEndpointSummary.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:AppInstanceUserEndpointSummary.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:AppInstanceUserEndpointSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppInstanceUserEndpointSummaryList"
        ~of_json:AppInstanceUserEndpointSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppInstanceBotList =
  struct
    type nonrec t = AppInstanceBotSummary.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:AppInstanceBotSummary.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:AppInstanceBotSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppInstanceBotList"
        ~of_json:AppInstanceBotSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppInstanceAdminList =
  struct
    type nonrec t = AppInstanceAdminSummary.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:AppInstanceAdminSummary.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:AppInstanceAdminSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppInstanceAdminList"
        ~of_json:AppInstanceAdminSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppInstanceUser =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      name: UserName.t option [@ocaml.doc "The name of the AppInstanceUser."];
      metadata: Metadata.t option
        [@ocaml.doc "The metadata of the AppInstanceUser."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The time at which the AppInstanceUser was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which the AppInstanceUser was last updated."];
      expirationSettings: ExpirationSettings.t option
        [@ocaml.doc
          "The interval after which an AppInstanceUser is automatically deleted."]}
    let make ?appInstanceUserArn =
      fun ?name ->
        fun ?metadata ->
          fun ?createdTimestamp ->
            fun ?lastUpdatedTimestamp ->
              fun ?expirationSettings ->
                fun () ->
                  {
                    appInstanceUserArn;
                    name;
                    metadata;
                    createdTimestamp;
                    lastUpdatedTimestamp;
                    expirationSettings
                  }
    let to_value x =
      structure_to_value
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:UserName.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("ExpirationSettings",
          (Option.map x.expirationSettings ~f:ExpirationSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationSettings =
        (Option.map ~f:ExpirationSettings.of_xml)
          (Xml.child xml_arg0 "ExpirationSettings") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name = (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "Name") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?expirationSettings ?lastUpdatedTimestamp ?createdTimestamp
        ?metadata ?name ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationSettings =
        field_map json__ "ExpirationSettings" ExpirationSettings.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map json__ "Name" UserName.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?expirationSettings ?lastUpdatedTimestamp ?createdTimestamp
        ?metadata ?name ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of an AppInstanceUser."]
module AppInstanceUserEndpoint =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t option
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."];
      name: SensitiveString1600.t option
        [@ocaml.doc "The name of the AppInstanceUserEndpoint."];
      type_: AppInstanceUserEndpointType.t option
        [@ocaml.doc "The type of the AppInstanceUserEndpoint."];
      resourceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the resource to which the endpoint belongs."];
      endpointAttributes: EndpointAttributes.t option
        [@ocaml.doc "The attributes of an Endpoint."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which an AppInstanceUserEndpoint was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which an AppInstanceUserEndpoint was last updated."];
      allowMessages: AllowMessages.t option
        [@ocaml.doc
          "Boolean that controls whether the AppInstanceUserEndpoint is opted in to receive messages. ALL indicates the endpoint will receive all messages. NONE indicates the endpoint will receive no messages."];
      endpointState: EndpointState.t option
        [@ocaml.doc
          "A read-only field that represents the state of an AppInstanceUserEndpoint. Supported values: ACTIVE: The AppInstanceUserEndpoint is active and able to receive messages. When ACTIVE, the EndpointStatusReason remains empty. INACTIVE: The AppInstanceUserEndpoint is inactive and can't receive message. When INACTIVE, the corresponding reason will be conveyed through EndpointStatusReason. INVALID_DEVICE_TOKEN indicates that an AppInstanceUserEndpoint is INACTIVE due to invalid device token INVALID_PINPOINT_ARN indicates that an AppInstanceUserEndpoint is INACTIVE due to an invalid pinpoint ARN that was input through the ResourceArn field."]}
    let make ?appInstanceUserArn =
      fun ?endpointId ->
        fun ?name ->
          fun ?type_ ->
            fun ?resourceArn ->
              fun ?endpointAttributes ->
                fun ?createdTimestamp ->
                  fun ?lastUpdatedTimestamp ->
                    fun ?allowMessages ->
                      fun ?endpointState ->
                        fun () ->
                          {
                            appInstanceUserArn;
                            endpointId;
                            name;
                            type_;
                            resourceArn;
                            endpointAttributes;
                            createdTimestamp;
                            lastUpdatedTimestamp;
                            allowMessages;
                            endpointState
                          }
    let to_value x =
      structure_to_value
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:String64.to_value));
        ("Name", (Option.map x.name ~f:SensitiveString1600.to_value));
        ("Type",
          (Option.map x.type_ ~f:AppInstanceUserEndpointType.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:ChimeArn.to_value));
        ("EndpointAttributes",
          (Option.map x.endpointAttributes ~f:EndpointAttributes.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("AllowMessages",
          (Option.map x.allowMessages ~f:AllowMessages.to_value));
        ("EndpointState",
          (Option.map x.endpointState ~f:EndpointState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointState =
        (Option.map ~f:EndpointState.of_xml)
          (Xml.child xml_arg0 "EndpointState") in
      let allowMessages =
        (Option.map ~f:AllowMessages.of_xml)
          (Xml.child xml_arg0 "AllowMessages") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let endpointAttributes =
        (Option.map ~f:EndpointAttributes.of_xml)
          (Xml.child xml_arg0 "EndpointAttributes") in
      let resourceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let type_ =
        (Option.map ~f:AppInstanceUserEndpointType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let name =
        (Option.map ~f:SensitiveString1600.of_xml)
          (Xml.child xml_arg0 "Name") in
      let endpointId =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?endpointState ?allowMessages ?lastUpdatedTimestamp
        ?createdTimestamp ?endpointAttributes ?resourceArn ?type_ ?name
        ?endpointId ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointState =
        field_map json__ "EndpointState" EndpointState.of_json in
      let allowMessages =
        field_map json__ "AllowMessages" AllowMessages.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let endpointAttributes =
        field_map json__ "EndpointAttributes" EndpointAttributes.of_json in
      let resourceArn = field_map json__ "ResourceArn" ChimeArn.of_json in
      let type_ = field_map json__ "Type" AppInstanceUserEndpointType.of_json in
      let name = field_map json__ "Name" SensitiveString1600.of_json in
      let endpointId = field_map json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?endpointState ?allowMessages ?lastUpdatedTimestamp
        ?createdTimestamp ?endpointAttributes ?resourceArn ?type_ ?name
        ?endpointId ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An endpoint under an Amazon Chime AppInstanceUser that receives messages for a user. For push notifications, the endpoint is a mobile device used to receive mobile push notifications for a user."]
module String1600 =
  struct
    type nonrec t = string
    let context_ = "String1600"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String1600" j
    let to_json = simple_to_json to_value
  end
module AppInstance =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the messaging instance."];
      name: NonEmptyResourceName.t option
        [@ocaml.doc "The name of an AppInstance."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which an AppInstance was created. In epoch milliseconds."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time an AppInstance was last updated. In epoch milliseconds."];
      metadata: Metadata.t option
        [@ocaml.doc "The metadata of an AppInstance."]}
    let make ?appInstanceArn =
      fun ?name ->
        fun ?createdTimestamp ->
          fun ?lastUpdatedTimestamp ->
            fun ?metadata ->
              fun () ->
                {
                  appInstanceArn;
                  name;
                  createdTimestamp;
                  lastUpdatedTimestamp;
                  metadata
                }
    let to_value x =
      structure_to_value
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:NonEmptyResourceName.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let name =
        (Option.map ~f:NonEmptyResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?metadata ?lastUpdatedTimestamp ?createdTimestamp ?name
        ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let name = field_map json__ "Name" NonEmptyResourceName.of_json in
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?metadata ?lastUpdatedTimestamp ?createdTimestamp ?name
        ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of an AppInstance, an instance of an Amazon Chime SDK messaging application."]
module AppInstanceBot =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceBot."];
      name: ResourceName.t option
        [@ocaml.doc "The name of the AppInstanceBot."];
      configuration: Configuration.t option
        [@ocaml.doc
          "The data processing instructions for an AppInstanceBot."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The time at which the AppInstanceBot was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc "The time at which the AppInstanceBot was last updated."];
      metadata: Metadata.t option
        [@ocaml.doc "The metadata for an AppInstanceBot."]}
    let make ?appInstanceBotArn =
      fun ?name ->
        fun ?configuration ->
          fun ?createdTimestamp ->
            fun ?lastUpdatedTimestamp ->
              fun ?metadata ->
                fun () ->
                  {
                    appInstanceBotArn;
                    name;
                    configuration;
                    createdTimestamp;
                    lastUpdatedTimestamp;
                    metadata
                  }
    let to_value x =
      structure_to_value
        [("AppInstanceBotArn",
           (Option.map x.appInstanceBotArn ~f:ChimeArn.to_value));
        ("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Configuration",
          (Option.map x.configuration ~f:Configuration.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let configuration =
        (Option.map ~f:Configuration.of_xml)
          (Xml.child xml_arg0 "Configuration") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      let appInstanceBotArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceBotArn") in
      make ?metadata ?lastUpdatedTimestamp ?createdTimestamp ?configuration
        ?name ?appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let configuration =
        field_map json__ "Configuration" Configuration.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      let appInstanceBotArn =
        field_map json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ?metadata ?lastUpdatedTimestamp ?createdTimestamp ?configuration
        ?name ?appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An Amazon Lex V2 chat bot created under an AppInstance."]
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 AppInstanceAdmin =
  struct
    type nonrec t =
      {
      admin: Identity.t option [@ocaml.doc "The AppInstanceAdmin data."];
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc
          "The ARN of the AppInstance for which the user is an administrator."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The time at which an administrator was created."]}
    let make ?admin =
      fun ?appInstanceArn ->
        fun ?createdTimestamp ->
          fun () -> { admin; appInstanceArn; createdTimestamp }
    let to_value x =
      structure_to_value
        [("Admin", (Option.map x.admin ~f:Identity.to_value));
        ("AppInstanceArn",
          (Option.map x.appInstanceArn ~f:ChimeArn.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      let admin =
        (Option.map ~f:Identity.of_xml) (Xml.child xml_arg0 "Admin") in
      make ?createdTimestamp ?appInstanceArn ?admin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      let admin = field_map json__ "Admin" Identity.of_json in
      make ?createdTimestamp ?appInstanceArn ?admin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The name and ARN of the admin for the AppInstance."]
module UserId =
  struct
    type nonrec t = string
    let context_ = "UserId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9]([A-Za-z0-9\\:\\-\\_\\.\\@]{0,62}[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:"UserId" j
    let to_json = simple_to_json to_value
  end
module UpdateAppInstanceUserResponse =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceUserArn = fun () -> { appInstanceUserArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details of an AppInstanceUser. You can update names and metadata."]
module UpdateAppInstanceUserRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      name: UserName.t [@ocaml.doc "The name of the AppInstanceUser."];
      metadata: Metadata.t
        [@ocaml.doc "The metadata of the AppInstanceUser."]}
    let context_ = "UpdateAppInstanceUserRequest"
    let make ~appInstanceUserArn =
      fun ~name ->
        fun ~metadata -> fun () -> { appInstanceUserArn; name; metadata }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (ChimeArn.to_value x.appInstanceUserArn)));
        ("Name", (Some (UserName.to_value x.name)));
        ("Metadata", (Some (Metadata.to_value x.metadata)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        Metadata.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Metadata") in
      let name =
        UserName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let appInstanceUserArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ~metadata ~name ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map_exn json__ "Metadata" Metadata.of_json in
      let name = field_map_exn json__ "Name" UserName.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ~metadata ~name ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details of an AppInstanceUser. You can update names and metadata."]
module UpdateAppInstanceUserEndpointResponse =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t option
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceUserArn =
      fun ?endpointId -> fun () -> { appInstanceUserArn; endpointId }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:String64.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointId =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?endpointId ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointId = field_map json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?endpointId ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details of an AppInstanceUserEndpoint. You can update the name and AllowMessage values."]
module UpdateAppInstanceUserEndpointRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."];
      name: SensitiveString1600.t option
        [@ocaml.doc "The name of the AppInstanceUserEndpoint."];
      allowMessages: AllowMessages.t option
        [@ocaml.doc
          "Boolean that controls whether the AppInstanceUserEndpoint is opted in to receive messages. ALL indicates the endpoint will receive all messages. NONE indicates the endpoint will receive no messages."]}
    let context_ = "UpdateAppInstanceUserEndpointRequest"
    let make ?name =
      fun ?allowMessages ->
        fun ~appInstanceUserArn ->
          fun ~endpointId ->
            fun () -> { name; allowMessages; appInstanceUserArn; endpointId }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (ChimeArn.to_value x.appInstanceUserArn)));
        ("endpointId", (Some (String64.to_value x.endpointId)));
        ("Name", (Option.map x.name ~f:SensitiveString1600.to_value));
        ("AllowMessages",
          (Option.map x.allowMessages ~f:AllowMessages.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowMessages =
        (Option.map ~f:AllowMessages.of_xml)
          (Xml.child xml_arg0 "AllowMessages") in
      let name =
        (Option.map ~f:SensitiveString1600.of_xml)
          (Xml.child xml_arg0 "Name") in
      let endpointId =
        String64.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpointId") in
      let appInstanceUserArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ?allowMessages ?name ~endpointId ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowMessages =
        field_map json__ "AllowMessages" AllowMessages.of_json in
      let name = field_map json__ "Name" SensitiveString1600.of_json in
      let endpointId = field_map_exn json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?allowMessages ?name ~endpointId ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details of an AppInstanceUserEndpoint. You can update the name and AllowMessage values."]
module UpdateAppInstanceResponse =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstance."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceArn = fun () -> { appInstanceArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates AppInstance metadata."]
module UpdateAppInstanceRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."];
      name: NonEmptyResourceName.t
        [@ocaml.doc "The name that you want to change."];
      metadata: Metadata.t
        [@ocaml.doc "The metadata that you want to change."]}
    let context_ = "UpdateAppInstanceRequest"
    let make ~appInstanceArn =
      fun ~name ->
        fun ~metadata -> fun () -> { appInstanceArn; name; metadata }
    let to_value x =
      structure_to_value
        [("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("Name", (Some (NonEmptyResourceName.to_value x.name)));
        ("Metadata", (Some (Metadata.to_value x.metadata)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        Metadata.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Metadata") in
      let name =
        NonEmptyResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      make ~metadata ~name ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map_exn json__ "Metadata" Metadata.of_json in
      let name = field_map_exn json__ "Name" NonEmptyResourceName.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ~metadata ~name ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates AppInstance metadata."]
module UpdateAppInstanceBotResponse =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceBot."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceBotArn = fun () -> { appInstanceBotArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceBotArn",
           (Option.map x.appInstanceBotArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceBotArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceBotArn") in
      make ?appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceBotArn =
        field_map json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ?appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the name and metadata of an AppInstanceBot."]
module UpdateAppInstanceBotRequest =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceBot."];
      name: ResourceName.t [@ocaml.doc "The name of the AppInstanceBot."];
      metadata: Metadata.t [@ocaml.doc "The metadata of the AppInstanceBot."];
      configuration: Configuration.t option
        [@ocaml.doc "The configuration for the bot update."]}
    let context_ = "UpdateAppInstanceBotRequest"
    let make ?configuration =
      fun ~appInstanceBotArn ->
        fun ~name ->
          fun ~metadata ->
            fun () -> { configuration; appInstanceBotArn; name; metadata }
    let to_value x =
      structure_to_value
        [("appInstanceBotArn",
           (Some (ChimeArn.to_value x.appInstanceBotArn)));
        ("Name", (Some (ResourceName.to_value x.name)));
        ("Metadata", (Some (Metadata.to_value x.metadata)));
        ("Configuration",
          (Option.map x.configuration ~f:Configuration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:Configuration.of_xml)
          (Xml.child xml_arg0 "Configuration") in
      let metadata =
        Metadata.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Metadata") in
      let name =
        ResourceName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let appInstanceBotArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceBotArn") in
      make ?configuration ~metadata ~name ~appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "Configuration" Configuration.of_json in
      let metadata = field_map_exn json__ "Metadata" Metadata.of_json in
      let name = field_map_exn json__ "Name" ResourceName.of_json in
      let appInstanceBotArn =
        field_map_exn json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ?configuration ~metadata ~name ~appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the name and metadata of an AppInstanceBot."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: ChimeArn.t [@ocaml.doc "The resource ARN."];
      tagKeys: TagKeyList.t [@ocaml.doc "The tag keys."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ChimeArn.to_value x.resourceARN)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceARN =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceARN = field_map_exn json__ "ResourceARN" ChimeArn.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified tags from the specified Amazon Chime SDK identity resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: ChimeArn.t [@ocaml.doc "The resource ARN."];
      tags: TagList.t [@ocaml.doc "The tag key-value pairs."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ChimeArn.to_value x.resourceARN)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceARN = field_map_exn json__ "ResourceARN" ChimeArn.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies the specified tags to the specified Amazon Chime SDK identity resource."]
module RegisterAppInstanceUserEndpointResponse =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t option
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceUserArn =
      fun ?endpointId -> fun () -> { appInstanceUserArn; endpointId }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:String64.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointId =
        (Option.map ~f:String64.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?endpointId ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointId = field_map json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?endpointId ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers an endpoint under an Amazon Chime AppInstanceUser. The endpoint receives messages for a user. For push notifications, the endpoint is a mobile device used to receive mobile push notifications for a user."]
module RegisterAppInstanceUserEndpointRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: SensitiveChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      name: SensitiveString1600.t option
        [@ocaml.doc "The name of the AppInstanceUserEndpoint."];
      type_: AppInstanceUserEndpointType.t
        [@ocaml.doc
          "The type of the AppInstanceUserEndpoint. Supported types: APNS: The mobile notification service for an Apple device. APNS_SANDBOX: The sandbox environment of the mobile notification service for an Apple device. GCM: The mobile notification service for an Android device. Populate the ResourceArn value of each type as PinpointAppArn."];
      resourceArn: ChimeArn.t
        [@ocaml.doc "The ARN of the resource to which the endpoint belongs."];
      endpointAttributes: EndpointAttributes.t
        [@ocaml.doc "The attributes of an Endpoint."];
      clientRequestToken: ClientRequestToken.t
        [@ocaml.doc
          "The unique ID assigned to the request. Use different tokens to register other endpoints."];
      allowMessages: AllowMessages.t option
        [@ocaml.doc
          "Boolean that controls whether the AppInstanceUserEndpoint is opted in to receive messages. ALL indicates the endpoint receives all messages. NONE indicates the endpoint receives no messages."]}
    let context_ = "RegisterAppInstanceUserEndpointRequest"
    let make ?name =
      fun ?allowMessages ->
        fun ~appInstanceUserArn ->
          fun ~type_ ->
            fun ~resourceArn ->
              fun ~endpointAttributes ->
                fun ~clientRequestToken ->
                  fun () ->
                    {
                      name;
                      allowMessages;
                      appInstanceUserArn;
                      type_;
                      resourceArn;
                      endpointAttributes;
                      clientRequestToken
                    }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (SensitiveChimeArn.to_value x.appInstanceUserArn)));
        ("Name", (Option.map x.name ~f:SensitiveString1600.to_value));
        ("Type", (Some (AppInstanceUserEndpointType.to_value x.type_)));
        ("ResourceArn", (Some (ChimeArn.to_value x.resourceArn)));
        ("EndpointAttributes",
          (Some (EndpointAttributes.to_value x.endpointAttributes)));
        ("ClientRequestToken",
          (Some (ClientRequestToken.to_value x.clientRequestToken)));
        ("AllowMessages",
          (Option.map x.allowMessages ~f:AllowMessages.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowMessages =
        (Option.map ~f:AllowMessages.of_xml)
          (Xml.child xml_arg0 "AllowMessages") in
      let clientRequestToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientRequestToken") in
      let endpointAttributes =
        EndpointAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointAttributes") in
      let resourceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      let type_ =
        AppInstanceUserEndpointType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let name =
        (Option.map ~f:SensitiveString1600.of_xml)
          (Xml.child xml_arg0 "Name") in
      let appInstanceUserArn =
        SensitiveChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ?allowMessages ~clientRequestToken ~endpointAttributes
        ~resourceArn ~type_ ?name ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowMessages =
        field_map json__ "AllowMessages" AllowMessages.of_json in
      let clientRequestToken =
        field_map_exn json__ "ClientRequestToken" ClientRequestToken.of_json in
      let endpointAttributes =
        field_map_exn json__ "EndpointAttributes" EndpointAttributes.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" ChimeArn.of_json in
      let type_ =
        field_map_exn json__ "Type" AppInstanceUserEndpointType.of_json in
      let name = field_map json__ "Name" SensitiveString1600.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" SensitiveChimeArn.of_json in
      make ?allowMessages ~clientRequestToken ~endpointAttributes
        ~resourceArn ~type_ ?name ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers an endpoint under an Amazon Chime AppInstanceUser. The endpoint receives messages for a user. For push notifications, the endpoint is a mobile device used to receive mobile push notifications for a user."]
module PutAppInstanceUserExpirationSettingsResponse =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      expirationSettings: ExpirationSettings.t option
        [@ocaml.doc
          "Settings that control the interval after which an AppInstanceUser is automatically deleted."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceUserArn =
      fun ?expirationSettings ->
        fun () -> { appInstanceUserArn; expirationSettings }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value));
        ("ExpirationSettings",
          (Option.map x.expirationSettings ~f:ExpirationSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationSettings =
        (Option.map ~f:ExpirationSettings.of_xml)
          (Xml.child xml_arg0 "ExpirationSettings") in
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?expirationSettings ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationSettings =
        field_map json__ "ExpirationSettings" ExpirationSettings.of_json in
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?expirationSettings ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the number of days before the AppInstanceUser is automatically deleted. A background process deletes expired AppInstanceUsers within 6 hours of expiration. Actual deletion times may vary. Expired AppInstanceUsers that have not yet been deleted appear as active, and you can update their expiration settings. The system honors the new settings."]
module PutAppInstanceUserExpirationSettingsRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      expirationSettings: ExpirationSettings.t option
        [@ocaml.doc
          "Settings that control the interval after which an AppInstanceUser is automatically deleted."]}
    let context_ = "PutAppInstanceUserExpirationSettingsRequest"
    let make ?expirationSettings =
      fun ~appInstanceUserArn ->
        fun () -> { expirationSettings; appInstanceUserArn }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (ChimeArn.to_value x.appInstanceUserArn)));
        ("ExpirationSettings",
          (Option.map x.expirationSettings ~f:ExpirationSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationSettings =
        (Option.map ~f:ExpirationSettings.of_xml)
          (Xml.child xml_arg0 "ExpirationSettings") in
      let appInstanceUserArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ?expirationSettings ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationSettings =
        field_map json__ "ExpirationSettings" ExpirationSettings.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?expirationSettings ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the number of days before the AppInstanceUser is automatically deleted. A background process deletes expired AppInstanceUsers within 6 hours of expiration. Actual deletion times may vary. Expired AppInstanceUsers that have not yet been deleted appear as active, and you can update their expiration settings. The system honors the new settings."]
module PutAppInstanceRetentionSettingsResponse =
  struct
    type nonrec t =
      {
      appInstanceRetentionSettings: AppInstanceRetentionSettings.t option
        [@ocaml.doc "The time in days to retain data. Data type: number."];
      initiateDeletionTimestamp: Timestamp.t option
        [@ocaml.doc "The time at which the API deletes data."]}
    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 ?appInstanceRetentionSettings =
      fun ?initiateDeletionTimestamp ->
        fun () -> { appInstanceRetentionSettings; initiateDeletionTimestamp }
    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
        [("AppInstanceRetentionSettings",
           (Option.map x.appInstanceRetentionSettings
              ~f:AppInstanceRetentionSettings.to_value));
        ("InitiateDeletionTimestamp",
          (Option.map x.initiateDeletionTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiateDeletionTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "InitiateDeletionTimestamp") in
      let appInstanceRetentionSettings =
        (Option.map ~f:AppInstanceRetentionSettings.of_xml)
          (Xml.child xml_arg0 "AppInstanceRetentionSettings") in
      make ?initiateDeletionTimestamp ?appInstanceRetentionSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiateDeletionTimestamp =
        field_map json__ "InitiateDeletionTimestamp" Timestamp.of_json in
      let appInstanceRetentionSettings =
        field_map json__ "AppInstanceRetentionSettings"
          AppInstanceRetentionSettings.of_json in
      make ?initiateDeletionTimestamp ?appInstanceRetentionSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the amount of time in days that a given AppInstance retains data."]
module PutAppInstanceRetentionSettingsRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."];
      appInstanceRetentionSettings: AppInstanceRetentionSettings.t
        [@ocaml.doc "The time in days to retain data. Data type: number."]}
    let context_ = "PutAppInstanceRetentionSettingsRequest"
    let make ~appInstanceArn =
      fun ~appInstanceRetentionSettings ->
        fun () -> { appInstanceArn; appInstanceRetentionSettings }
    let to_value x =
      structure_to_value
        [("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("AppInstanceRetentionSettings",
          (Some
             (AppInstanceRetentionSettings.to_value
                x.appInstanceRetentionSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceRetentionSettings =
        AppInstanceRetentionSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AppInstanceRetentionSettings") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      make ~appInstanceRetentionSettings ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceRetentionSettings =
        field_map_exn json__ "AppInstanceRetentionSettings"
          AppInstanceRetentionSettings.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ~appInstanceRetentionSettings ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the amount of time in days that a given AppInstance retains data."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option [@ocaml.doc "The tag key-value pairs."]}
    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 ?tags = fun () -> { tags }
    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 [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags applied to an Amazon Chime SDK identity resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: ChimeArn.t [@ocaml.doc "The ARN of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value [("arn", (Some (ChimeArn.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        ChimeArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN = field_map_exn json__ "ResourceARN" ChimeArn.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags applied to an Amazon Chime SDK identity resource."]
module ListAppInstancesResponse =
  struct
    type nonrec t =
      {
      appInstances: AppInstanceList.t option
        [@ocaml.doc "The information for each AppInstance."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API requests until the maximum number of AppInstances is reached."]}
    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 ?appInstances =
      fun ?nextToken -> fun () -> { appInstances; 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
        [("AppInstances",
           (Option.map x.appInstances ~f:AppInstanceList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let appInstances =
        (Option.map ~f:AppInstanceList.of_xml)
          (Xml.child xml_arg0 "AppInstances") in
      make ?nextToken ?appInstances ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let appInstances =
        field_map json__ "AppInstances" AppInstanceList.of_json in
      make ?nextToken ?appInstances ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Amazon Chime AppInstances created under a single AWS account."]
module ListAppInstancesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of AppInstances that you want to return."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API requests until you reach the maximum number of AppInstances."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("max-results", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "max-results") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Amazon Chime AppInstances created under a single AWS account."]
module ListAppInstanceUsersResponse =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstance."];
      appInstanceUsers: AppInstanceUserList.t option
        [@ocaml.doc "The information for each requested AppInstanceUser."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API calls until all requested users are returned."]}
    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 ?appInstanceArn =
      fun ?appInstanceUsers ->
        fun ?nextToken ->
          fun () -> { appInstanceArn; appInstanceUsers; 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
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value));
        ("AppInstanceUsers",
          (Option.map x.appInstanceUsers ~f:AppInstanceUserList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let appInstanceUsers =
        (Option.map ~f:AppInstanceUserList.of_xml)
          (Xml.child xml_arg0 "AppInstanceUsers") in
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?nextToken ?appInstanceUsers ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let appInstanceUsers =
        field_map json__ "AppInstanceUsers" AppInstanceUserList.of_json in
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?nextToken ?appInstanceUsers ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all AppInstanceUsers created under a single AppInstance."]
module ListAppInstanceUsersRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of requests that you want returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API calls until all requested users are returned."]}
    let context_ = "ListAppInstanceUsersRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appInstanceArn ->
          fun () -> { maxResults; nextToken; appInstanceArn }
    let to_value x =
      structure_to_value
        [("app-instance-arn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("max-results", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "max-results") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "app-instance-arn") in
      make ?nextToken ?maxResults ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ?nextToken ?maxResults ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all AppInstanceUsers created under a single AppInstance."]
module ListAppInstanceUserEndpointsResponse =
  struct
    type nonrec t =
      {
      appInstanceUserEndpoints: AppInstanceUserEndpointSummaryList.t option
        [@ocaml.doc
          "The information for each requested AppInstanceUserEndpoint."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API calls until all requested endpoints are returned."]}
    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 ?appInstanceUserEndpoints =
      fun ?nextToken -> fun () -> { appInstanceUserEndpoints; 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
        [("AppInstanceUserEndpoints",
           (Option.map x.appInstanceUserEndpoints
              ~f:AppInstanceUserEndpointSummaryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let appInstanceUserEndpoints =
        (Option.map ~f:AppInstanceUserEndpointSummaryList.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserEndpoints") in
      make ?nextToken ?appInstanceUserEndpoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let appInstanceUserEndpoints =
        field_map json__ "AppInstanceUserEndpoints"
          AppInstanceUserEndpointSummaryList.of_json in
      make ?nextToken ?appInstanceUserEndpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the AppInstanceUserEndpoints created under a single AppInstanceUser."]
module ListAppInstanceUserEndpointsRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: SensitiveChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of endpoints that you want to return."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API calls until all requested endpoints are returned."]}
    let context_ = "ListAppInstanceUserEndpointsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appInstanceUserArn ->
          fun () -> { maxResults; nextToken; appInstanceUserArn }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (SensitiveChimeArn.to_value x.appInstanceUserArn)));
        ("max-results", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "max-results") in
      let appInstanceUserArn =
        SensitiveChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ?nextToken ?maxResults ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" SensitiveChimeArn.of_json in
      make ?nextToken ?maxResults ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the AppInstanceUserEndpoints created under a single AppInstanceUser."]
module ListAppInstanceBotsResponse =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstance."];
      appInstanceBots: AppInstanceBotList.t option
        [@ocaml.doc "The information for each requested AppInstanceBot."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API calls until all requested bots are returned."]}
    type nonrec error =
      [ `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 ?appInstanceArn =
      fun ?appInstanceBots ->
        fun ?nextToken ->
          fun () -> { appInstanceArn; appInstanceBots; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value));
        ("AppInstanceBots",
          (Option.map x.appInstanceBots ~f:AppInstanceBotList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let appInstanceBots =
        (Option.map ~f:AppInstanceBotList.of_xml)
          (Xml.child xml_arg0 "AppInstanceBots") in
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?nextToken ?appInstanceBots ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let appInstanceBots =
        field_map json__ "AppInstanceBots" AppInstanceBotList.of_json in
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?nextToken ?appInstanceBots ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all AppInstanceBots created under a single AppInstance."]
module ListAppInstanceBotsRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of requests to return."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token passed by previous API calls until all requested bots are returned."]}
    let context_ = "ListAppInstanceBotsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appInstanceArn ->
          fun () -> { maxResults; nextToken; appInstanceArn }
    let to_value x =
      structure_to_value
        [("app-instance-arn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("max-results", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "max-results") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "app-instance-arn") in
      make ?nextToken ?maxResults ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ?nextToken ?maxResults ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all AppInstanceBots created under a single AppInstance."]
module ListAppInstanceAdminsResponse =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppInstance."];
      appInstanceAdmins: AppInstanceAdminList.t option
        [@ocaml.doc "The information for each administrator."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned from previous API requests until the number of administrators is reached."]}
    type nonrec error =
      [ `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 ?appInstanceArn =
      fun ?appInstanceAdmins ->
        fun ?nextToken ->
          fun () -> { appInstanceArn; appInstanceAdmins; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value));
        ("AppInstanceAdmins",
          (Option.map x.appInstanceAdmins ~f:AppInstanceAdminList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let appInstanceAdmins =
        (Option.map ~f:AppInstanceAdminList.of_xml)
          (Xml.child xml_arg0 "AppInstanceAdmins") in
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?nextToken ?appInstanceAdmins ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let appInstanceAdmins =
        field_map json__ "AppInstanceAdmins" AppInstanceAdminList.of_json in
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?nextToken ?appInstanceAdmins ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of the administrators in the AppInstance."]
module ListAppInstanceAdminsRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of administrators that you want to return."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned from previous API requests until the number of administrators is reached."]}
    let context_ = "ListAppInstanceAdminsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appInstanceArn ->
          fun () -> { maxResults; nextToken; appInstanceArn }
    let to_value x =
      structure_to_value
        [("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("max-results", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "max-results") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      make ?nextToken ?maxResults ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ?nextToken ?maxResults ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of the administrators in the AppInstance."]
module GetAppInstanceRetentionSettingsResponse =
  struct
    type nonrec t =
      {
      appInstanceRetentionSettings: AppInstanceRetentionSettings.t option
        [@ocaml.doc "The retention settings for the AppInstance."];
      initiateDeletionTimestamp: Timestamp.t option
        [@ocaml.doc
          "The timestamp representing the time at which the specified items are retained, in Epoch Seconds."]}
    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 ?appInstanceRetentionSettings =
      fun ?initiateDeletionTimestamp ->
        fun () -> { appInstanceRetentionSettings; initiateDeletionTimestamp }
    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
        [("AppInstanceRetentionSettings",
           (Option.map x.appInstanceRetentionSettings
              ~f:AppInstanceRetentionSettings.to_value));
        ("InitiateDeletionTimestamp",
          (Option.map x.initiateDeletionTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiateDeletionTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "InitiateDeletionTimestamp") in
      let appInstanceRetentionSettings =
        (Option.map ~f:AppInstanceRetentionSettings.of_xml)
          (Xml.child xml_arg0 "AppInstanceRetentionSettings") in
      make ?initiateDeletionTimestamp ?appInstanceRetentionSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiateDeletionTimestamp =
        field_map json__ "InitiateDeletionTimestamp" Timestamp.of_json in
      let appInstanceRetentionSettings =
        field_map json__ "AppInstanceRetentionSettings"
          AppInstanceRetentionSettings.of_json in
      make ?initiateDeletionTimestamp ?appInstanceRetentionSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the retention settings for an AppInstance."]
module GetAppInstanceRetentionSettingsRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."]}
    let context_ = "GetAppInstanceRetentionSettingsRequest"
    let make ~appInstanceArn = fun () -> { appInstanceArn }
    let to_value x =
      structure_to_value
        [("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      make ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the retention settings for an AppInstance."]
module DescribeAppInstanceUserResponse =
  struct
    type nonrec t =
      {
      appInstanceUser: AppInstanceUser.t option
        [@ocaml.doc "The name of the AppInstanceUser."]}
    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 ?appInstanceUser = fun () -> { appInstanceUser }
    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
        [("AppInstanceUser",
           (Option.map x.appInstanceUser ~f:AppInstanceUser.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceUser =
        (Option.map ~f:AppInstanceUser.of_xml)
          (Xml.child xml_arg0 "AppInstanceUser") in
      make ?appInstanceUser ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceUser =
        field_map json__ "AppInstanceUser" AppInstanceUser.of_json in
      make ?appInstanceUser ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstanceUser."]
module DescribeAppInstanceUserRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."]}
    let context_ = "DescribeAppInstanceUserRequest"
    let make ~appInstanceUserArn = fun () -> { appInstanceUserArn }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (ChimeArn.to_value x.appInstanceUserArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceUserArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstanceUser."]
module DescribeAppInstanceUserEndpointResponse =
  struct
    type nonrec t =
      {
      appInstanceUserEndpoint: AppInstanceUserEndpoint.t option
        [@ocaml.doc
          "The full details of an AppInstanceUserEndpoint: the AppInstanceUserArn, ID, name, type, resource ARN, attributes, allow messages, state, and created and last updated timestamps. All timestamps use epoch milliseconds."]}
    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 ?appInstanceUserEndpoint = fun () -> { appInstanceUserEndpoint }
    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
        [("AppInstanceUserEndpoint",
           (Option.map x.appInstanceUserEndpoint
              ~f:AppInstanceUserEndpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceUserEndpoint =
        (Option.map ~f:AppInstanceUserEndpoint.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserEndpoint") in
      make ?appInstanceUserEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceUserEndpoint =
        field_map json__ "AppInstanceUserEndpoint"
          AppInstanceUserEndpoint.of_json in
      make ?appInstanceUserEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstanceUserEndpoint."]
module DescribeAppInstanceUserEndpointRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: String1600.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."]}
    let context_ = "DescribeAppInstanceUserEndpointRequest"
    let make ~appInstanceUserArn =
      fun ~endpointId -> fun () -> { appInstanceUserArn; endpointId }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (String1600.to_value x.appInstanceUserArn)));
        ("endpointId", (Some (String64.to_value x.endpointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointId =
        String64.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpointId") in
      let appInstanceUserArn =
        String1600.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ~endpointId ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointId = field_map_exn json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" String1600.of_json in
      make ~endpointId ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstanceUserEndpoint."]
module DescribeAppInstanceResponse =
  struct
    type nonrec t =
      {
      appInstance: AppInstance.t option
        [@ocaml.doc
          "The ARN, metadata, created and last-updated timestamps, and the name of the AppInstance. All timestamps use epoch milliseconds."]}
    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 ?appInstance = fun () -> { appInstance }
    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
        [("AppInstance", (Option.map x.appInstance ~f:AppInstance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstance =
        (Option.map ~f:AppInstance.of_xml) (Xml.child xml_arg0 "AppInstance") in
      make ?appInstance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstance = field_map json__ "AppInstance" AppInstance.of_json in
      make ?appInstance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstance."]
module DescribeAppInstanceRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."]}
    let context_ = "DescribeAppInstanceRequest"
    let make ~appInstanceArn = fun () -> { appInstanceArn }
    let to_value x =
      structure_to_value
        [("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      make ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstance."]
module DescribeAppInstanceBotResponse =
  struct
    type nonrec t =
      {
      appInstanceBot: AppInstanceBot.t option
        [@ocaml.doc "The detials of the AppInstanceBot."]}
    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 ?appInstanceBot = fun () -> { appInstanceBot }
    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
        [("AppInstanceBot",
           (Option.map x.appInstanceBot ~f:AppInstanceBot.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceBot =
        (Option.map ~f:AppInstanceBot.of_xml)
          (Xml.child xml_arg0 "AppInstanceBot") in
      make ?appInstanceBot ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceBot =
        field_map json__ "AppInstanceBot" AppInstanceBot.of_json in
      make ?appInstanceBot ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The AppInstanceBot's information."]
module DescribeAppInstanceBotRequest =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceBot."]}
    let context_ = "DescribeAppInstanceBotRequest"
    let make ~appInstanceBotArn = fun () -> { appInstanceBotArn }
    let to_value x =
      structure_to_value
        [("appInstanceBotArn",
           (Some (ChimeArn.to_value x.appInstanceBotArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceBotArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceBotArn") in
      make ~appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceBotArn =
        field_map_exn json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ~appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The AppInstanceBot's information."]
module DescribeAppInstanceAdminResponse =
  struct
    type nonrec t =
      {
      appInstanceAdmin: AppInstanceAdmin.t option
        [@ocaml.doc
          "The ARN and name of the AppInstanceUser, the ARN of the AppInstance, and the created and last-updated timestamps. All timestamps use epoch milliseconds."]}
    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 ?appInstanceAdmin = fun () -> { appInstanceAdmin }
    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
        [("AppInstanceAdmin",
           (Option.map x.appInstanceAdmin ~f:AppInstanceAdmin.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceAdmin =
        (Option.map ~f:AppInstanceAdmin.of_xml)
          (Xml.child xml_arg0 "AppInstanceAdmin") in
      make ?appInstanceAdmin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceAdmin =
        field_map json__ "AppInstanceAdmin" AppInstanceAdmin.of_json in
      make ?appInstanceAdmin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstanceAdmin."]
module DescribeAppInstanceAdminRequest =
  struct
    type nonrec t =
      {
      appInstanceAdminArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceAdmin."];
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."]}
    let context_ = "DescribeAppInstanceAdminRequest"
    let make ~appInstanceAdminArn =
      fun ~appInstanceArn ->
        fun () -> { appInstanceAdminArn; appInstanceArn }
    let to_value x =
      structure_to_value
        [("appInstanceAdminArn",
           (Some (ChimeArn.to_value x.appInstanceAdminArn)));
        ("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      let appInstanceAdminArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceAdminArn") in
      make ~appInstanceArn ~appInstanceAdminArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      let appInstanceAdminArn =
        field_map_exn json__ "AppInstanceAdminArn" ChimeArn.of_json in
      make ~appInstanceArn ~appInstanceAdminArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the full details of an AppInstanceAdmin."]
module DeregisterAppInstanceUserEndpointRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceUser."];
      endpointId: String64.t
        [@ocaml.doc "The unique identifier of the AppInstanceUserEndpoint."]}
    let context_ = "DeregisterAppInstanceUserEndpointRequest"
    let make ~appInstanceUserArn =
      fun ~endpointId -> fun () -> { appInstanceUserArn; endpointId }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (ChimeArn.to_value x.appInstanceUserArn)));
        ("endpointId", (Some (String64.to_value x.endpointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointId =
        String64.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpointId") in
      let appInstanceUserArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ~endpointId ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointId = field_map_exn json__ "EndpointId" String64.of_json in
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ~endpointId ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deregisters an AppInstanceUserEndpoint."]
module DeleteAppInstanceUserRequest =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t
        [@ocaml.doc "The ARN of the user request being deleted."]}
    let context_ = "DeleteAppInstanceUserRequest"
    let make ~appInstanceUserArn = fun () -> { appInstanceUserArn }
    let to_value x =
      structure_to_value
        [("appInstanceUserArn",
           (Some (ChimeArn.to_value x.appInstanceUserArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceUserArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceUserArn") in
      make ~appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceUserArn =
        field_map_exn json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ~appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an AppInstanceUser."]
module DeleteAppInstanceRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."]}
    let context_ = "DeleteAppInstanceRequest"
    let make ~appInstanceArn = fun () -> { appInstanceArn }
    let to_value x =
      structure_to_value
        [("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      make ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an AppInstance and all associated data asynchronously."]
module DeleteAppInstanceBotRequest =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstanceBot being deleted."]}
    let context_ = "DeleteAppInstanceBotRequest"
    let make ~appInstanceBotArn = fun () -> { appInstanceBotArn }
    let to_value x =
      structure_to_value
        [("appInstanceBotArn",
           (Some (ChimeArn.to_value x.appInstanceBotArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceBotArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceBotArn") in
      make ~appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceBotArn =
        field_map_exn json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ~appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an AppInstanceBot."]
module DeleteAppInstanceAdminRequest =
  struct
    type nonrec t =
      {
      appInstanceAdminArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstance's administrator."];
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."]}
    let context_ = "DeleteAppInstanceAdminRequest"
    let make ~appInstanceAdminArn =
      fun ~appInstanceArn ->
        fun () -> { appInstanceAdminArn; appInstanceArn }
    let to_value x =
      structure_to_value
        [("appInstanceAdminArn",
           (Some (ChimeArn.to_value x.appInstanceAdminArn)));
        ("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      let appInstanceAdminArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceAdminArn") in
      make ~appInstanceArn ~appInstanceAdminArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      let appInstanceAdminArn =
        field_map_exn json__ "AppInstanceAdminArn" ChimeArn.of_json in
      make ~appInstanceArn ~appInstanceAdminArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Demotes an AppInstanceAdmin to an AppInstanceUser or AppInstanceBot. This action does not delete the user."]
module CreateAppInstanceUserResponse =
  struct
    type nonrec t =
      {
      appInstanceUserArn: ChimeArn.t option [@ocaml.doc "The user's ARN."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceUserArn = fun () -> { appInstanceUserArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceUserArn",
           (Option.map x.appInstanceUserArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceUserArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceUserArn") in
      make ?appInstanceUserArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceUserArn =
        field_map json__ "AppInstanceUserArn" ChimeArn.of_json in
      make ?appInstanceUserArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a user under an Amazon Chime AppInstance. The request consists of a unique appInstanceUserId and Name for that user."]
module CreateAppInstanceUserRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstance request."];
      appInstanceUserId: UserId.t
        [@ocaml.doc "The user ID of the AppInstance."];
      name: UserName.t [@ocaml.doc "The user's name."];
      metadata: Metadata.t option
        [@ocaml.doc
          "The request's metadata. Limited to a 1KB string in UTF-8."];
      clientRequestToken: ClientRequestToken.t
        [@ocaml.doc
          "The unique ID of the request. Use different tokens to request additional AppInstances."];
      tags: TagList.t option
        [@ocaml.doc "Tags assigned to the AppInstanceUser."];
      expirationSettings: ExpirationSettings.t option
        [@ocaml.doc
          "Settings that control the interval after which the AppInstanceUser is automatically deleted."]}
    let context_ = "CreateAppInstanceUserRequest"
    let make ?metadata =
      fun ?tags ->
        fun ?expirationSettings ->
          fun ~appInstanceArn ->
            fun ~appInstanceUserId ->
              fun ~name ->
                fun ~clientRequestToken ->
                  fun () ->
                    {
                      metadata;
                      tags;
                      expirationSettings;
                      appInstanceArn;
                      appInstanceUserId;
                      name;
                      clientRequestToken
                    }
    let to_value x =
      structure_to_value
        [("AppInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("AppInstanceUserId", (Some (UserId.to_value x.appInstanceUserId)));
        ("Name", (Some (UserName.to_value x.name)));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("ClientRequestToken",
          (Some (ClientRequestToken.to_value x.clientRequestToken)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ExpirationSettings",
          (Option.map x.expirationSettings ~f:ExpirationSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationSettings =
        (Option.map ~f:ExpirationSettings.of_xml)
          (Xml.child xml_arg0 "ExpirationSettings") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientRequestToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientRequestToken") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name =
        UserName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let appInstanceUserId =
        UserId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AppInstanceUserId") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AppInstanceArn") in
      make ?expirationSettings ?tags ~clientRequestToken ?metadata ~name
        ~appInstanceUserId ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationSettings =
        field_map json__ "ExpirationSettings" ExpirationSettings.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientRequestToken =
        field_map_exn json__ "ClientRequestToken" ClientRequestToken.of_json in
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map_exn json__ "Name" UserName.of_json in
      let appInstanceUserId =
        field_map_exn json__ "AppInstanceUserId" UserId.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ?expirationSettings ?tags ~clientRequestToken ?metadata ~name
        ~appInstanceUserId ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a user under an Amazon Chime AppInstance. The request consists of a unique appInstanceUserId and Name for that user."]
module CreateAppInstanceResponse =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The Amazon Resource Number (ARN) of the AppInstance."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceArn = fun () -> { appInstanceArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceArn",
           (Option.map x.appInstanceArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      make ?appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      make ?appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime SDK messaging AppInstance under an AWS account. Only SDK messaging customers use this API. CreateAppInstance supports idempotency behavior as described in the AWS API Standard. identity"]
module CreateAppInstanceRequest =
  struct
    type nonrec t =
      {
      name: NonEmptyResourceName.t
        [@ocaml.doc "The name of the AppInstance."];
      metadata: Metadata.t option
        [@ocaml.doc
          "The metadata of the AppInstance. Limited to a 1KB string in UTF-8."];
      clientRequestToken: ClientRequestToken.t
        [@ocaml.doc
          "The unique ID of the request. Use different tokens to create different AppInstances."];
      tags: TagList.t option [@ocaml.doc "Tags assigned to the AppInstance."]}
    let context_ = "CreateAppInstanceRequest"
    let make ?metadata =
      fun ?tags ->
        fun ~name ->
          fun ~clientRequestToken ->
            fun () -> { metadata; tags; name; clientRequestToken }
    let to_value x =
      structure_to_value
        [("Name", (Some (NonEmptyResourceName.to_value x.name)));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("ClientRequestToken",
          (Some (ClientRequestToken.to_value x.clientRequestToken)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientRequestToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientRequestToken") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name =
        NonEmptyResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ~clientRequestToken ?metadata ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientRequestToken =
        field_map_exn json__ "ClientRequestToken" ClientRequestToken.of_json in
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map_exn json__ "Name" NonEmptyResourceName.of_json in
      make ?tags ~clientRequestToken ?metadata ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime SDK messaging AppInstance under an AWS account. Only SDK messaging customers use this API. CreateAppInstance supports idempotency behavior as described in the AWS API Standard. identity"]
module CreateAppInstanceBotResponse =
  struct
    type nonrec t =
      {
      appInstanceBotArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the AppinstanceBot."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceBotArn = fun () -> { appInstanceBotArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceBotArn",
           (Option.map x.appInstanceBotArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceBotArn =
        (Option.map ~f:ChimeArn.of_xml)
          (Xml.child xml_arg0 "AppInstanceBotArn") in
      make ?appInstanceBotArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceBotArn =
        field_map json__ "AppInstanceBotArn" ChimeArn.of_json in
      make ?appInstanceBotArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a bot under an Amazon Chime AppInstance. The request consists of a unique Configuration and Name for that bot."]
module CreateAppInstanceBotRequest =
  struct
    type nonrec t =
      {
      appInstanceArn: ChimeArn.t
        [@ocaml.doc "The ARN of the AppInstance request."];
      name: ResourceName.t option [@ocaml.doc "The user's name."];
      metadata: Metadata.t option
        [@ocaml.doc
          "The request metadata. Limited to a 1KB string in UTF-8."];
      clientRequestToken: ClientRequestToken.t
        [@ocaml.doc
          "The unique ID for the client making the request. Use different tokens for different AppInstanceBots."];
      tags: TagList.t option
        [@ocaml.doc "The tags assigned to the AppInstanceBot."];
      configuration: Configuration.t
        [@ocaml.doc
          "Configuration information about the Amazon Lex V2 V2 bot."]}
    let context_ = "CreateAppInstanceBotRequest"
    let make ?name =
      fun ?metadata ->
        fun ?tags ->
          fun ~appInstanceArn ->
            fun ~clientRequestToken ->
              fun ~configuration ->
                fun () ->
                  {
                    name;
                    metadata;
                    tags;
                    appInstanceArn;
                    clientRequestToken;
                    configuration
                  }
    let to_value x =
      structure_to_value
        [("AppInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)));
        ("Name", (Option.map x.name ~f:ResourceName.to_value));
        ("Metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("ClientRequestToken",
          (Some (ClientRequestToken.to_value x.clientRequestToken)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("Configuration", (Some (Configuration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        Configuration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Configuration") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientRequestToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientRequestToken") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      let name =
        (Option.map ~f:ResourceName.of_xml) (Xml.child xml_arg0 "Name") in
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AppInstanceArn") in
      make ~configuration ?tags ~clientRequestToken ?metadata ?name
        ~appInstanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "Configuration" Configuration.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientRequestToken =
        field_map_exn json__ "ClientRequestToken" ClientRequestToken.of_json in
      let metadata = field_map json__ "Metadata" Metadata.of_json in
      let name = field_map json__ "Name" ResourceName.of_json in
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      make ~configuration ?tags ~clientRequestToken ?metadata ?name
        ~appInstanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a bot under an Amazon Chime AppInstance. The request consists of a unique Configuration and Name for that bot."]
module CreateAppInstanceAdminResponse =
  struct
    type nonrec t =
      {
      appInstanceAdmin: Identity.t option
        [@ocaml.doc
          "The ARN and name of the administrator, the ARN of the AppInstance, and the created and last-updated timestamps. All timestamps use epoch milliseconds."];
      appInstanceArn: ChimeArn.t option
        [@ocaml.doc "The ARN of the of the admin for the AppInstance."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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 ?appInstanceAdmin =
      fun ?appInstanceArn -> fun () -> { appInstanceAdmin; appInstanceArn }
    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)
      | "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)
      | "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))]
      | `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
        [("AppInstanceAdmin",
           (Option.map x.appInstanceAdmin ~f:Identity.to_value));
        ("AppInstanceArn",
          (Option.map x.appInstanceArn ~f:ChimeArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        (Option.map ~f:ChimeArn.of_xml) (Xml.child xml_arg0 "AppInstanceArn") in
      let appInstanceAdmin =
        (Option.map ~f:Identity.of_xml)
          (Xml.child xml_arg0 "AppInstanceAdmin") in
      make ?appInstanceArn ?appInstanceAdmin ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn = field_map json__ "AppInstanceArn" ChimeArn.of_json in
      let appInstanceAdmin =
        field_map json__ "AppInstanceAdmin" Identity.of_json in
      make ?appInstanceArn ?appInstanceAdmin ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Promotes an AppInstanceUser or AppInstanceBot to an AppInstanceAdmin. The promoted entity can perform the following actions. ChannelModerator actions across all channels in the AppInstance. DeleteChannelMessage actions. Only an AppInstanceUser and AppInstanceBot can be promoted to an AppInstanceAdmin role."]
module CreateAppInstanceAdminRequest =
  struct
    type nonrec t =
      {
      appInstanceAdminArn: ChimeArn.t
        [@ocaml.doc
          "The ARN of the administrator of the current AppInstance."];
      appInstanceArn: ChimeArn.t [@ocaml.doc "The ARN of the AppInstance."]}
    let context_ = "CreateAppInstanceAdminRequest"
    let make ~appInstanceAdminArn =
      fun ~appInstanceArn ->
        fun () -> { appInstanceAdminArn; appInstanceArn }
    let to_value x =
      structure_to_value
        [("AppInstanceAdminArn",
           (Some (ChimeArn.to_value x.appInstanceAdminArn)));
        ("appInstanceArn", (Some (ChimeArn.to_value x.appInstanceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appInstanceArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appInstanceArn") in
      let appInstanceAdminArn =
        ChimeArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AppInstanceAdminArn") in
      make ~appInstanceArn ~appInstanceAdminArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appInstanceArn =
        field_map_exn json__ "AppInstanceArn" ChimeArn.of_json in
      let appInstanceAdminArn =
        field_map_exn json__ "AppInstanceAdminArn" ChimeArn.of_json in
      make ~appInstanceArn ~appInstanceAdminArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Promotes an AppInstanceUser or AppInstanceBot to an AppInstanceAdmin. The promoted entity can perform the following actions. ChannelModerator actions across all channels in the AppInstance. DeleteChannelMessage actions. Only an AppInstanceUser and AppInstanceBot can be promoted to an AppInstanceAdmin role."]