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.chatbot
let apiVersion = "2017-10-11"
let endpointPrefix = "chatbot"
let serviceFullName = "AWS Chatbot"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module CustomActionAttachmentCriteriaOperator =
  struct
    type nonrec t =
      | HAS_VALUE 
      | EQUALS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HAS_VALUE -> "HAS_VALUE"
      | EQUALS -> "EQUALS"
      | Non_static_id s -> s
    let of_string =
      function
      | "HAS_VALUE" -> HAS_VALUE
      | "EQUALS" -> EQUALS
      | 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 CustomActionAttachmentCriteriaOperator"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"CustomActionAttachmentCriteriaOperator" j)
    let to_json = simple_to_json to_value
  end
module CustomActionAttachmentCriteriaValueString =
  struct
    type nonrec t = string
    let context_ = "CustomActionAttachmentCriteriaValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CustomActionAttachmentCriteriaValueString" j
    let to_json = simple_to_json to_value
  end
module CustomActionAttachmentCriteriaVariableNameString =
  struct
    type nonrec t = string
    let context_ = "CustomActionAttachmentCriteriaVariableNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"CustomActionAttachmentCriteriaVariableNameString"
        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 CustomActionAttachmentCriteria =
  struct
    type nonrec t =
      {
      operator: CustomActionAttachmentCriteriaOperator.t
        [@ocaml.doc "The operation to perform on the named variable."];
      variableName: CustomActionAttachmentCriteriaVariableNameString.t
        [@ocaml.doc "The name of the variable to operate on."];
      value: CustomActionAttachmentCriteriaValueString.t option
        [@ocaml.doc
          "A value that is compared with the actual value of the variable based on the behavior of the operator."]}
    let context_ = "CustomActionAttachmentCriteria"
    let make ?value =
      fun ~operator ->
        fun ~variableName -> fun () -> { value; operator; variableName }
    let to_value x =
      structure_to_value
        [("Operator",
           (Some (CustomActionAttachmentCriteriaOperator.to_value x.operator)));
        ("VariableName",
          (Some
             (CustomActionAttachmentCriteriaVariableNameString.to_value
                x.variableName)));
        ("Value",
          (Option.map x.value
             ~f:CustomActionAttachmentCriteriaValueString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:CustomActionAttachmentCriteriaValueString.of_xml)
          (Xml.child xml_arg0 "Value") in
      let variableName =
        CustomActionAttachmentCriteriaVariableNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VariableName") in
      let operator =
        CustomActionAttachmentCriteriaOperator.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operator") in
      make ?value ~variableName ~operator ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map json__ "Value"
          CustomActionAttachmentCriteriaValueString.of_json in
      let variableName =
        field_map_exn json__ "VariableName"
          CustomActionAttachmentCriteriaVariableNameString.of_json in
      let operator =
        field_map_exn json__ "Operator"
          CustomActionAttachmentCriteriaOperator.of_json in
      make ?value ~variableName ~operator ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A criteria for when a button should be shown based on values in the notification"]
module CustomActionAttachmentVariablesKeyString =
  struct
    type nonrec t = string
    let context_ = "CustomActionAttachmentVariablesKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"CustomActionAttachmentVariablesKeyString" j
    let to_json = simple_to_json to_value
  end
module CustomActionAttachmentVariablesValueString =
  struct
    type nonrec t = string
    let context_ = "CustomActionAttachmentVariablesValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\x21-\\x7F]+")));
        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:"CustomActionAttachmentVariablesValueString" j
    let to_json = simple_to_json to_value
  end
module GuardrailPolicyArn =
  struct
    type nonrec t = string
    let context_ = "GuardrailPolicyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:11) >>=
             (fun () ->
                (check_string_max i ~max:1163) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(^$|(?!.*\\/aws-service-role\\/.*)arn:aws:iam:[A-Za-z0-9_\\/.-]{0,63}:[A-Za-z0-9_\\/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_\\/+=,@.-]{0,1023})")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GuardrailPolicyArn" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:[A-Za-z0-9][A-Za-z0-9_/.-]{0,62}:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_/+=,@.-]{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      tagKey: TagKey.t [@ocaml.doc "The key of the tag."];
      tagValue: TagValue.t [@ocaml.doc "The value of the tag."]}
    let context_ = "Tag"
    let make ~tagKey = fun ~tagValue -> fun () -> { tagKey; tagValue }
    let to_value x =
      structure_to_value
        [("TagKey", (Some (TagKey.to_value x.tagKey)));
        ("TagValue", (Some (TagValue.to_value x.tagValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagValue =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagValue") in
      let tagKey =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagKey") in
      make ~tagValue ~tagKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagValue = field_map_exn json__ "TagValue" TagValue.of_json in
      let tagKey = field_map_exn json__ "TagKey" TagKey.of_json in
      make ~tagValue ~tagKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair. A tag consists of a tag key and a tag value. Tag keys and tag values are both required, but tag values can be empty (null) strings. Do not include confidential or sensitive information in this field. For more information, see User-Defined Tag Restrictions in the AWS Billing and Cost Management User Guide."]
module CustomActionAttachmentCriteriaList =
  struct
    type nonrec t = CustomActionAttachmentCriteria.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CustomActionAttachmentCriteria.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:CustomActionAttachmentCriteria.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomActionAttachmentCriteriaList"
        ~of_json:CustomActionAttachmentCriteria.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomActionAttachmentNotificationType =
  struct
    type nonrec t = string
    let context_ = "CustomActionAttachmentNotificationType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-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:"CustomActionAttachmentNotificationType" j
    let to_json = simple_to_json to_value
  end
module CustomActionAttachmentVariables =
  struct
    type nonrec t =
      (CustomActionAttachmentVariablesKeyString.t *
        CustomActionAttachmentVariablesValueString.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_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 ->
                            ((CustomActionAttachmentVariablesKeyString.of_string
                                chopped),
                              (CustomActionAttachmentVariablesValueString.of_string
                                 v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (CustomActionAttachmentVariablesKeyString.to_value x) |>
                    (fun x ->
                       (CustomActionAttachmentVariablesValueString.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:CustomActionAttachmentVariablesKeyString.of_string
        ~of_json:CustomActionAttachmentVariablesValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomActionButtonText =
  struct
    type nonrec t = string
    let context_ = "CustomActionButtonText"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomActionButtonText" j
    let to_json = simple_to_json to_value
  end
module BooleanAccountPreference =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ChatConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "ChatConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:19) >>=
             (fun () ->
                (check_string_max i ~max:1169) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:(wheatley|chatbot):[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_/+=,@.-]{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChatConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module ConfigurationName =
  struct
    type nonrec t = string
    let context_ = "ConfigurationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9-_]+")));
        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:"ConfigurationName" j
    let to_json = simple_to_json to_value
  end
module CustomerCwLogLevel =
  struct
    type nonrec t = string
    let context_ = "CustomerCwLogLevel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:5) >>=
                  (fun () -> check_pattern i ~pattern:"(ERROR|INFO|NONE)")));
        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:"CustomerCwLogLevel" j
    let to_json = simple_to_json to_value
  end
module GuardrailPolicyArnList =
  struct
    type nonrec t = GuardrailPolicyArn.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:GuardrailPolicyArn.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:GuardrailPolicyArn.of_xml)
    let of_json j =
      list_of_json ~kind:"GuardrailPolicyArnList"
        ~of_json:GuardrailPolicyArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceState =
  struct
    type nonrec t = string
    let context_ = "ResourceState"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"(ENABLED|DISABLED)"); 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:"ResourceState" j
    let to_json = simple_to_json to_value
  end
module SnsTopicArnList =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"SnsTopicArnList" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  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 Tags =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module TeamName =
  struct
    type nonrec t = string
    let context_ = "TeamName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(.*)")));
        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:"TeamName" j
    let to_json = simple_to_json to_value
  end
module TeamsChannelId =
  struct
    type nonrec t = string
    let context_ = "TeamsChannelId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([a-zA-Z0-9-_=+\\/.,])*%3[aA]([a-zA-Z0-9-_=+\\/.,])*%40([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:"TeamsChannelId" j
    let to_json = simple_to_json to_value
  end
module TeamsChannelName =
  struct
    type nonrec t = string
    let context_ = "TeamsChannelName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"(.*)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TeamsChannelName" j
    let to_json = simple_to_json to_value
  end
module UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9A-Fa-f]{8}(?:-[0-9A-Fa-f]{4}){3}-[0-9A-Fa-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UUID" j
    let to_json = simple_to_json to_value
  end
module AwsUserIdentity =
  struct
    type nonrec t = string
    let context_ = "AwsUserIdentity"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:1101) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:(iam|sts)::[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_/+=,@.-]{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AwsUserIdentity" j
    let to_json = simple_to_json to_value
  end
module CustomActionAttachment =
  struct
    type nonrec t =
      {
      notificationType: CustomActionAttachmentNotificationType.t option
        [@ocaml.doc
          "The type of notification that the custom action should be attached to."];
      buttonText: CustomActionButtonText.t option
        [@ocaml.doc
          "The text of the button that appears on the notification."];
      criteria: CustomActionAttachmentCriteriaList.t option
        [@ocaml.doc
          "The criteria for when a button should be shown based on values in the notification."];
      variables: CustomActionAttachmentVariables.t option
        [@ocaml.doc "The variables to extract from the notification."]}
    let make ?notificationType =
      fun ?buttonText ->
        fun ?criteria ->
          fun ?variables ->
            fun () -> { notificationType; buttonText; criteria; variables }
    let to_value x =
      structure_to_value
        [("NotificationType",
           (Option.map x.notificationType
              ~f:CustomActionAttachmentNotificationType.to_value));
        ("ButtonText",
          (Option.map x.buttonText ~f:CustomActionButtonText.to_value));
        ("Criteria",
          (Option.map x.criteria
             ~f:CustomActionAttachmentCriteriaList.to_value));
        ("Variables",
          (Option.map x.variables ~f:CustomActionAttachmentVariables.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let variables =
        (Option.map ~f:CustomActionAttachmentVariables.of_xml)
          (Xml.child xml_arg0 "Variables") in
      let criteria =
        (Option.map ~f:CustomActionAttachmentCriteriaList.of_xml)
          (Xml.child xml_arg0 "Criteria") in
      let buttonText =
        (Option.map ~f:CustomActionButtonText.of_xml)
          (Xml.child xml_arg0 "ButtonText") in
      let notificationType =
        (Option.map ~f:CustomActionAttachmentNotificationType.of_xml)
          (Xml.child xml_arg0 "NotificationType") in
      make ?variables ?criteria ?buttonText ?notificationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let variables =
        field_map json__ "Variables" CustomActionAttachmentVariables.of_json in
      let criteria =
        field_map json__ "Criteria"
          CustomActionAttachmentCriteriaList.of_json in
      let buttonText =
        field_map json__ "ButtonText" CustomActionButtonText.of_json in
      let notificationType =
        field_map json__ "NotificationType"
          CustomActionAttachmentNotificationType.of_json in
      make ?variables ?criteria ?buttonText ?notificationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines when a custom action button should be attached to a notification."]
module CustomActionDefinitionCommandTextString =
  struct
    type nonrec t = string
    let context_ = "CustomActionDefinitionCommandTextString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CustomActionDefinitionCommandTextString" j
    let to_json = simple_to_json to_value
  end
module SlackTeamId =
  struct
    type nonrec t = string
    let context_ = "SlackTeamId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Z]{1,255}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SlackTeamId" j
    let to_json = simple_to_json to_value
  end
module SlackTeamName =
  struct
    type nonrec t = string
    let context_ = "SlackTeamName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"SlackTeamName" j
    let to_json = simple_to_json to_value
  end
module SlackUserId =
  struct
    type nonrec t = string
    let context_ = "SlackUserId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(.*)")));
        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:"SlackUserId" j
    let to_json = simple_to_json to_value
  end
module SlackChannelDisplayName =
  struct
    type nonrec t = string
    let context_ = "SlackChannelDisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"SlackChannelDisplayName" j
    let to_json = simple_to_json to_value
  end
module SlackChannelId =
  struct
    type nonrec t = string
    let context_ = "SlackChannelId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SlackChannelId" j
    let to_json = simple_to_json to_value
  end
module ChimeWebhookDescription =
  struct
    type nonrec t = string
    let context_ = "ChimeWebhookDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"ChimeWebhookDescription" 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 TeamsChannelConfiguration =
  struct
    type nonrec t =
      {
      channelId: TeamsChannelId.t option
        [@ocaml.doc "The ID of the Microsoft Teams channel."];
      channelName: TeamsChannelName.t option
        [@ocaml.doc "The name of the Microsoft Teams channel."];
      teamId: UUID.t option
        [@ocaml.doc
          "The ID of the Microsoft Teams authorized with AWS Chatbot. To get the team ID, you must perform the initial authorization flow with Microsoft Teams in the AWS Chatbot console. Then you can copy and paste the team ID from the console. For more information, see Step 1: Configure a Microsoft Teams client in the AWS Chatbot Administrator Guide."];
      teamName: TeamName.t option
        [@ocaml.doc "The name of the Microsoft Teams Team."];
      tenantId: UUID.t option
        [@ocaml.doc "The ID of the Microsoft Teams tenant."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MicrosoftTeamsChannelConfiguration associated with the user identity to delete."];
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      configurationName: ConfigurationName.t option
        [@ocaml.doc "The name of the configuration."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      guardrailPolicyArns: GuardrailPolicyArnList.t option
        [@ocaml.doc
          "The list of IAM policy ARNs that are applied as channel guardrails. The AWS managed AdministratorAccess policy is applied by default if this is not set."];
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."];
      state: ResourceState.t option
        [@ocaml.doc
          "Either ENABLED or DISABLED. The resource returns DISABLED if the organization's AWS Chatbot policy has explicitly denied that configuration. For example, if Amazon Chime is disabled."];
      stateReason: String_.t option
        [@ocaml.doc
          "Provided if State is DISABLED. Provides context as to why the resource is disabled."]}
    let make ?channelId =
      fun ?channelName ->
        fun ?teamId ->
          fun ?teamName ->
            fun ?tenantId ->
              fun ?chatConfigurationArn ->
                fun ?iamRoleArn ->
                  fun ?snsTopicArns ->
                    fun ?configurationName ->
                      fun ?loggingLevel ->
                        fun ?guardrailPolicyArns ->
                          fun ?userAuthorizationRequired ->
                            fun ?tags ->
                              fun ?state ->
                                fun ?stateReason ->
                                  fun () ->
                                    {
                                      channelId;
                                      channelName;
                                      teamId;
                                      teamName;
                                      tenantId;
                                      chatConfigurationArn;
                                      iamRoleArn;
                                      snsTopicArns;
                                      configurationName;
                                      loggingLevel;
                                      guardrailPolicyArns;
                                      userAuthorizationRequired;
                                      tags;
                                      state;
                                      stateReason
                                    }
    let to_value x =
      structure_to_value
        [("ChannelId", (Option.map x.channelId ~f:TeamsChannelId.to_value));
        ("ChannelName",
          (Option.map x.channelName ~f:TeamsChannelName.to_value));
        ("TeamId", (Option.map x.teamId ~f:UUID.to_value));
        ("TeamName", (Option.map x.teamName ~f:TeamName.to_value));
        ("TenantId", (Option.map x.tenantId ~f:UUID.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("ConfigurationName",
          (Option.map x.configurationName ~f:ConfigurationName.to_value));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("GuardrailPolicyArns",
          (Option.map x.guardrailPolicyArns
             ~f:GuardrailPolicyArnList.to_value));
        ("UserAuthorizationRequired",
          (Option.map x.userAuthorizationRequired
             ~f:BooleanAccountPreference.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("State", (Option.map x.state ~f:ResourceState.to_value));
        ("StateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ResourceState.of_xml) (Xml.child xml_arg0 "State") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      let guardrailPolicyArns =
        (Option.map ~f:GuardrailPolicyArnList.of_xml)
          (Xml.child xml_arg0 "GuardrailPolicyArns") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let configurationName =
        (Option.map ~f:ConfigurationName.of_xml)
          (Xml.child xml_arg0 "ConfigurationName") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let tenantId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TenantId") in
      let teamName =
        (Option.map ~f:TeamName.of_xml) (Xml.child xml_arg0 "TeamName") in
      let teamId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TeamId") in
      let channelName =
        (Option.map ~f:TeamsChannelName.of_xml)
          (Xml.child xml_arg0 "ChannelName") in
      let channelId =
        (Option.map ~f:TeamsChannelId.of_xml)
          (Xml.child xml_arg0 "ChannelId") in
      make ?stateReason ?state ?tags ?userAuthorizationRequired
        ?guardrailPolicyArns ?loggingLevel ?configurationName ?snsTopicArns
        ?iamRoleArn ?chatConfigurationArn ?tenantId ?teamName ?teamId
        ?channelName ?channelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state = field_map json__ "State" ResourceState.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      let guardrailPolicyArns =
        field_map json__ "GuardrailPolicyArns" GuardrailPolicyArnList.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let configurationName =
        field_map json__ "ConfigurationName" ConfigurationName.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let tenantId = field_map json__ "TenantId" UUID.of_json in
      let teamName = field_map json__ "TeamName" TeamName.of_json in
      let teamId = field_map json__ "TeamId" UUID.of_json in
      let channelName =
        field_map json__ "ChannelName" TeamsChannelName.of_json in
      let channelId = field_map json__ "ChannelId" TeamsChannelId.of_json in
      make ?stateReason ?state ?tags ?userAuthorizationRequired
        ?guardrailPolicyArns ?loggingLevel ?configurationName ?snsTopicArns
        ?iamRoleArn ?chatConfigurationArn ?tenantId ?teamName ?teamId
        ?channelName ?channelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An AWS Chatbot configuration for Microsoft Teams."]
module TeamsUserIdentity =
  struct
    type nonrec t =
      {
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MicrosoftTeamsChannelConfiguration associated with the user identity to delete."];
      teamId: UUID.t option
        [@ocaml.doc
          "The ID of the Microsoft Teams authorized with AWS Chatbot. To get the team ID, you must perform the initial authorization flow with Microsoft Teams in the AWS Chatbot console. Then you can copy and paste the team ID from the console. For more information, see Step 1: Configure a Microsoft Teams client in the AWS Chatbot Administrator Guide."];
      userId: UUID.t option [@ocaml.doc "The Microsoft Teams user ID."];
      awsUserIdentity: AwsUserIdentity.t option
        [@ocaml.doc
          "The AWS user identity ARN used to associate a Microsoft Teams user Identity with an IAM Role."];
      teamsChannelId: TeamsChannelId.t option
        [@ocaml.doc "The ID of the Microsoft Teams channel."];
      teamsTenantId: UUID.t option
        [@ocaml.doc "The ID of the Microsoft Teams tenant."]}
    let make ?iamRoleArn =
      fun ?chatConfigurationArn ->
        fun ?teamId ->
          fun ?userId ->
            fun ?awsUserIdentity ->
              fun ?teamsChannelId ->
                fun ?teamsTenantId ->
                  fun () ->
                    {
                      iamRoleArn;
                      chatConfigurationArn;
                      teamId;
                      userId;
                      awsUserIdentity;
                      teamsChannelId;
                      teamsTenantId
                    }
    let to_value x =
      structure_to_value
        [("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value));
        ("TeamId", (Option.map x.teamId ~f:UUID.to_value));
        ("UserId", (Option.map x.userId ~f:UUID.to_value));
        ("AwsUserIdentity",
          (Option.map x.awsUserIdentity ~f:AwsUserIdentity.to_value));
        ("TeamsChannelId",
          (Option.map x.teamsChannelId ~f:TeamsChannelId.to_value));
        ("TeamsTenantId", (Option.map x.teamsTenantId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let teamsTenantId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TeamsTenantId") in
      let teamsChannelId =
        (Option.map ~f:TeamsChannelId.of_xml)
          (Xml.child xml_arg0 "TeamsChannelId") in
      let awsUserIdentity =
        (Option.map ~f:AwsUserIdentity.of_xml)
          (Xml.child xml_arg0 "AwsUserIdentity") in
      let userId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "UserId") in
      let teamId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TeamId") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      make ?teamsTenantId ?teamsChannelId ?awsUserIdentity ?userId ?teamId
        ?chatConfigurationArn ?iamRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let teamsTenantId = field_map json__ "TeamsTenantId" UUID.of_json in
      let teamsChannelId =
        field_map json__ "TeamsChannelId" TeamsChannelId.of_json in
      let awsUserIdentity =
        field_map json__ "AwsUserIdentity" AwsUserIdentity.of_json in
      let userId = field_map json__ "UserId" UUID.of_json in
      let teamId = field_map json__ "TeamId" UUID.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      make ?teamsTenantId ?teamsChannelId ?awsUserIdentity ?userId ?teamId
        ?chatConfigurationArn ?iamRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifes a user level permission for a channel configuration."]
module ConfiguredTeam =
  struct
    type nonrec t =
      {
      tenantId: UUID.t option
        [@ocaml.doc "The ID of the Microsoft Teams tenant."];
      teamId: UUID.t option
        [@ocaml.doc
          "The ID of the Microsoft Teams authorized with AWS Chatbot. To get the team ID, you must perform the initial authorization flow with Microsoft Teams in the AWS Chatbot console. Then you can copy and paste the team ID from the console. For more information, see Step 1: Configure a Microsoft Teams client in the AWS Chatbot Administrator Guide."];
      teamName: UUID.t option
        [@ocaml.doc "The name of the Microsoft Teams Team."];
      state: ResourceState.t option
        [@ocaml.doc
          "Either ENABLED or DISABLED. The resource returns DISABLED if the organization's AWS Chatbot policy has explicitly denied that configuration. For example, if Amazon Chime is disabled."];
      stateReason: String_.t option
        [@ocaml.doc
          "Provided if State is DISABLED. Provides context as to why the resource is disabled."]}
    let make ?tenantId =
      fun ?teamId ->
        fun ?teamName ->
          fun ?state ->
            fun ?stateReason ->
              fun () -> { tenantId; teamId; teamName; state; stateReason }
    let to_value x =
      structure_to_value
        [("TenantId", (Option.map x.tenantId ~f:UUID.to_value));
        ("TeamId", (Option.map x.teamId ~f:UUID.to_value));
        ("TeamName", (Option.map x.teamName ~f:UUID.to_value));
        ("State", (Option.map x.state ~f:ResourceState.to_value));
        ("StateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ResourceState.of_xml) (Xml.child xml_arg0 "State") in
      let teamName =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TeamName") in
      let teamId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TeamId") in
      let tenantId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TenantId") in
      make ?stateReason ?state ?teamName ?teamId ?tenantId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state = field_map json__ "State" ResourceState.of_json in
      let teamName = field_map json__ "TeamName" UUID.of_json in
      let teamId = field_map json__ "TeamId" UUID.of_json in
      let tenantId = field_map json__ "TenantId" UUID.of_json in
      make ?stateReason ?state ?teamName ?teamId ?tenantId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A Microsoft Teams team that is authorized with AWS Chatbot."]
module CustomActionArn =
  struct
    type nonrec t = string
    let context_ = "CustomActionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:chatbot:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9_/.-]{0,63}:custom-action/[a-zA-Z0-9_-]{1,64}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomActionArn" j
    let to_json = simple_to_json to_value
  end
module AssociationListing =
  struct
    type nonrec t =
      {
      resource: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource (for example, a custom action)."]}
    let make ?resource = fun () -> { resource }
    let to_value x =
      structure_to_value
        [("Resource", (Option.map x.resource ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resource =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Resource") in
      make ?resource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resource = field_map json__ "Resource" Arn.of_json in
      make ?resource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A listing of an association with a channel configuration."]
module CustomActionAliasName =
  struct
    type nonrec t = string
    let context_ = "CustomActionAliasName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (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:"CustomActionAliasName" j
    let to_json = simple_to_json to_value
  end
module CustomActionAttachmentList =
  struct
    type nonrec t = CustomActionAttachment.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:CustomActionAttachment.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:CustomActionAttachment.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomActionAttachmentList"
        ~of_json:CustomActionAttachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomActionDefinition =
  struct
    type nonrec t =
      {
      commandText: CustomActionDefinitionCommandTextString.t
        [@ocaml.doc
          "The command string to run which may include variables by prefixing with a dollar sign ($)."]}
    let context_ = "CustomActionDefinition"
    let make ~commandText = fun () -> { commandText }
    let to_value x =
      structure_to_value
        [("CommandText",
           (Some
              (CustomActionDefinitionCommandTextString.to_value x.commandText)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commandText =
        CustomActionDefinitionCommandTextString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CommandText") in
      make ~commandText ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commandText =
        field_map_exn json__ "CommandText"
          CustomActionDefinitionCommandTextString.of_json in
      make ~commandText ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The definition of the command to run when invoked as an alias or as an action button."]
module CustomActionName =
  struct
    type nonrec t = string
    let context_ = "CustomActionName"
    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_-]{1,64}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomActionName" j
    let to_json = simple_to_json to_value
  end
module SlackWorkspace =
  struct
    type nonrec t =
      {
      slackTeamId: SlackTeamId.t option
        [@ocaml.doc
          "The ID of the Slack workspace authorized with AWS Chatbot."];
      slackTeamName: SlackTeamName.t option
        [@ocaml.doc "The name of the Slack workspace."];
      state: ResourceState.t option
        [@ocaml.doc
          "Either ENABLED or DISABLED. The resource returns DISABLED if the organization's AWS Chatbot policy has explicitly denied that configuration. For example, if Amazon Chime is disabled."];
      stateReason: String_.t option
        [@ocaml.doc
          "Provided if State is DISABLED. Provides context as to why the resource is disabled."]}
    let make ?slackTeamId =
      fun ?slackTeamName ->
        fun ?state ->
          fun ?stateReason ->
            fun () -> { slackTeamId; slackTeamName; state; stateReason }
    let to_value x =
      structure_to_value
        [("SlackTeamId", (Option.map x.slackTeamId ~f:SlackTeamId.to_value));
        ("SlackTeamName",
          (Option.map x.slackTeamName ~f:SlackTeamName.to_value));
        ("State", (Option.map x.state ~f:ResourceState.to_value));
        ("StateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ResourceState.of_xml) (Xml.child xml_arg0 "State") in
      let slackTeamName =
        (Option.map ~f:SlackTeamName.of_xml)
          (Xml.child xml_arg0 "SlackTeamName") in
      let slackTeamId =
        (Option.map ~f:SlackTeamId.of_xml) (Xml.child xml_arg0 "SlackTeamId") in
      make ?stateReason ?state ?slackTeamName ?slackTeamId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state = field_map json__ "State" ResourceState.of_json in
      let slackTeamName =
        field_map json__ "SlackTeamName" SlackTeamName.of_json in
      let slackTeamId = field_map json__ "SlackTeamId" SlackTeamId.of_json in
      make ?stateReason ?state ?slackTeamName ?slackTeamId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A Slack workspace."]
module SlackUserIdentity =
  struct
    type nonrec t =
      {
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the SlackChannelConfiguration associated with the user identity to delete."];
      slackTeamId: SlackTeamId.t option
        [@ocaml.doc
          "The ID of the Slack workspace authorized with AWS Chatbot."];
      slackUserId: SlackUserId.t option
        [@ocaml.doc "The ID of the user in Slack"];
      awsUserIdentity: AwsUserIdentity.t option
        [@ocaml.doc
          "The AWS user identity ARN used to associate a Slack user ID with an IAM Role."]}
    let make ?iamRoleArn =
      fun ?chatConfigurationArn ->
        fun ?slackTeamId ->
          fun ?slackUserId ->
            fun ?awsUserIdentity ->
              fun () ->
                {
                  iamRoleArn;
                  chatConfigurationArn;
                  slackTeamId;
                  slackUserId;
                  awsUserIdentity
                }
    let to_value x =
      structure_to_value
        [("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value));
        ("SlackTeamId", (Option.map x.slackTeamId ~f:SlackTeamId.to_value));
        ("SlackUserId", (Option.map x.slackUserId ~f:SlackUserId.to_value));
        ("AwsUserIdentity",
          (Option.map x.awsUserIdentity ~f:AwsUserIdentity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsUserIdentity =
        (Option.map ~f:AwsUserIdentity.of_xml)
          (Xml.child xml_arg0 "AwsUserIdentity") in
      let slackUserId =
        (Option.map ~f:SlackUserId.of_xml) (Xml.child xml_arg0 "SlackUserId") in
      let slackTeamId =
        (Option.map ~f:SlackTeamId.of_xml) (Xml.child xml_arg0 "SlackTeamId") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      make ?awsUserIdentity ?slackUserId ?slackTeamId ?chatConfigurationArn
        ?iamRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsUserIdentity =
        field_map json__ "AwsUserIdentity" AwsUserIdentity.of_json in
      let slackUserId = field_map json__ "SlackUserId" SlackUserId.of_json in
      let slackTeamId = field_map json__ "SlackTeamId" SlackTeamId.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      make ?awsUserIdentity ?slackUserId ?slackTeamId ?chatConfigurationArn
        ?iamRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifes a user level permission for a channel configuration."]
module SlackChannelConfiguration =
  struct
    type nonrec t =
      {
      slackTeamName: SlackTeamName.t option
        [@ocaml.doc "Name of the Slack workspace."];
      slackTeamId: SlackTeamId.t option
        [@ocaml.doc
          "The ID of the Slack workspace authorized with Amazon Chime."];
      slackChannelId: SlackChannelId.t option
        [@ocaml.doc
          "The ID of the Slack channel. To get this ID, open Slack, right click on the channel name in the left pane, then choose Copy Link. The channel ID is the 9-character string at the end of the URL. For example, ABCBBLZZZ."];
      slackChannelName: SlackChannelDisplayName.t option
        [@ocaml.doc "The name of the Slack channel."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the SlackChannelConfiguration."];
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The ARNs of the SNS topics that deliver notifications to AWS Chatbot."];
      configurationName: ConfigurationName.t option
        [@ocaml.doc "The name of the configuration."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      guardrailPolicyArns: GuardrailPolicyArnList.t option
        [@ocaml.doc
          "The list of IAM policy ARNs that are applied as channel guardrails. The AWS managed AdministratorAccess policy is applied by default if this is not set."];
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."];
      state: ResourceState.t option
        [@ocaml.doc
          "Either ENABLED or DISABLED. The resource returns DISABLED if the organization's AWS Chatbot policy has explicitly denied that configuration. For example, if Amazon Chime is disabled."];
      stateReason: String_.t option
        [@ocaml.doc
          "Provided if State is DISABLED. Provides context as to why the resource is disabled."]}
    let make ?slackTeamName =
      fun ?slackTeamId ->
        fun ?slackChannelId ->
          fun ?slackChannelName ->
            fun ?chatConfigurationArn ->
              fun ?iamRoleArn ->
                fun ?snsTopicArns ->
                  fun ?configurationName ->
                    fun ?loggingLevel ->
                      fun ?guardrailPolicyArns ->
                        fun ?userAuthorizationRequired ->
                          fun ?tags ->
                            fun ?state ->
                              fun ?stateReason ->
                                fun () ->
                                  {
                                    slackTeamName;
                                    slackTeamId;
                                    slackChannelId;
                                    slackChannelName;
                                    chatConfigurationArn;
                                    iamRoleArn;
                                    snsTopicArns;
                                    configurationName;
                                    loggingLevel;
                                    guardrailPolicyArns;
                                    userAuthorizationRequired;
                                    tags;
                                    state;
                                    stateReason
                                  }
    let to_value x =
      structure_to_value
        [("SlackTeamName",
           (Option.map x.slackTeamName ~f:SlackTeamName.to_value));
        ("SlackTeamId", (Option.map x.slackTeamId ~f:SlackTeamId.to_value));
        ("SlackChannelId",
          (Option.map x.slackChannelId ~f:SlackChannelId.to_value));
        ("SlackChannelName",
          (Option.map x.slackChannelName ~f:SlackChannelDisplayName.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("ConfigurationName",
          (Option.map x.configurationName ~f:ConfigurationName.to_value));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("GuardrailPolicyArns",
          (Option.map x.guardrailPolicyArns
             ~f:GuardrailPolicyArnList.to_value));
        ("UserAuthorizationRequired",
          (Option.map x.userAuthorizationRequired
             ~f:BooleanAccountPreference.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("State", (Option.map x.state ~f:ResourceState.to_value));
        ("StateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ResourceState.of_xml) (Xml.child xml_arg0 "State") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      let guardrailPolicyArns =
        (Option.map ~f:GuardrailPolicyArnList.of_xml)
          (Xml.child xml_arg0 "GuardrailPolicyArns") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let configurationName =
        (Option.map ~f:ConfigurationName.of_xml)
          (Xml.child xml_arg0 "ConfigurationName") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let slackChannelName =
        (Option.map ~f:SlackChannelDisplayName.of_xml)
          (Xml.child xml_arg0 "SlackChannelName") in
      let slackChannelId =
        (Option.map ~f:SlackChannelId.of_xml)
          (Xml.child xml_arg0 "SlackChannelId") in
      let slackTeamId =
        (Option.map ~f:SlackTeamId.of_xml) (Xml.child xml_arg0 "SlackTeamId") in
      let slackTeamName =
        (Option.map ~f:SlackTeamName.of_xml)
          (Xml.child xml_arg0 "SlackTeamName") in
      make ?stateReason ?state ?tags ?userAuthorizationRequired
        ?guardrailPolicyArns ?loggingLevel ?configurationName ?snsTopicArns
        ?iamRoleArn ?chatConfigurationArn ?slackChannelName ?slackChannelId
        ?slackTeamId ?slackTeamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state = field_map json__ "State" ResourceState.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      let guardrailPolicyArns =
        field_map json__ "GuardrailPolicyArns" GuardrailPolicyArnList.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let configurationName =
        field_map json__ "ConfigurationName" ConfigurationName.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let slackChannelName =
        field_map json__ "SlackChannelName" SlackChannelDisplayName.of_json in
      let slackChannelId =
        field_map json__ "SlackChannelId" SlackChannelId.of_json in
      let slackTeamId = field_map json__ "SlackTeamId" SlackTeamId.of_json in
      let slackTeamName =
        field_map json__ "SlackTeamName" SlackTeamName.of_json in
      make ?stateReason ?state ?tags ?userAuthorizationRequired
        ?guardrailPolicyArns ?loggingLevel ?configurationName ?snsTopicArns
        ?iamRoleArn ?chatConfigurationArn ?slackChannelName ?slackChannelId
        ?slackTeamId ?slackTeamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An AWS Chatbot configuration for Slack."]
module ChimeWebhookConfiguration =
  struct
    type nonrec t =
      {
      webhookDescription: ChimeWebhookDescription.t option
        [@ocaml.doc
          "A description of the webhook. We recommend using the convention RoomName/WebhookName. For more information, see Tutorial: Get started with Amazon Chime in the AWS Chatbot Administrator Guide."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ChimeWebhookConfiguration."];
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      configurationName: ConfigurationName.t option
        [@ocaml.doc "The name of the configuration."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."];
      state: ResourceState.t option
        [@ocaml.doc
          "Either ENABLED or DISABLED. The resource returns DISABLED if the organization's AWS Chatbot policy has explicitly denied that configuration. For example, if Amazon Chime is disabled."];
      stateReason: String_.t option
        [@ocaml.doc
          "Provided if State is DISABLED. Provides context as to why the resource is disabled."]}
    let make ?webhookDescription =
      fun ?chatConfigurationArn ->
        fun ?iamRoleArn ->
          fun ?snsTopicArns ->
            fun ?configurationName ->
              fun ?loggingLevel ->
                fun ?tags ->
                  fun ?state ->
                    fun ?stateReason ->
                      fun () ->
                        {
                          webhookDescription;
                          chatConfigurationArn;
                          iamRoleArn;
                          snsTopicArns;
                          configurationName;
                          loggingLevel;
                          tags;
                          state;
                          stateReason
                        }
    let to_value x =
      structure_to_value
        [("WebhookDescription",
           (Option.map x.webhookDescription
              ~f:ChimeWebhookDescription.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("ConfigurationName",
          (Option.map x.configurationName ~f:ConfigurationName.to_value));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("State", (Option.map x.state ~f:ResourceState.to_value));
        ("StateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:ResourceState.of_xml) (Xml.child xml_arg0 "State") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let configurationName =
        (Option.map ~f:ConfigurationName.of_xml)
          (Xml.child xml_arg0 "ConfigurationName") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let webhookDescription =
        (Option.map ~f:ChimeWebhookDescription.of_xml)
          (Xml.child xml_arg0 "WebhookDescription") in
      make ?stateReason ?state ?tags ?loggingLevel ?configurationName
        ?snsTopicArns ?iamRoleArn ?chatConfigurationArn ?webhookDescription
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state = field_map json__ "State" ResourceState.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let configurationName =
        field_map json__ "ConfigurationName" ConfigurationName.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let webhookDescription =
        field_map json__ "WebhookDescription" ChimeWebhookDescription.of_json in
      make ?stateReason ?state ?tags ?loggingLevel ?configurationName
        ?snsTopicArns ?iamRoleArn ?chatConfigurationArn ?webhookDescription
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An AWS Chatbot configuration for Amazon Chime."]
module InvalidParameterException =
  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[@@ocaml.doc
       "Your request input doesn't meet the constraints required by AWS Chatbot."]
module InvalidRequestException =
  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[@@ocaml.doc
       "Your request input doesn't meet the constraints required by AWS Chatbot."]
module ResourceNotFoundException =
  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[@@ocaml.doc "We were unable to find the resource for your request"]
module UpdateTeamsChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module UpdateSlackChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module InternalServiceError =
  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[@@ocaml.doc "Unexpected error during processing of request."]
module UnauthorizedException =
  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[@@ocaml.doc
       "The request was rejected because it doesn't have valid credentials for the target resource."]
module UpdateChimeWebhookConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module ChimeWebhookUrl =
  struct
    type nonrec t = string
    let context_ = "ChimeWebhookUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"https://hooks\\.chime\\.aws/incomingwebhooks/[A-Za-z0-9\\-]+?\\?token=[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:"ChimeWebhookUrl" j
    let to_json = simple_to_json to_value
  end
module AccountPreferences =
  struct
    type nonrec t =
      {
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."];
      trainingDataCollectionEnabled: BooleanAccountPreference.t option
        [@ocaml.doc
          "Turns on training data collection. This helps improve the AWS Chatbot experience by allowing AWS Chatbot to store and use your customer information, such as AWS Chatbot configurations, notifications, user inputs, AWS Chatbot generated responses, and interaction data. This data helps us to continuously improve and develop Artificial Intelligence (AI) technologies. Your data is not shared with any third parties and is protected using sophisticated controls to prevent unauthorized access and misuse. AWS Chatbot does not store or use interactions in chat channels with Amazon Q for training AI technologies for AWS Chatbot."]}
    let make ?userAuthorizationRequired =
      fun ?trainingDataCollectionEnabled ->
        fun () ->
          { userAuthorizationRequired; trainingDataCollectionEnabled }
    let to_value x =
      structure_to_value
        [("UserAuthorizationRequired",
           (Option.map x.userAuthorizationRequired
              ~f:BooleanAccountPreference.to_value));
        ("TrainingDataCollectionEnabled",
          (Option.map x.trainingDataCollectionEnabled
             ~f:BooleanAccountPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trainingDataCollectionEnabled =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "TrainingDataCollectionEnabled") in
      let userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      make ?trainingDataCollectionEnabled ?userAuthorizationRequired ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trainingDataCollectionEnabled =
        field_map json__ "TrainingDataCollectionEnabled"
          BooleanAccountPreference.of_json in
      let userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      make ?trainingDataCollectionEnabled ?userAuthorizationRequired ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Preferences related to AWS Chatbot usage in the calling AWS account."]
module UpdateAccountPreferencesException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module ServiceUnavailableException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:(wheatley|chatbot):[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_/+=,@.-]{0,1023}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AmazonResourceName" 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:200) >>=
             (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 TooManyTagsException =
  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[@@ocaml.doc "The supplied list of tags contains too many tags."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTeamsChannelConfigurationsException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1276) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9=\\/+_.\\-,#:\\\\\"{}]{4,1276}")));
        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 TeamChannelConfigurationsList =
  struct
    type nonrec t = TeamsChannelConfiguration.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:TeamsChannelConfiguration.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:TeamsChannelConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"TeamChannelConfigurationsList"
        ~of_json:TeamsChannelConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max: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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ListMicrosoftTeamsUserIdentitiesException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module TeamsUserIdentitiesList =
  struct
    type nonrec t = TeamsUserIdentity.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:TeamsUserIdentity.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:TeamsUserIdentity.of_xml)
    let of_json j =
      list_of_json ~kind:"TeamsUserIdentitiesList"
        ~of_json:TeamsUserIdentity.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfiguredTeamsList =
  struct
    type nonrec t = ConfiguredTeam.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:ConfiguredTeam.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:ConfiguredTeam.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfiguredTeamsList"
        ~of_json:ConfiguredTeam.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListMicrosoftTeamsConfiguredTeamsException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module CustomActionArnList =
  struct
    type nonrec t = CustomActionArn.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:CustomActionArn.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:CustomActionArn.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomActionArnList"
        ~of_json:CustomActionArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCustomActionsResultNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListCustomActionsResultNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\x20-\\x7F]+")));
        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:"ListCustomActionsResultNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListCustomActionsRequestMaxResultsInteger =
  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 ListCustomActionsRequestMaxResultsInteger"
           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 ListCustomActionsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListCustomActionsRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\x20-\\x7F]+")));
        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:"ListCustomActionsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module AssociationList =
  struct
    type nonrec t = AssociationListing.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:AssociationListing.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:AssociationListing.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociationList"
        ~of_json:AssociationListing.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAssociationsResultNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListAssociationsResultNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\x20-\\x7F]+")));
        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:"ListAssociationsResultNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListAssociationsRequestMaxResultsInteger =
  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 ListAssociationsRequestMaxResultsInteger"
           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 ListAssociationsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListAssociationsRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\x20-\\x7F]+")));
        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:"ListAssociationsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module GetTeamsChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module CustomAction =
  struct
    type nonrec t =
      {
      customActionArn: CustomActionArn.t option
        [@ocaml.doc
          "The fully defined Amazon Resource Name (ARN) of the custom action."];
      definition: CustomActionDefinition.t option
        [@ocaml.doc
          "The definition of the command to run when invoked an alias or as an action button."];
      aliasName: CustomActionAliasName.t option
        [@ocaml.doc
          "The name used to invoke this action in the chat channel. For example, \\@aws run my-alias."];
      attachments: CustomActionAttachmentList.t option
        [@ocaml.doc
          "Defines when this custom action button should be attached to a notification."];
      actionName: CustomActionName.t option
        [@ocaml.doc
          "The name of the custom action that is included in the ARN."]}
    let make ?customActionArn =
      fun ?definition ->
        fun ?aliasName ->
          fun ?attachments ->
            fun ?actionName ->
              fun () ->
                {
                  customActionArn;
                  definition;
                  aliasName;
                  attachments;
                  actionName
                }
    let to_value x =
      structure_to_value
        [("CustomActionArn",
           (Option.map x.customActionArn ~f:CustomActionArn.to_value));
        ("Definition",
          (Option.map x.definition ~f:CustomActionDefinition.to_value));
        ("AliasName",
          (Option.map x.aliasName ~f:CustomActionAliasName.to_value));
        ("Attachments",
          (Option.map x.attachments ~f:CustomActionAttachmentList.to_value));
        ("ActionName",
          (Option.map x.actionName ~f:CustomActionName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionName =
        (Option.map ~f:CustomActionName.of_xml)
          (Xml.child xml_arg0 "ActionName") in
      let attachments =
        (Option.map ~f:CustomActionAttachmentList.of_xml)
          (Xml.child xml_arg0 "Attachments") in
      let aliasName =
        (Option.map ~f:CustomActionAliasName.of_xml)
          (Xml.child xml_arg0 "AliasName") in
      let definition =
        (Option.map ~f:CustomActionDefinition.of_xml)
          (Xml.child xml_arg0 "Definition") in
      let customActionArn =
        (Option.map ~f:CustomActionArn.of_xml)
          (Xml.child xml_arg0 "CustomActionArn") in
      make ?actionName ?attachments ?aliasName ?definition ?customActionArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionName = field_map json__ "ActionName" CustomActionName.of_json in
      let attachments =
        field_map json__ "Attachments" CustomActionAttachmentList.of_json in
      let aliasName =
        field_map json__ "AliasName" CustomActionAliasName.of_json in
      let definition =
        field_map json__ "Definition" CustomActionDefinition.of_json in
      let customActionArn =
        field_map json__ "CustomActionArn" CustomActionArn.of_json in
      make ?actionName ?attachments ?aliasName ?definition ?customActionArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a parameterized command that can be invoked as an alias or as a notification button in the chat client."]
module GetAccountPreferencesException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module ResourceIdentifier =
  struct
    type nonrec t = string
    let context_ = "ResourceIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:chatbot:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9_/.-]{0,63}:custom-action/[a-zA-Z0-9_-]{1,64}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceIdentifier" j
    let to_json = simple_to_json to_value
  end
module DescribeSlackWorkspacesException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module SlackWorkspacesList =
  struct
    type nonrec t = SlackWorkspace.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:SlackWorkspace.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:SlackWorkspace.of_xml)
    let of_json j =
      list_of_json ~kind:"SlackWorkspacesList"
        ~of_json:SlackWorkspace.of_json j
    let to_json v = composed_to_json to_value v
  end
module DescribeSlackUserIdentitiesException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module SlackUserIdentitiesList =
  struct
    type nonrec t = SlackUserIdentity.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:SlackUserIdentity.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:SlackUserIdentity.of_xml)
    let of_json j =
      list_of_json ~kind:"SlackUserIdentitiesList"
        ~of_json:SlackUserIdentity.of_json j
    let to_json v = composed_to_json to_value v
  end
module DescribeSlackChannelConfigurationsException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module SlackChannelConfigurationList =
  struct
    type nonrec t = SlackChannelConfiguration.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:SlackChannelConfiguration.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:SlackChannelConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"SlackChannelConfigurationList"
        ~of_json:SlackChannelConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChimeWebhookConfigurationList =
  struct
    type nonrec t = ChimeWebhookConfiguration.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:ChimeWebhookConfiguration.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:ChimeWebhookConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"ChimeWebhookConfigurationList"
        ~of_json:ChimeWebhookConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module DescribeChimeWebhookConfigurationsException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module DeleteTeamsConfiguredTeamException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module DeleteTeamsChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module DeleteSlackWorkspaceAuthorizationFault =
  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[@@ocaml.doc "There was an issue deleting your Slack workspace."]
module DeleteSlackUserIdentityException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module DeleteSlackChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module DeleteMicrosoftTeamsUserIdentityException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module DeleteChimeWebhookConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module ConflictException =
  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[@@ocaml.doc "There was an issue processing your request."]
module CreateTeamsChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module LimitExceededException =
  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[@@ocaml.doc "You have exceeded a service limit for AWS Chatbot."]
module CreateSlackChannelConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:33) >>=
             (fun () ->
                (check_string_max i ~max:126) >>=
                  (fun () -> check_pattern i ~pattern:"[\\x21-\\x7F]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module CreateChimeWebhookConfigurationException =
  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[@@ocaml.doc
       "We can\226\128\153t process your request right now because of a server issue. Try again later."]
module UpdateTeamsChannelConfigurationResult =
  struct
    type nonrec t =
      {
      channelConfiguration: TeamsChannelConfiguration.t option
        [@ocaml.doc
          "The configuration for a Microsoft Teams channel configured with AWS Chatbot."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UpdateTeamsChannelConfigurationException of
          UpdateTeamsChannelConfigurationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channelConfiguration = fun () -> { channelConfiguration }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UpdateTeamsChannelConfigurationException" ->
          `UpdateTeamsChannelConfigurationException
            (UpdateTeamsChannelConfigurationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UpdateTeamsChannelConfigurationException" ->
          `UpdateTeamsChannelConfigurationException
            (UpdateTeamsChannelConfigurationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UpdateTeamsChannelConfigurationException e ->
          `Assoc
            [("error", (`String "UpdateTeamsChannelConfigurationException"));
            ("details", (UpdateTeamsChannelConfigurationException.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
        [("ChannelConfiguration",
           (Option.map x.channelConfiguration
              ~f:TeamsChannelConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelConfiguration =
        (Option.map ~f:TeamsChannelConfiguration.of_xml)
          (Xml.child xml_arg0 "ChannelConfiguration") in
      make ?channelConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelConfiguration =
        field_map json__ "ChannelConfiguration"
          TeamsChannelConfiguration.of_json in
      make ?channelConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an Microsoft Teams channel configuration."]
module UpdateTeamsChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the TeamsChannelConfiguration to update."];
      channelId: TeamsChannelId.t
        [@ocaml.doc "The ID of the Microsoft Teams channel."];
      channelName: TeamsChannelName.t option
        [@ocaml.doc "The name of the Microsoft Teams channel."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      guardrailPolicyArns: GuardrailPolicyArnList.t option
        [@ocaml.doc
          "The list of IAM policy ARNs that are applied as channel guardrails. The AWS managed AdministratorAccess policy is applied by default if this is not set."];
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."]}
    let context_ = "UpdateTeamsChannelConfigurationRequest"
    let make ?channelName =
      fun ?snsTopicArns ->
        fun ?iamRoleArn ->
          fun ?loggingLevel ->
            fun ?guardrailPolicyArns ->
              fun ?userAuthorizationRequired ->
                fun ~chatConfigurationArn ->
                  fun ~channelId ->
                    fun () ->
                      {
                        channelName;
                        snsTopicArns;
                        iamRoleArn;
                        loggingLevel;
                        guardrailPolicyArns;
                        userAuthorizationRequired;
                        chatConfigurationArn;
                        channelId
                      }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)));
        ("ChannelId", (Some (TeamsChannelId.to_value x.channelId)));
        ("ChannelName",
          (Option.map x.channelName ~f:TeamsChannelName.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("GuardrailPolicyArns",
          (Option.map x.guardrailPolicyArns
             ~f:GuardrailPolicyArnList.to_value));
        ("UserAuthorizationRequired",
          (Option.map x.userAuthorizationRequired
             ~f:BooleanAccountPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      let guardrailPolicyArns =
        (Option.map ~f:GuardrailPolicyArnList.of_xml)
          (Xml.child xml_arg0 "GuardrailPolicyArns") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let channelName =
        (Option.map ~f:TeamsChannelName.of_xml)
          (Xml.child xml_arg0 "ChannelName") in
      let channelId =
        TeamsChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChannelId") in
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ?userAuthorizationRequired ?guardrailPolicyArns ?loggingLevel
        ?iamRoleArn ?snsTopicArns ?channelName ~channelId
        ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      let guardrailPolicyArns =
        field_map json__ "GuardrailPolicyArns" GuardrailPolicyArnList.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let channelName =
        field_map json__ "ChannelName" TeamsChannelName.of_json in
      let channelId = field_map_exn json__ "ChannelId" TeamsChannelId.of_json in
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ?userAuthorizationRequired ?guardrailPolicyArns ?loggingLevel
        ?iamRoleArn ?snsTopicArns ?channelName ~channelId
        ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an Microsoft Teams channel configuration."]
module UpdateSlackChannelConfigurationResult =
  struct
    type nonrec t =
      {
      channelConfiguration: SlackChannelConfiguration.t option
        [@ocaml.doc
          "The configuration for a Slack channel configured with AWS Chatbot."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UpdateSlackChannelConfigurationException of
          UpdateSlackChannelConfigurationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channelConfiguration = fun () -> { channelConfiguration }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UpdateSlackChannelConfigurationException" ->
          `UpdateSlackChannelConfigurationException
            (UpdateSlackChannelConfigurationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UpdateSlackChannelConfigurationException" ->
          `UpdateSlackChannelConfigurationException
            (UpdateSlackChannelConfigurationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UpdateSlackChannelConfigurationException e ->
          `Assoc
            [("error", (`String "UpdateSlackChannelConfigurationException"));
            ("details", (UpdateSlackChannelConfigurationException.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
        [("ChannelConfiguration",
           (Option.map x.channelConfiguration
              ~f:SlackChannelConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelConfiguration =
        (Option.map ~f:SlackChannelConfiguration.of_xml)
          (Xml.child xml_arg0 "ChannelConfiguration") in
      make ?channelConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelConfiguration =
        field_map json__ "ChannelConfiguration"
          SlackChannelConfiguration.of_json in
      make ?channelConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Slack channel configuration."]
module UpdateSlackChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the SlackChannelConfiguration to update."];
      slackChannelId: SlackChannelId.t
        [@ocaml.doc
          "The ID of the Slack channel. To get this ID, open Slack, right click on the channel name in the left pane, then choose Copy Link. The channel ID is the 9-character string at the end of the URL. For example, ABCBBLZZZ."];
      slackChannelName: SlackChannelDisplayName.t option
        [@ocaml.doc "The name of the Slack channel."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      guardrailPolicyArns: GuardrailPolicyArnList.t option
        [@ocaml.doc
          "The list of IAM policy ARNs that are applied as channel guardrails. The AWS managed AdministratorAccess policy is applied by default if this is not set."];
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."]}
    let context_ = "UpdateSlackChannelConfigurationRequest"
    let make ?slackChannelName =
      fun ?snsTopicArns ->
        fun ?iamRoleArn ->
          fun ?loggingLevel ->
            fun ?guardrailPolicyArns ->
              fun ?userAuthorizationRequired ->
                fun ~chatConfigurationArn ->
                  fun ~slackChannelId ->
                    fun () ->
                      {
                        slackChannelName;
                        snsTopicArns;
                        iamRoleArn;
                        loggingLevel;
                        guardrailPolicyArns;
                        userAuthorizationRequired;
                        chatConfigurationArn;
                        slackChannelId
                      }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)));
        ("SlackChannelId", (Some (SlackChannelId.to_value x.slackChannelId)));
        ("SlackChannelName",
          (Option.map x.slackChannelName ~f:SlackChannelDisplayName.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("GuardrailPolicyArns",
          (Option.map x.guardrailPolicyArns
             ~f:GuardrailPolicyArnList.to_value));
        ("UserAuthorizationRequired",
          (Option.map x.userAuthorizationRequired
             ~f:BooleanAccountPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      let guardrailPolicyArns =
        (Option.map ~f:GuardrailPolicyArnList.of_xml)
          (Xml.child xml_arg0 "GuardrailPolicyArns") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let slackChannelName =
        (Option.map ~f:SlackChannelDisplayName.of_xml)
          (Xml.child xml_arg0 "SlackChannelName") in
      let slackChannelId =
        SlackChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SlackChannelId") in
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ?userAuthorizationRequired ?guardrailPolicyArns ?loggingLevel
        ?iamRoleArn ?snsTopicArns ?slackChannelName ~slackChannelId
        ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      let guardrailPolicyArns =
        field_map json__ "GuardrailPolicyArns" GuardrailPolicyArnList.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let slackChannelName =
        field_map json__ "SlackChannelName" SlackChannelDisplayName.of_json in
      let slackChannelId =
        field_map_exn json__ "SlackChannelId" SlackChannelId.of_json in
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ?userAuthorizationRequired ?guardrailPolicyArns ?loggingLevel
        ?iamRoleArn ?snsTopicArns ?slackChannelName ~slackChannelId
        ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Slack channel configuration."]
module UpdateCustomActionResult =
  struct
    type nonrec t =
      {
      customActionArn: CustomActionArn.t option
        [@ocaml.doc "The fully defined ARN of the custom action."]}
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?customActionArn = fun () -> { customActionArn }
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("CustomActionArn",
           (Option.map x.customActionArn ~f:CustomActionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customActionArn =
        (Option.map ~f:CustomActionArn.of_xml)
          (Xml.child xml_arg0 "CustomActionArn") in
      make ?customActionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customActionArn =
        field_map json__ "CustomActionArn" CustomActionArn.of_json in
      make ?customActionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a custom action."]
module UpdateCustomActionRequest =
  struct
    type nonrec t =
      {
      customActionArn: CustomActionArn.t
        [@ocaml.doc
          "The fully defined Amazon Resource Name (ARN) of the custom action."];
      definition: CustomActionDefinition.t
        [@ocaml.doc
          "The definition of the command to run when invoked as an alias or as an action button."];
      aliasName: CustomActionAliasName.t option
        [@ocaml.doc
          "The name used to invoke this action in the chat channel. For example, \\@aws run my-alias."];
      attachments: CustomActionAttachmentList.t option
        [@ocaml.doc
          "Defines when this custom action button should be attached to a notification."]}
    let context_ = "UpdateCustomActionRequest"
    let make ?aliasName =
      fun ?attachments ->
        fun ~customActionArn ->
          fun ~definition ->
            fun () -> { aliasName; attachments; customActionArn; definition }
    let to_value x =
      structure_to_value
        [("CustomActionArn",
           (Some (CustomActionArn.to_value x.customActionArn)));
        ("Definition", (Some (CustomActionDefinition.to_value x.definition)));
        ("AliasName",
          (Option.map x.aliasName ~f:CustomActionAliasName.to_value));
        ("Attachments",
          (Option.map x.attachments ~f:CustomActionAttachmentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachments =
        (Option.map ~f:CustomActionAttachmentList.of_xml)
          (Xml.child xml_arg0 "Attachments") in
      let aliasName =
        (Option.map ~f:CustomActionAliasName.of_xml)
          (Xml.child xml_arg0 "AliasName") in
      let definition =
        CustomActionDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Definition") in
      let customActionArn =
        CustomActionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomActionArn") in
      make ?attachments ?aliasName ~definition ~customActionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachments =
        field_map json__ "Attachments" CustomActionAttachmentList.of_json in
      let aliasName =
        field_map json__ "AliasName" CustomActionAliasName.of_json in
      let definition =
        field_map_exn json__ "Definition" CustomActionDefinition.of_json in
      let customActionArn =
        field_map_exn json__ "CustomActionArn" CustomActionArn.of_json in
      make ?attachments ?aliasName ~definition ~customActionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a custom action."]
module UpdateChimeWebhookConfigurationResult =
  struct
    type nonrec t =
      {
      webhookConfiguration: ChimeWebhookConfiguration.t option
        [@ocaml.doc "A Amazon Chime webhook configuration."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UpdateChimeWebhookConfigurationException of
          UpdateChimeWebhookConfigurationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhookConfiguration = fun () -> { webhookConfiguration }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UpdateChimeWebhookConfigurationException" ->
          `UpdateChimeWebhookConfigurationException
            (UpdateChimeWebhookConfigurationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UpdateChimeWebhookConfigurationException" ->
          `UpdateChimeWebhookConfigurationException
            (UpdateChimeWebhookConfigurationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UpdateChimeWebhookConfigurationException e ->
          `Assoc
            [("error", (`String "UpdateChimeWebhookConfigurationException"));
            ("details", (UpdateChimeWebhookConfigurationException.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
        [("WebhookConfiguration",
           (Option.map x.webhookConfiguration
              ~f:ChimeWebhookConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookConfiguration =
        (Option.map ~f:ChimeWebhookConfiguration.of_xml)
          (Xml.child xml_arg0 "WebhookConfiguration") in
      make ?webhookConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookConfiguration =
        field_map json__ "WebhookConfiguration"
          ChimeWebhookConfiguration.of_json in
      make ?webhookConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Amazon Chime webhook configuration."]
module UpdateChimeWebhookConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ChimeWebhookConfiguration to update."];
      webhookDescription: ChimeWebhookDescription.t option
        [@ocaml.doc
          "A description of the webhook. We recommend using the convention RoomName/WebhookName. For more information, see Tutorial: Get started with Amazon Chime in the AWS Chatbot Administrator Guide."];
      webhookUrl: ChimeWebhookUrl.t option
        [@ocaml.doc "The URL for the Amazon Chime webhook."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The ARNs of the SNS topics that deliver notifications to AWS Chatbot."];
      iamRoleArn: Arn.t option
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."]}
    let context_ = "UpdateChimeWebhookConfigurationRequest"
    let make ?webhookDescription =
      fun ?webhookUrl ->
        fun ?snsTopicArns ->
          fun ?iamRoleArn ->
            fun ?loggingLevel ->
              fun ~chatConfigurationArn ->
                fun () ->
                  {
                    webhookDescription;
                    webhookUrl;
                    snsTopicArns;
                    iamRoleArn;
                    loggingLevel;
                    chatConfigurationArn
                  }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)));
        ("WebhookDescription",
          (Option.map x.webhookDescription
             ~f:ChimeWebhookDescription.to_value));
        ("WebhookUrl", (Option.map x.webhookUrl ~f:ChimeWebhookUrl.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:Arn.to_value));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let iamRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let webhookUrl =
        (Option.map ~f:ChimeWebhookUrl.of_xml)
          (Xml.child xml_arg0 "WebhookUrl") in
      let webhookDescription =
        (Option.map ~f:ChimeWebhookDescription.of_xml)
          (Xml.child xml_arg0 "WebhookDescription") in
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ?loggingLevel ?iamRoleArn ?snsTopicArns ?webhookUrl
        ?webhookDescription ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" Arn.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let webhookUrl = field_map json__ "WebhookUrl" ChimeWebhookUrl.of_json in
      let webhookDescription =
        field_map json__ "WebhookDescription" ChimeWebhookDescription.of_json in
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ?loggingLevel ?iamRoleArn ?snsTopicArns ?webhookUrl
        ?webhookDescription ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Amazon Chime webhook configuration."]
module UpdateAccountPreferencesResult =
  struct
    type nonrec t =
      {
      accountPreferences: AccountPreferences.t option
        [@ocaml.doc
          "Preferences related to AWS Chatbot usage in the calling AWS account."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `UpdateAccountPreferencesException of
          UpdateAccountPreferencesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountPreferences = fun () -> { accountPreferences }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "UpdateAccountPreferencesException" ->
          `UpdateAccountPreferencesException
            (UpdateAccountPreferencesException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "UpdateAccountPreferencesException" ->
          `UpdateAccountPreferencesException
            (UpdateAccountPreferencesException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `UpdateAccountPreferencesException e ->
          `Assoc
            [("error", (`String "UpdateAccountPreferencesException"));
            ("details", (UpdateAccountPreferencesException.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
        [("AccountPreferences",
           (Option.map x.accountPreferences ~f:AccountPreferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountPreferences =
        (Option.map ~f:AccountPreferences.of_xml)
          (Xml.child xml_arg0 "AccountPreferences") in
      make ?accountPreferences ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountPreferences =
        field_map json__ "AccountPreferences" AccountPreferences.of_json in
      make ?accountPreferences ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates AWS Chatbot account preferences."]
module UpdateAccountPreferencesRequest =
  struct
    type nonrec t =
      {
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."];
      trainingDataCollectionEnabled: BooleanAccountPreference.t option
        [@ocaml.doc
          "Turns on training data collection. This helps improve the AWS Chatbot experience by allowing AWS Chatbot to store and use your customer information, such as AWS Chatbot configurations, notifications, user inputs, AWS Chatbot generated responses, and interaction data. This data helps us to continuously improve and develop Artificial Intelligence (AI) technologies. Your data is not shared with any third parties and is protected using sophisticated controls to prevent unauthorized access and misuse. AWS Chatbot does not store or use interactions in chat channels with Amazon Q for training AI technologies for AWS Chatbot."]}
    let make ?userAuthorizationRequired =
      fun ?trainingDataCollectionEnabled ->
        fun () ->
          { userAuthorizationRequired; trainingDataCollectionEnabled }
    let to_value x =
      structure_to_value
        [("UserAuthorizationRequired",
           (Option.map x.userAuthorizationRequired
              ~f:BooleanAccountPreference.to_value));
        ("TrainingDataCollectionEnabled",
          (Option.map x.trainingDataCollectionEnabled
             ~f:BooleanAccountPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trainingDataCollectionEnabled =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "TrainingDataCollectionEnabled") in
      let userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      make ?trainingDataCollectionEnabled ?userAuthorizationRequired ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trainingDataCollectionEnabled =
        field_map json__ "TrainingDataCollectionEnabled"
          BooleanAccountPreference.of_json in
      let userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      make ?trainingDataCollectionEnabled ?userAuthorizationRequired ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates AWS Chatbot account preferences."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
       "Detaches a key-value pair from a resource, as identified by its Amazon Resource Name (ARN). Resources are users, servers, roles, and other entities."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The value of the resource that will have the tag removed. An Amazon Resource Name (ARN) is an identifier for a specific AWS resource, such as a server, user, or role."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "TagKeys are key-value pairs assigned to ARNs that can be used to group and search for resources by type. This metadata can be attached to resources for any purpose."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.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 =
        AmazonResourceName.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" AmazonResourceName.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches a key-value pair from a resource, as identified by its Amazon Resource Name (ARN). Resources are users, servers, roles, and other entities."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.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
       "Attaches a key-value pair to a resource, as identified by its Amazon Resource Name (ARN). Resources are users, servers, roles, and other entities."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc "The ARN of the configuration."];
      tags: TagList.t
        [@ocaml.doc "A list of tags to apply to the configuration."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a key-value pair to a resource, as identified by its Amazon Resource Name (ARN). Resources are users, servers, roles, and other entities."]
module ListTeamsChannelConfigurationsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      teamChannelConfigurations: TeamChannelConfigurationsList.t option
        [@ocaml.doc
          "A list of AWS Chatbot channel configurations for Microsoft Teams."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ListTeamsChannelConfigurationsException of
          ListTeamsChannelConfigurationsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?teamChannelConfigurations ->
        fun () -> { nextToken; teamChannelConfigurations }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ListTeamsChannelConfigurationsException" ->
          `ListTeamsChannelConfigurationsException
            (ListTeamsChannelConfigurationsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ListTeamsChannelConfigurationsException" ->
          `ListTeamsChannelConfigurationsException
            (ListTeamsChannelConfigurationsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ListTeamsChannelConfigurationsException e ->
          `Assoc
            [("error", (`String "ListTeamsChannelConfigurationsException"));
            ("details", (ListTeamsChannelConfigurationsException.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
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("TeamChannelConfigurations",
          (Option.map x.teamChannelConfigurations
             ~f:TeamChannelConfigurationsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let teamChannelConfigurations =
        (Option.map ~f:TeamChannelConfigurationsList.of_xml)
          (Xml.child xml_arg0 "TeamChannelConfigurations") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?teamChannelConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let teamChannelConfigurations =
        field_map json__ "TeamChannelConfigurations"
          TeamChannelConfigurationsList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?teamChannelConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all AWS Chatbot Microsoft Teams channel configurations in an AWS account."]
module ListTeamsChannelConfigurationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      teamId: UUID.t option
        [@ocaml.doc
          "The ID of the Microsoft Teams authorized with AWS Chatbot. To get the team ID, you must perform the initial authorization flow with Microsoft Teams in the AWS Chatbot console. Then you can copy and paste the team ID from the console. For more information, see Step 1: Configure a Microsoft Teams client in the AWS Chatbot Administrator Guide."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?teamId -> fun () -> { maxResults; nextToken; teamId }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("TeamId", (Option.map x.teamId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let teamId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "TeamId") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?teamId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let teamId = field_map json__ "TeamId" UUID.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?teamId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all AWS Chatbot Microsoft Teams channel configurations in an AWS account."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "Key-value pairs that are assigned to a resource, usually for the purpose of grouping and searching for items. Tags are metadata that you define."]}
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the tags associated with the Amazon Resource Name (ARN) that you specify. The resource can be a user, server, or role."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc "The ARN of the resource to list tags for."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        AmazonResourceName.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" AmazonResourceName.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the tags associated with the Amazon Resource Name (ARN) that you specify. The resource can be a user, server, or role."]
module ListMicrosoftTeamsUserIdentitiesResult =
  struct
    type nonrec t =
      {
      teamsUserIdentities: TeamsUserIdentitiesList.t option
        [@ocaml.doc
          "User level permissions associated to a channel configuration."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ListMicrosoftTeamsUserIdentitiesException of
          ListMicrosoftTeamsUserIdentitiesException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?teamsUserIdentities =
      fun ?nextToken -> fun () -> { teamsUserIdentities; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ListMicrosoftTeamsUserIdentitiesException" ->
          `ListMicrosoftTeamsUserIdentitiesException
            (ListMicrosoftTeamsUserIdentitiesException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ListMicrosoftTeamsUserIdentitiesException" ->
          `ListMicrosoftTeamsUserIdentitiesException
            (ListMicrosoftTeamsUserIdentitiesException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ListMicrosoftTeamsUserIdentitiesException e ->
          `Assoc
            [("error", (`String "ListMicrosoftTeamsUserIdentitiesException"));
            ("details",
              (ListMicrosoftTeamsUserIdentitiesException.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
        [("TeamsUserIdentities",
           (Option.map x.teamsUserIdentities
              ~f:TeamsUserIdentitiesList.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 teamsUserIdentities =
        (Option.map ~f:TeamsUserIdentitiesList.of_xml)
          (Xml.child xml_arg0 "TeamsUserIdentities") in
      make ?nextToken ?teamsUserIdentities ()
    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 teamsUserIdentities =
        field_map json__ "TeamsUserIdentities"
          TeamsUserIdentitiesList.of_json in
      make ?nextToken ?teamsUserIdentities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list all Microsoft Teams user identities with a mapped role."]
module ListMicrosoftTeamsUserIdentitiesRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MicrosoftTeamsChannelConfiguration associated with the user identities to list."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."]}
    let make ?chatConfigurationArn =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { chatConfigurationArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Option.map x.chatConfigurationArn
              ~f:ChatConfigurationArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      make ?maxResults ?nextToken ?chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      make ?maxResults ?nextToken ?chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list all Microsoft Teams user identities with a mapped role."]
module ListMicrosoftTeamsConfiguredTeamsResult =
  struct
    type nonrec t =
      {
      configuredTeams: ConfiguredTeamsList.t option
        [@ocaml.doc
          "A list of teams in Microsoft Teams that are configured with AWS Chatbot."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ListMicrosoftTeamsConfiguredTeamsException of
          ListMicrosoftTeamsConfiguredTeamsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configuredTeams =
      fun ?nextToken -> fun () -> { configuredTeams; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ListMicrosoftTeamsConfiguredTeamsException" ->
          `ListMicrosoftTeamsConfiguredTeamsException
            (ListMicrosoftTeamsConfiguredTeamsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ListMicrosoftTeamsConfiguredTeamsException" ->
          `ListMicrosoftTeamsConfiguredTeamsException
            (ListMicrosoftTeamsConfiguredTeamsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ListMicrosoftTeamsConfiguredTeamsException e ->
          `Assoc
            [("error",
               (`String "ListMicrosoftTeamsConfiguredTeamsException"));
            ("details",
              (ListMicrosoftTeamsConfiguredTeamsException.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
        [("ConfiguredTeams",
           (Option.map x.configuredTeams ~f:ConfiguredTeamsList.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 configuredTeams =
        (Option.map ~f:ConfiguredTeamsList.of_xml)
          (Xml.child xml_arg0 "ConfiguredTeams") in
      make ?nextToken ?configuredTeams ()
    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 configuredTeams =
        field_map json__ "ConfiguredTeams" ConfiguredTeamsList.of_json in
      make ?nextToken ?configuredTeams ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all authorized Microsoft Teams for an AWS Account"]
module ListMicrosoftTeamsConfiguredTeamsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all authorized Microsoft Teams for an AWS Account"]
module ListCustomActionsResult =
  struct
    type nonrec t =
      {
      customActions: CustomActionArnList.t option
        [@ocaml.doc "A list of custom actions."];
      nextToken: ListCustomActionsResultNextTokenString.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?customActions =
      fun ?nextToken -> fun () -> { customActions; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("CustomActions",
           (Option.map x.customActions ~f:CustomActionArnList.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListCustomActionsResultNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListCustomActionsResultNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let customActions =
        (Option.map ~f:CustomActionArnList.of_xml)
          (Xml.child xml_arg0 "CustomActions") in
      make ?nextToken ?customActions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          ListCustomActionsResultNextTokenString.of_json in
      let customActions =
        field_map json__ "CustomActions" CustomActionArnList.of_json in
      make ?nextToken ?customActions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists custom actions defined in this account."]
module ListCustomActionsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListCustomActionsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: ListCustomActionsRequestNextTokenString.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults
              ~f:ListCustomActionsRequestMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListCustomActionsRequestNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListCustomActionsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListCustomActionsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          ListCustomActionsRequestNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListCustomActionsRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists custom actions defined in this account."]
module ListAssociationsResult =
  struct
    type nonrec t =
      {
      associations: AssociationList.t option
        [@ocaml.doc
          "The resources associated with this channel configuration."];
      nextToken: ListAssociationsResultNextTokenString.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?associations =
      fun ?nextToken -> fun () -> { associations; nextToken }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Associations",
           (Option.map x.associations ~f:AssociationList.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListAssociationsResultNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListAssociationsResultNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let associations =
        (Option.map ~f:AssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      make ?nextToken ?associations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          ListAssociationsResultNextTokenString.of_json in
      let associations =
        field_map json__ "Associations" AssociationList.of_json in
      make ?nextToken ?associations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists resources associated with a channel configuration."]
module ListAssociationsRequest =
  struct
    type nonrec t =
      {
      chatConfiguration: ChatConfigurationArn.t
        [@ocaml.doc "The channel configuration to list associations for."];
      maxResults: ListAssociationsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: ListAssociationsRequestNextTokenString.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    let context_ = "ListAssociationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~chatConfiguration ->
          fun () -> { maxResults; nextToken; chatConfiguration }
    let to_value x =
      structure_to_value
        [("ChatConfiguration",
           (Some (ChatConfigurationArn.to_value x.chatConfiguration)));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListAssociationsRequestMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListAssociationsRequestNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListAssociationsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListAssociationsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let chatConfiguration =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfiguration") in
      make ?nextToken ?maxResults ~chatConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          ListAssociationsRequestNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListAssociationsRequestMaxResultsInteger.of_json in
      let chatConfiguration =
        field_map_exn json__ "ChatConfiguration" ChatConfigurationArn.of_json in
      make ?nextToken ?maxResults ~chatConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists resources associated with a channel configuration."]
module GetTeamsChannelConfigurationResult =
  struct
    type nonrec t =
      {
      channelConfiguration: TeamsChannelConfiguration.t option
        [@ocaml.doc
          "The configuration for a Microsoft Teams channel configured with AWS Chatbot."]}
    type nonrec error =
      [
        `GetTeamsChannelConfigurationException of
          GetTeamsChannelConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channelConfiguration = fun () -> { channelConfiguration }
    let error_of_json name json =
      match name with
      | "GetTeamsChannelConfigurationException" ->
          `GetTeamsChannelConfigurationException
            (GetTeamsChannelConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "GetTeamsChannelConfigurationException" ->
          `GetTeamsChannelConfigurationException
            (GetTeamsChannelConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `GetTeamsChannelConfigurationException e ->
          `Assoc
            [("error", (`String "GetTeamsChannelConfigurationException"));
            ("details", (GetTeamsChannelConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("ChannelConfiguration",
           (Option.map x.channelConfiguration
              ~f:TeamsChannelConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelConfiguration =
        (Option.map ~f:TeamsChannelConfiguration.of_xml)
          (Xml.child xml_arg0 "ChannelConfiguration") in
      make ?channelConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelConfiguration =
        field_map json__ "ChannelConfiguration"
          TeamsChannelConfiguration.of_json in
      make ?channelConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a Microsoft Teams channel configuration in an AWS account."]
module GetTeamsChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MicrosoftTeamsChannelConfiguration to retrieve."]}
    let context_ = "GetTeamsChannelConfigurationRequest"
    let make ~chatConfigurationArn = fun () -> { chatConfigurationArn }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a Microsoft Teams channel configuration in an AWS account."]
module GetCustomActionResult =
  struct
    type nonrec t =
      {
      customAction: CustomAction.t option
        [@ocaml.doc "Returns the custom action."]}
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?customAction = fun () -> { customAction }
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("CustomAction",
           (Option.map x.customAction ~f:CustomAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customAction =
        (Option.map ~f:CustomAction.of_xml)
          (Xml.child xml_arg0 "CustomAction") in
      make ?customAction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customAction = field_map json__ "CustomAction" CustomAction.of_json in
      make ?customAction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a custom action."]
module GetCustomActionRequest =
  struct
    type nonrec t =
      {
      customActionArn: CustomActionArn.t
        [@ocaml.doc
          "Returns the fully defined Amazon Resource Name (ARN) of the custom action."]}
    let context_ = "GetCustomActionRequest"
    let make ~customActionArn = fun () -> { customActionArn }
    let to_value x =
      structure_to_value
        [("CustomActionArn",
           (Some (CustomActionArn.to_value x.customActionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customActionArn =
        CustomActionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomActionArn") in
      make ~customActionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customActionArn =
        field_map_exn json__ "CustomActionArn" CustomActionArn.of_json in
      make ~customActionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a custom action."]
module GetAccountPreferencesResult =
  struct
    type nonrec t =
      {
      accountPreferences: AccountPreferences.t option
        [@ocaml.doc
          "The preferences related to AWS Chatbot usage in the calling AWS account."]}
    type nonrec error =
      [ `GetAccountPreferencesException of GetAccountPreferencesException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountPreferences = fun () -> { accountPreferences }
    let error_of_json name json =
      match name with
      | "GetAccountPreferencesException" ->
          `GetAccountPreferencesException
            (GetAccountPreferencesException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "GetAccountPreferencesException" ->
          `GetAccountPreferencesException
            (GetAccountPreferencesException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `GetAccountPreferencesException e ->
          `Assoc
            [("error", (`String "GetAccountPreferencesException"));
            ("details", (GetAccountPreferencesException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("AccountPreferences",
           (Option.map x.accountPreferences ~f:AccountPreferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountPreferences =
        (Option.map ~f:AccountPreferences.of_xml)
          (Xml.child xml_arg0 "AccountPreferences") in
      make ?accountPreferences ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountPreferences =
        field_map json__ "AccountPreferences" AccountPreferences.of_json in
      make ?accountPreferences ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns AWS Chatbot account preferences."]
module GetAccountPreferencesRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns AWS Chatbot account preferences."]
module DisassociateFromConfigurationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
       "Unlink a resource, for example a custom action, from a channel configuration."]
module DisassociateFromConfigurationRequest =
  struct
    type nonrec t =
      {
      resource: ResourceIdentifier.t
        [@ocaml.doc
          "The resource (for example, a custom action) Amazon Resource Name (ARN) to unlink."];
      chatConfiguration: ChatConfigurationArn.t
        [@ocaml.doc
          "The channel configuration the resource is being disassociated from."]}
    let context_ = "DisassociateFromConfigurationRequest"
    let make ~resource =
      fun ~chatConfiguration -> fun () -> { resource; chatConfiguration }
    let to_value x =
      structure_to_value
        [("Resource", (Some (ResourceIdentifier.to_value x.resource)));
        ("ChatConfiguration",
          (Some (ChatConfigurationArn.to_value x.chatConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfiguration =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfiguration") in
      let resource =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Resource") in
      make ~chatConfiguration ~resource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfiguration =
        field_map_exn json__ "ChatConfiguration" ChatConfigurationArn.of_json in
      let resource =
        field_map_exn json__ "Resource" ResourceIdentifier.of_json in
      make ~chatConfiguration ~resource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unlink a resource, for example a custom action, from a channel configuration."]
module DescribeSlackWorkspacesResult =
  struct
    type nonrec t =
      {
      slackWorkspaces: SlackWorkspacesList.t option
        [@ocaml.doc
          "A list of Slack workspaces registered with AWS Chatbot."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    type nonrec error =
      [
        `DescribeSlackWorkspacesException of
          DescribeSlackWorkspacesException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?slackWorkspaces =
      fun ?nextToken -> fun () -> { slackWorkspaces; nextToken }
    let error_of_json name json =
      match name with
      | "DescribeSlackWorkspacesException" ->
          `DescribeSlackWorkspacesException
            (DescribeSlackWorkspacesException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DescribeSlackWorkspacesException" ->
          `DescribeSlackWorkspacesException
            (DescribeSlackWorkspacesException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DescribeSlackWorkspacesException e ->
          `Assoc
            [("error", (`String "DescribeSlackWorkspacesException"));
            ("details", (DescribeSlackWorkspacesException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("SlackWorkspaces",
           (Option.map x.slackWorkspaces ~f:SlackWorkspacesList.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 slackWorkspaces =
        (Option.map ~f:SlackWorkspacesList.of_xml)
          (Xml.child xml_arg0 "SlackWorkspaces") in
      make ?nextToken ?slackWorkspaces ()
    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 slackWorkspaces =
        field_map json__ "SlackWorkspaces" SlackWorkspacesList.of_json in
      make ?nextToken ?slackWorkspaces ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all authorized Slack workspaces connected to the AWS Account onboarded with AWS Chatbot."]
module DescribeSlackWorkspacesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all authorized Slack workspaces connected to the AWS Account onboarded with AWS Chatbot."]
module DescribeSlackUserIdentitiesResult =
  struct
    type nonrec t =
      {
      slackUserIdentities: SlackUserIdentitiesList.t option
        [@ocaml.doc "A list of Slack User Identities."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."]}
    type nonrec error =
      [
        `DescribeSlackUserIdentitiesException of
          DescribeSlackUserIdentitiesException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?slackUserIdentities =
      fun ?nextToken -> fun () -> { slackUserIdentities; nextToken }
    let error_of_json name json =
      match name with
      | "DescribeSlackUserIdentitiesException" ->
          `DescribeSlackUserIdentitiesException
            (DescribeSlackUserIdentitiesException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DescribeSlackUserIdentitiesException" ->
          `DescribeSlackUserIdentitiesException
            (DescribeSlackUserIdentitiesException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DescribeSlackUserIdentitiesException e ->
          `Assoc
            [("error", (`String "DescribeSlackUserIdentitiesException"));
            ("details", (DescribeSlackUserIdentitiesException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("SlackUserIdentities",
           (Option.map x.slackUserIdentities
              ~f:SlackUserIdentitiesList.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 slackUserIdentities =
        (Option.map ~f:SlackUserIdentitiesList.of_xml)
          (Xml.child xml_arg0 "SlackUserIdentities") in
      make ?nextToken ?slackUserIdentities ()
    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 slackUserIdentities =
        field_map json__ "SlackUserIdentities"
          SlackUserIdentitiesList.of_json in
      make ?nextToken ?slackUserIdentities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all Slack user identities with a mapped role."]
module DescribeSlackUserIdentitiesRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the SlackChannelConfiguration associated with the user identities to describe."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."]}
    let make ?chatConfigurationArn =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { chatConfigurationArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Option.map x.chatConfigurationArn
              ~f:ChatConfigurationArn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      make ?maxResults ?nextToken ?chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      make ?maxResults ?nextToken ?chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all Slack user identities with a mapped role."]
module DescribeSlackChannelConfigurationsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      slackChannelConfigurations: SlackChannelConfigurationList.t option
        [@ocaml.doc "A list of Slack channel configurations."]}
    type nonrec error =
      [
        `DescribeSlackChannelConfigurationsException of
          DescribeSlackChannelConfigurationsException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?slackChannelConfigurations ->
        fun () -> { nextToken; slackChannelConfigurations }
    let error_of_json name json =
      match name with
      | "DescribeSlackChannelConfigurationsException" ->
          `DescribeSlackChannelConfigurationsException
            (DescribeSlackChannelConfigurationsException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DescribeSlackChannelConfigurationsException" ->
          `DescribeSlackChannelConfigurationsException
            (DescribeSlackChannelConfigurationsException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DescribeSlackChannelConfigurationsException e ->
          `Assoc
            [("error",
               (`String "DescribeSlackChannelConfigurationsException"));
            ("details",
              (DescribeSlackChannelConfigurationsException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("SlackChannelConfigurations",
          (Option.map x.slackChannelConfigurations
             ~f:SlackChannelConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slackChannelConfigurations =
        (Option.map ~f:SlackChannelConfigurationList.of_xml)
          (Xml.child xml_arg0 "SlackChannelConfigurations") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?slackChannelConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slackChannelConfigurations =
        field_map json__ "SlackChannelConfigurations"
          SlackChannelConfigurationList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?slackChannelConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists Slack channel configurations optionally filtered by ChatConfigurationArn"]
module DescribeSlackChannelConfigurationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "An optional Amazon Resource Name (ARN) of a SlackChannelConfiguration to describe."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?chatConfigurationArn ->
          fun () -> { maxResults; nextToken; chatConfigurationArn }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?chatConfigurationArn ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?chatConfigurationArn ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists Slack channel configurations optionally filtered by ChatConfigurationArn"]
module DescribeChimeWebhookConfigurationsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      webhookConfigurations: ChimeWebhookConfigurationList.t option
        [@ocaml.doc
          "A list of Amazon Chime webhooks associated with the account."]}
    type nonrec error =
      [
        `DescribeChimeWebhookConfigurationsException of
          DescribeChimeWebhookConfigurationsException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?webhookConfigurations ->
        fun () -> { nextToken; webhookConfigurations }
    let error_of_json name json =
      match name with
      | "DescribeChimeWebhookConfigurationsException" ->
          `DescribeChimeWebhookConfigurationsException
            (DescribeChimeWebhookConfigurationsException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DescribeChimeWebhookConfigurationsException" ->
          `DescribeChimeWebhookConfigurationsException
            (DescribeChimeWebhookConfigurationsException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DescribeChimeWebhookConfigurationsException e ->
          `Assoc
            [("error",
               (`String "DescribeChimeWebhookConfigurationsException"));
            ("details",
              (DescribeChimeWebhookConfigurationsException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.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
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("WebhookConfigurations",
          (Option.map x.webhookConfigurations
             ~f:ChimeWebhookConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookConfigurations =
        (Option.map ~f:ChimeWebhookConfigurationList.of_xml)
          (Xml.child xml_arg0 "WebhookConfigurations") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?webhookConfigurations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookConfigurations =
        field_map json__ "WebhookConfigurations"
          ChimeWebhookConfigurationList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?webhookConfigurations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists Amazon Chime webhook configurations optionally filtered by ChatConfigurationArn"]
module DescribeChimeWebhookConfigurationsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the specified MaxResults value, a token is included in the response so that the remaining results can be retrieved."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by MaxResults."];
      chatConfigurationArn: ChatConfigurationArn.t option
        [@ocaml.doc
          "An optional Amazon Resource Name (ARN) of a ChimeWebhookConfiguration to describe."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?chatConfigurationArn ->
          fun () -> { maxResults; nextToken; chatConfigurationArn }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("ChatConfigurationArn",
          (Option.map x.chatConfigurationArn ~f:ChatConfigurationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfigurationArn =
        (Option.map ~f:ChatConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ChatConfigurationArn") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?chatConfigurationArn ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfigurationArn =
        field_map json__ "ChatConfigurationArn" ChatConfigurationArn.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?chatConfigurationArn ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists Amazon Chime webhook configurations optionally filtered by ChatConfigurationArn"]
module DeleteTeamsConfiguredTeamResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteTeamsConfiguredTeamException of
          DeleteTeamsConfiguredTeamException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteTeamsConfiguredTeamException" ->
          `DeleteTeamsConfiguredTeamException
            (DeleteTeamsConfiguredTeamException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteTeamsConfiguredTeamException" ->
          `DeleteTeamsConfiguredTeamException
            (DeleteTeamsConfiguredTeamException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteTeamsConfiguredTeamException e ->
          `Assoc
            [("error", (`String "DeleteTeamsConfiguredTeamException"));
            ("details", (DeleteTeamsConfiguredTeamException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the Microsoft Teams team authorization allowing for channels to be configured in that Microsoft Teams team. Note that the Microsoft Teams team must have no channels configured to remove it."]
module DeleteTeamsConfiguredTeamRequest =
  struct
    type nonrec t =
      {
      teamId: UUID.t
        [@ocaml.doc
          "The ID of the Microsoft Teams team authorized with AWS Chatbot. To get the team ID, you must perform the initial authorization flow with Microsoft Teams in the AWS Chatbot console. Then you can copy and paste the team ID from the console. For more information, see Step 1: Configure a Microsoft Teams client in the AWS Chatbot Administrator Guide."]}
    let context_ = "DeleteTeamsConfiguredTeamRequest"
    let make ~teamId = fun () -> { teamId }
    let to_value x =
      structure_to_value [("TeamId", (Some (UUID.to_value x.teamId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let teamId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TeamId") in
      make ~teamId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let teamId = field_map_exn json__ "TeamId" UUID.of_json in
      make ~teamId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the Microsoft Teams team authorization allowing for channels to be configured in that Microsoft Teams team. Note that the Microsoft Teams team must have no channels configured to remove it."]
module DeleteTeamsChannelConfigurationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteTeamsChannelConfigurationException of
          DeleteTeamsChannelConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteTeamsChannelConfigurationException" ->
          `DeleteTeamsChannelConfigurationException
            (DeleteTeamsChannelConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteTeamsChannelConfigurationException" ->
          `DeleteTeamsChannelConfigurationException
            (DeleteTeamsChannelConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteTeamsChannelConfigurationException e ->
          `Assoc
            [("error", (`String "DeleteTeamsChannelConfigurationException"));
            ("details", (DeleteTeamsChannelConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Microsoft Teams channel configuration for AWS Chatbot"]
module DeleteTeamsChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MicrosoftTeamsChannelConfiguration associated with the user identity to delete."]}
    let context_ = "DeleteTeamsChannelConfigurationRequest"
    let make ~chatConfigurationArn = fun () -> { chatConfigurationArn }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Microsoft Teams channel configuration for AWS Chatbot"]
module DeleteSlackWorkspaceAuthorizationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteSlackWorkspaceAuthorizationFault of
          DeleteSlackWorkspaceAuthorizationFault.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteSlackWorkspaceAuthorizationFault" ->
          `DeleteSlackWorkspaceAuthorizationFault
            (DeleteSlackWorkspaceAuthorizationFault.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteSlackWorkspaceAuthorizationFault" ->
          `DeleteSlackWorkspaceAuthorizationFault
            (DeleteSlackWorkspaceAuthorizationFault.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteSlackWorkspaceAuthorizationFault e ->
          `Assoc
            [("error", (`String "DeleteSlackWorkspaceAuthorizationFault"));
            ("details", (DeleteSlackWorkspaceAuthorizationFault.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the Slack workspace authorization that allows channels to be configured in that workspace. This requires all configured channels in the workspace to be deleted."]
module DeleteSlackWorkspaceAuthorizationRequest =
  struct
    type nonrec t =
      {
      slackTeamId: SlackTeamId.t
        [@ocaml.doc
          "The ID of the Slack workspace authorized with AWS Chatbot."]}
    let context_ = "DeleteSlackWorkspaceAuthorizationRequest"
    let make ~slackTeamId = fun () -> { slackTeamId }
    let to_value x =
      structure_to_value
        [("SlackTeamId", (Some (SlackTeamId.to_value x.slackTeamId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slackTeamId =
        SlackTeamId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SlackTeamId") in
      make ~slackTeamId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slackTeamId =
        field_map_exn json__ "SlackTeamId" SlackTeamId.of_json in
      make ~slackTeamId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the Slack workspace authorization that allows channels to be configured in that workspace. This requires all configured channels in the workspace to be deleted."]
module DeleteSlackUserIdentityResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteSlackUserIdentityException of
          DeleteSlackUserIdentityException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteSlackUserIdentityException" ->
          `DeleteSlackUserIdentityException
            (DeleteSlackUserIdentityException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteSlackUserIdentityException" ->
          `DeleteSlackUserIdentityException
            (DeleteSlackUserIdentityException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteSlackUserIdentityException e ->
          `Assoc
            [("error", (`String "DeleteSlackUserIdentityException"));
            ("details", (DeleteSlackUserIdentityException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a user level permission for a Slack channel configuration."]
module DeleteSlackUserIdentityRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The ARN of the SlackChannelConfiguration associated with the user identity to delete."];
      slackTeamId: SlackTeamId.t
        [@ocaml.doc
          "The ID of the Slack workspace authorized with AWS Chatbot."];
      slackUserId: SlackUserId.t [@ocaml.doc "The ID of the user in Slack"]}
    let context_ = "DeleteSlackUserIdentityRequest"
    let make ~chatConfigurationArn =
      fun ~slackTeamId ->
        fun ~slackUserId ->
          fun () -> { chatConfigurationArn; slackTeamId; slackUserId }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)));
        ("SlackTeamId", (Some (SlackTeamId.to_value x.slackTeamId)));
        ("SlackUserId", (Some (SlackUserId.to_value x.slackUserId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slackUserId =
        SlackUserId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SlackUserId") in
      let slackTeamId =
        SlackTeamId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SlackTeamId") in
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ~slackUserId ~slackTeamId ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slackUserId =
        field_map_exn json__ "SlackUserId" SlackUserId.of_json in
      let slackTeamId =
        field_map_exn json__ "SlackTeamId" SlackTeamId.of_json in
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ~slackUserId ~slackTeamId ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a user level permission for a Slack channel configuration."]
module DeleteSlackChannelConfigurationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteSlackChannelConfigurationException of
          DeleteSlackChannelConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteSlackChannelConfigurationException" ->
          `DeleteSlackChannelConfigurationException
            (DeleteSlackChannelConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteSlackChannelConfigurationException" ->
          `DeleteSlackChannelConfigurationException
            (DeleteSlackChannelConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteSlackChannelConfigurationException e ->
          `Assoc
            [("error", (`String "DeleteSlackChannelConfigurationException"));
            ("details", (DeleteSlackChannelConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Slack channel configuration for AWS Chatbot"]
module DeleteSlackChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the SlackChannelConfiguration to delete."]}
    let context_ = "DeleteSlackChannelConfigurationRequest"
    let make ~chatConfigurationArn = fun () -> { chatConfigurationArn }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Slack channel configuration for AWS Chatbot"]
module DeleteMicrosoftTeamsUserIdentityResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteMicrosoftTeamsUserIdentityException of
          DeleteMicrosoftTeamsUserIdentityException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteMicrosoftTeamsUserIdentityException" ->
          `DeleteMicrosoftTeamsUserIdentityException
            (DeleteMicrosoftTeamsUserIdentityException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteMicrosoftTeamsUserIdentityException" ->
          `DeleteMicrosoftTeamsUserIdentityException
            (DeleteMicrosoftTeamsUserIdentityException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteMicrosoftTeamsUserIdentityException e ->
          `Assoc
            [("error", (`String "DeleteMicrosoftTeamsUserIdentityException"));
            ("details",
              (DeleteMicrosoftTeamsUserIdentityException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifes a user level permission for a channel configuration."]
module DeleteMicrosoftTeamsUserIdentityRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The ARN of the MicrosoftTeamsChannelConfiguration associated with the user identity to delete."];
      userId: UUID.t [@ocaml.doc "The Microsoft Teams user ID."]}
    let context_ = "DeleteMicrosoftTeamsUserIdentityRequest"
    let make ~chatConfigurationArn =
      fun ~userId -> fun () -> { chatConfigurationArn; userId }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)));
        ("UserId", (Some (UUID.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "UserId") in
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ~userId ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" UUID.of_json in
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ~userId ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifes a user level permission for a channel configuration."]
module DeleteCustomActionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a custom action."]
module DeleteCustomActionRequest =
  struct
    type nonrec t =
      {
      customActionArn: CustomActionArn.t
        [@ocaml.doc "The fully defined ARN of the custom action."]}
    let context_ = "DeleteCustomActionRequest"
    let make ~customActionArn = fun () -> { customActionArn }
    let to_value x =
      structure_to_value
        [("CustomActionArn",
           (Some (CustomActionArn.to_value x.customActionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customActionArn =
        CustomActionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomActionArn") in
      make ~customActionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customActionArn =
        field_map_exn json__ "CustomActionArn" CustomActionArn.of_json in
      make ~customActionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a custom action."]
module DeleteChimeWebhookConfigurationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `DeleteChimeWebhookConfigurationException of
          DeleteChimeWebhookConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DeleteChimeWebhookConfigurationException" ->
          `DeleteChimeWebhookConfigurationException
            (DeleteChimeWebhookConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeleteChimeWebhookConfigurationException" ->
          `DeleteChimeWebhookConfigurationException
            (DeleteChimeWebhookConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeleteChimeWebhookConfigurationException e ->
          `Assoc
            [("error", (`String "DeleteChimeWebhookConfigurationException"));
            ("details", (DeleteChimeWebhookConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Amazon Chime webhook configuration for AWS Chatbot."]
module DeleteChimeWebhookConfigurationRequest =
  struct
    type nonrec t =
      {
      chatConfigurationArn: ChatConfigurationArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ChimeWebhookConfiguration to delete."]}
    let context_ = "DeleteChimeWebhookConfigurationRequest"
    let make ~chatConfigurationArn = fun () -> { chatConfigurationArn }
    let to_value x =
      structure_to_value
        [("ChatConfigurationArn",
           (Some (ChatConfigurationArn.to_value x.chatConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfigurationArn =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfigurationArn") in
      make ~chatConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfigurationArn =
        field_map_exn json__ "ChatConfigurationArn"
          ChatConfigurationArn.of_json in
      make ~chatConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Amazon Chime webhook configuration for AWS Chatbot."]
module CreateTeamsChannelConfigurationResult =
  struct
    type nonrec t =
      {
      channelConfiguration: TeamsChannelConfiguration.t option
        [@ocaml.doc
          "The configuration for a Microsoft Teams channel configured with AWS Chatbot."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `CreateTeamsChannelConfigurationException of
          CreateTeamsChannelConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channelConfiguration = fun () -> { channelConfiguration }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "CreateTeamsChannelConfigurationException" ->
          `CreateTeamsChannelConfigurationException
            (CreateTeamsChannelConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "CreateTeamsChannelConfigurationException" ->
          `CreateTeamsChannelConfigurationException
            (CreateTeamsChannelConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `CreateTeamsChannelConfigurationException e ->
          `Assoc
            [("error", (`String "CreateTeamsChannelConfigurationException"));
            ("details", (CreateTeamsChannelConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("ChannelConfiguration",
           (Option.map x.channelConfiguration
              ~f:TeamsChannelConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelConfiguration =
        (Option.map ~f:TeamsChannelConfiguration.of_xml)
          (Xml.child xml_arg0 "ChannelConfiguration") in
      make ?channelConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelConfiguration =
        field_map json__ "ChannelConfiguration"
          TeamsChannelConfiguration.of_json in
      make ?channelConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an AWS Chatbot configuration for Microsoft Teams."]
module CreateTeamsChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      channelId: TeamsChannelId.t
        [@ocaml.doc "The ID of the Microsoft Teams channel."];
      channelName: TeamsChannelName.t option
        [@ocaml.doc "The name of the Microsoft Teams channel."];
      teamId: UUID.t
        [@ocaml.doc
          "The ID of the Microsoft Teams authorized with AWS Chatbot. To get the team ID, you must perform the initial authorization flow with Microsoft Teams in the AWS Chatbot console. Then you can copy and paste the team ID from the console. For more information, see Step 1: Configure a Microsoft Teams client in the AWS Chatbot Administrator Guide."];
      teamName: TeamName.t option
        [@ocaml.doc "The name of the Microsoft Teams Team."];
      tenantId: UUID.t [@ocaml.doc "The ID of the Microsoft Teams tenant."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      iamRoleArn: Arn.t
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      configurationName: ConfigurationName.t
        [@ocaml.doc "The name of the configuration."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      guardrailPolicyArns: GuardrailPolicyArnList.t option
        [@ocaml.doc
          "The list of IAM policy ARNs that are applied as channel guardrails. The AWS managed AdministratorAccess policy is applied by default if this is not set."];
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."]}
    let context_ = "CreateTeamsChannelConfigurationRequest"
    let make ?channelName =
      fun ?teamName ->
        fun ?snsTopicArns ->
          fun ?loggingLevel ->
            fun ?guardrailPolicyArns ->
              fun ?userAuthorizationRequired ->
                fun ?tags ->
                  fun ~channelId ->
                    fun ~teamId ->
                      fun ~tenantId ->
                        fun ~iamRoleArn ->
                          fun ~configurationName ->
                            fun () ->
                              {
                                channelName;
                                teamName;
                                snsTopicArns;
                                loggingLevel;
                                guardrailPolicyArns;
                                userAuthorizationRequired;
                                tags;
                                channelId;
                                teamId;
                                tenantId;
                                iamRoleArn;
                                configurationName
                              }
    let to_value x =
      structure_to_value
        [("ChannelId", (Some (TeamsChannelId.to_value x.channelId)));
        ("ChannelName",
          (Option.map x.channelName ~f:TeamsChannelName.to_value));
        ("TeamId", (Some (UUID.to_value x.teamId)));
        ("TeamName", (Option.map x.teamName ~f:TeamName.to_value));
        ("TenantId", (Some (UUID.to_value x.tenantId)));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("IamRoleArn", (Some (Arn.to_value x.iamRoleArn)));
        ("ConfigurationName",
          (Some (ConfigurationName.to_value x.configurationName)));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("GuardrailPolicyArns",
          (Option.map x.guardrailPolicyArns
             ~f:GuardrailPolicyArnList.to_value));
        ("UserAuthorizationRequired",
          (Option.map x.userAuthorizationRequired
             ~f:BooleanAccountPreference.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 userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      let guardrailPolicyArns =
        (Option.map ~f:GuardrailPolicyArnList.of_xml)
          (Xml.child xml_arg0 "GuardrailPolicyArns") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let configurationName =
        ConfigurationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationName") in
      let iamRoleArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let tenantId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TenantId") in
      let teamName =
        (Option.map ~f:TeamName.of_xml) (Xml.child xml_arg0 "TeamName") in
      let teamId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TeamId") in
      let channelName =
        (Option.map ~f:TeamsChannelName.of_xml)
          (Xml.child xml_arg0 "ChannelName") in
      let channelId =
        TeamsChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChannelId") in
      make ?tags ?userAuthorizationRequired ?guardrailPolicyArns
        ?loggingLevel ~configurationName ~iamRoleArn ?snsTopicArns ~tenantId
        ?teamName ~teamId ?channelName ~channelId ()
    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 userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      let guardrailPolicyArns =
        field_map json__ "GuardrailPolicyArns" GuardrailPolicyArnList.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let configurationName =
        field_map_exn json__ "ConfigurationName" ConfigurationName.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" Arn.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let tenantId = field_map_exn json__ "TenantId" UUID.of_json in
      let teamName = field_map json__ "TeamName" TeamName.of_json in
      let teamId = field_map_exn json__ "TeamId" UUID.of_json in
      let channelName =
        field_map json__ "ChannelName" TeamsChannelName.of_json in
      let channelId = field_map_exn json__ "ChannelId" TeamsChannelId.of_json in
      make ?tags ?userAuthorizationRequired ?guardrailPolicyArns
        ?loggingLevel ~configurationName ~iamRoleArn ?snsTopicArns ~tenantId
        ?teamName ~teamId ?channelName ~channelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an AWS Chatbot configuration for Microsoft Teams."]
module CreateSlackChannelConfigurationResult =
  struct
    type nonrec t =
      {
      channelConfiguration: SlackChannelConfiguration.t option
        [@ocaml.doc
          "The configuration for a Slack channel configured with AWS Chatbot."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `CreateSlackChannelConfigurationException of
          CreateSlackChannelConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channelConfiguration = fun () -> { channelConfiguration }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "CreateSlackChannelConfigurationException" ->
          `CreateSlackChannelConfigurationException
            (CreateSlackChannelConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "CreateSlackChannelConfigurationException" ->
          `CreateSlackChannelConfigurationException
            (CreateSlackChannelConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `CreateSlackChannelConfigurationException e ->
          `Assoc
            [("error", (`String "CreateSlackChannelConfigurationException"));
            ("details", (CreateSlackChannelConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("ChannelConfiguration",
           (Option.map x.channelConfiguration
              ~f:SlackChannelConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelConfiguration =
        (Option.map ~f:SlackChannelConfiguration.of_xml)
          (Xml.child xml_arg0 "ChannelConfiguration") in
      make ?channelConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelConfiguration =
        field_map json__ "ChannelConfiguration"
          SlackChannelConfiguration.of_json in
      make ?channelConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an AWS Chatbot confugration for Slack."]
module CreateSlackChannelConfigurationRequest =
  struct
    type nonrec t =
      {
      slackTeamId: SlackTeamId.t
        [@ocaml.doc
          "The ID of the Slack workspace authorized with AWS Chatbot."];
      slackChannelId: SlackChannelId.t
        [@ocaml.doc
          "The ID of the Slack channel. To get this ID, open Slack, right click on the channel name in the left pane, then choose Copy Link. The channel ID is the 9-character string at the end of the URL. For example, ABCBBLZZZ."];
      slackChannelName: SlackChannelDisplayName.t option
        [@ocaml.doc "The name of the Slack channel."];
      snsTopicArns: SnsTopicArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      iamRoleArn: Arn.t
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      configurationName: ConfigurationName.t
        [@ocaml.doc "The name of the configuration."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      guardrailPolicyArns: GuardrailPolicyArnList.t option
        [@ocaml.doc
          "The list of IAM policy ARNs that are applied as channel guardrails. The AWS managed AdministratorAccess policy is applied by default if this is not set."];
      userAuthorizationRequired: BooleanAccountPreference.t option
        [@ocaml.doc
          "Enables use of a user role requirement in your chat configuration."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."]}
    let context_ = "CreateSlackChannelConfigurationRequest"
    let make ?slackChannelName =
      fun ?snsTopicArns ->
        fun ?loggingLevel ->
          fun ?guardrailPolicyArns ->
            fun ?userAuthorizationRequired ->
              fun ?tags ->
                fun ~slackTeamId ->
                  fun ~slackChannelId ->
                    fun ~iamRoleArn ->
                      fun ~configurationName ->
                        fun () ->
                          {
                            slackChannelName;
                            snsTopicArns;
                            loggingLevel;
                            guardrailPolicyArns;
                            userAuthorizationRequired;
                            tags;
                            slackTeamId;
                            slackChannelId;
                            iamRoleArn;
                            configurationName
                          }
    let to_value x =
      structure_to_value
        [("SlackTeamId", (Some (SlackTeamId.to_value x.slackTeamId)));
        ("SlackChannelId", (Some (SlackChannelId.to_value x.slackChannelId)));
        ("SlackChannelName",
          (Option.map x.slackChannelName ~f:SlackChannelDisplayName.to_value));
        ("SnsTopicArns",
          (Option.map x.snsTopicArns ~f:SnsTopicArnList.to_value));
        ("IamRoleArn", (Some (Arn.to_value x.iamRoleArn)));
        ("ConfigurationName",
          (Some (ConfigurationName.to_value x.configurationName)));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.to_value));
        ("GuardrailPolicyArns",
          (Option.map x.guardrailPolicyArns
             ~f:GuardrailPolicyArnList.to_value));
        ("UserAuthorizationRequired",
          (Option.map x.userAuthorizationRequired
             ~f:BooleanAccountPreference.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 userAuthorizationRequired =
        (Option.map ~f:BooleanAccountPreference.of_xml)
          (Xml.child xml_arg0 "UserAuthorizationRequired") in
      let guardrailPolicyArns =
        (Option.map ~f:GuardrailPolicyArnList.of_xml)
          (Xml.child xml_arg0 "GuardrailPolicyArns") in
      let loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let configurationName =
        ConfigurationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationName") in
      let iamRoleArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      let snsTopicArns =
        (Option.map ~f:SnsTopicArnList.of_xml)
          (Xml.child xml_arg0 "SnsTopicArns") in
      let slackChannelName =
        (Option.map ~f:SlackChannelDisplayName.of_xml)
          (Xml.child xml_arg0 "SlackChannelName") in
      let slackChannelId =
        SlackChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SlackChannelId") in
      let slackTeamId =
        SlackTeamId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SlackTeamId") in
      make ?tags ?userAuthorizationRequired ?guardrailPolicyArns
        ?loggingLevel ~configurationName ~iamRoleArn ?snsTopicArns
        ?slackChannelName ~slackChannelId ~slackTeamId ()
    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 userAuthorizationRequired =
        field_map json__ "UserAuthorizationRequired"
          BooleanAccountPreference.of_json in
      let guardrailPolicyArns =
        field_map json__ "GuardrailPolicyArns" GuardrailPolicyArnList.of_json in
      let loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let configurationName =
        field_map_exn json__ "ConfigurationName" ConfigurationName.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" Arn.of_json in
      let snsTopicArns =
        field_map json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let slackChannelName =
        field_map json__ "SlackChannelName" SlackChannelDisplayName.of_json in
      let slackChannelId =
        field_map_exn json__ "SlackChannelId" SlackChannelId.of_json in
      let slackTeamId =
        field_map_exn json__ "SlackTeamId" SlackTeamId.of_json in
      make ?tags ?userAuthorizationRequired ?guardrailPolicyArns
        ?loggingLevel ~configurationName ~iamRoleArn ?snsTopicArns
        ?slackChannelName ~slackChannelId ~slackTeamId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an AWS Chatbot confugration for Slack."]
module CreateCustomActionResult =
  struct
    type nonrec t =
      {
      customActionArn: CustomActionArn.t option
        [@ocaml.doc "The fully defined ARN of the custom action."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?customActionArn = fun () -> { customActionArn }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("CustomActionArn",
           (Option.map x.customActionArn ~f:CustomActionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customActionArn =
        (Option.map ~f:CustomActionArn.of_xml)
          (Xml.child xml_arg0 "CustomActionArn") in
      make ?customActionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customActionArn =
        field_map json__ "CustomActionArn" CustomActionArn.of_json in
      make ?customActionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a custom action that can be invoked as an alias or as a button on a notification."]
module CreateCustomActionRequest =
  struct
    type nonrec t =
      {
      definition: CustomActionDefinition.t
        [@ocaml.doc
          "The definition of the command to run when invoked as an alias or as an action button."];
      aliasName: CustomActionAliasName.t option
        [@ocaml.doc
          "The name used to invoke this action in a chat channel. For example, \\@aws run my-alias."];
      attachments: CustomActionAttachmentList.t option
        [@ocaml.doc
          "Defines when this custom action button should be attached to a notification."];
      tags: TagList.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, subsequent retries with the same client token returns the result from the original successful request. If you do not specify a client token, one is automatically generated by the SDK."];
      actionName: CustomActionName.t
        [@ocaml.doc
          "The name of the custom action. This name is included in the Amazon Resource Name (ARN)."]}
    let context_ = "CreateCustomActionRequest"
    let make ?aliasName =
      fun ?attachments ->
        fun ?tags ->
          fun ?clientToken ->
            fun ~definition ->
              fun ~actionName ->
                fun () ->
                  {
                    aliasName;
                    attachments;
                    tags;
                    clientToken;
                    definition;
                    actionName
                  }
    let to_value x =
      structure_to_value
        [("Definition",
           (Some (CustomActionDefinition.to_value x.definition)));
        ("AliasName",
          (Option.map x.aliasName ~f:CustomActionAliasName.to_value));
        ("Attachments",
          (Option.map x.attachments ~f:CustomActionAttachmentList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("ActionName", (Some (CustomActionName.to_value x.actionName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionName =
        CustomActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ActionName") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let attachments =
        (Option.map ~f:CustomActionAttachmentList.of_xml)
          (Xml.child xml_arg0 "Attachments") in
      let aliasName =
        (Option.map ~f:CustomActionAliasName.of_xml)
          (Xml.child xml_arg0 "AliasName") in
      let definition =
        CustomActionDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Definition") in
      make ~actionName ?clientToken ?tags ?attachments ?aliasName ~definition
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionName =
        field_map_exn json__ "ActionName" CustomActionName.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let attachments =
        field_map json__ "Attachments" CustomActionAttachmentList.of_json in
      let aliasName =
        field_map json__ "AliasName" CustomActionAliasName.of_json in
      let definition =
        field_map_exn json__ "Definition" CustomActionDefinition.of_json in
      make ~actionName ?clientToken ?tags ?attachments ?aliasName ~definition
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a custom action that can be invoked as an alias or as a button on a notification."]
module CreateChimeWebhookConfigurationResult =
  struct
    type nonrec t =
      {
      webhookConfiguration: ChimeWebhookConfiguration.t option
        [@ocaml.doc "An Amazon Chime webhook configuration."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `CreateChimeWebhookConfigurationException of
          CreateChimeWebhookConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhookConfiguration = fun () -> { webhookConfiguration }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "CreateChimeWebhookConfigurationException" ->
          `CreateChimeWebhookConfigurationException
            (CreateChimeWebhookConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "CreateChimeWebhookConfigurationException" ->
          `CreateChimeWebhookConfigurationException
            (CreateChimeWebhookConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `CreateChimeWebhookConfigurationException e ->
          `Assoc
            [("error", (`String "CreateChimeWebhookConfigurationException"));
            ("details", (CreateChimeWebhookConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.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
        [("WebhookConfiguration",
           (Option.map x.webhookConfiguration
              ~f:ChimeWebhookConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookConfiguration =
        (Option.map ~f:ChimeWebhookConfiguration.of_xml)
          (Xml.child xml_arg0 "WebhookConfiguration") in
      make ?webhookConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookConfiguration =
        field_map json__ "WebhookConfiguration"
          ChimeWebhookConfiguration.of_json in
      make ?webhookConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an AWS Chatbot configuration for Amazon Chime."]
module CreateChimeWebhookConfigurationRequest =
  struct
    type nonrec t =
      {
      webhookDescription: ChimeWebhookDescription.t
        [@ocaml.doc
          "A description of the webhook. We recommend using the convention RoomName/WebhookName. For more information, see Tutorial: Get started with Amazon Chime in the AWS Chatbot Administrator Guide."];
      webhookUrl: ChimeWebhookUrl.t
        [@ocaml.doc "The URL for the Amazon Chime webhook."];
      snsTopicArns: SnsTopicArnList.t
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the SNS topics that deliver notifications to AWS Chatbot."];
      iamRoleArn: Arn.t
        [@ocaml.doc
          "A user-defined role that AWS Chatbot assumes. This is not the service-linked role. For more information, see IAM policies for AWS Chatbot in the AWS Chatbot Administrator Guide."];
      configurationName: ConfigurationName.t
        [@ocaml.doc "The name of the configuration."];
      loggingLevel: CustomerCwLogLevel.t option
        [@ocaml.doc "Logging levels include ERROR, INFO, or NONE."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of tags assigned to a resource. A tag is a string-to-string map of key-value pairs."]}
    let context_ = "CreateChimeWebhookConfigurationRequest"
    let make ?loggingLevel =
      fun ?tags ->
        fun ~webhookDescription ->
          fun ~webhookUrl ->
            fun ~snsTopicArns ->
              fun ~iamRoleArn ->
                fun ~configurationName ->
                  fun () ->
                    {
                      loggingLevel;
                      tags;
                      webhookDescription;
                      webhookUrl;
                      snsTopicArns;
                      iamRoleArn;
                      configurationName
                    }
    let to_value x =
      structure_to_value
        [("WebhookDescription",
           (Some (ChimeWebhookDescription.to_value x.webhookDescription)));
        ("WebhookUrl", (Some (ChimeWebhookUrl.to_value x.webhookUrl)));
        ("SnsTopicArns", (Some (SnsTopicArnList.to_value x.snsTopicArns)));
        ("IamRoleArn", (Some (Arn.to_value x.iamRoleArn)));
        ("ConfigurationName",
          (Some (ConfigurationName.to_value x.configurationName)));
        ("LoggingLevel",
          (Option.map x.loggingLevel ~f:CustomerCwLogLevel.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 loggingLevel =
        (Option.map ~f:CustomerCwLogLevel.of_xml)
          (Xml.child xml_arg0 "LoggingLevel") in
      let configurationName =
        ConfigurationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationName") in
      let iamRoleArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      let snsTopicArns =
        SnsTopicArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnsTopicArns") in
      let webhookUrl =
        ChimeWebhookUrl.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WebhookUrl") in
      let webhookDescription =
        ChimeWebhookDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WebhookDescription") in
      make ?tags ?loggingLevel ~configurationName ~iamRoleArn ~snsTopicArns
        ~webhookUrl ~webhookDescription ()
    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 loggingLevel =
        field_map json__ "LoggingLevel" CustomerCwLogLevel.of_json in
      let configurationName =
        field_map_exn json__ "ConfigurationName" ConfigurationName.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" Arn.of_json in
      let snsTopicArns =
        field_map_exn json__ "SnsTopicArns" SnsTopicArnList.of_json in
      let webhookUrl =
        field_map_exn json__ "WebhookUrl" ChimeWebhookUrl.of_json in
      let webhookDescription =
        field_map_exn json__ "WebhookDescription"
          ChimeWebhookDescription.of_json in
      make ?tags ?loggingLevel ~configurationName ~iamRoleArn ~snsTopicArns
        ~webhookUrl ~webhookDescription ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an AWS Chatbot configuration for Amazon Chime."]
module AssociateToConfigurationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServiceError of InternalServiceError.t 
      | `InvalidRequestException of InvalidRequestException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_json json)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServiceError" ->
          `InternalServiceError (InternalServiceError.of_xml xml)
      | "InvalidRequestException" ->
          `InvalidRequestException (InvalidRequestException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServiceError e ->
          `Assoc
            [("error", (`String "InternalServiceError"));
            ("details", (InternalServiceError.to_json e))]
      | `InvalidRequestException e ->
          `Assoc
            [("error", (`String "InvalidRequestException"));
            ("details", (InvalidRequestException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
       "Links a resource (for example, a custom action) to a channel configuration."]
module AssociateToConfigurationRequest =
  struct
    type nonrec t =
      {
      resource: ResourceIdentifier.t
        [@ocaml.doc "The resource Amazon Resource Name (ARN) to link."];
      chatConfiguration: ChatConfigurationArn.t
        [@ocaml.doc
          "The channel configuration to associate with the resource."]}
    let context_ = "AssociateToConfigurationRequest"
    let make ~resource =
      fun ~chatConfiguration -> fun () -> { resource; chatConfiguration }
    let to_value x =
      structure_to_value
        [("Resource", (Some (ResourceIdentifier.to_value x.resource)));
        ("ChatConfiguration",
          (Some (ChatConfigurationArn.to_value x.chatConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chatConfiguration =
        ChatConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChatConfiguration") in
      let resource =
        ResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Resource") in
      make ~chatConfiguration ~resource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chatConfiguration =
        field_map_exn json__ "ChatConfiguration" ChatConfigurationArn.of_json in
      let resource =
        field_map_exn json__ "Resource" ResourceIdentifier.of_json in
      make ~chatConfiguration ~resource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Links a resource (for example, a custom action) to a channel configuration."]