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.repostspace
let apiVersion = "2022-05-13"
let endpointPrefix = "repostspace"
let serviceFullName = "AWS re:Post Private"
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 EmailDomain =
  struct
    type nonrec t = string
    let context_ = "EmailDomain"
    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:"EmailDomain" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module AllowedDomainsList =
  struct
    type nonrec t = EmailDomain.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:EmailDomain.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:EmailDomain.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowedDomainsList" ~of_json:EmailDomain.of_json j
    let to_json v = composed_to_json to_value v
  end
module FeatureEnableStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | NOT_ALLOWED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | NOT_ALLOWED -> "NOT_ALLOWED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "NOT_ALLOWED" -> NOT_ALLOWED
      | 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 FeatureEnableStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FeatureEnableStatus" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "Message describing why the field failed validation."];
      message: String_.t option [@ocaml.doc "The name of the field."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores information about a field that\226\128\153s passed inside a request that resulted in an exception."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:20));
        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 ConfigurationStatus =
  struct
    type nonrec t =
      | CONFIGURED 
      | UNCONFIGURED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONFIGURED -> "CONFIGURED"
      | UNCONFIGURED -> "UNCONFIGURED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONFIGURED" -> CONFIGURED
      | "UNCONFIGURED" -> UNCONFIGURED
      | 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 ConfigurationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConfigurationStatus" j)
    let to_json = simple_to_json to_value
  end
module ContentSize =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module KMSKey =
  struct
    type nonrec t = string
    let context_ = "KMSKey"
    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:"KMSKey" j
    let to_json = simple_to_json to_value
  end
module ProvisioningStatus =
  struct
    type nonrec t = string
    let context_ = "ProvisioningStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (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:"ProvisioningStatus" j
    let to_json = simple_to_json to_value
  end
module SpaceDescription =
  struct
    type nonrec t = string
    let context_ = "SpaceDescription"
    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:"SpaceDescription" j
    let to_json = simple_to_json to_value
  end
module SpaceId =
  struct
    type nonrec t = string
    let context_ = "SpaceId"
    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:"SpaceId" j
    let to_json = simple_to_json to_value
  end
module SpaceName =
  struct
    type nonrec t = string
    let context_ = "SpaceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (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:"SpaceName" j
    let to_json = simple_to_json to_value
  end
module StorageLimit =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module SupportedEmailDomainsStatus =
  struct
    type nonrec t =
      {
      enabled: FeatureEnableStatus.t option ;
      allowedDomains: AllowedDomainsList.t option }
    let make ?enabled =
      fun ?allowedDomains -> fun () -> { enabled; allowedDomains }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:FeatureEnableStatus.to_value));
        ("allowedDomains",
          (Option.map x.allowedDomains ~f:AllowedDomainsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedDomains =
        (Option.map ~f:AllowedDomainsList.of_xml)
          (Xml.child xml_arg0 "allowedDomains") in
      let enabled =
        (Option.map ~f:FeatureEnableStatus.of_xml)
          (Xml.child xml_arg0 "enabled") in
      make ?allowedDomains ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedDomains =
        field_map json__ "allowedDomains" AllowedDomainsList.of_json in
      let enabled = field_map json__ "enabled" FeatureEnableStatus.of_json in
      make ?allowedDomains ?enabled ()
    let to_json v = composed_to_json to_value v
  end
module SyntheticTimestamp_date_time =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module TierLevel =
  struct
    type nonrec t =
      | BASIC 
      | STANDARD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASIC -> "BASIC"
      | STANDARD -> "STANDARD"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASIC" -> BASIC
      | "STANDARD" -> STANDARD
      | 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 TierLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TierLevel" j)
    let to_json = simple_to_json to_value
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    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:"Url" j
    let to_json = simple_to_json to_value
  end
module UserCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for UserCount" 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 VanityDomainStatus =
  struct
    type nonrec t =
      | PENDING 
      | APPROVED 
      | UNAPPROVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | APPROVED -> "APPROVED"
      | UNAPPROVED -> "UNAPPROVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "APPROVED" -> APPROVED
      | "UNAPPROVED" -> UNAPPROVED
      | 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 VanityDomainStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VanityDomainStatus" j)
    let to_json = simple_to_json to_value
  end
module ChannelDescription =
  struct
    type nonrec t = string
    let context_ = "ChannelDescription"
    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:"ChannelDescription" j
    let to_json = simple_to_json to_value
  end
module ChannelId =
  struct
    type nonrec t = string
    let context_ = "ChannelId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:24) >>=
             (fun () -> check_string_min i ~min:24));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChannelId" j
    let to_json = simple_to_json to_value
  end
module ChannelName =
  struct
    type nonrec t = string
    let context_ = "ChannelName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"ChannelName" j
    let to_json = simple_to_json to_value
  end
module ChannelStatus =
  struct
    type nonrec t =
      | CREATED 
      | CREATING 
      | CREATE_FAILED 
      | DELETED 
      | DELETING 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | CREATING -> "CREATING"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETED -> "DELETED"
      | DELETING -> "DELETING"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "CREATING" -> CREATING
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETED" -> DELETED
      | "DELETING" -> DELETING
      | "DELETE_FAILED" -> DELETE_FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ChannelStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChannelStatus" j)
    let to_json = simple_to_json to_value
  end
module GroupCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for GroupCount" 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 Role =
  struct
    type nonrec t =
      | EXPERT 
      | MODERATOR 
      | ADMINISTRATOR 
      | SUPPORTREQUESTOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXPERT -> "EXPERT"
      | MODERATOR -> "MODERATOR"
      | ADMINISTRATOR -> "ADMINISTRATOR"
      | SUPPORTREQUESTOR -> "SUPPORTREQUESTOR"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXPERT" -> EXPERT
      | "MODERATOR" -> MODERATOR
      | "ADMINISTRATOR" -> ADMINISTRATOR
      | "SUPPORTREQUESTOR" -> SUPPORTREQUESTOR
      | 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 Role" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Role" j)
    let to_json = simple_to_json to_value
  end
module ChannelRole =
  struct
    type nonrec t =
      | ASKER 
      | EXPERT 
      | MODERATOR 
      | SUPPORTREQUESTOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASKER -> "ASKER"
      | EXPERT -> "EXPERT"
      | MODERATOR -> "MODERATOR"
      | SUPPORTREQUESTOR -> "SUPPORTREQUESTOR"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASKER" -> ASKER
      | "EXPERT" -> EXPERT
      | "MODERATOR" -> MODERATOR
      | "SUPPORTREQUESTOR" -> SUPPORTREQUESTOR
      | 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 ChannelRole" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChannelRole" j)
    let to_json = simple_to_json to_value
  end
module AccessorId =
  struct
    type nonrec t = string
    let context_ = "AccessorId"
    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:"AccessorId" j
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for ErrorCode" 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 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 FeatureEnableParameter =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | 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 FeatureEnableParameter" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FeatureEnableParameter" j)
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?!aws:)[a-zA-Z+-=._:/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module SpaceData =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t option
        [@ocaml.doc "The unique ID of the private re:Post."];
      arn: Arn.t option [@ocaml.doc "The ARN of the private re:Post."];
      name: SpaceName.t option
        [@ocaml.doc "The name for the private re:Post."];
      description: SpaceDescription.t option
        [@ocaml.doc
          "The description for the private re:Post. This is used only to help you identify this private re:Post."];
      status: ProvisioningStatus.t option
        [@ocaml.doc "The creation/deletion status of the private re:Post."];
      configurationStatus: ConfigurationStatus.t option
        [@ocaml.doc "The configuration status of the private re:Post."];
      vanityDomainStatus: VanityDomainStatus.t option
        [@ocaml.doc "This approval status of the custom subdomain."];
      vanityDomain: Url.t option
        [@ocaml.doc
          "This custom subdomain that you use to access your private re:Post. All custom subdomains must be approved by AWS before use."];
      randomDomain: Url.t option
        [@ocaml.doc "The AWS generated subdomain of the private re:Post."];
      tier: TierLevel.t option
        [@ocaml.doc "The pricing tier of the private re:Post."];
      storageLimit: StorageLimit.t option
        [@ocaml.doc "The storage limit of the private re:Post."];
      createDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the private re:Post was created."];
      deleteDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the private re:Post was deleted."];
      userKMSKey: KMSKey.t option
        [@ocaml.doc
          "The custom AWS KMS key ARN that\226\128\153s used for the AWS KMS encryption."];
      userCount: UserCount.t option
        [@ocaml.doc "The number of onboarded users to the private re:Post."];
      contentSize: ContentSize.t option
        [@ocaml.doc "The content size of the private re:Post."];
      supportedEmailDomains: SupportedEmailDomainsStatus.t option }
    let make ?spaceId =
      fun ?arn ->
        fun ?name ->
          fun ?description ->
            fun ?status ->
              fun ?configurationStatus ->
                fun ?vanityDomainStatus ->
                  fun ?vanityDomain ->
                    fun ?randomDomain ->
                      fun ?tier ->
                        fun ?storageLimit ->
                          fun ?createDateTime ->
                            fun ?deleteDateTime ->
                              fun ?userKMSKey ->
                                fun ?userCount ->
                                  fun ?contentSize ->
                                    fun ?supportedEmailDomains ->
                                      fun () ->
                                        {
                                          spaceId;
                                          arn;
                                          name;
                                          description;
                                          status;
                                          configurationStatus;
                                          vanityDomainStatus;
                                          vanityDomain;
                                          randomDomain;
                                          tier;
                                          storageLimit;
                                          createDateTime;
                                          deleteDateTime;
                                          userKMSKey;
                                          userCount;
                                          contentSize;
                                          supportedEmailDomains
                                        }
    let to_value x =
      structure_to_value
        [("spaceId", (Option.map x.spaceId ~f:SpaceId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("name", (Option.map x.name ~f:SpaceName.to_value));
        ("description",
          (Option.map x.description ~f:SpaceDescription.to_value));
        ("status", (Option.map x.status ~f:ProvisioningStatus.to_value));
        ("configurationStatus",
          (Option.map x.configurationStatus ~f:ConfigurationStatus.to_value));
        ("vanityDomainStatus",
          (Option.map x.vanityDomainStatus ~f:VanityDomainStatus.to_value));
        ("vanityDomain", (Option.map x.vanityDomain ~f:Url.to_value));
        ("randomDomain", (Option.map x.randomDomain ~f:Url.to_value));
        ("tier", (Option.map x.tier ~f:TierLevel.to_value));
        ("storageLimit",
          (Option.map x.storageLimit ~f:StorageLimit.to_value));
        ("createDateTime",
          (Option.map x.createDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("deleteDateTime",
          (Option.map x.deleteDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("userKMSKey", (Option.map x.userKMSKey ~f:KMSKey.to_value));
        ("userCount", (Option.map x.userCount ~f:UserCount.to_value));
        ("contentSize", (Option.map x.contentSize ~f:ContentSize.to_value));
        ("supportedEmailDomains",
          (Option.map x.supportedEmailDomains
             ~f:SupportedEmailDomainsStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedEmailDomains =
        (Option.map ~f:SupportedEmailDomainsStatus.of_xml)
          (Xml.child xml_arg0 "supportedEmailDomains") in
      let contentSize =
        (Option.map ~f:ContentSize.of_xml) (Xml.child xml_arg0 "contentSize") in
      let userCount =
        (Option.map ~f:UserCount.of_xml) (Xml.child xml_arg0 "userCount") in
      let userKMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "userKMSKey") in
      let deleteDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "deleteDateTime") in
      let createDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createDateTime") in
      let storageLimit =
        (Option.map ~f:StorageLimit.of_xml)
          (Xml.child xml_arg0 "storageLimit") in
      let tier = (Option.map ~f:TierLevel.of_xml) (Xml.child xml_arg0 "tier") in
      let randomDomain =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "randomDomain") in
      let vanityDomain =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "vanityDomain") in
      let vanityDomainStatus =
        (Option.map ~f:VanityDomainStatus.of_xml)
          (Xml.child xml_arg0 "vanityDomainStatus") in
      let configurationStatus =
        (Option.map ~f:ConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "configurationStatus") in
      let status =
        (Option.map ~f:ProvisioningStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:SpaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:SpaceName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let spaceId =
        (Option.map ~f:SpaceId.of_xml) (Xml.child xml_arg0 "spaceId") in
      make ?supportedEmailDomains ?contentSize ?userCount ?userKMSKey
        ?deleteDateTime ?createDateTime ?storageLimit ?tier ?randomDomain
        ?vanityDomain ?vanityDomainStatus ?configurationStatus ?status
        ?description ?name ?arn ?spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedEmailDomains =
        field_map json__ "supportedEmailDomains"
          SupportedEmailDomainsStatus.of_json in
      let contentSize = field_map json__ "contentSize" ContentSize.of_json in
      let userCount = field_map json__ "userCount" UserCount.of_json in
      let userKMSKey = field_map json__ "userKMSKey" KMSKey.of_json in
      let deleteDateTime =
        field_map json__ "deleteDateTime"
          SyntheticTimestamp_date_time.of_json in
      let createDateTime =
        field_map json__ "createDateTime"
          SyntheticTimestamp_date_time.of_json in
      let storageLimit = field_map json__ "storageLimit" StorageLimit.of_json in
      let tier = field_map json__ "tier" TierLevel.of_json in
      let randomDomain = field_map json__ "randomDomain" Url.of_json in
      let vanityDomain = field_map json__ "vanityDomain" Url.of_json in
      let vanityDomainStatus =
        field_map json__ "vanityDomainStatus" VanityDomainStatus.of_json in
      let configurationStatus =
        field_map json__ "configurationStatus" ConfigurationStatus.of_json in
      let status = field_map json__ "status" ProvisioningStatus.of_json in
      let description =
        field_map json__ "description" SpaceDescription.of_json in
      let name = field_map json__ "name" SpaceName.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let spaceId = field_map json__ "spaceId" SpaceId.of_json in
      make ?supportedEmailDomains ?contentSize ?userCount ?userKMSKey
        ?deleteDateTime ?createDateTime ?storageLimit ?tier ?randomDomain
        ?vanityDomain ?vanityDomainStatus ?configurationStatus ?status
        ?description ?name ?arn ?spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains some information about a private re:Post in the account."]
module ChannelData =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t option
        [@ocaml.doc "The unique ID of the private re:Post."];
      channelId: ChannelId.t option
        [@ocaml.doc "The unique ID of the private re:Post channel."];
      channelName: ChannelName.t option
        [@ocaml.doc
          "The name for the channel. This must be unique per private re:Post."];
      channelDescription: ChannelDescription.t option
        [@ocaml.doc
          "A description for the channel. This is used only to help you identify this channel."];
      createDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the channel was created."];
      deleteDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the channel was deleted."];
      channelStatus: ChannelStatus.t option
        [@ocaml.doc "The status pf the channel."];
      userCount: UserCount.t option
        [@ocaml.doc "The number of users that are part of the channel."];
      groupCount: GroupCount.t option
        [@ocaml.doc "The number of groups that are part of the channel."]}
    let make ?spaceId =
      fun ?channelId ->
        fun ?channelName ->
          fun ?channelDescription ->
            fun ?createDateTime ->
              fun ?deleteDateTime ->
                fun ?channelStatus ->
                  fun ?userCount ->
                    fun ?groupCount ->
                      fun () ->
                        {
                          spaceId;
                          channelId;
                          channelName;
                          channelDescription;
                          createDateTime;
                          deleteDateTime;
                          channelStatus;
                          userCount;
                          groupCount
                        }
    let to_value x =
      structure_to_value
        [("spaceId", (Option.map x.spaceId ~f:SpaceId.to_value));
        ("channelId", (Option.map x.channelId ~f:ChannelId.to_value));
        ("channelName", (Option.map x.channelName ~f:ChannelName.to_value));
        ("channelDescription",
          (Option.map x.channelDescription ~f:ChannelDescription.to_value));
        ("createDateTime",
          (Option.map x.createDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("deleteDateTime",
          (Option.map x.deleteDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("channelStatus",
          (Option.map x.channelStatus ~f:ChannelStatus.to_value));
        ("userCount", (Option.map x.userCount ~f:UserCount.to_value));
        ("groupCount", (Option.map x.groupCount ~f:GroupCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupCount =
        (Option.map ~f:GroupCount.of_xml) (Xml.child xml_arg0 "groupCount") in
      let userCount =
        (Option.map ~f:UserCount.of_xml) (Xml.child xml_arg0 "userCount") in
      let channelStatus =
        (Option.map ~f:ChannelStatus.of_xml)
          (Xml.child xml_arg0 "channelStatus") in
      let deleteDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "deleteDateTime") in
      let createDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createDateTime") in
      let channelDescription =
        (Option.map ~f:ChannelDescription.of_xml)
          (Xml.child xml_arg0 "channelDescription") in
      let channelName =
        (Option.map ~f:ChannelName.of_xml) (Xml.child xml_arg0 "channelName") in
      let channelId =
        (Option.map ~f:ChannelId.of_xml) (Xml.child xml_arg0 "channelId") in
      let spaceId =
        (Option.map ~f:SpaceId.of_xml) (Xml.child xml_arg0 "spaceId") in
      make ?groupCount ?userCount ?channelStatus ?deleteDateTime
        ?createDateTime ?channelDescription ?channelName ?channelId ?spaceId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupCount = field_map json__ "groupCount" GroupCount.of_json in
      let userCount = field_map json__ "userCount" UserCount.of_json in
      let channelStatus =
        field_map json__ "channelStatus" ChannelStatus.of_json in
      let deleteDateTime =
        field_map json__ "deleteDateTime"
          SyntheticTimestamp_date_time.of_json in
      let createDateTime =
        field_map json__ "createDateTime"
          SyntheticTimestamp_date_time.of_json in
      let channelDescription =
        field_map json__ "channelDescription" ChannelDescription.of_json in
      let channelName = field_map json__ "channelName" ChannelName.of_json in
      let channelId = field_map json__ "channelId" ChannelId.of_json in
      let spaceId = field_map json__ "spaceId" SpaceId.of_json in
      make ?groupCount ?userCount ?channelStatus ?deleteDateTime
        ?createDateTime ?channelDescription ?channelName ?channelId ?spaceId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains some information about a channel in a private re:Post."]
module AdminId =
  struct
    type nonrec t = string
    let context_ = "AdminId"
    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:"AdminId" j
    let to_json = simple_to_json to_value
  end
module RoleList =
  struct
    type nonrec t = Role.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:Role.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:Role.of_xml)
    let of_json j = list_of_json ~kind:"RoleList" ~of_json:Role.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChannelRoleList =
  struct
    type nonrec t = ChannelRole.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:ChannelRole.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:ChannelRole.of_xml)
    let of_json j =
      list_of_json ~kind:"ChannelRoleList" ~of_json:ChannelRole.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchError =
  struct
    type nonrec t =
      {
      accessorId: AccessorId.t option
        [@ocaml.doc "The accessor identifier that's related to the error."];
      error: ErrorCode.t option [@ocaml.doc "The error code."];
      message: ErrorMessage.t option [@ocaml.doc "Description of the error."]}
    let make ?accessorId =
      fun ?error -> fun ?message -> fun () -> { accessorId; error; message }
    let to_value x =
      structure_to_value
        [("accessorId", (Option.map x.accessorId ~f:AccessorId.to_value));
        ("error", (Option.map x.error ~f:ErrorCode.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let error =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "error") in
      let accessorId =
        (Option.map ~f:AccessorId.of_xml) (Xml.child xml_arg0 "accessorId") in
      make ?message ?error ?accessorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let error = field_map json__ "error" ErrorCode.of_json in
      let accessorId = field_map json__ "accessorId" AccessorId.of_json in
      make ?message ?error ?accessorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An error that occurred during a batch operation."]
module SupportedEmailDomainsParameters =
  struct
    type nonrec t =
      {
      enabled: FeatureEnableParameter.t option ;
      allowedDomains: AllowedDomainsList.t option }
    let make ?enabled =
      fun ?allowedDomains -> fun () -> { enabled; allowedDomains }
    let to_value x =
      structure_to_value
        [("enabled",
           (Option.map x.enabled ~f:FeatureEnableParameter.to_value));
        ("allowedDomains",
          (Option.map x.allowedDomains ~f:AllowedDomainsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedDomains =
        (Option.map ~f:AllowedDomainsList.of_xml)
          (Xml.child xml_arg0 "allowedDomains") in
      let enabled =
        (Option.map ~f:FeatureEnableParameter.of_xml)
          (Xml.child xml_arg0 "enabled") in
      make ?allowedDomains ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedDomains =
        field_map json__ "allowedDomains" AllowedDomainsList.of_json in
      let enabled = field_map json__ "enabled" FeatureEnableParameter.of_json in
      make ?allowedDomains ?enabled ()
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "User does not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The ID of the resource."];
      resourceType: String_.t option [@ocaml.doc "The type of the resource."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updating or deleting a resource can cause an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "Advice to clients on when the call can be safely retried."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Unexpected error during processing of request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The ID of the resource."];
      resourceType: String_.t option [@ocaml.doc "The type of the resource."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request references a resource which does not exist."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option
        [@ocaml.doc "The code to identify the service."];
      quotaCode: String_.t option
        [@ocaml.doc "The code to identify the quota."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "Advice to clients on when the call can be safely retried."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason why the request failed validation."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The field that caused the error, if applicable."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an AWS service."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessorIdList =
  struct
    type nonrec t = AccessorId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:AccessorId.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:AccessorId.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessorIdList" ~of_json:AccessorId.of_json j
    let to_json v = composed_to_json to_value v
  end
module InviteBody =
  struct
    type nonrec t = string
    let context_ = "InviteBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:600) >>=
             (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:"InviteBody" j
    let to_json = simple_to_json to_value
  end
module InviteTitle =
  struct
    type nonrec t = string
    let context_ = "InviteTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"InviteTitle" j
    let to_json = simple_to_json to_value
  end
module SpacesList =
  struct
    type nonrec t = SpaceData.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:SpaceData.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:SpaceData.of_xml)
    let of_json j =
      list_of_json ~kind:"SpacesList" ~of_json:SpaceData.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSpacesLimit =
  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 ListSpacesLimit" 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 ChannelsList =
  struct
    type nonrec t = ChannelData.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:ChannelData.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:ChannelData.of_xml)
    let of_json j =
      list_of_json ~kind:"ChannelsList" ~of_json:ChannelData.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListChannelsLimit =
  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 ListChannelsLimit" 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 ClientId =
  struct
    type nonrec t = string
    let context_ = "ClientId"
    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:"ClientId" j
    let to_json = simple_to_json to_value
  end
module GroupAdmins =
  struct
    type nonrec t = AdminId.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:AdminId.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:AdminId.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupAdmins" ~of_json:AdminId.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentityStoreId =
  struct
    type nonrec t = string
    let context_ = "IdentityStoreId"
    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:"IdentityStoreId" j
    let to_json = simple_to_json to_value
  end
module Roles =
  struct
    type nonrec t = (AccessorId.t * RoleList.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AccessorId RoleList"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AccessorId.to_value x) |>
                    (fun x -> (RoleList.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:AccessorId.of_string
        ~of_json:RoleList.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserAdmins =
  struct
    type nonrec t = AdminId.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:AdminId.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:AdminId.of_xml)
    let of_json j =
      list_of_json ~kind:"UserAdmins" ~of_json:AdminId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChannelRoles =
  struct
    type nonrec t = (AccessorId.t * ChannelRoleList.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AccessorId ChannelRoleList"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AccessorId.to_value x) |>
                    (fun x ->
                       (ChannelRoleList.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:AccessorId.of_string
        ~of_json:ChannelRoleList.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The id of the resource."];
      resourceType: String_.t option [@ocaml.doc "The type of the resource."];
      serviceCode: String_.t option
        [@ocaml.doc "The code to identify the service."];
      quotaCode: String_.t option
        [@ocaml.doc "The code to identify the quota."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request would cause a service quota to be exceeded."]
module SpaceSubdomain =
  struct
    type nonrec t = string
    let context_ = "SpaceSubdomain"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (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:"SpaceSubdomain" j
    let to_json = simple_to_json to_value
  end
module BatchErrorList =
  struct
    type nonrec t = BatchError.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:BatchError.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:BatchError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchErrorList" ~of_json:BatchError.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateSpaceInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t
        [@ocaml.doc "The unique ID of this private re:Post."];
      description: SpaceDescription.t option
        [@ocaml.doc
          "A description for the private re:Post. This is used only to help you identify this private re:Post."];
      tier: TierLevel.t option
        [@ocaml.doc "The pricing tier of this private re:Post."];
      roleArn: Arn.t option
        [@ocaml.doc
          "The IAM role that grants permissions to the private re:Post to convert unanswered questions into AWS support tickets."];
      supportedEmailDomains: SupportedEmailDomainsParameters.t option }
    let context_ = "UpdateSpaceInput"
    let make ?description =
      fun ?tier ->
        fun ?roleArn ->
          fun ?supportedEmailDomains ->
            fun ~spaceId ->
              fun () ->
                { description; tier; roleArn; supportedEmailDomains; spaceId
                }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("description",
          (Option.map x.description ~f:SpaceDescription.to_value));
        ("tier", (Option.map x.tier ~f:TierLevel.to_value));
        ("roleArn", (Option.map x.roleArn ~f:Arn.to_value));
        ("supportedEmailDomains",
          (Option.map x.supportedEmailDomains
             ~f:SupportedEmailDomainsParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedEmailDomains =
        (Option.map ~f:SupportedEmailDomainsParameters.of_xml)
          (Xml.child xml_arg0 "supportedEmailDomains") in
      let roleArn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let tier = (Option.map ~f:TierLevel.of_xml) (Xml.child xml_arg0 "tier") in
      let description =
        (Option.map ~f:SpaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ?supportedEmailDomains ?roleArn ?tier ?description ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedEmailDomains =
        field_map json__ "supportedEmailDomains"
          SupportedEmailDomainsParameters.of_json in
      let roleArn = field_map json__ "roleArn" Arn.of_json in
      let tier = field_map json__ "tier" TierLevel.of_json in
      let description =
        field_map json__ "description" SpaceDescription.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ?supportedEmailDomains ?roleArn ?tier ?description ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies an existing AWS re:Post Private private re:Post."]
module UpdateChannelOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Modifies an existing channel."]
module UpdateChannelInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      channelId: ChannelId.t
        [@ocaml.doc "The unique ID of the private re:Post channel."];
      channelName: ChannelName.t
        [@ocaml.doc
          "The name for the channel. This must be unique per private re:Post."];
      channelDescription: ChannelDescription.t option
        [@ocaml.doc
          "A description for the channel. This is used only to help you identify this channel."]}
    let context_ = "UpdateChannelInput"
    let make ?channelDescription =
      fun ~spaceId ->
        fun ~channelId ->
          fun ~channelName ->
            fun () -> { channelDescription; spaceId; channelId; channelName }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("channelId", (Some (ChannelId.to_value x.channelId)));
        ("channelName", (Some (ChannelName.to_value x.channelName)));
        ("channelDescription",
          (Option.map x.channelDescription ~f:ChannelDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelDescription =
        (Option.map ~f:ChannelDescription.of_xml)
          (Xml.child xml_arg0 "channelDescription") in
      let channelName =
        ChannelName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelName") in
      let channelId =
        ChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ?channelDescription ~channelName ~channelId ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelDescription =
        field_map json__ "channelDescription" ChannelDescription.of_json in
      let channelName =
        field_map_exn json__ "channelName" ChannelName.of_json in
      let channelId = field_map_exn json__ "channelId" ChannelId.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ?channelDescription ~channelName ~channelId ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Modifies an existing channel."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association of the tag with the AWS re:Post Private resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t [@ocaml.doc "The ARN of the resource."];
      tagKeys: TagKeyList.t [@ocaml.doc "The key values of the tag."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.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 =
        Arn.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" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association of the tag with the AWS re:Post Private resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates tags with an AWS re:Post Private resource. Currently, the only resource that can be tagged is the private re:Post. If you specify a new tag key for the resource, the tag is appended to the list of tags that are associated with the resource. If you specify a tag key that\226\128\153s already associated with the resource, the new tag value that you specify replaces the previous value for that tag."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The ARN of the resource that the tag is associated with."];
      tags: Tags.t
        [@ocaml.doc
          "The list of tag keys and values that must be associated with the resource. You can associate tag keys only, tags (key and values) only, or a combination of tag keys and tags."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates tags with an AWS re:Post Private resource. Currently, the only resource that can be tagged is the private re:Post. If you specify a new tag key for the resource, the tag is appended to the list of tags that are associated with the resource. If you specify a tag key that\226\128\153s already associated with the resource, the new tag value that you specify replaces the previous value for that tag."]
module SendInvitesInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The ID of the private re:Post."];
      accessorIds: AccessorIdList.t
        [@ocaml.doc "The array of identifiers for the users and groups."];
      title: InviteTitle.t [@ocaml.doc "The title of the invite."];
      body: InviteBody.t [@ocaml.doc "The body of the invite."]}
    let context_ = "SendInvitesInput"
    let make ~spaceId =
      fun ~accessorIds ->
        fun ~title ->
          fun ~body -> fun () -> { spaceId; accessorIds; title; body }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("accessorIds", (Some (AccessorIdList.to_value x.accessorIds)));
        ("title", (Some (InviteTitle.to_value x.title)));
        ("body", (Some (InviteBody.to_value x.body)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body =
        InviteBody.of_xml (Xml.child_exn ~context:context_ xml_arg0 "body") in
      let title =
        InviteTitle.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let accessorIds =
        AccessorIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accessorIds") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~body ~title ~accessorIds ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map_exn json__ "body" InviteBody.of_json in
      let title = field_map_exn json__ "title" InviteTitle.of_json in
      let accessorIds =
        field_map_exn json__ "accessorIds" AccessorIdList.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~body ~title ~accessorIds ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sends an invitation email to selected users and groups."]
module RegisterAdminInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The ID of the private re:Post."];
      adminId: AdminId.t [@ocaml.doc "The ID of the administrator."]}
    let context_ = "RegisterAdminInput"
    let make ~spaceId = fun ~adminId -> fun () -> { spaceId; adminId }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("adminId", (Some (AdminId.to_value x.adminId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let adminId =
        AdminId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "adminId") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~adminId ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let adminId = field_map_exn json__ "adminId" AdminId.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~adminId ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a user or group to the list of administrators of the private re:Post."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "The list of tags that are associated with the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the tags that are associated with the AWS re:Post Private resource specified by the resourceArn. The only resource that can be tagged is a private re:Post."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The ARN of the resource that the tags are associated with."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.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" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the tags that are associated with the AWS re:Post Private resource specified by the resourceArn. The only resource that can be tagged is a private re:Post."]
module ListSpacesOutput =
  struct
    type nonrec t =
      {
      spaces: SpacesList.t option
        [@ocaml.doc
          "An array of structures that contain some information about the private re:Posts in the account."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token that you use when you request the next set of private re:Posts."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaces = fun ?nextToken -> fun () -> { spaces; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("spaces", (Option.map x.spaces ~f:SpacesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let spaces =
        (Option.map ~f:SpacesList.of_xml) (Xml.child xml_arg0 "spaces") in
      make ?nextToken ?spaces ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let spaces = field_map json__ "spaces" SpacesList.of_json in
      make ?nextToken ?spaces ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of AWS re:Post Private private re:Posts in the account with some information about each private re:Post."]
module ListSpacesInput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The token for the next set of private re:Posts to return. You receive this token from a previous ListSpaces operation."];
      maxResults: ListSpacesLimit.t option
        [@ocaml.doc
          "The maximum number of private re:Posts to include in the results."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:ListSpacesLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListSpacesLimit.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" ListSpacesLimit.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of AWS re:Post Private private re:Posts in the account with some information about each private re:Post."]
module ListChannelsOutput =
  struct
    type nonrec t =
      {
      channels: ChannelsList.t option
        [@ocaml.doc
          "An array of structures that contain some information about the channels in the private re:Post."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token that you use when you request the next set of channels."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channels = fun ?nextToken -> fun () -> { channels; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("channels", (Option.map x.channels ~f:ChannelsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let channels =
        (Option.map ~f:ChannelsList.of_xml) (Xml.child xml_arg0 "channels") in
      make ?nextToken ?channels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let channels = field_map json__ "channels" ChannelsList.of_json in
      make ?nextToken ?channels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of channel within a private re:Post with some information about each channel."]
module ListChannelsInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      nextToken: String_.t option
        [@ocaml.doc
          "The token for the next set of channel to return. You receive this token from a previous ListChannels operation."];
      maxResults: ListChannelsLimit.t option
        [@ocaml.doc
          "The maximum number of channels to include in the results."]}
    let context_ = "ListChannelsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~spaceId -> fun () -> { nextToken; maxResults; spaceId }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListChannelsLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListChannelsLimit.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ?maxResults ?nextToken ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ListChannelsLimit.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ?maxResults ?nextToken ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of channel within a private re:Post with some information about each channel."]
module GetSpaceOutput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t option
        [@ocaml.doc "The unique ID of the private re:Post."];
      arn: Arn.t option [@ocaml.doc "The ARN of the private re:Post."];
      name: SpaceName.t option
        [@ocaml.doc "The name of the private re:Post."];
      status: ProvisioningStatus.t option
        [@ocaml.doc
          "The creation or deletion status of the private re:Post."];
      configurationStatus: ConfigurationStatus.t option
        [@ocaml.doc "The configuration status of the private re:Post."];
      clientId: ClientId.t option
        [@ocaml.doc
          "The Identity Center identifier for the Application Instance."];
      identityStoreId: IdentityStoreId.t option ;
      applicationArn: Arn.t option ;
      description: SpaceDescription.t option
        [@ocaml.doc "The description of the private re:Post."];
      vanityDomainStatus: VanityDomainStatus.t option
        [@ocaml.doc "The approval status of the custom subdomain."];
      vanityDomain: Url.t option
        [@ocaml.doc
          "The custom subdomain that you use to access your private re:Post. All custom subdomains must be approved by AWS before use."];
      randomDomain: Url.t option
        [@ocaml.doc "The AWS generated subdomain of the private re:Post"];
      customerRoleArn: Arn.t option
        [@ocaml.doc
          "The IAM role that grants permissions to the private re:Post to convert unanswered questions into AWS support tickets."];
      createDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the private re:Post was created."];
      deleteDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the private re:Post was deleted."];
      tier: TierLevel.t option
        [@ocaml.doc "The pricing tier of the private re:Post."];
      storageLimit: StorageLimit.t option
        [@ocaml.doc "The storage limit of the private re:Post."];
      userAdmins: UserAdmins.t option
        [@ocaml.doc
          "The list of users that are administrators of the private re:Post."];
      groupAdmins: GroupAdmins.t option
        [@ocaml.doc
          "The list of groups that are administrators of the private re:Post."];
      roles: Roles.t option
        [@ocaml.doc "A map of accessor identifiers and their roles."];
      userKMSKey: KMSKey.t option
        [@ocaml.doc
          "The custom AWS KMS key ARN that\226\128\153s used for the AWS KMS encryption."];
      userCount: UserCount.t option
        [@ocaml.doc
          "The number of users that have onboarded to the private re:Post."];
      contentSize: ContentSize.t option
        [@ocaml.doc "The content size of the private re:Post."];
      supportedEmailDomains: SupportedEmailDomainsStatus.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceId =
      fun ?arn ->
        fun ?name ->
          fun ?status ->
            fun ?configurationStatus ->
              fun ?clientId ->
                fun ?identityStoreId ->
                  fun ?applicationArn ->
                    fun ?description ->
                      fun ?vanityDomainStatus ->
                        fun ?vanityDomain ->
                          fun ?randomDomain ->
                            fun ?customerRoleArn ->
                              fun ?createDateTime ->
                                fun ?deleteDateTime ->
                                  fun ?tier ->
                                    fun ?storageLimit ->
                                      fun ?userAdmins ->
                                        fun ?groupAdmins ->
                                          fun ?roles ->
                                            fun ?userKMSKey ->
                                              fun ?userCount ->
                                                fun ?contentSize ->
                                                  fun ?supportedEmailDomains
                                                    ->
                                                    fun () ->
                                                      {
                                                        spaceId;
                                                        arn;
                                                        name;
                                                        status;
                                                        configurationStatus;
                                                        clientId;
                                                        identityStoreId;
                                                        applicationArn;
                                                        description;
                                                        vanityDomainStatus;
                                                        vanityDomain;
                                                        randomDomain;
                                                        customerRoleArn;
                                                        createDateTime;
                                                        deleteDateTime;
                                                        tier;
                                                        storageLimit;
                                                        userAdmins;
                                                        groupAdmins;
                                                        roles;
                                                        userKMSKey;
                                                        userCount;
                                                        contentSize;
                                                        supportedEmailDomains
                                                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("spaceId", (Option.map x.spaceId ~f:SpaceId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("name", (Option.map x.name ~f:SpaceName.to_value));
        ("status", (Option.map x.status ~f:ProvisioningStatus.to_value));
        ("configurationStatus",
          (Option.map x.configurationStatus ~f:ConfigurationStatus.to_value));
        ("clientId", (Option.map x.clientId ~f:ClientId.to_value));
        ("identityStoreId",
          (Option.map x.identityStoreId ~f:IdentityStoreId.to_value));
        ("applicationArn", (Option.map x.applicationArn ~f:Arn.to_value));
        ("description",
          (Option.map x.description ~f:SpaceDescription.to_value));
        ("vanityDomainStatus",
          (Option.map x.vanityDomainStatus ~f:VanityDomainStatus.to_value));
        ("vanityDomain", (Option.map x.vanityDomain ~f:Url.to_value));
        ("randomDomain", (Option.map x.randomDomain ~f:Url.to_value));
        ("customerRoleArn", (Option.map x.customerRoleArn ~f:Arn.to_value));
        ("createDateTime",
          (Option.map x.createDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("deleteDateTime",
          (Option.map x.deleteDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("tier", (Option.map x.tier ~f:TierLevel.to_value));
        ("storageLimit",
          (Option.map x.storageLimit ~f:StorageLimit.to_value));
        ("userAdmins", (Option.map x.userAdmins ~f:UserAdmins.to_value));
        ("groupAdmins", (Option.map x.groupAdmins ~f:GroupAdmins.to_value));
        ("roles", (Option.map x.roles ~f:Roles.to_value));
        ("userKMSKey", (Option.map x.userKMSKey ~f:KMSKey.to_value));
        ("userCount", (Option.map x.userCount ~f:UserCount.to_value));
        ("contentSize", (Option.map x.contentSize ~f:ContentSize.to_value));
        ("supportedEmailDomains",
          (Option.map x.supportedEmailDomains
             ~f:SupportedEmailDomainsStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedEmailDomains =
        (Option.map ~f:SupportedEmailDomainsStatus.of_xml)
          (Xml.child xml_arg0 "supportedEmailDomains") in
      let contentSize =
        (Option.map ~f:ContentSize.of_xml) (Xml.child xml_arg0 "contentSize") in
      let userCount =
        (Option.map ~f:UserCount.of_xml) (Xml.child xml_arg0 "userCount") in
      let userKMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "userKMSKey") in
      let roles = (Option.map ~f:Roles.of_xml) (Xml.child xml_arg0 "roles") in
      let groupAdmins =
        (Option.map ~f:GroupAdmins.of_xml) (Xml.child xml_arg0 "groupAdmins") in
      let userAdmins =
        (Option.map ~f:UserAdmins.of_xml) (Xml.child xml_arg0 "userAdmins") in
      let storageLimit =
        (Option.map ~f:StorageLimit.of_xml)
          (Xml.child xml_arg0 "storageLimit") in
      let tier = (Option.map ~f:TierLevel.of_xml) (Xml.child xml_arg0 "tier") in
      let deleteDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "deleteDateTime") in
      let createDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createDateTime") in
      let customerRoleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "customerRoleArn") in
      let randomDomain =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "randomDomain") in
      let vanityDomain =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "vanityDomain") in
      let vanityDomainStatus =
        (Option.map ~f:VanityDomainStatus.of_xml)
          (Xml.child xml_arg0 "vanityDomainStatus") in
      let description =
        (Option.map ~f:SpaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let applicationArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "applicationArn") in
      let identityStoreId =
        (Option.map ~f:IdentityStoreId.of_xml)
          (Xml.child xml_arg0 "identityStoreId") in
      let clientId =
        (Option.map ~f:ClientId.of_xml) (Xml.child xml_arg0 "clientId") in
      let configurationStatus =
        (Option.map ~f:ConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "configurationStatus") in
      let status =
        (Option.map ~f:ProvisioningStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name = (Option.map ~f:SpaceName.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let spaceId =
        (Option.map ~f:SpaceId.of_xml) (Xml.child xml_arg0 "spaceId") in
      make ?supportedEmailDomains ?contentSize ?userCount ?userKMSKey ?roles
        ?groupAdmins ?userAdmins ?storageLimit ?tier ?deleteDateTime
        ?createDateTime ?customerRoleArn ?randomDomain ?vanityDomain
        ?vanityDomainStatus ?description ?applicationArn ?identityStoreId
        ?clientId ?configurationStatus ?status ?name ?arn ?spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedEmailDomains =
        field_map json__ "supportedEmailDomains"
          SupportedEmailDomainsStatus.of_json in
      let contentSize = field_map json__ "contentSize" ContentSize.of_json in
      let userCount = field_map json__ "userCount" UserCount.of_json in
      let userKMSKey = field_map json__ "userKMSKey" KMSKey.of_json in
      let roles = field_map json__ "roles" Roles.of_json in
      let groupAdmins = field_map json__ "groupAdmins" GroupAdmins.of_json in
      let userAdmins = field_map json__ "userAdmins" UserAdmins.of_json in
      let storageLimit = field_map json__ "storageLimit" StorageLimit.of_json in
      let tier = field_map json__ "tier" TierLevel.of_json in
      let deleteDateTime =
        field_map json__ "deleteDateTime"
          SyntheticTimestamp_date_time.of_json in
      let createDateTime =
        field_map json__ "createDateTime"
          SyntheticTimestamp_date_time.of_json in
      let customerRoleArn = field_map json__ "customerRoleArn" Arn.of_json in
      let randomDomain = field_map json__ "randomDomain" Url.of_json in
      let vanityDomain = field_map json__ "vanityDomain" Url.of_json in
      let vanityDomainStatus =
        field_map json__ "vanityDomainStatus" VanityDomainStatus.of_json in
      let description =
        field_map json__ "description" SpaceDescription.of_json in
      let applicationArn = field_map json__ "applicationArn" Arn.of_json in
      let identityStoreId =
        field_map json__ "identityStoreId" IdentityStoreId.of_json in
      let clientId = field_map json__ "clientId" ClientId.of_json in
      let configurationStatus =
        field_map json__ "configurationStatus" ConfigurationStatus.of_json in
      let status = field_map json__ "status" ProvisioningStatus.of_json in
      let name = field_map json__ "name" SpaceName.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let spaceId = field_map json__ "spaceId" SpaceId.of_json in
      make ?supportedEmailDomains ?contentSize ?userCount ?userKMSKey ?roles
        ?groupAdmins ?userAdmins ?storageLimit ?tier ?deleteDateTime
        ?createDateTime ?customerRoleArn ?randomDomain ?vanityDomain
        ?vanityDomainStatus ?description ?applicationArn ?identityStoreId
        ?clientId ?configurationStatus ?status ?name ?arn ?spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays information about the AWS re:Post Private private re:Post."]
module GetSpaceInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The ID of the private re:Post."]}
    let context_ = "GetSpaceInput"
    let make ~spaceId = fun () -> { spaceId }
    let to_value x =
      structure_to_value [("spaceId", (Some (SpaceId.to_value x.spaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays information about the AWS re:Post Private private re:Post."]
module GetChannelOutput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t option
        [@ocaml.doc "The unique ID of the private re:Post."];
      channelId: ChannelId.t option
        [@ocaml.doc "The unique ID of the private re:Post channel."];
      channelName: ChannelName.t option
        [@ocaml.doc
          "The name for the channel. This must be unique per private re:Post."];
      channelDescription: ChannelDescription.t option
        [@ocaml.doc
          "A description for the channel. This is used only to help you identify this channel."];
      createDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the channel was created."];
      deleteDateTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date when the channel was deleted."];
      channelRoles: ChannelRoles.t option
        [@ocaml.doc
          "The channel roles associated to the users and groups of the channel."];
      channelStatus: ChannelStatus.t option
        [@ocaml.doc "The status pf the channel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceId =
      fun ?channelId ->
        fun ?channelName ->
          fun ?channelDescription ->
            fun ?createDateTime ->
              fun ?deleteDateTime ->
                fun ?channelRoles ->
                  fun ?channelStatus ->
                    fun () ->
                      {
                        spaceId;
                        channelId;
                        channelName;
                        channelDescription;
                        createDateTime;
                        deleteDateTime;
                        channelRoles;
                        channelStatus
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("spaceId", (Option.map x.spaceId ~f:SpaceId.to_value));
        ("channelId", (Option.map x.channelId ~f:ChannelId.to_value));
        ("channelName", (Option.map x.channelName ~f:ChannelName.to_value));
        ("channelDescription",
          (Option.map x.channelDescription ~f:ChannelDescription.to_value));
        ("createDateTime",
          (Option.map x.createDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("deleteDateTime",
          (Option.map x.deleteDateTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("channelRoles",
          (Option.map x.channelRoles ~f:ChannelRoles.to_value));
        ("channelStatus",
          (Option.map x.channelStatus ~f:ChannelStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelStatus =
        (Option.map ~f:ChannelStatus.of_xml)
          (Xml.child xml_arg0 "channelStatus") in
      let channelRoles =
        (Option.map ~f:ChannelRoles.of_xml)
          (Xml.child xml_arg0 "channelRoles") in
      let deleteDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "deleteDateTime") in
      let createDateTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createDateTime") in
      let channelDescription =
        (Option.map ~f:ChannelDescription.of_xml)
          (Xml.child xml_arg0 "channelDescription") in
      let channelName =
        (Option.map ~f:ChannelName.of_xml) (Xml.child xml_arg0 "channelName") in
      let channelId =
        (Option.map ~f:ChannelId.of_xml) (Xml.child xml_arg0 "channelId") in
      let spaceId =
        (Option.map ~f:SpaceId.of_xml) (Xml.child xml_arg0 "spaceId") in
      make ?channelStatus ?channelRoles ?deleteDateTime ?createDateTime
        ?channelDescription ?channelName ?channelId ?spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelStatus =
        field_map json__ "channelStatus" ChannelStatus.of_json in
      let channelRoles = field_map json__ "channelRoles" ChannelRoles.of_json in
      let deleteDateTime =
        field_map json__ "deleteDateTime"
          SyntheticTimestamp_date_time.of_json in
      let createDateTime =
        field_map json__ "createDateTime"
          SyntheticTimestamp_date_time.of_json in
      let channelDescription =
        field_map json__ "channelDescription" ChannelDescription.of_json in
      let channelName = field_map json__ "channelName" ChannelName.of_json in
      let channelId = field_map json__ "channelId" ChannelId.of_json in
      let spaceId = field_map json__ "spaceId" SpaceId.of_json in
      make ?channelStatus ?channelRoles ?deleteDateTime ?createDateTime
        ?channelDescription ?channelName ?channelId ?spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays information about a channel in a private re:Post."]
module GetChannelInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      channelId: ChannelId.t
        [@ocaml.doc "The unique ID of the private re:Post channel."]}
    let context_ = "GetChannelInput"
    let make ~spaceId = fun ~channelId -> fun () -> { spaceId; channelId }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("channelId", (Some (ChannelId.to_value x.channelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelId =
        ChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~channelId ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelId = field_map_exn json__ "channelId" ChannelId.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~channelId ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays information about a channel in a private re:Post."]
module DeregisterAdminInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t
        [@ocaml.doc
          "The ID of the private re:Post to remove the admin from."];
      adminId: AdminId.t [@ocaml.doc "The ID of the admin to remove."]}
    let context_ = "DeregisterAdminInput"
    let make ~spaceId = fun ~adminId -> fun () -> { spaceId; adminId }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("adminId", (Some (AdminId.to_value x.adminId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let adminId =
        AdminId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "adminId") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~adminId ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let adminId = field_map_exn json__ "adminId" AdminId.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~adminId ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the user or group from the list of administrators of the private re:Post."]
module DeleteSpaceInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."]}
    let context_ = "DeleteSpaceInput"
    let make ~spaceId = fun () -> { spaceId }
    let to_value x =
      structure_to_value [("spaceId", (Some (SpaceId.to_value x.spaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an AWS re:Post Private private re:Post."]
module CreateSpaceOutput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t option
        [@ocaml.doc "The unique ID of the private re:Post."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceId = fun () -> { spaceId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("spaceId", (Option.map x.spaceId ~f:SpaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spaceId =
        (Option.map ~f:SpaceId.of_xml) (Xml.child xml_arg0 "spaceId") in
      make ?spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spaceId = field_map json__ "spaceId" SpaceId.of_json in
      make ?spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an AWS re:Post Private private re:Post."]
module CreateSpaceInput =
  struct
    type nonrec t =
      {
      name: SpaceName.t
        [@ocaml.doc
          "The name for the private re:Post. This must be unique in your account."];
      subdomain: SpaceSubdomain.t
        [@ocaml.doc
          "The subdomain that you use to access your AWS re:Post Private private re:Post. All custom subdomains must be approved by AWS before use. In addition to your custom subdomain, all private re:Posts are issued an AWS generated subdomain for immediate use."];
      tier: TierLevel.t
        [@ocaml.doc "The pricing tier for the private re:Post."];
      description: SpaceDescription.t option
        [@ocaml.doc
          "A description for the private re:Post. This is used only to help you identify this private re:Post."];
      userKMSKey: KMSKey.t option
        [@ocaml.doc
          "The AWS KMS key ARN that\226\128\153s used for the AWS KMS encryption. If you don't provide a key, your data is encrypted by default with a key that AWS owns and manages for you."];
      tags: Tags.t option
        [@ocaml.doc "The list of tags associated with the private re:Post."];
      roleArn: Arn.t option
        [@ocaml.doc
          "The IAM role that grants permissions to the private re:Post to convert unanswered questions into AWS support tickets."];
      supportedEmailDomains: SupportedEmailDomainsParameters.t option }
    let context_ = "CreateSpaceInput"
    let make ?description =
      fun ?userKMSKey ->
        fun ?tags ->
          fun ?roleArn ->
            fun ?supportedEmailDomains ->
              fun ~name ->
                fun ~subdomain ->
                  fun ~tier ->
                    fun () ->
                      {
                        description;
                        userKMSKey;
                        tags;
                        roleArn;
                        supportedEmailDomains;
                        name;
                        subdomain;
                        tier
                      }
    let to_value x =
      structure_to_value
        [("name", (Some (SpaceName.to_value x.name)));
        ("subdomain", (Some (SpaceSubdomain.to_value x.subdomain)));
        ("tier", (Some (TierLevel.to_value x.tier)));
        ("description",
          (Option.map x.description ~f:SpaceDescription.to_value));
        ("userKMSKey", (Option.map x.userKMSKey ~f:KMSKey.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("roleArn", (Option.map x.roleArn ~f:Arn.to_value));
        ("supportedEmailDomains",
          (Option.map x.supportedEmailDomains
             ~f:SupportedEmailDomainsParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedEmailDomains =
        (Option.map ~f:SupportedEmailDomainsParameters.of_xml)
          (Xml.child xml_arg0 "supportedEmailDomains") in
      let roleArn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let userKMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "userKMSKey") in
      let description =
        (Option.map ~f:SpaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let tier =
        TierLevel.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tier") in
      let subdomain =
        SpaceSubdomain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subdomain") in
      let name =
        SpaceName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?supportedEmailDomains ?roleArn ?tags ?userKMSKey ?description
        ~tier ~subdomain ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedEmailDomains =
        field_map json__ "supportedEmailDomains"
          SupportedEmailDomainsParameters.of_json in
      let roleArn = field_map json__ "roleArn" Arn.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let userKMSKey = field_map json__ "userKMSKey" KMSKey.of_json in
      let description =
        field_map json__ "description" SpaceDescription.of_json in
      let tier = field_map_exn json__ "tier" TierLevel.of_json in
      let subdomain = field_map_exn json__ "subdomain" SpaceSubdomain.of_json in
      let name = field_map_exn json__ "name" SpaceName.of_json in
      make ?supportedEmailDomains ?roleArn ?tags ?userKMSKey ?description
        ~tier ~subdomain ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an AWS re:Post Private private re:Post."]
module CreateChannelOutput =
  struct
    type nonrec t =
      {
      channelId: ChannelId.t option
        [@ocaml.doc "The unique ID of the private re:Post channel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?channelId = fun () -> { channelId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("channelId", (Option.map x.channelId ~f:ChannelId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelId =
        (Option.map ~f:ChannelId.of_xml) (Xml.child xml_arg0 "channelId") in
      make ?channelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelId = field_map json__ "channelId" ChannelId.of_json in
      make ?channelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a channel in an AWS re:Post Private private re:Post."]
module CreateChannelInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      channelName: ChannelName.t
        [@ocaml.doc
          "The name for the channel. This must be unique per private re:Post."];
      channelDescription: ChannelDescription.t option
        [@ocaml.doc
          "A description for the channel. This is used only to help you identify this channel."]}
    let context_ = "CreateChannelInput"
    let make ?channelDescription =
      fun ~spaceId ->
        fun ~channelName ->
          fun () -> { channelDescription; spaceId; channelName }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("channelName", (Some (ChannelName.to_value x.channelName)));
        ("channelDescription",
          (Option.map x.channelDescription ~f:ChannelDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelDescription =
        (Option.map ~f:ChannelDescription.of_xml)
          (Xml.child xml_arg0 "channelDescription") in
      let channelName =
        ChannelName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelName") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ?channelDescription ~channelName ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelDescription =
        field_map json__ "channelDescription" ChannelDescription.of_json in
      let channelName =
        field_map_exn json__ "channelName" ChannelName.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ?channelDescription ~channelName ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a channel in an AWS re:Post Private private re:Post."]
module BatchRemoveRoleOutput =
  struct
    type nonrec t =
      {
      removedAccessorIds: AccessorIdList.t option
        [@ocaml.doc "An array of successfully updated accessor identifiers."];
      errors: BatchErrorList.t option
        [@ocaml.doc
          "An array of errors that occurred when roles were removed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?removedAccessorIds =
      fun ?errors -> fun () -> { removedAccessorIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("removedAccessorIds",
           (Option.map x.removedAccessorIds ~f:AccessorIdList.to_value));
        ("errors", (Option.map x.errors ~f:BatchErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchErrorList.of_xml) (Xml.child xml_arg0 "errors") in
      let removedAccessorIds =
        (Option.map ~f:AccessorIdList.of_xml)
          (Xml.child xml_arg0 "removedAccessorIds") in
      make ?errors ?removedAccessorIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "errors" BatchErrorList.of_json in
      let removedAccessorIds =
        field_map json__ "removedAccessorIds" AccessorIdList.of_json in
      make ?errors ?removedAccessorIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove a role from multiple users or groups in a private re:Post."]
module BatchRemoveRoleInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      accessorIds: AccessorIdList.t
        [@ocaml.doc
          "The user or group accessor identifiers to remove the role from."];
      role: Role.t
        [@ocaml.doc "The role to remove from the users or groups."]}
    let context_ = "BatchRemoveRoleInput"
    let make ~spaceId =
      fun ~accessorIds ->
        fun ~role -> fun () -> { spaceId; accessorIds; role }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("accessorIds", (Some (AccessorIdList.to_value x.accessorIds)));
        ("role", (Some (Role.to_value x.role)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let role =
        Role.of_xml (Xml.child_exn ~context:context_ xml_arg0 "role") in
      let accessorIds =
        AccessorIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accessorIds") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~role ~accessorIds ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let role = field_map_exn json__ "role" Role.of_json in
      let accessorIds =
        field_map_exn json__ "accessorIds" AccessorIdList.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~role ~accessorIds ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove a role from multiple users or groups in a private re:Post."]
module BatchRemoveChannelRoleFromAccessorsOutput =
  struct
    type nonrec t =
      {
      removedAccessorIds: AccessorIdList.t option
        [@ocaml.doc "An array of successfully updated identifiers."];
      errors: BatchErrorList.t option
        [@ocaml.doc
          "An array of errors that occurred when roles were removed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?removedAccessorIds =
      fun ?errors -> fun () -> { removedAccessorIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("removedAccessorIds",
           (Option.map x.removedAccessorIds ~f:AccessorIdList.to_value));
        ("errors", (Option.map x.errors ~f:BatchErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchErrorList.of_xml) (Xml.child xml_arg0 "errors") in
      let removedAccessorIds =
        (Option.map ~f:AccessorIdList.of_xml)
          (Xml.child xml_arg0 "removedAccessorIds") in
      make ?errors ?removedAccessorIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "errors" BatchErrorList.of_json in
      let removedAccessorIds =
        field_map json__ "removedAccessorIds" AccessorIdList.of_json in
      make ?errors ?removedAccessorIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove a role from multiple users or groups in a private re:Post channel."]
module BatchRemoveChannelRoleFromAccessorsInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      channelId: ChannelId.t
        [@ocaml.doc "The unique ID of the private re:Post channel."];
      accessorIds: AccessorIdList.t
        [@ocaml.doc
          "The users or groups identifiers to remove the role from."];
      channelRole: ChannelRole.t
        [@ocaml.doc "The channel role to remove from the users or groups."]}
    let context_ = "BatchRemoveChannelRoleFromAccessorsInput"
    let make ~spaceId =
      fun ~channelId ->
        fun ~accessorIds ->
          fun ~channelRole ->
            fun () -> { spaceId; channelId; accessorIds; channelRole }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("channelId", (Some (ChannelId.to_value x.channelId)));
        ("accessorIds", (Some (AccessorIdList.to_value x.accessorIds)));
        ("channelRole", (Some (ChannelRole.to_value x.channelRole)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelRole =
        ChannelRole.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelRole") in
      let accessorIds =
        AccessorIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accessorIds") in
      let channelId =
        ChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~channelRole ~accessorIds ~channelId ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelRole =
        field_map_exn json__ "channelRole" ChannelRole.of_json in
      let accessorIds =
        field_map_exn json__ "accessorIds" AccessorIdList.of_json in
      let channelId = field_map_exn json__ "channelId" ChannelId.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~channelRole ~accessorIds ~channelId ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove a role from multiple users or groups in a private re:Post channel."]
module BatchAddRoleOutput =
  struct
    type nonrec t =
      {
      addedAccessorIds: AccessorIdList.t option
        [@ocaml.doc "An array of successfully updated accessor identifiers."];
      errors: BatchErrorList.t option
        [@ocaml.doc
          "An array of errors that occurred when roles were added."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addedAccessorIds =
      fun ?errors -> fun () -> { addedAccessorIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("addedAccessorIds",
           (Option.map x.addedAccessorIds ~f:AccessorIdList.to_value));
        ("errors", (Option.map x.errors ~f:BatchErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchErrorList.of_xml) (Xml.child xml_arg0 "errors") in
      let addedAccessorIds =
        (Option.map ~f:AccessorIdList.of_xml)
          (Xml.child xml_arg0 "addedAccessorIds") in
      make ?errors ?addedAccessorIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "errors" BatchErrorList.of_json in
      let addedAccessorIds =
        field_map json__ "addedAccessorIds" AccessorIdList.of_json in
      make ?errors ?addedAccessorIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add a role to multiple users or groups in a private re:Post."]
module BatchAddRoleInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      accessorIds: AccessorIdList.t
        [@ocaml.doc
          "The user or group accessor identifiers to add the role to."];
      role: Role.t [@ocaml.doc "The role to add to the users or groups."]}
    let context_ = "BatchAddRoleInput"
    let make ~spaceId =
      fun ~accessorIds ->
        fun ~role -> fun () -> { spaceId; accessorIds; role }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("accessorIds", (Some (AccessorIdList.to_value x.accessorIds)));
        ("role", (Some (Role.to_value x.role)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let role =
        Role.of_xml (Xml.child_exn ~context:context_ xml_arg0 "role") in
      let accessorIds =
        AccessorIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accessorIds") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~role ~accessorIds ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let role = field_map_exn json__ "role" Role.of_json in
      let accessorIds =
        field_map_exn json__ "accessorIds" AccessorIdList.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~role ~accessorIds ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add a role to multiple users or groups in a private re:Post."]
module BatchAddChannelRoleToAccessorsOutput =
  struct
    type nonrec t =
      {
      addedAccessorIds: AccessorIdList.t option
        [@ocaml.doc "An array of successfully updated identifiers."];
      errors: BatchErrorList.t option
        [@ocaml.doc
          "An array of errors that occurred when roles were added."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addedAccessorIds =
      fun ?errors -> fun () -> { addedAccessorIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("addedAccessorIds",
           (Option.map x.addedAccessorIds ~f:AccessorIdList.to_value));
        ("errors", (Option.map x.errors ~f:BatchErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchErrorList.of_xml) (Xml.child xml_arg0 "errors") in
      let addedAccessorIds =
        (Option.map ~f:AccessorIdList.of_xml)
          (Xml.child xml_arg0 "addedAccessorIds") in
      make ?errors ?addedAccessorIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "errors" BatchErrorList.of_json in
      let addedAccessorIds =
        field_map json__ "addedAccessorIds" AccessorIdList.of_json in
      make ?errors ?addedAccessorIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add role to multiple users or groups in a private re:Post channel."]
module BatchAddChannelRoleToAccessorsInput =
  struct
    type nonrec t =
      {
      spaceId: SpaceId.t [@ocaml.doc "The unique ID of the private re:Post."];
      channelId: ChannelId.t
        [@ocaml.doc "The unique ID of the private re:Post channel."];
      accessorIds: AccessorIdList.t
        [@ocaml.doc "The user or group identifiers to add the role to."];
      channelRole: ChannelRole.t
        [@ocaml.doc "The channel role to add to the users or groups."]}
    let context_ = "BatchAddChannelRoleToAccessorsInput"
    let make ~spaceId =
      fun ~channelId ->
        fun ~accessorIds ->
          fun ~channelRole ->
            fun () -> { spaceId; channelId; accessorIds; channelRole }
    let to_value x =
      structure_to_value
        [("spaceId", (Some (SpaceId.to_value x.spaceId)));
        ("channelId", (Some (ChannelId.to_value x.channelId)));
        ("accessorIds", (Some (AccessorIdList.to_value x.accessorIds)));
        ("channelRole", (Some (ChannelRole.to_value x.channelRole)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelRole =
        ChannelRole.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelRole") in
      let accessorIds =
        AccessorIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accessorIds") in
      let channelId =
        ChannelId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let spaceId =
        SpaceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "spaceId") in
      make ~channelRole ~accessorIds ~channelId ~spaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelRole =
        field_map_exn json__ "channelRole" ChannelRole.of_json in
      let accessorIds =
        field_map_exn json__ "accessorIds" AccessorIdList.of_json in
      let channelId = field_map_exn json__ "channelId" ChannelId.of_json in
      let spaceId = field_map_exn json__ "spaceId" SpaceId.of_json in
      make ~channelRole ~accessorIds ~channelId ~spaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add role to multiple users or groups in a private re:Post channel."]