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.ivschat
let apiVersion = "2020-07-14"
let endpointPrefix = "ivschat"
let serviceFullName = "Amazon Interactive Video Service Chat"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "ivschat"
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 LogGroupName =
  struct
    type nonrec t = string
    let context_ = "LogGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (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:"LogGroupName" j
    let to_json = simple_to_json to_value
  end
module DeliveryStreamName =
  struct
    type nonrec t = string
    let context_ = "DeliveryStreamName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_.-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeliveryStreamName" j
    let to_json = simple_to_json to_value
  end
module BucketName =
  struct
    type nonrec t = string
    let context_ = "BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z0-9-.]+")));
        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:"BucketName" j
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module FieldName =
  struct
    type nonrec t = string
    let context_ = "FieldName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FieldName" j
    let to_json = simple_to_json to_value
  end
module LoggingConfigurationIdentifier =
  struct
    type nonrec t = string
    let context_ = "LoggingConfigurationIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:ivschat:[a-z0-9-]+:[0-9]+:logging-configuration/[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:"LoggingConfigurationIdentifier" j
    let to_json = simple_to_json to_value
  end
module FallbackResult =
  struct
    type nonrec t =
      | ALLOW 
      | DENY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALLOW -> "ALLOW" | DENY -> "DENY" | Non_static_id s -> s
    let of_string =
      function | "ALLOW" -> ALLOW | "DENY" -> DENY | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration FallbackResult" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FallbackResult" j)
    let to_json = simple_to_json to_value
  end
module LambdaArn =
  struct
    type nonrec t = string
    let context_ = "LambdaArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:170) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"$|^arn:aws:lambda:[a-z0-9-]+:[0-9]{12}:function:.+.*")));
        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:"LambdaArn" 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:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module CloudWatchLogsDestinationConfiguration =
  struct
    type nonrec t =
      {
      logGroupName: LogGroupName.t
        [@ocaml.doc
          "Name of the Amazon Cloudwatch Logs destination where chat activity will be logged."]}
    let context_ = "CloudWatchLogsDestinationConfiguration"
    let make ~logGroupName = fun () -> { logGroupName }
    let to_value x =
      structure_to_value
        [("logGroupName", (Some (LogGroupName.to_value x.logGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupName =
        LogGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "logGroupName") in
      make ~logGroupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupName =
        field_map_exn json__ "logGroupName" LogGroupName.of_json in
      make ~logGroupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a CloudWatch Logs location where chat logs will be stored."]
module FirehoseDestinationConfiguration =
  struct
    type nonrec t =
      {
      deliveryStreamName: DeliveryStreamName.t
        [@ocaml.doc
          "Name of the Amazon Kinesis Firehose delivery stream where chat activity will be logged."]}
    let context_ = "FirehoseDestinationConfiguration"
    let make ~deliveryStreamName = fun () -> { deliveryStreamName }
    let to_value x =
      structure_to_value
        [("deliveryStreamName",
           (Some (DeliveryStreamName.to_value x.deliveryStreamName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliveryStreamName =
        DeliveryStreamName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deliveryStreamName") in
      make ~deliveryStreamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliveryStreamName =
        field_map_exn json__ "deliveryStreamName" DeliveryStreamName.of_json in
      make ~deliveryStreamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a Kinesis Firehose location where chat logs will be stored."]
module S3DestinationConfiguration =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t
        [@ocaml.doc
          "Name of the Amazon S3 bucket where chat activity will be logged."]}
    let context_ = "S3DestinationConfiguration"
    let make ~bucketName = fun () -> { bucketName }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (BucketName.to_value x.bucketName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketName =
        BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketName = field_map_exn json__ "bucketName" BucketName.of_json in
      make ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specifies an S3 location where chat logs will be stored."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: FieldName.t option
        [@ocaml.doc "Name of the field which failed validation."];
      message: ErrorMessage.t option
        [@ocaml.doc "Explanation of the reason for the validation error."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:FieldName.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:FieldName.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let name = field_map json__ "name" FieldName.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This object is used in the ValidationException error."]
module LoggingConfigurationIdentifierList =
  struct
    type nonrec t = LoggingConfigurationIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LoggingConfigurationIdentifier.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:LoggingConfigurationIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"LoggingConfigurationIdentifierList"
        ~of_json:LoggingConfigurationIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageReviewHandler =
  struct
    type nonrec t =
      {
      uri: LambdaArn.t option
        [@ocaml.doc
          "Identifier of the message review handler. Currently this must be an ARN of a lambda function."];
      fallbackResult: FallbackResult.t option
        [@ocaml.doc
          "Specifies the fallback behavior (whether the message is allowed or denied) if the handler does not return a valid response, encounters an error, or times out. (For the timeout period, see Service Quotas.) If allowed, the message is delivered with returned content to all users connected to the room. If denied, the message is not delivered to any user. Default: ALLOW."]}
    let make ?uri = fun ?fallbackResult -> fun () -> { uri; fallbackResult }
    let to_value x =
      structure_to_value
        [("uri", (Option.map x.uri ~f:LambdaArn.to_value));
        ("fallbackResult",
          (Option.map x.fallbackResult ~f:FallbackResult.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fallbackResult =
        (Option.map ~f:FallbackResult.of_xml)
          (Xml.child xml_arg0 "fallbackResult") in
      let uri = (Option.map ~f:LambdaArn.of_xml) (Xml.child xml_arg0 "uri") in
      make ?fallbackResult ?uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fallbackResult =
        field_map json__ "fallbackResult" FallbackResult.of_json in
      let uri = field_map json__ "uri" LambdaArn.of_json in
      make ?fallbackResult ?uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration information for optional message review."]
module RoomArn =
  struct
    type nonrec t = string
    let context_ = "RoomArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:ivschat:[a-z0-9-]+:[0-9]+:room/[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:"RoomArn" j
    let to_json = simple_to_json to_value
  end
module RoomID =
  struct
    type nonrec t = string
    let context_ = "RoomID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (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:"RoomID" j
    let to_json = simple_to_json to_value
  end
module RoomName =
  struct
    type nonrec t = string
    let context_ = "RoomName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (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:"RoomName" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Time =
  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 DestinationConfiguration =
  struct
    type nonrec t =
      {
      s3: S3DestinationConfiguration.t option
        [@ocaml.doc
          "An Amazon S3 destination configuration where chat activity will be logged."];
      cloudWatchLogs: CloudWatchLogsDestinationConfiguration.t option
        [@ocaml.doc
          "An Amazon CloudWatch Logs destination configuration where chat activity will be logged."];
      firehose: FirehoseDestinationConfiguration.t option
        [@ocaml.doc
          "An Amazon Kinesis Data Firehose destination configuration where chat activity will be logged."]}
    let make ?s3 =
      fun ?cloudWatchLogs ->
        fun ?firehose -> fun () -> { s3; cloudWatchLogs; firehose }
    let to_value x =
      structure_to_value
        [("s3", (Option.map x.s3 ~f:S3DestinationConfiguration.to_value));
        ("cloudWatchLogs",
          (Option.map x.cloudWatchLogs
             ~f:CloudWatchLogsDestinationConfiguration.to_value));
        ("firehose",
          (Option.map x.firehose ~f:FirehoseDestinationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firehose =
        (Option.map ~f:FirehoseDestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "firehose") in
      let cloudWatchLogs =
        (Option.map ~f:CloudWatchLogsDestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "cloudWatchLogs") in
      let s3 =
        (Option.map ~f:S3DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "s3") in
      make ?firehose ?cloudWatchLogs ?s3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firehose =
        field_map json__ "firehose" FirehoseDestinationConfiguration.of_json in
      let cloudWatchLogs =
        field_map json__ "cloudWatchLogs"
          CloudWatchLogsDestinationConfiguration.of_json in
      let s3 = field_map json__ "s3" S3DestinationConfiguration.of_json in
      make ?firehose ?cloudWatchLogs ?s3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A complex type that describes a location where chat logs will be stored. Each member represents the configuration of one log destination. For logging, you define only one type of destination (for CloudWatch Logs, Kinesis Firehose, or S3)."]
module LoggingConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "LoggingConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:ivschat:[a-z0-9-]+:[0-9]+:logging-configuration/[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:"LoggingConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module LoggingConfigurationID =
  struct
    type nonrec t = string
    let context_ = "LoggingConfigurationID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (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:"LoggingConfigurationID" j
    let to_json = simple_to_json to_value
  end
module LoggingConfigurationName =
  struct
    type nonrec t = string
    let context_ = "LoggingConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (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:"LoggingConfigurationName" j
    let to_json = simple_to_json to_value
  end
module LoggingConfigurationState =
  struct
    type nonrec t =
      | CREATING 
      | CREATE_FAILED 
      | DELETING 
      | DELETE_FAILED 
      | UPDATING 
      | UPDATE_FAILED 
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETING -> "DELETING"
      | DELETE_FAILED -> "DELETE_FAILED"
      | UPDATING -> "UPDATING"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | ACTIVE -> "ACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETING" -> DELETING
      | "DELETE_FAILED" -> DELETE_FAILED
      | "UPDATING" -> UPDATING
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "ACTIVE" -> ACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration LoggingConfigurationState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LoggingConfigurationState" j)
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith (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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t =
      | ROOM 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ROOM -> "ROOM" | Non_static_id s -> s
    let of_string = function | "ROOM" -> ROOM | 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 ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UNKNOWN_OPERATION 
      | FIELD_VALIDATION_FAILED 
      | OTHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN_OPERATION -> "UNKNOWN_OPERATION"
      | FIELD_VALIDATION_FAILED -> "FIELD_VALIDATION_FAILED"
      | OTHER -> "OTHER"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN_OPERATION" -> UNKNOWN_OPERATION
      | "FIELD_VALIDATION_FAILED" -> FIELD_VALIDATION_FAILED
      | "OTHER" -> OTHER
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module Limit =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Limit" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module 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 RoomSummary =
  struct
    type nonrec t =
      {
      arn: RoomArn.t option [@ocaml.doc "Room ARN."];
      id: RoomID.t option
        [@ocaml.doc
          "Room ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the room."];
      name: RoomName.t option
        [@ocaml.doc "Room name. The value does not need to be unique."];
      messageReviewHandler: MessageReviewHandler.t option
        [@ocaml.doc
          "Configuration information for optional review of messages."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the room was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the room\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging Amazon Web Services Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS Chat has no constraints beyond what is documented there."];
      loggingConfigurationIdentifiers:
        LoggingConfigurationIdentifierList.t option
        [@ocaml.doc
          "List of logging-configuration identifiers attached to the room."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?messageReviewHandler ->
            fun ?createTime ->
              fun ?updateTime ->
                fun ?tags ->
                  fun ?loggingConfigurationIdentifiers ->
                    fun () ->
                      {
                        arn;
                        id;
                        name;
                        messageReviewHandler;
                        createTime;
                        updateTime;
                        tags;
                        loggingConfigurationIdentifiers
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RoomArn.to_value));
        ("id", (Option.map x.id ~f:RoomID.to_value));
        ("name", (Option.map x.name ~f:RoomName.to_value));
        ("messageReviewHandler",
          (Option.map x.messageReviewHandler ~f:MessageReviewHandler.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("loggingConfigurationIdentifiers",
          (Option.map x.loggingConfigurationIdentifiers
             ~f:LoggingConfigurationIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifiers =
        (Option.map ~f:LoggingConfigurationIdentifierList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifiers") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let messageReviewHandler =
        (Option.map ~f:MessageReviewHandler.of_xml)
          (Xml.child xml_arg0 "messageReviewHandler") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RoomID.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RoomArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?loggingConfigurationIdentifiers ?tags ?updateTime ?createTime
        ?messageReviewHandler ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifiers =
        field_map json__ "loggingConfigurationIdentifiers"
          LoggingConfigurationIdentifierList.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let messageReviewHandler =
        field_map json__ "messageReviewHandler" MessageReviewHandler.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      let id = field_map json__ "id" RoomID.of_json in
      let arn = field_map json__ "arn" RoomArn.of_json in
      make ?loggingConfigurationIdentifiers ?tags ?updateTime ?createTime
        ?messageReviewHandler ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a room."]
module LoggingConfigurationSummary =
  struct
    type nonrec t =
      {
      arn: LoggingConfigurationArn.t option
        [@ocaml.doc "Logging-configuration ARN."];
      id: LoggingConfigurationID.t option
        [@ocaml.doc
          "Logging-configuration ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the room."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the logging configuration was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the logging configuration\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      name: LoggingConfigurationName.t option
        [@ocaml.doc
          "Logging-configuration name. The value does not need to be unique."];
      destinationConfiguration: DestinationConfiguration.t option
        [@ocaml.doc
          "A complex type that contains a destination configuration for where chat content will be logged."];
      state: LoggingConfigurationState.t option
        [@ocaml.doc
          "The state of the logging configuration. When this is ACTIVE, the configuration is ready for logging chat content."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags to attach to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging Amazon Web Services Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS Chat has no constraints on tags beyond what is documented there."]}
    let make ?arn =
      fun ?id ->
        fun ?createTime ->
          fun ?updateTime ->
            fun ?name ->
              fun ?destinationConfiguration ->
                fun ?state ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        id;
                        createTime;
                        updateTime;
                        name;
                        destinationConfiguration;
                        state;
                        tags
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:LoggingConfigurationArn.to_value));
        ("id", (Option.map x.id ~f:LoggingConfigurationID.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("name", (Option.map x.name ~f:LoggingConfigurationName.to_value));
        ("destinationConfiguration",
          (Option.map x.destinationConfiguration
             ~f:DestinationConfiguration.to_value));
        ("state", (Option.map x.state ~f:LoggingConfigurationState.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let state =
        (Option.map ~f:LoggingConfigurationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let destinationConfiguration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "destinationConfiguration") in
      let name =
        (Option.map ~f:LoggingConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let id =
        (Option.map ~f:LoggingConfigurationID.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LoggingConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let state = field_map json__ "state" LoggingConfigurationState.of_json in
      let destinationConfiguration =
        field_map json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let name = field_map json__ "name" LoggingConfigurationName.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let id = field_map json__ "id" LoggingConfigurationID.of_json in
      let arn = field_map json__ "arn" LoggingConfigurationArn.of_json in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a logging configuration."]
module ChatTokenCapability =
  struct
    type nonrec t =
      | SEND_MESSAGE 
      | DISCONNECT_USER 
      | DELETE_MESSAGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEND_MESSAGE -> "SEND_MESSAGE"
      | DISCONNECT_USER -> "DISCONNECT_USER"
      | DELETE_MESSAGE -> "DELETE_MESSAGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEND_MESSAGE" -> SEND_MESSAGE
      | "DISCONNECT_USER" -> DISCONNECT_USER
      | "DELETE_MESSAGE" -> DELETE_MESSAGE
      | 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 ChatTokenCapability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChatTokenCapability" j)
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module PendingVerification =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option ;
      resourceType: ResourceType.t option }
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end
module RoomMaxMessageLength =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for RoomMaxMessageLength" 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 RoomMaxMessageRatePerSecond =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 RoomMaxMessageRatePerSecond"
           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 ValidationException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      reason: ValidationExceptionReason.t option ;
      fieldList: ValidationExceptionFieldList.t option }
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end
module RoomIdentifier =
  struct
    type nonrec t = string
    let context_ = "RoomIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:ivschat:[a-z0-9-]+:[0-9]+:room/[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:"RoomIdentifier" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option ;
      resourceType: ResourceType.t option }
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end
module UpdateLoggingConfigurationState =
  struct
    type nonrec t =
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ACTIVE -> "ACTIVE" | Non_static_id s -> s
    let of_string = function | "ACTIVE" -> ACTIVE | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration UpdateLoggingConfigurationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"UpdateLoggingConfigurationState" j)
    let to_json = simple_to_json to_value
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:ivschat:[a-z0-9-]+:[0-9]+:[a-z-]/[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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
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:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f: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 ID =
  struct
    type nonrec t = string
    let context_ = "ID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (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:"ID" j
    let to_json = simple_to_json to_value
  end
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option ;
      resourceType: ResourceType.t option ;
      limit: Limit.t option }
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?limit ->
            fun () -> { message; resourceId; resourceType; limit }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "limit") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?limit ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "limit" Limit.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?limit ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end
module EventAttributes =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventName =
  struct
    type nonrec t = string
    let context_ = "EventName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"EventName" j
    let to_json = simple_to_json to_value
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module RoomList =
  struct
    type nonrec t = RoomSummary.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:RoomSummary.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:RoomSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"RoomList" ~of_json:RoomSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxRoomResults =
  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 MaxRoomResults" 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 LoggingConfigurationList =
  struct
    type nonrec t = LoggingConfigurationSummary.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:LoggingConfigurationSummary.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:LoggingConfigurationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"LoggingConfigurationList"
        ~of_json:LoggingConfigurationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxLoggingConfigurationResults =
  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 MaxLoggingConfigurationResults"
           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 Reason =
  struct
    type nonrec t = string
    let context_ = "Reason"
    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:"Reason" j
    let to_json = simple_to_json to_value
  end
module UserID =
  struct
    type nonrec t = string
    let context_ = "UserID"
    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:"UserID" j
    let to_json = simple_to_json to_value
  end
module MessageID =
  struct
    type nonrec t = string
    let context_ = "MessageID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (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:"MessageID" j
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option ;
      resourceType: ResourceType.t option ;
      limit: Limit.t option }
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?limit ->
            fun () -> { message; resourceId; resourceType; limit }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "limit") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?limit ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "limit" Limit.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?limit ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end
module CreateLoggingConfigurationState =
  struct
    type nonrec t =
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ACTIVE -> "ACTIVE" | Non_static_id s -> s
    let of_string = function | "ACTIVE" -> ACTIVE | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CreateLoggingConfigurationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CreateLoggingConfigurationState" j)
    let to_json = simple_to_json to_value
  end
module ChatToken =
  struct
    type nonrec t = string
    let context_ = "ChatToken"
    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:"ChatToken" j
    let to_json = simple_to_json to_value
  end
module ChatTokenAttributes =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChatTokenCapabilities =
  struct
    type nonrec t = ChatTokenCapability.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:ChatTokenCapability.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:ChatTokenCapability.of_xml)
    let of_json j =
      list_of_json ~kind:"ChatTokenCapabilities"
        ~of_json:ChatTokenCapability.of_json j
    let to_json v = composed_to_json to_value v
  end
module SessionDurationInMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:180) >>= (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 SessionDurationInMinutes"
           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 UpdateRoomResponse =
  struct
    type nonrec t =
      {
      arn: RoomArn.t option
        [@ocaml.doc "Room ARN, from the request (if identifier was an ARN)."];
      id: RoomID.t option
        [@ocaml.doc
          "Room ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the room."];
      name: RoomName.t option
        [@ocaml.doc "Room name, from the request (if specified)."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the room was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the room\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      maximumMessageRatePerSecond: RoomMaxMessageRatePerSecond.t option
        [@ocaml.doc
          "Maximum number of messages per second that can be sent to the room (by all clients), from the request (if specified)."];
      maximumMessageLength: RoomMaxMessageLength.t option
        [@ocaml.doc
          "Maximum number of characters in a single message, from the request (if specified)."];
      messageReviewHandler: MessageReviewHandler.t option
        [@ocaml.doc
          "Configuration information for optional review of messages."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value)."];
      loggingConfigurationIdentifiers:
        LoggingConfigurationIdentifierList.t option
        [@ocaml.doc
          "Array of logging configurations attached to the room, from the request (if specified)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?createTime ->
            fun ?updateTime ->
              fun ?maximumMessageRatePerSecond ->
                fun ?maximumMessageLength ->
                  fun ?messageReviewHandler ->
                    fun ?tags ->
                      fun ?loggingConfigurationIdentifiers ->
                        fun () ->
                          {
                            arn;
                            id;
                            name;
                            createTime;
                            updateTime;
                            maximumMessageRatePerSecond;
                            maximumMessageLength;
                            messageReviewHandler;
                            tags;
                            loggingConfigurationIdentifiers
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RoomArn.to_value));
        ("id", (Option.map x.id ~f:RoomID.to_value));
        ("name", (Option.map x.name ~f:RoomName.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("maximumMessageRatePerSecond",
          (Option.map x.maximumMessageRatePerSecond
             ~f:RoomMaxMessageRatePerSecond.to_value));
        ("maximumMessageLength",
          (Option.map x.maximumMessageLength ~f:RoomMaxMessageLength.to_value));
        ("messageReviewHandler",
          (Option.map x.messageReviewHandler ~f:MessageReviewHandler.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("loggingConfigurationIdentifiers",
          (Option.map x.loggingConfigurationIdentifiers
             ~f:LoggingConfigurationIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifiers =
        (Option.map ~f:LoggingConfigurationIdentifierList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifiers") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let messageReviewHandler =
        (Option.map ~f:MessageReviewHandler.of_xml)
          (Xml.child xml_arg0 "messageReviewHandler") in
      let maximumMessageLength =
        (Option.map ~f:RoomMaxMessageLength.of_xml)
          (Xml.child xml_arg0 "maximumMessageLength") in
      let maximumMessageRatePerSecond =
        (Option.map ~f:RoomMaxMessageRatePerSecond.of_xml)
          (Xml.child xml_arg0 "maximumMessageRatePerSecond") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RoomID.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RoomArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?updateTime
        ?createTime ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifiers =
        field_map json__ "loggingConfigurationIdentifiers"
          LoggingConfigurationIdentifierList.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let messageReviewHandler =
        field_map json__ "messageReviewHandler" MessageReviewHandler.of_json in
      let maximumMessageLength =
        field_map json__ "maximumMessageLength" RoomMaxMessageLength.of_json in
      let maximumMessageRatePerSecond =
        field_map json__ "maximumMessageRatePerSecond"
          RoomMaxMessageRatePerSecond.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      let id = field_map json__ "id" RoomID.of_json in
      let arn = field_map json__ "arn" RoomArn.of_json in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?updateTime
        ?createTime ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a room\226\128\153s configuration."]
module UpdateRoomRequest =
  struct
    type nonrec t =
      {
      identifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room to be updated. Currently this must be an ARN."];
      name: RoomName.t option
        [@ocaml.doc "Room name. The value does not need to be unique."];
      maximumMessageRatePerSecond: RoomMaxMessageRatePerSecond.t option
        [@ocaml.doc
          "Maximum number of messages per second that can be sent to the room (by all clients). Default: 10."];
      maximumMessageLength: RoomMaxMessageLength.t option
        [@ocaml.doc
          "The maximum number of characters in a single message. Messages are expected to be UTF-8 encoded and this limit applies specifically to rune/code-point count, not number of bytes. Default: 500."];
      messageReviewHandler: MessageReviewHandler.t option
        [@ocaml.doc
          "Configuration information for optional review of messages. Specify an empty uri string to disassociate a message review handler from the specified room."];
      loggingConfigurationIdentifiers:
        LoggingConfigurationIdentifierList.t option
        [@ocaml.doc
          "Array of logging-configuration identifiers attached to the room."]}
    let context_ = "UpdateRoomRequest"
    let make ?name =
      fun ?maximumMessageRatePerSecond ->
        fun ?maximumMessageLength ->
          fun ?messageReviewHandler ->
            fun ?loggingConfigurationIdentifiers ->
              fun ~identifier ->
                fun () ->
                  {
                    name;
                    maximumMessageRatePerSecond;
                    maximumMessageLength;
                    messageReviewHandler;
                    loggingConfigurationIdentifiers;
                    identifier
                  }
    let to_value x =
      structure_to_value
        [("identifier", (Some (RoomIdentifier.to_value x.identifier)));
        ("name", (Option.map x.name ~f:RoomName.to_value));
        ("maximumMessageRatePerSecond",
          (Option.map x.maximumMessageRatePerSecond
             ~f:RoomMaxMessageRatePerSecond.to_value));
        ("maximumMessageLength",
          (Option.map x.maximumMessageLength ~f:RoomMaxMessageLength.to_value));
        ("messageReviewHandler",
          (Option.map x.messageReviewHandler ~f:MessageReviewHandler.to_value));
        ("loggingConfigurationIdentifiers",
          (Option.map x.loggingConfigurationIdentifiers
             ~f:LoggingConfigurationIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifiers =
        (Option.map ~f:LoggingConfigurationIdentifierList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifiers") in
      let messageReviewHandler =
        (Option.map ~f:MessageReviewHandler.of_xml)
          (Xml.child xml_arg0 "messageReviewHandler") in
      let maximumMessageLength =
        (Option.map ~f:RoomMaxMessageLength.of_xml)
          (Xml.child xml_arg0 "maximumMessageLength") in
      let maximumMessageRatePerSecond =
        (Option.map ~f:RoomMaxMessageRatePerSecond.of_xml)
          (Xml.child xml_arg0 "maximumMessageRatePerSecond") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      let identifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ?loggingConfigurationIdentifiers ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?name ~identifier
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifiers =
        field_map json__ "loggingConfigurationIdentifiers"
          LoggingConfigurationIdentifierList.of_json in
      let messageReviewHandler =
        field_map json__ "messageReviewHandler" MessageReviewHandler.of_json in
      let maximumMessageLength =
        field_map json__ "maximumMessageLength" RoomMaxMessageLength.of_json in
      let maximumMessageRatePerSecond =
        field_map json__ "maximumMessageRatePerSecond"
          RoomMaxMessageRatePerSecond.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      let identifier =
        field_map_exn json__ "identifier" RoomIdentifier.of_json in
      make ?loggingConfigurationIdentifiers ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?name ~identifier
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a room\226\128\153s configuration."]
module UpdateLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: LoggingConfigurationArn.t option
        [@ocaml.doc
          "Logging-configuration ARN, from the request (if identifier was an ARN)."];
      id: LoggingConfigurationID.t option
        [@ocaml.doc
          "Logging-configuration ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the room."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the logging configuration was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the logging configuration\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      name: LoggingConfigurationName.t option
        [@ocaml.doc
          "Logging-configuration name, from the request (if specified)."];
      destinationConfiguration: DestinationConfiguration.t option
        [@ocaml.doc
          "A complex type that contains a destination configuration for where chat content will be logged, from the request. There is only one type of destination (cloudWatchLogs, firehose, or s3) in a destinationConfiguration."];
      state: UpdateLoggingConfigurationState.t option
        [@ocaml.doc
          "The state of the logging configuration. When the state is ACTIVE, the configuration is ready to log chat content."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?createTime ->
          fun ?updateTime ->
            fun ?name ->
              fun ?destinationConfiguration ->
                fun ?state ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        id;
                        createTime;
                        updateTime;
                        name;
                        destinationConfiguration;
                        state;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:LoggingConfigurationArn.to_value));
        ("id", (Option.map x.id ~f:LoggingConfigurationID.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("name", (Option.map x.name ~f:LoggingConfigurationName.to_value));
        ("destinationConfiguration",
          (Option.map x.destinationConfiguration
             ~f:DestinationConfiguration.to_value));
        ("state",
          (Option.map x.state ~f:UpdateLoggingConfigurationState.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let state =
        (Option.map ~f:UpdateLoggingConfigurationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let destinationConfiguration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "destinationConfiguration") in
      let name =
        (Option.map ~f:LoggingConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let id =
        (Option.map ~f:LoggingConfigurationID.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LoggingConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let state =
        field_map json__ "state" UpdateLoggingConfigurationState.of_json in
      let destinationConfiguration =
        field_map json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let name = field_map json__ "name" LoggingConfigurationName.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let id = field_map json__ "id" LoggingConfigurationID.of_json in
      let arn = field_map json__ "arn" LoggingConfigurationArn.of_json in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a specified logging configuration."]
module UpdateLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      identifier: LoggingConfigurationIdentifier.t
        [@ocaml.doc "Identifier of the logging configuration to be updated."];
      name: LoggingConfigurationName.t option
        [@ocaml.doc
          "Logging-configuration name. The value does not need to be unique."];
      destinationConfiguration: DestinationConfiguration.t option
        [@ocaml.doc
          "A complex type that contains a destination configuration for where chat content will be logged. There can be only one type of destination (cloudWatchLogs, firehose, or s3) in a destinationConfiguration."]}
    let context_ = "UpdateLoggingConfigurationRequest"
    let make ?name =
      fun ?destinationConfiguration ->
        fun ~identifier ->
          fun () -> { name; destinationConfiguration; identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (LoggingConfigurationIdentifier.to_value x.identifier)));
        ("name", (Option.map x.name ~f:LoggingConfigurationName.to_value));
        ("destinationConfiguration",
          (Option.map x.destinationConfiguration
             ~f:DestinationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationConfiguration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "destinationConfiguration") in
      let name =
        (Option.map ~f:LoggingConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let identifier =
        LoggingConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ?destinationConfiguration ?name ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationConfiguration =
        field_map json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let name = field_map json__ "name" LoggingConfigurationName.of_json in
      let identifier =
        field_map_exn json__ "identifier"
          LoggingConfigurationIdentifier.of_json in
      make ?destinationConfiguration ?name ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a specified logging configuration."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the resource with the specified ARN."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ARN of the resource to be untagged. The ARN must be URL-encoded."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "Array of tags to be removed. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging Amazon Web Services Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS Chat has no constraints beyond what is documented there."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.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 =
        ResourceArn.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" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the resource with the specified ARN."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for the AWS resource with the specified ARN."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ARN of the resource to be tagged. The ARN must be URL-encoded."];
      tags: Tags.t
        [@ocaml.doc
          "Array of tags to be added or updated. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging Amazon Web Services Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS Chat has no constraints beyond what is documented there."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        ResourceArn.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" Tags.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for the AWS resource with the specified ARN."]
module SendEventResponse =
  struct
    type nonrec t =
      {
      id: ID.t option
        [@ocaml.doc
          "An identifier generated by Amazon IVS Chat. This identifier must be used in subsequent operations for this message, such as DeleteMessage."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun () -> { id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("id", (Option.map x.id ~f:ID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:ID.of_xml) (Xml.child xml_arg0 "id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" ID.of_json in make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends an event to a room. Use this within your application\226\128\153s business logic to send events to clients of a room; e.g., to notify clients to change the way the chat UI is rendered."]
module SendEventRequest =
  struct
    type nonrec t =
      {
      roomIdentifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room to which the event will be sent. Currently this must be an ARN."];
      eventName: EventName.t
        [@ocaml.doc
          "Application-defined name of the event to send to clients."];
      attributes: EventAttributes.t option
        [@ocaml.doc
          "Application-defined metadata to attach to the event sent to clients. The maximum length of the metadata is 1 KB total."]}
    let context_ = "SendEventRequest"
    let make ?attributes =
      fun ~roomIdentifier ->
        fun ~eventName -> fun () -> { attributes; roomIdentifier; eventName }
    let to_value x =
      structure_to_value
        [("roomIdentifier",
           (Some (RoomIdentifier.to_value x.roomIdentifier)));
        ("eventName", (Some (EventName.to_value x.eventName)));
        ("attributes", (Option.map x.attributes ~f:EventAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:EventAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let eventName =
        EventName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventName") in
      let roomIdentifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomIdentifier") in
      make ?attributes ~eventName ~roomIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" EventAttributes.of_json in
      let eventName = field_map_exn json__ "eventName" EventName.of_json in
      let roomIdentifier =
        field_map_exn json__ "roomIdentifier" RoomIdentifier.of_json in
      make ?attributes ~eventName ~roomIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends an event to a room. Use this within your application\226\128\153s business logic to send events to clients of a room; e.g., to notify clients to change the way the chat UI is rendered."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value)."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about AWS tags for the specified ARN."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The ARN of the resource to be retrieved. The ARN must be URL-encoded."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about AWS tags for the specified ARN."]
module ListRoomsResponse =
  struct
    type nonrec t =
      {
      rooms: RoomList.t option
        [@ocaml.doc "List of the matching rooms (summary information only)."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more rooms than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rooms = fun ?nextToken -> fun () -> { rooms; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("rooms", (Option.map x.rooms ~f:RoomList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let rooms =
        (Option.map ~f:RoomList.of_xml) (Xml.child xml_arg0 "rooms") in
      make ?nextToken ?rooms ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let rooms = field_map json__ "rooms" RoomList.of_json in
      make ?nextToken ?rooms ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all your rooms in the AWS region where the API request is processed. Results are sorted in descending order of updateTime."]
module ListRoomsRequest =
  struct
    type nonrec t =
      {
      name: RoomName.t option
        [@ocaml.doc "Filters the list to match the specified room name."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first room to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxRoomResults.t option
        [@ocaml.doc "Maximum number of rooms to return. Default: 50."];
      messageReviewHandlerUri: LambdaArn.t option
        [@ocaml.doc
          "Filters the list to match the specified message review handler URI."];
      loggingConfigurationIdentifier: LoggingConfigurationIdentifier.t option
        [@ocaml.doc "Logging-configuration identifier."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?messageReviewHandlerUri ->
            fun ?loggingConfigurationIdentifier ->
              fun () ->
                {
                  name;
                  nextToken;
                  maxResults;
                  messageReviewHandlerUri;
                  loggingConfigurationIdentifier
                }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:RoomName.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxRoomResults.to_value));
        ("messageReviewHandlerUri",
          (Option.map x.messageReviewHandlerUri ~f:LambdaArn.to_value));
        ("loggingConfigurationIdentifier",
          (Option.map x.loggingConfigurationIdentifier
             ~f:LoggingConfigurationIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifier =
        (Option.map ~f:LoggingConfigurationIdentifier.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifier") in
      let messageReviewHandlerUri =
        (Option.map ~f:LambdaArn.of_xml)
          (Xml.child xml_arg0 "messageReviewHandlerUri") in
      let maxResults =
        (Option.map ~f:MaxRoomResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      make ?loggingConfigurationIdentifier ?messageReviewHandlerUri
        ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifier =
        field_map json__ "loggingConfigurationIdentifier"
          LoggingConfigurationIdentifier.of_json in
      let messageReviewHandlerUri =
        field_map json__ "messageReviewHandlerUri" LambdaArn.of_json in
      let maxResults = field_map json__ "maxResults" MaxRoomResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      make ?loggingConfigurationIdentifier ?messageReviewHandlerUri
        ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all your rooms in the AWS region where the API request is processed. Results are sorted in descending order of updateTime."]
module ListLoggingConfigurationsResponse =
  struct
    type nonrec t =
      {
      loggingConfigurations: LoggingConfigurationList.t option
        [@ocaml.doc
          "List of the matching logging configurations (summary information only). There is only one type of destination (cloudWatchLogs, firehose, or s3) in a destinationConfiguration."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "If there are more logging configurations than maxResults, use nextToken in the request to get the next set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?loggingConfigurations =
      fun ?nextToken -> fun () -> { loggingConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("loggingConfigurations",
           (Option.map x.loggingConfigurations
              ~f:LoggingConfigurationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let loggingConfigurations =
        (Option.map ~f:LoggingConfigurationList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurations") in
      make ?nextToken ?loggingConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let loggingConfigurations =
        field_map json__ "loggingConfigurations"
          LoggingConfigurationList.of_json in
      make ?nextToken ?loggingConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all your logging configurations in the AWS region where the API request is processed."]
module ListLoggingConfigurationsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The first logging configurations to retrieve. This is used for pagination; see the nextToken response field."];
      maxResults: MaxLoggingConfigurationResults.t option
        [@ocaml.doc
          "Maximum number of logging configurations to return. Default: 50."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxLoggingConfigurationResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxLoggingConfigurationResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxLoggingConfigurationResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets summary information about all your logging configurations in the AWS region where the API request is processed."]
module GetRoomResponse =
  struct
    type nonrec t =
      {
      arn: RoomArn.t option
        [@ocaml.doc "Room ARN, from the request (if identifier was an ARN)."];
      id: RoomID.t option
        [@ocaml.doc
          "Room ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the room."];
      name: RoomName.t option
        [@ocaml.doc "Room name. The value does not need to be unique."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the room was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the room\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      maximumMessageRatePerSecond: RoomMaxMessageRatePerSecond.t option
        [@ocaml.doc
          "Maximum number of messages per second that can be sent to the room (by all clients). Default: 10."];
      maximumMessageLength: RoomMaxMessageLength.t option
        [@ocaml.doc
          "Maximum number of characters in a single message. Messages are expected to be UTF-8 encoded and this limit applies specifically to rune/code-point count, not number of bytes. Default: 500."];
      messageReviewHandler: MessageReviewHandler.t option
        [@ocaml.doc
          "Configuration information for optional review of messages."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value)."];
      loggingConfigurationIdentifiers:
        LoggingConfigurationIdentifierList.t option
        [@ocaml.doc "Array of logging configurations attached to the room."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?createTime ->
            fun ?updateTime ->
              fun ?maximumMessageRatePerSecond ->
                fun ?maximumMessageLength ->
                  fun ?messageReviewHandler ->
                    fun ?tags ->
                      fun ?loggingConfigurationIdentifiers ->
                        fun () ->
                          {
                            arn;
                            id;
                            name;
                            createTime;
                            updateTime;
                            maximumMessageRatePerSecond;
                            maximumMessageLength;
                            messageReviewHandler;
                            tags;
                            loggingConfigurationIdentifiers
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RoomArn.to_value));
        ("id", (Option.map x.id ~f:RoomID.to_value));
        ("name", (Option.map x.name ~f:RoomName.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("maximumMessageRatePerSecond",
          (Option.map x.maximumMessageRatePerSecond
             ~f:RoomMaxMessageRatePerSecond.to_value));
        ("maximumMessageLength",
          (Option.map x.maximumMessageLength ~f:RoomMaxMessageLength.to_value));
        ("messageReviewHandler",
          (Option.map x.messageReviewHandler ~f:MessageReviewHandler.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("loggingConfigurationIdentifiers",
          (Option.map x.loggingConfigurationIdentifiers
             ~f:LoggingConfigurationIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifiers =
        (Option.map ~f:LoggingConfigurationIdentifierList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifiers") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let messageReviewHandler =
        (Option.map ~f:MessageReviewHandler.of_xml)
          (Xml.child xml_arg0 "messageReviewHandler") in
      let maximumMessageLength =
        (Option.map ~f:RoomMaxMessageLength.of_xml)
          (Xml.child xml_arg0 "maximumMessageLength") in
      let maximumMessageRatePerSecond =
        (Option.map ~f:RoomMaxMessageRatePerSecond.of_xml)
          (Xml.child xml_arg0 "maximumMessageRatePerSecond") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RoomID.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RoomArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?updateTime
        ?createTime ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifiers =
        field_map json__ "loggingConfigurationIdentifiers"
          LoggingConfigurationIdentifierList.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let messageReviewHandler =
        field_map json__ "messageReviewHandler" MessageReviewHandler.of_json in
      let maximumMessageLength =
        field_map json__ "maximumMessageLength" RoomMaxMessageLength.of_json in
      let maximumMessageRatePerSecond =
        field_map json__ "maximumMessageRatePerSecond"
          RoomMaxMessageRatePerSecond.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      let id = field_map json__ "id" RoomID.of_json in
      let arn = field_map json__ "arn" RoomArn.of_json in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?updateTime
        ?createTime ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the specified room."]
module GetRoomRequest =
  struct
    type nonrec t =
      {
      identifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room for which the configuration is to be retrieved. Currently this must be an ARN."]}
    let context_ = "GetRoomRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier", (Some (RoomIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier" RoomIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the specified room."]
module GetLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: LoggingConfigurationArn.t option
        [@ocaml.doc
          "Logging-configuration ARN, from the request (if identifier was an ARN)."];
      id: LoggingConfigurationID.t option
        [@ocaml.doc
          "Logging-configuration ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the logging configuration."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the logging configuration was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the logging configuration\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      name: LoggingConfigurationName.t option
        [@ocaml.doc
          "Logging-configuration name. This value does not need to be unique."];
      destinationConfiguration: DestinationConfiguration.t option
        [@ocaml.doc
          "A complex type that contains a destination configuration for where chat content will be logged. There is only one type of destination (cloudWatchLogs, firehose, or s3) in a destinationConfiguration."];
      state: LoggingConfigurationState.t option
        [@ocaml.doc
          "The state of the logging configuration. When the state is ACTIVE, the configuration is ready to log chat content."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource. Array of maps, each of the form string:string (key:value)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?createTime ->
          fun ?updateTime ->
            fun ?name ->
              fun ?destinationConfiguration ->
                fun ?state ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        id;
                        createTime;
                        updateTime;
                        name;
                        destinationConfiguration;
                        state;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:LoggingConfigurationArn.to_value));
        ("id", (Option.map x.id ~f:LoggingConfigurationID.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("name", (Option.map x.name ~f:LoggingConfigurationName.to_value));
        ("destinationConfiguration",
          (Option.map x.destinationConfiguration
             ~f:DestinationConfiguration.to_value));
        ("state", (Option.map x.state ~f:LoggingConfigurationState.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let state =
        (Option.map ~f:LoggingConfigurationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let destinationConfiguration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "destinationConfiguration") in
      let name =
        (Option.map ~f:LoggingConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let id =
        (Option.map ~f:LoggingConfigurationID.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LoggingConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let state = field_map json__ "state" LoggingConfigurationState.of_json in
      let destinationConfiguration =
        field_map json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let name = field_map json__ "name" LoggingConfigurationName.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let id = field_map json__ "id" LoggingConfigurationID.of_json in
      let arn = field_map json__ "arn" LoggingConfigurationArn.of_json in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the specified logging configuration."]
module GetLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      identifier: LoggingConfigurationIdentifier.t
        [@ocaml.doc
          "Identifier of the logging configuration to be retrieved."]}
    let context_ = "GetLoggingConfigurationRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (LoggingConfigurationIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        LoggingConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier"
          LoggingConfigurationIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the specified logging configuration."]
module DisconnectUserResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disconnects all connections using a specified user ID from a room. This replicates the DisconnectUser WebSocket operation in the Amazon IVS Chat Messaging API."]
module DisconnectUserRequest =
  struct
    type nonrec t =
      {
      roomIdentifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room from which the user's clients should be disconnected. Currently this must be an ARN."];
      userId: UserID.t
        [@ocaml.doc
          "ID of the user (connection) to disconnect from the room."];
      reason: Reason.t option
        [@ocaml.doc "Reason for disconnecting the user."]}
    let context_ = "DisconnectUserRequest"
    let make ?reason =
      fun ~roomIdentifier ->
        fun ~userId -> fun () -> { reason; roomIdentifier; userId }
    let to_value x =
      structure_to_value
        [("roomIdentifier",
           (Some (RoomIdentifier.to_value x.roomIdentifier)));
        ("userId", (Some (UserID.to_value x.userId)));
        ("reason", (Option.map x.reason ~f:Reason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:Reason.of_xml) (Xml.child xml_arg0 "reason") in
      let userId =
        UserID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let roomIdentifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomIdentifier") in
      make ?reason ~userId ~roomIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" Reason.of_json in
      let userId = field_map_exn json__ "userId" UserID.of_json in
      let roomIdentifier =
        field_map_exn json__ "roomIdentifier" RoomIdentifier.of_json in
      make ?reason ~userId ~roomIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disconnects all connections using a specified user ID from a room. This replicates the DisconnectUser WebSocket operation in the Amazon IVS Chat Messaging API."]
module DeleteRoomRequest =
  struct
    type nonrec t =
      {
      identifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room to be deleted. Currently this must be an ARN."]}
    let context_ = "DeleteRoomRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier", (Some (RoomIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier" RoomIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified room."]
module DeleteMessageResponse =
  struct
    type nonrec t =
      {
      id: ID.t option
        [@ocaml.doc "Operation identifier, generated by Amazon IVS Chat."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id = fun () -> { id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("id", (Option.map x.id ~f:ID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:ID.of_xml) (Xml.child xml_arg0 "id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" ID.of_json in make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends an event to a specific room which directs clients to delete a specific message; that is, unrender it from view and delete it from the client\226\128\153s chat history. This event\226\128\153s EventName is aws:DELETE_MESSAGE. This replicates the DeleteMessage WebSocket operation in the Amazon IVS Chat Messaging API."]
module DeleteMessageRequest =
  struct
    type nonrec t =
      {
      roomIdentifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room where the message should be deleted. Currently this must be an ARN."];
      id: MessageID.t
        [@ocaml.doc
          "ID of the message to be deleted. This is the Id field in the received message (see Message (Subscribe) in the Chat Messaging API)."];
      reason: Reason.t option [@ocaml.doc "Reason for deleting the message."]}
    let context_ = "DeleteMessageRequest"
    let make ?reason =
      fun ~roomIdentifier ->
        fun ~id -> fun () -> { reason; roomIdentifier; id }
    let to_value x =
      structure_to_value
        [("roomIdentifier",
           (Some (RoomIdentifier.to_value x.roomIdentifier)));
        ("id", (Some (MessageID.to_value x.id)));
        ("reason", (Option.map x.reason ~f:Reason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:Reason.of_xml) (Xml.child xml_arg0 "reason") in
      let id =
        MessageID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let roomIdentifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomIdentifier") in
      make ?reason ~id ~roomIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" Reason.of_json in
      let id = field_map_exn json__ "id" MessageID.of_json in
      let roomIdentifier =
        field_map_exn json__ "roomIdentifier" RoomIdentifier.of_json in
      make ?reason ~id ~roomIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends an event to a specific room which directs clients to delete a specific message; that is, unrender it from view and delete it from the client\226\128\153s chat history. This event\226\128\153s EventName is aws:DELETE_MESSAGE. This replicates the DeleteMessage WebSocket operation in the Amazon IVS Chat Messaging API."]
module DeleteLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      identifier: LoggingConfigurationIdentifier.t
        [@ocaml.doc "Identifier of the logging configuration to be deleted."]}
    let context_ = "DeleteLoggingConfigurationRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (LoggingConfigurationIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        LoggingConfigurationIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier"
          LoggingConfigurationIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified logging configuration."]
module CreateRoomResponse =
  struct
    type nonrec t =
      {
      arn: RoomArn.t option [@ocaml.doc "Room ARN, assigned by the system."];
      id: RoomID.t option
        [@ocaml.doc
          "Room ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the room."];
      name: RoomName.t option
        [@ocaml.doc "Room name, from the request (if specified)."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the room was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the room\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      maximumMessageRatePerSecond: RoomMaxMessageRatePerSecond.t option
        [@ocaml.doc
          "Maximum number of messages per second that can be sent to the room (by all clients), from the request (if specified)."];
      maximumMessageLength: RoomMaxMessageLength.t option
        [@ocaml.doc
          "Maximum number of characters in a single message, from the request (if specified)."];
      messageReviewHandler: MessageReviewHandler.t option
        [@ocaml.doc
          "Configuration information for optional review of messages."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource, from the request (if specified)."];
      loggingConfigurationIdentifiers:
        LoggingConfigurationIdentifierList.t option
        [@ocaml.doc
          "Array of logging configurations attached to the room, from the request (if specified)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?createTime ->
            fun ?updateTime ->
              fun ?maximumMessageRatePerSecond ->
                fun ?maximumMessageLength ->
                  fun ?messageReviewHandler ->
                    fun ?tags ->
                      fun ?loggingConfigurationIdentifiers ->
                        fun () ->
                          {
                            arn;
                            id;
                            name;
                            createTime;
                            updateTime;
                            maximumMessageRatePerSecond;
                            maximumMessageLength;
                            messageReviewHandler;
                            tags;
                            loggingConfigurationIdentifiers
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:RoomArn.to_value));
        ("id", (Option.map x.id ~f:RoomID.to_value));
        ("name", (Option.map x.name ~f:RoomName.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("maximumMessageRatePerSecond",
          (Option.map x.maximumMessageRatePerSecond
             ~f:RoomMaxMessageRatePerSecond.to_value));
        ("maximumMessageLength",
          (Option.map x.maximumMessageLength ~f:RoomMaxMessageLength.to_value));
        ("messageReviewHandler",
          (Option.map x.messageReviewHandler ~f:MessageReviewHandler.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("loggingConfigurationIdentifiers",
          (Option.map x.loggingConfigurationIdentifiers
             ~f:LoggingConfigurationIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifiers =
        (Option.map ~f:LoggingConfigurationIdentifierList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifiers") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let messageReviewHandler =
        (Option.map ~f:MessageReviewHandler.of_xml)
          (Xml.child xml_arg0 "messageReviewHandler") in
      let maximumMessageLength =
        (Option.map ~f:RoomMaxMessageLength.of_xml)
          (Xml.child xml_arg0 "maximumMessageLength") in
      let maximumMessageRatePerSecond =
        (Option.map ~f:RoomMaxMessageRatePerSecond.of_xml)
          (Xml.child xml_arg0 "maximumMessageRatePerSecond") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:RoomID.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:RoomArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?updateTime
        ?createTime ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifiers =
        field_map json__ "loggingConfigurationIdentifiers"
          LoggingConfigurationIdentifierList.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let messageReviewHandler =
        field_map json__ "messageReviewHandler" MessageReviewHandler.of_json in
      let maximumMessageLength =
        field_map json__ "maximumMessageLength" RoomMaxMessageLength.of_json in
      let maximumMessageRatePerSecond =
        field_map json__ "maximumMessageRatePerSecond"
          RoomMaxMessageRatePerSecond.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      let id = field_map json__ "id" RoomID.of_json in
      let arn = field_map json__ "arn" RoomArn.of_json in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?updateTime
        ?createTime ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a room that allows clients to connect and pass messages."]
module CreateRoomRequest =
  struct
    type nonrec t =
      {
      name: RoomName.t option
        [@ocaml.doc "Room name. The value does not need to be unique."];
      maximumMessageRatePerSecond: RoomMaxMessageRatePerSecond.t option
        [@ocaml.doc
          "Maximum number of messages per second that can be sent to the room (by all clients). Default: 10."];
      maximumMessageLength: RoomMaxMessageLength.t option
        [@ocaml.doc
          "Maximum number of characters in a single message. Messages are expected to be UTF-8 encoded and this limit applies specifically to rune/code-point count, not number of bytes. Default: 500."];
      messageReviewHandler: MessageReviewHandler.t option
        [@ocaml.doc
          "Configuration information for optional review of messages."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags to attach to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging Amazon Web Services Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS Chat has no constraints beyond what is documented there."];
      loggingConfigurationIdentifiers:
        LoggingConfigurationIdentifierList.t option
        [@ocaml.doc
          "Array of logging-configuration identifiers attached to the room."]}
    let make ?name =
      fun ?maximumMessageRatePerSecond ->
        fun ?maximumMessageLength ->
          fun ?messageReviewHandler ->
            fun ?tags ->
              fun ?loggingConfigurationIdentifiers ->
                fun () ->
                  {
                    name;
                    maximumMessageRatePerSecond;
                    maximumMessageLength;
                    messageReviewHandler;
                    tags;
                    loggingConfigurationIdentifiers
                  }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:RoomName.to_value));
        ("maximumMessageRatePerSecond",
          (Option.map x.maximumMessageRatePerSecond
             ~f:RoomMaxMessageRatePerSecond.to_value));
        ("maximumMessageLength",
          (Option.map x.maximumMessageLength ~f:RoomMaxMessageLength.to_value));
        ("messageReviewHandler",
          (Option.map x.messageReviewHandler ~f:MessageReviewHandler.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("loggingConfigurationIdentifiers",
          (Option.map x.loggingConfigurationIdentifiers
             ~f:LoggingConfigurationIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfigurationIdentifiers =
        (Option.map ~f:LoggingConfigurationIdentifierList.of_xml)
          (Xml.child xml_arg0 "loggingConfigurationIdentifiers") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let messageReviewHandler =
        (Option.map ~f:MessageReviewHandler.of_xml)
          (Xml.child xml_arg0 "messageReviewHandler") in
      let maximumMessageLength =
        (Option.map ~f:RoomMaxMessageLength.of_xml)
          (Xml.child xml_arg0 "maximumMessageLength") in
      let maximumMessageRatePerSecond =
        (Option.map ~f:RoomMaxMessageRatePerSecond.of_xml)
          (Xml.child xml_arg0 "maximumMessageRatePerSecond") in
      let name = (Option.map ~f:RoomName.of_xml) (Xml.child xml_arg0 "name") in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfigurationIdentifiers =
        field_map json__ "loggingConfigurationIdentifiers"
          LoggingConfigurationIdentifierList.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let messageReviewHandler =
        field_map json__ "messageReviewHandler" MessageReviewHandler.of_json in
      let maximumMessageLength =
        field_map json__ "maximumMessageLength" RoomMaxMessageLength.of_json in
      let maximumMessageRatePerSecond =
        field_map json__ "maximumMessageRatePerSecond"
          RoomMaxMessageRatePerSecond.of_json in
      let name = field_map json__ "name" RoomName.of_json in
      make ?loggingConfigurationIdentifiers ?tags ?messageReviewHandler
        ?maximumMessageLength ?maximumMessageRatePerSecond ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a room that allows clients to connect and pass messages."]
module CreateLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      arn: LoggingConfigurationArn.t option
        [@ocaml.doc "Logging-configuration ARN, assigned by the system."];
      id: LoggingConfigurationID.t option
        [@ocaml.doc
          "Logging-configuration ID, generated by the system. This is a relative identifier, the part of the ARN that uniquely identifies the logging configuration."];
      createTime: Time.t option
        [@ocaml.doc
          "Time when the logging configuration was created. This is an ISO 8601 timestamp; note that this is returned as a string."];
      updateTime: Time.t option
        [@ocaml.doc
          "Time of the logging configuration\226\128\153s last update. This is an ISO 8601 timestamp; note that this is returned as a string."];
      name: LoggingConfigurationName.t option
        [@ocaml.doc
          "Logging-configuration name, from the request (if specified)."];
      destinationConfiguration: DestinationConfiguration.t option
        [@ocaml.doc
          "A complex type that contains a destination configuration for where chat content will be logged, from the request. There is only one type of destination (cloudWatchLogs, firehose, or s3) in a destinationConfiguration."];
      state: CreateLoggingConfigurationState.t option
        [@ocaml.doc
          "The state of the logging configuration. When the state is ACTIVE, the configuration is ready to log chat content."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags attached to the resource, from the request (if specified). Array of maps, each of the form string:string (key:value)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?id ->
        fun ?createTime ->
          fun ?updateTime ->
            fun ?name ->
              fun ?destinationConfiguration ->
                fun ?state ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        id;
                        createTime;
                        updateTime;
                        name;
                        destinationConfiguration;
                        state;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:LoggingConfigurationArn.to_value));
        ("id", (Option.map x.id ~f:LoggingConfigurationID.to_value));
        ("createTime", (Option.map x.createTime ~f:Time.to_value));
        ("updateTime", (Option.map x.updateTime ~f:Time.to_value));
        ("name", (Option.map x.name ~f:LoggingConfigurationName.to_value));
        ("destinationConfiguration",
          (Option.map x.destinationConfiguration
             ~f:DestinationConfiguration.to_value));
        ("state",
          (Option.map x.state ~f:CreateLoggingConfigurationState.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let state =
        (Option.map ~f:CreateLoggingConfigurationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let destinationConfiguration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "destinationConfiguration") in
      let name =
        (Option.map ~f:LoggingConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      let updateTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createTime") in
      let id =
        (Option.map ~f:LoggingConfigurationID.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LoggingConfigurationArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let state =
        field_map json__ "state" CreateLoggingConfigurationState.of_json in
      let destinationConfiguration =
        field_map json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let name = field_map json__ "name" LoggingConfigurationName.of_json in
      let updateTime = field_map json__ "updateTime" Time.of_json in
      let createTime = field_map json__ "createTime" Time.of_json in
      let id = field_map json__ "id" LoggingConfigurationID.of_json in
      let arn = field_map json__ "arn" LoggingConfigurationArn.of_json in
      make ?tags ?state ?destinationConfiguration ?name ?updateTime
        ?createTime ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a logging configuration that allows clients to store and record sent messages."]
module CreateLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      name: LoggingConfigurationName.t option
        [@ocaml.doc
          "Logging-configuration name. The value does not need to be unique."];
      destinationConfiguration: DestinationConfiguration.t
        [@ocaml.doc
          "A complex type that contains a destination configuration for where chat content will be logged. There can be only one type of destination (cloudWatchLogs, firehose, or s3) in a destinationConfiguration."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags to attach to the resource. Array of maps, each of the form string:string (key:value). See Best practices and strategies in Tagging Amazon Web Services Resources and Tag Editor for details, including restrictions that apply to tags and \"Tag naming limits and requirements\"; Amazon IVS Chat has no constraints on tags beyond what is documented there."]}
    let context_ = "CreateLoggingConfigurationRequest"
    let make ?name =
      fun ?tags ->
        fun ~destinationConfiguration ->
          fun () -> { name; tags; destinationConfiguration }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:LoggingConfigurationName.to_value));
        ("destinationConfiguration",
          (Some
             (DestinationConfiguration.to_value x.destinationConfiguration)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let destinationConfiguration =
        DestinationConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationConfiguration") in
      let name =
        (Option.map ~f:LoggingConfigurationName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ~destinationConfiguration ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let destinationConfiguration =
        field_map_exn json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let name = field_map json__ "name" LoggingConfigurationName.of_json in
      make ?tags ~destinationConfiguration ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a logging configuration that allows clients to store and record sent messages."]
module CreateChatTokenResponse =
  struct
    type nonrec t =
      {
      token: ChatToken.t option
        [@ocaml.doc "The issued client token, encrypted."];
      tokenExpirationTime: Time.t option
        [@ocaml.doc
          "Time after which the token is no longer valid and cannot be used to connect to a room. This is an ISO 8601 timestamp; note that this is returned as a string."];
      sessionExpirationTime: Time.t option
        [@ocaml.doc
          "Time after which an end user's session is no longer valid. This is an ISO 8601 timestamp; note that this is returned as a string."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `PendingVerification of PendingVerification.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?token =
      fun ?tokenExpirationTime ->
        fun ?sessionExpirationTime ->
          fun () -> { token; tokenExpirationTime; sessionExpirationTime }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "PendingVerification" ->
          `PendingVerification (PendingVerification.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `PendingVerification e ->
          `Assoc
            [("error", (`String "PendingVerification"));
            ("details", (PendingVerification.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("token", (Option.map x.token ~f:ChatToken.to_value));
        ("tokenExpirationTime",
          (Option.map x.tokenExpirationTime ~f:Time.to_value));
        ("sessionExpirationTime",
          (Option.map x.sessionExpirationTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionExpirationTime =
        (Option.map ~f:Time.of_xml)
          (Xml.child xml_arg0 "sessionExpirationTime") in
      let tokenExpirationTime =
        (Option.map ~f:Time.of_xml)
          (Xml.child xml_arg0 "tokenExpirationTime") in
      let token =
        (Option.map ~f:ChatToken.of_xml) (Xml.child xml_arg0 "token") in
      make ?sessionExpirationTime ?tokenExpirationTime ?token ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionExpirationTime =
        field_map json__ "sessionExpirationTime" Time.of_json in
      let tokenExpirationTime =
        field_map json__ "tokenExpirationTime" Time.of_json in
      let token = field_map json__ "token" ChatToken.of_json in
      make ?sessionExpirationTime ?tokenExpirationTime ?token ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an encrypted token that is used by a chat participant to establish an individual WebSocket chat connection to a room. When the token is used to connect to chat, the connection is valid for the session duration specified in the request. The token becomes invalid at the token-expiration timestamp included in the response. Use the capabilities field to permit an end user to send messages or moderate a room. The attributes field securely attaches structured data to the chat session; the data is included within each message sent by the end user and received by other participants in the room. Common use cases for attributes include passing end-user profile data like an icon, display name, colors, badges, and other display features. Encryption keys are owned by Amazon IVS Chat and never used directly by your application."]
module CreateChatTokenRequest =
  struct
    type nonrec t =
      {
      roomIdentifier: RoomIdentifier.t
        [@ocaml.doc
          "Identifier of the room that the client is trying to access. Currently this must be an ARN."];
      userId: UserID.t
        [@ocaml.doc
          "Application-provided ID that uniquely identifies the user associated with this token. This can be any UTF-8 encoded text."];
      capabilities: ChatTokenCapabilities.t option
        [@ocaml.doc
          "Set of capabilities that the user is allowed to perform in the room. Default: None (the capability to view messages is implicitly included in all requests)."];
      sessionDurationInMinutes: SessionDurationInMinutes.t option
        [@ocaml.doc
          "Session duration (in minutes), after which the session expires. Default: 60 (1 hour)."];
      attributes: ChatTokenAttributes.t option
        [@ocaml.doc
          "Application-provided attributes to encode into the token and attach to a chat session. Map keys and values can contain UTF-8 encoded text. The maximum length of this field is 1 KB total."]}
    let context_ = "CreateChatTokenRequest"
    let make ?capabilities =
      fun ?sessionDurationInMinutes ->
        fun ?attributes ->
          fun ~roomIdentifier ->
            fun ~userId ->
              fun () ->
                {
                  capabilities;
                  sessionDurationInMinutes;
                  attributes;
                  roomIdentifier;
                  userId
                }
    let to_value x =
      structure_to_value
        [("roomIdentifier",
           (Some (RoomIdentifier.to_value x.roomIdentifier)));
        ("userId", (Some (UserID.to_value x.userId)));
        ("capabilities",
          (Option.map x.capabilities ~f:ChatTokenCapabilities.to_value));
        ("sessionDurationInMinutes",
          (Option.map x.sessionDurationInMinutes
             ~f:SessionDurationInMinutes.to_value));
        ("attributes",
          (Option.map x.attributes ~f:ChatTokenAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:ChatTokenAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let sessionDurationInMinutes =
        (Option.map ~f:SessionDurationInMinutes.of_xml)
          (Xml.child xml_arg0 "sessionDurationInMinutes") in
      let capabilities =
        (Option.map ~f:ChatTokenCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let userId =
        UserID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let roomIdentifier =
        RoomIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "roomIdentifier") in
      make ?attributes ?sessionDurationInMinutes ?capabilities ~userId
        ~roomIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "attributes" ChatTokenAttributes.of_json in
      let sessionDurationInMinutes =
        field_map json__ "sessionDurationInMinutes"
          SessionDurationInMinutes.of_json in
      let capabilities =
        field_map json__ "capabilities" ChatTokenCapabilities.of_json in
      let userId = field_map_exn json__ "userId" UserID.of_json in
      let roomIdentifier =
        field_map_exn json__ "roomIdentifier" RoomIdentifier.of_json in
      make ?attributes ?sessionDurationInMinutes ?capabilities ~userId
        ~roomIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an encrypted token that is used by a chat participant to establish an individual WebSocket chat connection to a room. When the token is used to connect to chat, the connection is valid for the session duration specified in the request. The token becomes invalid at the token-expiration timestamp included in the response. Use the capabilities field to permit an end user to send messages or moderate a room. The attributes field securely attaches structured data to the chat session; the data is included within each message sent by the end user and received by other participants in the room. Common use cases for attributes include passing end-user profile data like an icon, display name, colors, badges, and other display features. Encryption keys are owned by Amazon IVS Chat and never used directly by your application."]