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.sns
let apiVersion = "2010-03-31"
let endpointPrefix = "sns"
let serviceFullName = "Amazon Simple Notification Service"
let signatureVersion = "v4"
let protocol = "query"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon SNS"
let xmlNamespace = "http://sns.amazonaws.com/doc/2010-03-31/"
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 Binary =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" 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 MessageAttributeValue =
  struct
    type nonrec t =
      {
      dataType: String_.t
        [@ocaml.doc
          "Amazon SNS supports the following logical data types: String, String.Array, Number, and Binary. For more information, see Message Attribute Data Types."];
      stringValue: String_.t option
        [@ocaml.doc
          "Strings are Unicode with UTF8 binary encoding. For a list of code values, see ASCII Printable Characters."];
      binaryValue: Binary.t option
        [@ocaml.doc
          "Binary type attributes can store any binary data, for example, compressed data, encrypted data, or images."]}
    let context_ = "MessageAttributeValue"
    let make ?stringValue =
      fun ?binaryValue ->
        fun ~dataType -> fun () -> { stringValue; binaryValue; dataType }
    let to_value x =
      structure_to_value
        [("DataType", (Some (String_.to_value x.dataType)));
        ("StringValue", (Option.map x.stringValue ~f:String_.to_value));
        ("BinaryValue", (Option.map x.binaryValue ~f:Binary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let binaryValue =
        (Option.map ~f:Binary.of_xml) (Xml.child xml_arg0 "BinaryValue") in
      let stringValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StringValue") in
      let dataType =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DataType") in
      make ?binaryValue ?stringValue ~dataType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let binaryValue = field_map json__ "BinaryValue" Binary.of_json in
      let stringValue = field_map json__ "StringValue" String_.of_json in
      let dataType = field_map_exn json__ "DataType" String_.of_json in
      make ?binaryValue ?stringValue ~dataType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user-specified message attribute value. For string data types, the value attribute has the same restrictions on the content as the message body. For more information, see Publish. Name, type, and value must not be empty or null. In addition, the message body should not be empty or null. All parts of the message attribute, including name, type, and value, are included in the message size restriction, which is currently 256 KB (262,144 bytes). For more information, see Amazon SNS message attributes and Publishing to a mobile phone in the Amazon SNS Developer Guide."]
module NumberCapability =
  struct
    type nonrec t =
      | SMS 
      | MMS 
      | VOICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SMS -> "SMS"
      | MMS -> "MMS"
      | VOICE -> "VOICE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SMS" -> SMS
      | "MMS" -> MMS
      | "VOICE" -> VOICE
      | 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 NumberCapability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NumberCapability" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module MessageId =
  struct
    type nonrec t = string
    let context_ = "messageId"
    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:"messageId" j
    let to_json = simple_to_json to_value
  end
module MessageAttributeMap =
  struct
    type nonrec t = (String_.t * MessageAttributeValue.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 String MessageAttributeValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x ->
                       (MessageAttributeValue.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:MessageAttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Message =
  struct
    type nonrec t = string
    let context_ = "message"
    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:"message" j
    let to_json = simple_to_json to_value
  end
module MessageStructure =
  struct
    type nonrec t = string
    let context_ = "messageStructure"
    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:"messageStructure" j
    let to_json = simple_to_json to_value
  end
module Subject =
  struct
    type nonrec t = string
    let context_ = "subject"
    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:"subject" j
    let to_json = simple_to_json to_value
  end
module TopicARN =
  struct
    type nonrec t = string
    let context_ = "topicARN"
    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:"topicARN" j
    let to_json = simple_to_json to_value
  end
module Endpoint__lc1 =
  struct
    type nonrec t = string
    let context_ = "Endpoint__lc1"
    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:"Endpoint__lc1" j
    let to_json = simple_to_json to_value
  end
module Account =
  struct
    type nonrec t = string
    let context_ = "account"
    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:"account" j
    let to_json = simple_to_json to_value
  end
module Protocol =
  struct
    type nonrec t = string
    let context_ = "protocol"
    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:"protocol" j
    let to_json = simple_to_json to_value
  end
module SubscriptionARN =
  struct
    type nonrec t = string
    let context_ = "subscriptionARN"
    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:"subscriptionARN" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberString =
  struct
    type nonrec t = string
    let context_ = "PhoneNumberString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (fun () ->
                check_pattern i ~pattern:"^(\\+[0-9]{8,}|[0-9]{0,9})$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PhoneNumberString" j
    let to_json = simple_to_json to_value
  end
module SMSSandboxPhoneNumberVerificationStatus =
  struct
    type nonrec t =
      | Pending 
      | Verified 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "Pending"
      | Verified -> "Verified"
      | Non_static_id s -> s
    let of_string =
      function
      | "Pending" -> Pending
      | "Verified" -> Verified
      | 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 SMSSandboxPhoneNumberVerificationStatus"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SMSSandboxPhoneNumberVerificationStatus" j)
    let to_json = simple_to_json to_value
  end
module MapStringToString =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Iso2CountryCode =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region. For example, GB or US."]
    let context_ = "Iso2CountryCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2) >>=
             (fun () -> check_pattern i ~pattern:"^[A-Za-z]{2}$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Iso2CountryCode" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region. For example, GB or US."]
module NumberCapabilityList =
  struct
    type nonrec t = NumberCapability.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:NumberCapability.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:NumberCapability.of_xml)
    let of_json j =
      list_of_json ~kind:"NumberCapabilityList"
        ~of_json:NumberCapability.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumber =
  struct
    type nonrec t = string
    let context_ = "PhoneNumber"
    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:"PhoneNumber" j
    let to_json = simple_to_json to_value
  end
module RouteType =
  struct
    type nonrec t =
      | Transactional 
      | Promotional 
      | Premium 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Transactional -> "Transactional"
      | Promotional -> "Promotional"
      | Premium -> "Premium"
      | Non_static_id s -> s
    let of_string =
      function
      | "Transactional" -> Transactional
      | "Promotional" -> Promotional
      | "Premium" -> Premium
      | 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 RouteType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteType" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module String__lc1 =
  struct
    type nonrec t = string
    let context_ = "String__lc1"
    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__lc1" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The required key portion of the tag."];
      value: TagValue.t [@ocaml.doc "The optional value portion of the tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The list of tags to be added to the specified topic."]
module AttributeName =
  struct
    type nonrec t = string
    let context_ = "attributeName"
    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:"attributeName" j
    let to_json = simple_to_json to_value
  end
module AttributeValue =
  struct
    type nonrec t = string
    let context_ = "attributeValue"
    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:"attributeValue" j
    let to_json = simple_to_json to_value
  end
module BatchResultErrorEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "The Id of an entry in a batch request"];
      code: String_.t option
        [@ocaml.doc
          "An error code representing why the action failed on this entry."];
      message: String_.t option
        [@ocaml.doc
          "A message explaining why the action failed on this entry."];
      senderFault: Boolean.t option
        [@ocaml.doc
          "Specifies whether the error happened due to the caller of the batch API action."]}
    let make ?id =
      fun ?code ->
        fun ?message ->
          fun ?senderFault -> fun () -> { id; code; message; senderFault }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:String_.to_value));
        ("Code", (Option.map x.code ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value));
        ("SenderFault", (Option.map x.senderFault ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let senderFault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SenderFault") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Code") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?senderFault ?message ?code ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let senderFault = field_map json__ "SenderFault" Boolean.of_json in
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      let id = field_map json__ "Id" String_.of_json in
      make ?senderFault ?message ?code ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gives a detailed description of failed messages in the batch."]
module PublishBatchResultEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "The Id of an entry in a batch request."];
      messageId: MessageId.t option
        [@ocaml.doc "An identifier for the message."];
      sequenceNumber: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) topics. The large, non-consecutive number that Amazon SNS assigns to each message. The length of SequenceNumber is 128 bits. SequenceNumber continues to increase for a particular MessageGroupId."]}
    let make ?id =
      fun ?messageId ->
        fun ?sequenceNumber -> fun () -> { id; messageId; sequenceNumber }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:String_.to_value));
        ("MessageId", (Option.map x.messageId ~f:MessageId.to_value));
        ("SequenceNumber", (Option.map x.sequenceNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SequenceNumber") in
      let messageId =
        (Option.map ~f:MessageId.of_xml) (Xml.child xml_arg0 "MessageId") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?sequenceNumber ?messageId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "SequenceNumber" String_.of_json in
      let messageId = field_map json__ "MessageId" MessageId.of_json in
      let id = field_map json__ "Id" String_.of_json in
      make ?sequenceNumber ?messageId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Encloses data related to a successful message in a batch request for topic."]
module PublishBatchRequestEntry =
  struct
    type nonrec t =
      {
      id: String_.t
        [@ocaml.doc
          "An identifier for the message in this batch. The Ids of a batch request must be unique within a request. This identifier can have up to 80 characters. The following characters are accepted: alphanumeric characters, hyphens(-), and underscores (_)."];
      message: Message.t [@ocaml.doc "The body of the message."];
      subject: Subject.t option
        [@ocaml.doc "The subject of the batch message."];
      messageStructure: MessageStructure.t option
        [@ocaml.doc
          "Set MessageStructure to json if you want to send a different message for each protocol. For example, using one publish action, you can send a short message to your SMS subscribers and a longer message to your email subscribers. If you set MessageStructure to json, the value of the Message parameter must: be a syntactically valid JSON object; and contain at least a top-level JSON key of \"default\" with a value that is a string. You can define other top-level keys that define the message you want to send to a specific transport protocol (for example, http)."];
      messageAttributes: MessageAttributeMap.t option
        [@ocaml.doc
          "Each message attribute consists of a Name, Type, and Value. For more information, see Amazon SNS message attributes in the Amazon SNS Developer Guide."];
      messageDeduplicationId: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) topics. This parameter applies only to FIFO (first-in-first-out) topics. The MessageDeduplicationId can contain up to 128 alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). Every message must have a unique MessageDeduplicationId, which is a token used for deduplication of sent messages within the 5 minute minimum deduplication interval. The scope of deduplication depends on the FifoThroughputScope attribute, when set to Topic the message deduplication scope is across the entire topic, when set to MessageGroup the message deduplication scope is within each individual message group. If a message with a particular MessageDeduplicationId is sent successfully, subsequent messages within the deduplication scope and interval, with the same MessageDeduplicationId, are accepted successfully but aren't delivered. Every message must have a unique MessageDeduplicationId. You may provide a MessageDeduplicationId explicitly. If you aren't able to provide a MessageDeduplicationId and you enable ContentBasedDeduplication for your topic, Amazon SNS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). If you don't provide a MessageDeduplicationId and the topic doesn't have ContentBasedDeduplication set, the action fails with an error. If the topic has a ContentBasedDeduplication set, your MessageDeduplicationId overrides the generated one. When ContentBasedDeduplication is in effect, messages with identical content sent within the deduplication scope and interval are treated as duplicates and only one copy of the message is delivered. If you send one message with ContentBasedDeduplication enabled, and then another message with a MessageDeduplicationId that is the same as the one generated for the first MessageDeduplicationId, the two messages are treated as duplicates, within the deduplication scope and interval, and only one copy of the message is delivered. The MessageDeduplicationId is available to the consumer of the message (this can be useful for troubleshooting delivery issues). If a message is sent successfully but the acknowledgement is lost and the message is resent with the same MessageDeduplicationId after the deduplication interval, Amazon SNS can't detect duplicate messages. Amazon SNS continues to keep track of the message deduplication ID even after the message is received and deleted."];
      messageGroupId: String_.t option
        [@ocaml.doc
          "FIFO topics: The tag that specifies that a message belongs to a specific message group. Messages that belong to the same message group are processed in a FIFO manner (however, messages in different message groups might be processed out of order). To interleave multiple ordered streams within a single topic, use MessageGroupId values (for example, session data for multiple users). In this scenario, multiple consumers can process the topic, but the session data of each user is processed in a FIFO fashion. You must associate a non-empty MessageGroupId with a message. If you do not provide a MessageGroupId, the action fails. Standard topics: The MessageGroupId is optional and is forwarded only to Amazon SQS standard subscriptions to activate fair queues. The MessageGroupId is not used for, or sent to, any other endpoint types. The length of MessageGroupId is 128 characters. MessageGroupId can contain alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~)."]}
    let context_ = "PublishBatchRequestEntry"
    let make ?subject =
      fun ?messageStructure ->
        fun ?messageAttributes ->
          fun ?messageDeduplicationId ->
            fun ?messageGroupId ->
              fun ~id ->
                fun ~message ->
                  fun () ->
                    {
                      subject;
                      messageStructure;
                      messageAttributes;
                      messageDeduplicationId;
                      messageGroupId;
                      id;
                      message
                    }
    let to_value x =
      structure_to_value
        [("Id", (Some (String_.to_value x.id)));
        ("Message", (Some (Message.to_value x.message)));
        ("Subject", (Option.map x.subject ~f:Subject.to_value));
        ("MessageStructure",
          (Option.map x.messageStructure ~f:MessageStructure.to_value));
        ("MessageAttributes",
          (Option.map x.messageAttributes ~f:MessageAttributeMap.to_value));
        ("MessageDeduplicationId",
          (Option.map x.messageDeduplicationId ~f:String_.to_value));
        ("MessageGroupId", (Option.map x.messageGroupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageGroupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageGroupId") in
      let messageDeduplicationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MessageDeduplicationId") in
      let messageAttributes =
        (Option.map ~f:MessageAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageAttributes") in
      let messageStructure =
        (Option.map ~f:MessageStructure.of_xml)
          (Xml.child xml_arg0 "MessageStructure") in
      let subject =
        (Option.map ~f:Subject.of_xml) (Xml.child xml_arg0 "Subject") in
      let message =
        Message.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Message") in
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?messageGroupId ?messageDeduplicationId ?messageAttributes
        ?messageStructure ?subject ~message ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageGroupId = field_map json__ "MessageGroupId" String_.of_json in
      let messageDeduplicationId =
        field_map json__ "MessageDeduplicationId" String_.of_json in
      let messageAttributes =
        field_map json__ "MessageAttributes" MessageAttributeMap.of_json in
      let messageStructure =
        field_map json__ "MessageStructure" MessageStructure.of_json in
      let subject = field_map json__ "Subject" Subject.of_json in
      let message = field_map_exn json__ "Message" Message.of_json in
      let id = field_map_exn json__ "Id" String_.of_json in
      make ?messageGroupId ?messageDeduplicationId ?messageAttributes
        ?messageStructure ?subject ~message ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of a single Amazon SNS message along with an Id that identifies a message within the batch."]
module Topic =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t option [@ocaml.doc "The topic's ARN."]}
    let make ?topicArn = fun () -> { topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Option.map x.topicArn ~f:TopicARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        (Option.map ~f:TopicARN.of_xml) (Xml.child xml_arg0 "TopicArn") in
      make ?topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicArn = field_map json__ "TopicArn" TopicARN.of_json in
      make ?topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A wrapper type for the topic's Amazon Resource Name (ARN). To retrieve a topic's attributes, use GetTopicAttributes."]
module Subscription =
  struct
    type nonrec t =
      {
      subscriptionArn: SubscriptionARN.t option
        [@ocaml.doc "The subscription's ARN."];
      owner: Account.t option [@ocaml.doc "The subscription's owner."];
      protocol: Protocol.t option [@ocaml.doc "The subscription's protocol."];
      endpoint: Endpoint__lc1.t option
        [@ocaml.doc
          "The subscription's endpoint (format depends on the protocol)."];
      topicArn: TopicARN.t option
        [@ocaml.doc "The ARN of the subscription's topic."]}
    let make ?subscriptionArn =
      fun ?owner ->
        fun ?protocol ->
          fun ?endpoint ->
            fun ?topicArn ->
              fun () ->
                { subscriptionArn; owner; protocol; endpoint; topicArn }
    let to_value x =
      structure_to_value
        [("SubscriptionArn",
           (Option.map x.subscriptionArn ~f:SubscriptionARN.to_value));
        ("Owner", (Option.map x.owner ~f:Account.to_value));
        ("Protocol", (Option.map x.protocol ~f:Protocol.to_value));
        ("Endpoint", (Option.map x.endpoint ~f:Endpoint__lc1.to_value));
        ("TopicArn", (Option.map x.topicArn ~f:TopicARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        (Option.map ~f:TopicARN.of_xml) (Xml.child xml_arg0 "TopicArn") in
      let endpoint =
        (Option.map ~f:Endpoint__lc1.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let protocol =
        (Option.map ~f:Protocol.of_xml) (Xml.child xml_arg0 "Protocol") in
      let owner = (Option.map ~f:Account.of_xml) (Xml.child xml_arg0 "Owner") in
      let subscriptionArn =
        (Option.map ~f:SubscriptionARN.of_xml)
          (Xml.child xml_arg0 "SubscriptionArn") in
      make ?topicArn ?endpoint ?protocol ?owner ?subscriptionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicArn = field_map json__ "TopicArn" TopicARN.of_json in
      let endpoint = field_map json__ "Endpoint" Endpoint__lc1.of_json in
      let protocol = field_map json__ "Protocol" Protocol.of_json in
      let owner = field_map json__ "Owner" Account.of_json in
      let subscriptionArn =
        field_map json__ "SubscriptionArn" SubscriptionARN.of_json in
      make ?topicArn ?endpoint ?protocol ?owner ?subscriptionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A wrapper type for the attributes of an Amazon SNS subscription."]
module SMSSandboxPhoneNumber =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumberString.t option
        [@ocaml.doc "The destination phone number."];
      status: SMSSandboxPhoneNumberVerificationStatus.t option
        [@ocaml.doc "The destination phone number's verification status."]}
    let make ?phoneNumber = fun ?status -> fun () -> { phoneNumber; status }
    let to_value x =
      structure_to_value
        [("PhoneNumber",
           (Option.map x.phoneNumber ~f:PhoneNumberString.to_value));
        ("Status",
          (Option.map x.status
             ~f:SMSSandboxPhoneNumberVerificationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:SMSSandboxPhoneNumberVerificationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let phoneNumber =
        (Option.map ~f:PhoneNumberString.of_xml)
          (Xml.child xml_arg0 "PhoneNumber") in
      make ?status ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "Status"
          SMSSandboxPhoneNumberVerificationStatus.of_json in
      let phoneNumber =
        field_map json__ "PhoneNumber" PhoneNumberString.of_json in
      make ?status ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A verified or pending destination phone number in the SMS sandbox. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module PlatformApplication =
  struct
    type nonrec t =
      {
      platformApplicationArn: String_.t option
        [@ocaml.doc
          "PlatformApplicationArn for platform application object."];
      attributes: MapStringToString.t option
        [@ocaml.doc "Attributes for platform application object."]}
    let make ?platformApplicationArn =
      fun ?attributes -> fun () -> { platformApplicationArn; attributes }
    let to_value x =
      structure_to_value
        [("PlatformApplicationArn",
           (Option.map x.platformApplicationArn ~f:String_.to_value));
        ("Attributes",
          (Option.map x.attributes ~f:MapStringToString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:MapStringToString.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let platformApplicationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PlatformApplicationArn") in
      make ?attributes ?platformApplicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" MapStringToString.of_json in
      let platformApplicationArn =
        field_map json__ "PlatformApplicationArn" String_.of_json in
      make ?attributes ?platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Platform application object."]
module PhoneNumberInformation =
  struct
    type nonrec t =
      {
      createdAt: Timestamp.t option
        [@ocaml.doc "The date and time when the phone number was created."];
      phoneNumber: PhoneNumber.t option [@ocaml.doc "The phone number."];
      status: String_.t option [@ocaml.doc "The status of the phone number."];
      iso2CountryCode: Iso2CountryCode.t option
        [@ocaml.doc
          "The two-character code for the country or region, in ISO 3166-1 alpha-2 format."];
      routeType: RouteType.t option
        [@ocaml.doc "The list of supported routes."];
      numberCapabilities: NumberCapabilityList.t option
        [@ocaml.doc "The capabilities of each phone number."]}
    let make ?createdAt =
      fun ?phoneNumber ->
        fun ?status ->
          fun ?iso2CountryCode ->
            fun ?routeType ->
              fun ?numberCapabilities ->
                fun () ->
                  {
                    createdAt;
                    phoneNumber;
                    status;
                    iso2CountryCode;
                    routeType;
                    numberCapabilities
                  }
    let to_value x =
      structure_to_value
        [("CreatedAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("Iso2CountryCode",
          (Option.map x.iso2CountryCode ~f:Iso2CountryCode.to_value));
        ("RouteType", (Option.map x.routeType ~f:RouteType.to_value));
        ("NumberCapabilities",
          (Option.map x.numberCapabilities ~f:NumberCapabilityList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberCapabilities =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "NumberCapabilities") in
      let routeType =
        (Option.map ~f:RouteType.of_xml) (Xml.child xml_arg0 "RouteType") in
      let iso2CountryCode =
        (Option.map ~f:Iso2CountryCode.of_xml)
          (Xml.child xml_arg0 "Iso2CountryCode") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      make ?numberCapabilities ?routeType ?iso2CountryCode ?status
        ?phoneNumber ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberCapabilities =
        field_map json__ "NumberCapabilities" NumberCapabilityList.of_json in
      let routeType = field_map json__ "RouteType" RouteType.of_json in
      let iso2CountryCode =
        field_map json__ "Iso2CountryCode" Iso2CountryCode.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let createdAt = field_map json__ "CreatedAt" Timestamp.of_json in
      make ?numberCapabilities ?routeType ?iso2CountryCode ?status
        ?phoneNumber ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of phone numbers and their metadata."]
module Endpoint =
  struct
    type nonrec t =
      {
      endpointArn: String_.t option
        [@ocaml.doc "The EndpointArn for mobile app and device."];
      attributes: MapStringToString.t option
        [@ocaml.doc "Attributes for endpoint."]}
    let make ?endpointArn =
      fun ?attributes -> fun () -> { endpointArn; attributes }
    let to_value x =
      structure_to_value
        [("EndpointArn", (Option.map x.endpointArn ~f:String_.to_value));
        ("Attributes",
          (Option.map x.attributes ~f:MapStringToString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:MapStringToString.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let endpointArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EndpointArn") in
      make ?attributes ?endpointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" MapStringToString.of_json in
      let endpointArn = field_map json__ "EndpointArn" String_.of_json in
      make ?attributes ?endpointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The endpoint for mobile app and device."]
module Action =
  struct
    type nonrec t = string
    let context_ = "action"
    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:"action" j
    let to_json = simple_to_json to_value
  end
module Delegate =
  struct
    type nonrec t = string
    let context_ = "delegate"
    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:"delegate" j
    let to_json = simple_to_json to_value
  end
module AuthorizationErrorException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the user has been denied access to the requested resource."]
module InternalErrorException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates an internal service error."]
module InvalidParameterException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that a request parameter does not comply with the associated constraints."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Can\226\128\153t perform the action on the specified resource. Make sure that the resource exists."]
module ThrottledException =
  struct
    type nonrec t =
      {
      message: String__lc1.t option [@ocaml.doc "Throttled request."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the rate at which requests have been submitted for this action exceeds the limit for your Amazon Web Services account."]
module VerificationException =
  struct
    type nonrec t =
      {
      message: String__lc1.t option ;
      status: String__lc1.t option
        [@ocaml.doc "The status of the verification error."]}
    let make ?message = fun ?status -> fun () -> { message; status }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String__lc1.to_value));
        ("Status", (Option.map x.status ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "Status") in
      let message =
        (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "Message") in
      make ?status ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String__lc1.of_json in
      let message = field_map json__ "Message" String__lc1.of_json in
      make ?status ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the one-time password (OTP) used for verification is invalid."]
module OTPCode =
  struct
    type nonrec t = string[@@ocaml.doc
                            "String of Origination/Destination address including phone numbers and email addresses"]
    let context_ = "OTPCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:8) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OTPCode" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "String of Origination/Destination address including phone numbers and email addresses"]
module ConcurrentAccessException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Can't perform multiple operations on a tag simultaneously. Perform the operations sequentially."]
module StaleTagException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A tag has been added to a resource with the same ARN as a deleted resource. Wait a short while and then retry the operation."]
module TagLimitExceededException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Can't add more than 50 tags to a topic."]
module TagPolicyException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request doesn't comply with the IAM tag policy. Correct your request and then retry it."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterPolicyLimitExceededException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the number of filter polices in your Amazon Web Services account exceeds the limit. To add more filter polices, submit an Amazon SNS Limit Increase case in the Amazon Web ServicesSupport Center."]
module InvalidSecurityException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The credential signature isn't valid. You must use an HTTPS endpoint and sign your request using Signature Version 4."]
module NotFoundException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that the requested resource does not exist."]
module ReplayLimitExceededException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the request parameter has exceeded the maximum number of concurrent message replays."]
module SubscriptionLimitExceededException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the customer already owns the maximum allowed number of subscriptions."]
module SubscriptionAttributesMap =
  struct
    type nonrec t = (AttributeName.t * AttributeValue.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 ->
                            ((AttributeName.of_string chopped),
                              (AttributeValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AttributeName.to_value x) |>
                    (fun x ->
                       (AttributeValue.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:AttributeName.of_string
        ~of_json:AttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Label =
  struct
    type nonrec t = string
    let context_ = "label"
    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:"label" j
    let to_json = simple_to_json to_value
  end
module EndpointDisabledException =
  struct
    type nonrec t =
      {
      message: String__lc1.t option
        [@ocaml.doc "Message for endpoint disabled."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Exception error indicating endpoint disabled."]
module InvalidParameterValueException =
  struct
    type nonrec t =
      {
      message: String__lc1.t option
        [@ocaml.doc
          "The parameter of an entry in a request doesn't abide by the specification."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that a request parameter does not comply with the associated constraints."]
module KMSAccessDeniedException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ciphertext references a key that doesn't exist or that you don't have access to."]
module KMSDisabledException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because the specified Amazon Web Services KMS key isn't enabled."]
module KMSInvalidStateException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because the state of the specified resource isn't valid for this request. For more information, see Key states of Amazon Web Services KMS keys in the Key Management Service Developer Guide."]
module KMSNotFoundException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because the specified entity or resource can't be found."]
module KMSOptInRequired =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services access key ID needs a subscription for the service."]
module KMSThrottlingException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied due to request throttling. For more information about throttling, see Limits in the Key Management Service Developer Guide."]
module PlatformApplicationDisabledException =
  struct
    type nonrec t =
      {
      message: String__lc1.t option
        [@ocaml.doc "Message for platform application disabled."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception error indicating platform application disabled."]
module ValidationException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that a parameter in the request is invalid."]
module BatchEntryIdsNotDistinctException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Two or more batch entries in the request have the same Id."]
module BatchRequestTooLongException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The length of all the batch messages put together is more than the limit."]
module BatchResultErrorEntryList =
  struct
    type nonrec t = BatchResultErrorEntry.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:BatchResultErrorEntry.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:BatchResultErrorEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchResultErrorEntryList"
        ~of_json:BatchResultErrorEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmptyBatchRequestException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The batch request doesn't contain any entries."]
module InvalidBatchEntryIdException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Id of a batch entry in a batch request doesn't abide by the specification."]
module PublishBatchResultEntryList =
  struct
    type nonrec t = PublishBatchResultEntry.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:PublishBatchResultEntry.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:PublishBatchResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PublishBatchResultEntryList"
        ~of_json:PublishBatchResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module TooManyEntriesInBatchRequestException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The batch request contains more entries than permissible (more than 10)."]
module PublishBatchRequestEntryList =
  struct
    type nonrec t = PublishBatchRequestEntry.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:PublishBatchRequestEntry.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:PublishBatchRequestEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PublishBatchRequestEntryList"
        ~of_json:PublishBatchRequestEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module TopicsList =
  struct
    type nonrec t = Topic.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:Topic.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:Topic.of_xml)
    let of_json j = list_of_json ~kind:"TopicsList" ~of_json:Topic.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "nextToken"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"nextToken" j
    let to_json = simple_to_json to_value
  end
module SubscriptionsList =
  struct
    type nonrec t = Subscription.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:Subscription.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:Subscription.of_xml)
    let of_json j =
      list_of_json ~kind:"SubscriptionsList" ~of_json:Subscription.of_json j
    let to_json v = composed_to_json to_value v
  end
module SMSSandboxPhoneNumberList =
  struct
    type nonrec t = SMSSandboxPhoneNumber.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:SMSSandboxPhoneNumber.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:SMSSandboxPhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"SMSSandboxPhoneNumberList"
        ~of_json:SMSSandboxPhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxItems =
  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 MaxItems" 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 ListOfPlatformApplications =
  struct
    type nonrec t = PlatformApplication.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:PlatformApplication.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:PlatformApplication.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfPlatformApplications"
        ~of_json:PlatformApplication.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberList =
  struct
    type nonrec t = PhoneNumber.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumber.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberList" ~of_json:PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberInformationList =
  struct
    type nonrec t = PhoneNumberInformation.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:PhoneNumberInformation.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:PhoneNumberInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberInformationList"
        ~of_json:PhoneNumberInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxItemsListOriginationNumbers =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:30) >>= (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 MaxItemsListOriginationNumbers"
           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 ListOfEndpoints =
  struct
    type nonrec t = Endpoint.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:Endpoint.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:Endpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfEndpoints" ~of_json:Endpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module TopicAttributesMap =
  struct
    type nonrec t = (AttributeName.t * AttributeValue.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 ->
                            ((AttributeName.of_string chopped),
                              (AttributeValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AttributeName.to_value x) |>
                    (fun x ->
                       (AttributeValue.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:AttributeName.of_string
        ~of_json:AttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListString =
  struct
    type nonrec t = String_.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:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ListString" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserErrorException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that a request parameter does not comply with the associated constraints."]
module TopicLimitExceededException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the customer already owns the maximum allowed number of topics."]
module TopicName =
  struct
    type nonrec t = string
    let context_ = "topicName"
    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:"topicName" j
    let to_json = simple_to_json to_value
  end
module OptedOutException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the specified phone number opted out of receiving SMS messages from your Amazon Web Services account. You can't send SMS messages to phone numbers that opt out."]
module LanguageCodeString =
  struct
    type nonrec t =
      | En_US 
      | En_GB 
      | Es_419 
      | Es_ES 
      | De_DE 
      | Fr_CA 
      | Fr_FR 
      | It_IT 
      | Ja_JP 
      | Pt_BR 
      | Kr_KR 
      | Zh_CN 
      | Zh_TW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | En_US -> "en-US"
      | En_GB -> "en-GB"
      | Es_419 -> "es-419"
      | Es_ES -> "es-ES"
      | De_DE -> "de-DE"
      | Fr_CA -> "fr-CA"
      | Fr_FR -> "fr-FR"
      | It_IT -> "it-IT"
      | Ja_JP -> "ja-JP"
      | Pt_BR -> "pt-BR"
      | Kr_KR -> "kr-KR"
      | Zh_CN -> "zh-CN"
      | Zh_TW -> "zh-TW"
      | Non_static_id s -> s
    let of_string =
      function
      | "en-US" -> En_US
      | "en-GB" -> En_GB
      | "es-419" -> Es_419
      | "es-ES" -> Es_ES
      | "de-DE" -> De_DE
      | "fr-CA" -> Fr_CA
      | "fr-FR" -> Fr_FR
      | "it-IT" -> It_IT
      | "ja-JP" -> Ja_JP
      | "pt-BR" -> Pt_BR
      | "kr-KR" -> Kr_KR
      | "zh-CN" -> Zh_CN
      | "zh-TW" -> Zh_TW
      | 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 LanguageCodeString" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LanguageCodeString" j)
    let to_json = simple_to_json to_value
  end
module AuthenticateOnUnsubscribe =
  struct
    type nonrec t = string
    let context_ = "authenticateOnUnsubscribe"
    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:"authenticateOnUnsubscribe" j
    let to_json = simple_to_json to_value
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "token"
    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:"token" j
    let to_json = simple_to_json to_value
  end
module ActionsList =
  struct
    type nonrec t = Action.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:Action.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:Action.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionsList" ~of_json:Action.of_json j
    let to_json v = composed_to_json to_value v
  end
module DelegatesList =
  struct
    type nonrec t = Delegate.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:Delegate.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:Delegate.of_xml)
    let of_json j =
      list_of_json ~kind:"DelegatesList" ~of_json:Delegate.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerifySMSSandboxPhoneNumberResult =
  struct
    type verifySMSSandboxPhoneNumberResult = unit
    and responseMetaData = unit
    and t =
      {
      verifySMSSandboxPhoneNumberResult: verifySMSSandboxPhoneNumberResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledException of ThrottledException.t 
      | `VerificationException of VerificationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () =
      { verifySMSSandboxPhoneNumberResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | "VerificationException" ->
          `VerificationException (VerificationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | "VerificationException" ->
          `VerificationException (VerificationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `VerificationException e ->
          `Assoc
            [("error", (`String "VerificationException"));
            ("details", (VerificationException.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 "The destination phone number's verification status."]
module VerifySMSSandboxPhoneNumberInput =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumberString.t
        [@ocaml.doc "The destination phone number to verify."];
      oneTimePassword: OTPCode.t
        [@ocaml.doc
          "The OTP sent to the destination number from the CreateSMSSandBoxPhoneNumber call."]}
    let context_ = "VerifySMSSandboxPhoneNumberInput"
    let make ~phoneNumber =
      fun ~oneTimePassword -> fun () -> { phoneNumber; oneTimePassword }
    let to_value x =
      structure_to_value
        [("PhoneNumber", (Some (PhoneNumberString.to_value x.phoneNumber)));
        ("OneTimePassword", (Some (OTPCode.to_value x.oneTimePassword)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oneTimePassword =
        OTPCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OneTimePassword") in
      let phoneNumber =
        PhoneNumberString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumber") in
      make ~oneTimePassword ~phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oneTimePassword =
        field_map_exn json__ "OneTimePassword" OTPCode.of_json in
      let phoneNumber =
        field_map_exn json__ "PhoneNumber" PhoneNumberString.of_json in
      make ~oneTimePassword ~phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies a destination phone number with a one-time password (OTP) for the calling Amazon Web Services account. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module UntagResourceResponse =
  struct
    type untagResourceResult = unit
    and responseMetaData = unit
    and t =
      {
      untagResourceResult: untagResourceResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `ConcurrentAccessException of ConcurrentAccessException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `StaleTagException of StaleTagException.t 
      | `TagLimitExceededException of TagLimitExceededException.t 
      | `TagPolicyException of TagPolicyException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { untagResourceResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "StaleTagException" ->
          `StaleTagException (StaleTagException.of_json json)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_json json)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "StaleTagException" ->
          `StaleTagException (StaleTagException.of_xml xml)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_xml xml)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `ConcurrentAccessException e ->
          `Assoc
            [("error", (`String "ConcurrentAccessException"));
            ("details", (ConcurrentAccessException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `StaleTagException e ->
          `Assoc
            [("error", (`String "StaleTagException"));
            ("details", (StaleTagException.to_json e))]
      | `TagLimitExceededException e ->
          `Assoc
            [("error", (`String "TagLimitExceededException"));
            ("details", (TagLimitExceededException.to_json e))]
      | `TagPolicyException e ->
          `Assoc
            [("error", (`String "TagPolicyException"));
            ("details", (TagPolicyException.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
       "Remove tags from the specified Amazon SNS topic. For an overview, see Amazon SNS Tags in the Amazon SNS Developer Guide."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc "The ARN of the topic from which to remove tags."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The list of tag keys to remove from the specified topic."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove tags from the specified Amazon SNS topic. For an overview, see Amazon SNS Tags in the Amazon SNS Developer Guide."]
module UnsubscribeInput =
  struct
    type nonrec t =
      {
      subscriptionArn: SubscriptionARN.t
        [@ocaml.doc "The ARN of the subscription to be deleted."]}
    let context_ = "UnsubscribeInput"
    let make ~subscriptionArn = fun () -> { subscriptionArn }
    let to_value x =
      structure_to_value
        [("SubscriptionArn",
           (Some (SubscriptionARN.to_value x.subscriptionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscriptionArn =
        SubscriptionARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionArn") in
      make ~subscriptionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionArn =
        field_map_exn json__ "SubscriptionArn" SubscriptionARN.of_json in
      make ~subscriptionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for Unsubscribe action."]
module TagResourceResponse =
  struct
    type tagResourceResult = unit
    and responseMetaData = unit
    and t =
      {
      tagResourceResult: tagResourceResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `ConcurrentAccessException of ConcurrentAccessException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `StaleTagException of StaleTagException.t 
      | `TagLimitExceededException of TagLimitExceededException.t 
      | `TagPolicyException of TagPolicyException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { tagResourceResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "StaleTagException" ->
          `StaleTagException (StaleTagException.of_json json)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_json json)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "StaleTagException" ->
          `StaleTagException (StaleTagException.of_xml xml)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_xml xml)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `ConcurrentAccessException e ->
          `Assoc
            [("error", (`String "ConcurrentAccessException"));
            ("details", (ConcurrentAccessException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `StaleTagException e ->
          `Assoc
            [("error", (`String "StaleTagException"));
            ("details", (StaleTagException.to_json e))]
      | `TagLimitExceededException e ->
          `Assoc
            [("error", (`String "TagLimitExceededException"));
            ("details", (TagLimitExceededException.to_json e))]
      | `TagPolicyException e ->
          `Assoc
            [("error", (`String "TagPolicyException"));
            ("details", (TagPolicyException.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
       "Add tags to the specified Amazon SNS topic. For an overview, see Amazon SNS Tags in the Amazon SNS Developer Guide. When you use topic tags, keep the following guidelines in mind: Adding more than 50 tags to a topic isn't recommended. Tags don't have any semantic meaning. Amazon SNS interprets tags as character strings. Tags are case-sensitive. A new tag with a key identical to that of an existing tag overwrites the existing tag. Tagging actions are limited to 10 TPS per Amazon Web Services account, per Amazon Web Services Region. If your application requires a higher throughput, file a technical support request."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc "The ARN of the topic to which to add tags."];
      tags: TagList.t
        [@ocaml.doc
          "The tags to be added to the specified topic. A tag consists of a required key and an optional value."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add tags to the specified Amazon SNS topic. For an overview, see Amazon SNS Tags in the Amazon SNS Developer Guide. When you use topic tags, keep the following guidelines in mind: Adding more than 50 tags to a topic isn't recommended. Tags don't have any semantic meaning. Amazon SNS interprets tags as character strings. Tags are case-sensitive. A new tag with a key identical to that of an existing tag overwrites the existing tag. Tagging actions are limited to 10 TPS per Amazon Web Services account, per Amazon Web Services Region. If your application requires a higher throughput, file a technical support request."]
module SubscribeResponse =
  struct
    type subscribeResult =
      {
      subscriptionArn: SubscriptionARN.t option
        [@ocaml.doc
          "The ARN of the subscription if it is confirmed, or the string \"pending confirmation\" if the subscription requires confirmation. However, if the API request parameter ReturnSubscriptionArn is true, then the value is always the subscription ARN, even if the subscription requires confirmation."]}
    and responseMetaData = unit
    and t =
      {
      subscribeResult: subscribeResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `FilterPolicyLimitExceededException of
          FilterPolicyLimitExceededException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidSecurityException of InvalidSecurityException.t 
      | `NotFoundException of NotFoundException.t 
      | `ReplayLimitExceededException of ReplayLimitExceededException.t 
      | `SubscriptionLimitExceededException of
          SubscriptionLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "SubscribeResponse"
    let make ?subscriptionArn =
      fun () ->
        { subscribeResult = { subscriptionArn }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "FilterPolicyLimitExceededException" ->
          `FilterPolicyLimitExceededException
            (FilterPolicyLimitExceededException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ReplayLimitExceededException" ->
          `ReplayLimitExceededException
            (ReplayLimitExceededException.of_json json)
      | "SubscriptionLimitExceededException" ->
          `SubscriptionLimitExceededException
            (SubscriptionLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "FilterPolicyLimitExceededException" ->
          `FilterPolicyLimitExceededException
            (FilterPolicyLimitExceededException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ReplayLimitExceededException" ->
          `ReplayLimitExceededException
            (ReplayLimitExceededException.of_xml xml)
      | "SubscriptionLimitExceededException" ->
          `SubscriptionLimitExceededException
            (SubscriptionLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `FilterPolicyLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterPolicyLimitExceededException"));
            ("details", (FilterPolicyLimitExceededException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidSecurityException e ->
          `Assoc
            [("error", (`String "InvalidSecurityException"));
            ("details", (InvalidSecurityException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ReplayLimitExceededException e ->
          `Assoc
            [("error", (`String "ReplayLimitExceededException"));
            ("details", (ReplayLimitExceededException.to_json e))]
      | `SubscriptionLimitExceededException e ->
          `Assoc
            [("error", (`String "SubscriptionLimitExceededException"));
            ("details", (SubscriptionLimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.subscribeResult in
      structure_to_wrapped_value
        [("SubscriptionArn",
           (Option.map x.subscriptionArn ~f:SubscriptionARN.to_value))]
        ~wrapper:"SubscribeResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "SubscribeResult" in
      let subscriptionArn =
        (Option.map ~f:SubscriptionARN.of_xml)
          (Xml.child xml_arg0 "SubscriptionArn") in
      make ?subscriptionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionArn =
        field_map json__ "SubscriptionArn" SubscriptionARN.of_json in
      make ?subscriptionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for Subscribe action."]
module SubscribeInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc "The ARN of the topic you want to subscribe to."];
      protocol: Protocol.t
        [@ocaml.doc
          "The protocol that you want to use. Supported protocols include: http \226\128\147 delivery of JSON-encoded message via HTTP POST https \226\128\147 delivery of JSON-encoded message via HTTPS POST email \226\128\147 delivery of message via SMTP email-json \226\128\147 delivery of JSON-encoded message via SMTP sms \226\128\147 delivery of message via SMS sqs \226\128\147 delivery of JSON-encoded message to an Amazon SQS queue application \226\128\147 delivery of JSON-encoded message to an EndpointArn for a mobile app and device lambda \226\128\147 delivery of JSON-encoded message to an Lambda function firehose \226\128\147 delivery of JSON-encoded message to an Amazon Data Firehose delivery stream."];
      endpoint: Endpoint__lc1.t option
        [@ocaml.doc
          "The endpoint that you want to receive notifications. Endpoints vary by protocol: For the http protocol, the (public) endpoint is a URL beginning with http://. For the https protocol, the (public) endpoint is a URL beginning with https://. For the email protocol, the endpoint is an email address. For the email-json protocol, the endpoint is an email address. For the sms protocol, the endpoint is a phone number of an SMS-enabled device. For the sqs protocol, the endpoint is the ARN of an Amazon SQS queue. For the application protocol, the endpoint is the EndpointArn of a mobile app and device. For the lambda protocol, the endpoint is the ARN of an Lambda function. For the firehose protocol, the endpoint is the ARN of an Amazon Data Firehose delivery stream."];
      attributes: SubscriptionAttributesMap.t option
        [@ocaml.doc
          "A map of attributes with their corresponding values. The following lists the names, descriptions, and values of the special request parameters that the Subscribe action uses: DeliveryPolicy \226\128\147 The policy that defines how Amazon SNS retries failed deliveries to HTTP/S endpoints. FilterPolicy \226\128\147 The simple JSON object that lets your subscriber receive only a subset of messages, rather than receiving every message published to the topic. FilterPolicyScope \226\128\147 This attribute lets you choose the filtering scope by using one of the following string value types: MessageAttributes (default) \226\128\147 The filter is applied on the message attributes. MessageBody \226\128\147 The filter is applied on the message body. RawMessageDelivery \226\128\147 When set to true, enables raw message delivery to Amazon SQS or HTTP/S endpoints. This eliminates the need for the endpoints to process JSON formatting, which is otherwise created for Amazon SNS metadata. RedrivePolicy \226\128\147 When specified, sends undeliverable messages to the specified Amazon SQS dead-letter queue. Messages that can't be delivered due to client errors (for example, when the subscribed endpoint is unreachable) or server errors (for example, when the service that powers the subscribed endpoint becomes unavailable) are held in the dead-letter queue for further analysis or reprocessing. The following attribute applies only to Amazon Data Firehose delivery stream subscriptions: SubscriptionRoleArn \226\128\147 The ARN of the IAM role that has the following: Permission to write to the Firehose delivery stream Amazon SNS listed as a trusted entity Specifying a valid ARN for this attribute is required for Firehose delivery stream subscriptions. For more information, see Fanout to Firehose delivery streams in the Amazon SNS Developer Guide. The following attributes apply only to FIFO topics: ReplayPolicy \226\128\147 Adds or updates an inline policy document for a subscription to replay messages stored in the specified Amazon SNS topic. ReplayStatus \226\128\147 Retrieves the status of the subscription message replay, which can be one of the following: Completed \226\128\147 The replay has successfully redelivered all messages, and is now delivering newly published messages. If an ending point was specified in the ReplayPolicy then the subscription will no longer receive newly published messages. In progress \226\128\147 The replay is currently replaying the selected messages. Failed \226\128\147 The replay was unable to complete. Pending \226\128\147 The default state while the replay initiates."];
      returnSubscriptionArn: Boolean.t option
        [@ocaml.doc
          "Sets whether the response from the Subscribe request includes the subscription ARN, even if the subscription is not yet confirmed. If you set this parameter to true, the response includes the ARN in all cases, even if the subscription is not yet confirmed. In addition to the ARN for confirmed subscriptions, the response also includes the pending subscription ARN value for subscriptions that aren't yet confirmed. A subscription becomes confirmed when the subscriber calls the ConfirmSubscription action with a confirmation token. The default value is false."]}
    let context_ = "SubscribeInput"
    let make ?endpoint =
      fun ?attributes ->
        fun ?returnSubscriptionArn ->
          fun ~topicArn ->
            fun ~protocol ->
              fun () ->
                {
                  endpoint;
                  attributes;
                  returnSubscriptionArn;
                  topicArn;
                  protocol
                }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("Protocol", (Some (Protocol.to_value x.protocol)));
        ("Endpoint", (Option.map x.endpoint ~f:Endpoint__lc1.to_value));
        ("Attributes",
          (Option.map x.attributes ~f:SubscriptionAttributesMap.to_value));
        ("ReturnSubscriptionArn",
          (Option.map x.returnSubscriptionArn ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnSubscriptionArn =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ReturnSubscriptionArn") in
      let attributes =
        (Option.map ~f:SubscriptionAttributesMap.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let endpoint =
        (Option.map ~f:Endpoint__lc1.of_xml) (Xml.child xml_arg0 "Endpoint") in
      let protocol =
        Protocol.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Protocol") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ?returnSubscriptionArn ?attributes ?endpoint ~protocol ~topicArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnSubscriptionArn =
        field_map json__ "ReturnSubscriptionArn" Boolean.of_json in
      let attributes =
        field_map json__ "Attributes" SubscriptionAttributesMap.of_json in
      let endpoint = field_map json__ "Endpoint" Endpoint__lc1.of_json in
      let protocol = field_map_exn json__ "Protocol" Protocol.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ?returnSubscriptionArn ?attributes ?endpoint ~protocol ~topicArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for Subscribe action."]
module SetTopicAttributesInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t [@ocaml.doc "The ARN of the topic to modify."];
      attributeName: AttributeName.t
        [@ocaml.doc
          "A map of attributes with their corresponding values. The following lists the names, descriptions, and values of the special request parameters that the SetTopicAttributes action uses: DeliveryPolicy \226\128\147 The policy that defines how Amazon SNS retries failed deliveries to HTTP/S endpoints. DisplayName \226\128\147 The display name to use for a topic with SMS subscriptions. Policy \226\128\147 The policy that defines who can access your topic. By default, only the topic owner can publish or subscribe to the topic. TracingConfig \226\128\147 Tracing mode of an Amazon SNS topic. By default TracingConfig is set to PassThrough, and the topic passes through the tracing header it receives from an Amazon SNS publisher to its subscriptions. If set to Active, Amazon SNS will vend X-Ray segment data to topic owner account if the sampled flag in the tracing header is true. This is only supported on standard topics. HTTP HTTPSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an HTTP endpoint. HTTPSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an HTTP endpoint. HTTPFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an HTTP endpoint. Amazon Data Firehose FirehoseSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an Amazon Data Firehose endpoint. FirehoseSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an Amazon Data Firehose endpoint. FirehoseFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an Amazon Data Firehose endpoint. Lambda LambdaSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an Lambda endpoint. LambdaSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an Lambda endpoint. LambdaFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an Lambda endpoint. Platform application endpoint ApplicationSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an platform application endpoint. ApplicationSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an platform application endpoint. ApplicationFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an platform application endpoint. In addition to being able to configure topic attributes for message delivery status of notification messages sent to Amazon SNS application endpoints, you can also configure application attributes for the delivery status of push notification messages sent to push notification services. For example, For more information, see Using Amazon SNS Application Attributes for Message Delivery Status. Amazon SQS SQSSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an Amazon SQS endpoint. SQSSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an Amazon SQS endpoint. SQSFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an Amazon SQS endpoint. The <ENDPOINT>SuccessFeedbackRoleArn and <ENDPOINT>FailureFeedbackRoleArn attributes are used to give Amazon SNS write access to use CloudWatch Logs on your behalf. The <ENDPOINT>SuccessFeedbackSampleRate attribute is for specifying the sample rate percentage (0-100) of successfully delivered messages. After you configure the <ENDPOINT>FailureFeedbackRoleArn attribute, then all failed message deliveries generate CloudWatch Logs. The following attribute applies only to server-side-encryption: KmsMasterKeyId \226\128\147 The ID of an Amazon Web Services managed customer master key (CMK) for Amazon SNS or a custom CMK. For more information, see Key Terms. For more examples, see KeyId in the Key Management Service API Reference. SignatureVersion \226\128\147 The signature version corresponds to the hashing algorithm used while creating the signature of the notifications, subscription confirmations, or unsubscribe confirmation messages sent by Amazon SNS. By default, SignatureVersion is set to 1. The following attribute applies only to FIFO topics: ArchivePolicy \226\128\147 The policy that sets the retention period for messages stored in the message archive of an Amazon SNS FIFO topic. ContentBasedDeduplication \226\128\147 Enables content-based deduplication for FIFO topics. By default, ContentBasedDeduplication is set to false. If you create a FIFO topic and this attribute is false, you must specify a value for the MessageDeduplicationId parameter for the Publish action. When you set ContentBasedDeduplication to true, Amazon SNS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). (Optional) To override the generated value, you can specify a value for the MessageDeduplicationId parameter for the Publish action. FifoThroughputScope \226\128\147 Enables higher throughput for your FIFO topic by adjusting the scope of deduplication. This attribute has two possible values: Topic \226\128\147 The scope of message deduplication is across the entire topic. This is the default value and maintains existing behavior, with a maximum throughput of 3000 messages per second or 20MB per second, whichever comes first. MessageGroup \226\128\147 The scope of deduplication is within each individual message group, which enables higher throughput per topic subject to regional quotas. For more information on quotas or to request an increase, see Amazon SNS service quotas in the Amazon Web Services General Reference."];
      attributeValue: AttributeValue.t option
        [@ocaml.doc "The new value for the attribute."]}
    let context_ = "SetTopicAttributesInput"
    let make ?attributeValue =
      fun ~topicArn ->
        fun ~attributeName ->
          fun () -> { attributeValue; topicArn; attributeName }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("AttributeName", (Some (AttributeName.to_value x.attributeName)));
        ("AttributeValue",
          (Option.map x.attributeValue ~f:AttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeValue =
        (Option.map ~f:AttributeValue.of_xml)
          (Xml.child xml_arg0 "AttributeValue") in
      let attributeName =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeName") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ?attributeValue ~attributeName ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeValue =
        field_map json__ "AttributeValue" AttributeValue.of_json in
      let attributeName =
        field_map_exn json__ "AttributeName" AttributeName.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ?attributeValue ~attributeName ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for SetTopicAttributes action."]
module SetSubscriptionAttributesInput =
  struct
    type nonrec t =
      {
      subscriptionArn: SubscriptionARN.t
        [@ocaml.doc "The ARN of the subscription to modify."];
      attributeName: AttributeName.t
        [@ocaml.doc
          "A map of attributes with their corresponding values. The following lists the names, descriptions, and values of the special request parameters that this action uses: DeliveryPolicy \226\128\147 The policy that defines how Amazon SNS retries failed deliveries to HTTP/S endpoints. FilterPolicy \226\128\147 The simple JSON object that lets your subscriber receive only a subset of messages, rather than receiving every message published to the topic. FilterPolicyScope \226\128\147 This attribute lets you choose the filtering scope by using one of the following string value types: MessageAttributes (default) \226\128\147 The filter is applied on the message attributes. MessageBody \226\128\147 The filter is applied on the message body. RawMessageDelivery \226\128\147 When set to true, enables raw message delivery to Amazon SQS or HTTP/S endpoints. This eliminates the need for the endpoints to process JSON formatting, which is otherwise created for Amazon SNS metadata. RedrivePolicy \226\128\147 When specified, sends undeliverable messages to the specified Amazon SQS dead-letter queue. Messages that can't be delivered due to client errors (for example, when the subscribed endpoint is unreachable) or server errors (for example, when the service that powers the subscribed endpoint becomes unavailable) are held in the dead-letter queue for further analysis or reprocessing. The following attribute applies only to Amazon Data Firehose delivery stream subscriptions: SubscriptionRoleArn \226\128\147 The ARN of the IAM role that has the following: Permission to write to the Firehose delivery stream Amazon SNS listed as a trusted entity Specifying a valid ARN for this attribute is required for Firehose delivery stream subscriptions. For more information, see Fanout to Firehose delivery streams in the Amazon SNS Developer Guide."];
      attributeValue: AttributeValue.t option
        [@ocaml.doc "The new value for the attribute in JSON format."]}
    let context_ = "SetSubscriptionAttributesInput"
    let make ?attributeValue =
      fun ~subscriptionArn ->
        fun ~attributeName ->
          fun () -> { attributeValue; subscriptionArn; attributeName }
    let to_value x =
      structure_to_value
        [("SubscriptionArn",
           (Some (SubscriptionARN.to_value x.subscriptionArn)));
        ("AttributeName", (Some (AttributeName.to_value x.attributeName)));
        ("AttributeValue",
          (Option.map x.attributeValue ~f:AttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeValue =
        (Option.map ~f:AttributeValue.of_xml)
          (Xml.child xml_arg0 "AttributeValue") in
      let attributeName =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeName") in
      let subscriptionArn =
        SubscriptionARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionArn") in
      make ?attributeValue ~attributeName ~subscriptionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeValue =
        field_map json__ "AttributeValue" AttributeValue.of_json in
      let attributeName =
        field_map_exn json__ "AttributeName" AttributeName.of_json in
      let subscriptionArn =
        field_map_exn json__ "SubscriptionArn" SubscriptionARN.of_json in
      make ?attributeValue ~attributeName ~subscriptionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for SetSubscriptionAttributes action."]
module SetSMSAttributesResponse =
  struct
    type setSMSAttributesResult = unit
    and responseMetaData = unit
    and t =
      {
      setSMSAttributesResult: setSMSAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { setSMSAttributesResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.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 "The response for the SetSMSAttributes action."]
module SetSMSAttributesInput =
  struct
    type nonrec t =
      {
      attributes: MapStringToString.t
        [@ocaml.doc
          "The default settings for sending SMS messages from your Amazon Web Services account. You can set values for the following attribute names: MonthlySpendLimit \226\128\147 The maximum amount in USD that you are willing to spend each month to send SMS messages. When Amazon SNS determines that sending an SMS message would incur a cost that exceeds this limit, it stops sending SMS messages within minutes. Amazon SNS stops sending SMS messages within minutes of the limit being crossed. During that interval, if you continue to send SMS messages, you will incur costs that exceed your limit. By default, the spend limit is set to the maximum allowed by Amazon SNS. If you want to raise the limit, submit an SNS Limit Increase case. For New limit value, enter your desired monthly spend limit. In the Use Case Description field, explain that you are requesting an SMS monthly spend limit increase. DeliveryStatusIAMRole \226\128\147 The ARN of the IAM role that allows Amazon SNS to write logs about SMS deliveries in CloudWatch Logs. For each SMS message that you send, Amazon SNS writes a log that includes the message price, the success or failure status, the reason for failure (if the message failed), the message dwell time, and other information. DeliveryStatusSuccessSamplingRate \226\128\147 The percentage of successful SMS deliveries for which Amazon SNS will write logs in CloudWatch Logs. The value can be an integer from 0 - 100. For example, to write logs only for failed deliveries, set this value to 0. To write logs for 10% of your successful deliveries, set it to 10. DefaultSenderID \226\128\147 A string, such as your business brand, that is displayed as the sender on the receiving device. Support for sender IDs varies by country. The sender ID can be 1 - 11 alphanumeric characters, and it must contain at least one letter. DefaultSMSType \226\128\147 The type of SMS message that you will send by default. You can assign the following values: Promotional \226\128\147 (Default) Noncritical messages, such as marketing messages. Amazon SNS optimizes the message delivery to incur the lowest cost. Transactional \226\128\147 Critical messages that support customer transactions, such as one-time passcodes for multi-factor authentication. Amazon SNS optimizes the message delivery to achieve the highest reliability. UsageReportS3Bucket \226\128\147 The name of the Amazon S3 bucket to receive daily SMS usage reports from Amazon SNS. Each day, Amazon SNS will deliver a usage report as a CSV file to the bucket. The report includes the following information for each SMS message that was successfully delivered by your Amazon Web Services account: Time that the message was published (in UTC) Message ID Destination phone number Message type Delivery status Message price (in USD) Part number (a message is split into multiple parts if it is too long for a single message) Total number of parts To receive the report, the bucket must have a policy that allows the Amazon SNS service principal to perform the s3:PutObject and s3:GetBucketLocation actions. For an example bucket policy and usage report, see Monitoring SMS Activity in the Amazon SNS Developer Guide."]}
    let context_ = "SetSMSAttributesInput"
    let make ~attributes = fun () -> { attributes }
    let to_value x =
      structure_to_value
        [("attributes", (Some (MapStringToString.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        MapStringToString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      make ~attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "attributes" MapStringToString.of_json in
      make ~attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the SetSMSAttributes action."]
module SetPlatformApplicationAttributesInput =
  struct
    type nonrec t =
      {
      platformApplicationArn: String_.t
        [@ocaml.doc
          "PlatformApplicationArn for SetPlatformApplicationAttributes action."];
      attributes: MapStringToString.t
        [@ocaml.doc
          "A map of the platform application attributes. Attributes in this map include the following: PlatformCredential \226\128\147 The credential received from the notification service. For ADM, PlatformCredentialis client secret. For Apple Services using certificate credentials, PlatformCredential is private key. For Apple Services using token credentials, PlatformCredential is signing key. For GCM (Firebase Cloud Messaging) using key credentials, there is no PlatformPrincipal. The PlatformCredential is API key. For GCM (Firebase Cloud Messaging) using token credentials, there is no PlatformPrincipal. The PlatformCredential is a JSON formatted private key file. When using the Amazon Web Services CLI, the file must be in string format and special characters must be ignored. To format the file correctly, Amazon SNS recommends using the following command: SERVICE_JSON=`jq \\@json <<< cat service.json`. PlatformPrincipal \226\128\147 The principal received from the notification service. For ADM, PlatformPrincipalis client id. For Apple Services using certificate credentials, PlatformPrincipal is SSL certificate. For Apple Services using token credentials, PlatformPrincipal is signing key ID. For GCM (Firebase Cloud Messaging), there is no PlatformPrincipal. EventEndpointCreated \226\128\147 Topic ARN to which EndpointCreated event notifications are sent. EventEndpointDeleted \226\128\147 Topic ARN to which EndpointDeleted event notifications are sent. EventEndpointUpdated \226\128\147 Topic ARN to which EndpointUpdate event notifications are sent. EventDeliveryFailure \226\128\147 Topic ARN to which DeliveryFailure event notifications are sent upon Direct Publish delivery failure (permanent) to one of the application's endpoints. SuccessFeedbackRoleArn \226\128\147 IAM role ARN used to give Amazon SNS write access to use CloudWatch Logs on your behalf. FailureFeedbackRoleArn \226\128\147 IAM role ARN used to give Amazon SNS write access to use CloudWatch Logs on your behalf. SuccessFeedbackSampleRate \226\128\147 Sample rate percentage (0-100) of successfully delivered messages. The following attributes only apply to APNs token-based authentication: ApplePlatformTeamID \226\128\147 The identifier that's assigned to your Apple developer account team. ApplePlatformBundleID \226\128\147 The bundle identifier that's assigned to your iOS app."]}
    let context_ = "SetPlatformApplicationAttributesInput"
    let make ~platformApplicationArn =
      fun ~attributes -> fun () -> { platformApplicationArn; attributes }
    let to_value x =
      structure_to_value
        [("PlatformApplicationArn",
           (Some (String_.to_value x.platformApplicationArn)));
        ("Attributes", (Some (MapStringToString.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        MapStringToString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let platformApplicationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlatformApplicationArn") in
      make ~attributes ~platformApplicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" MapStringToString.of_json in
      let platformApplicationArn =
        field_map_exn json__ "PlatformApplicationArn" String_.of_json in
      make ~attributes ~platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for SetPlatformApplicationAttributes action."]
module SetEndpointAttributesInput =
  struct
    type nonrec t =
      {
      endpointArn: String_.t
        [@ocaml.doc "EndpointArn used for SetEndpointAttributes action."];
      attributes: MapStringToString.t
        [@ocaml.doc
          "A map of the endpoint attributes. Attributes in this map include the following: CustomUserData \226\128\147 arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB. Enabled \226\128\147 flag that enables/disables delivery to the endpoint. Amazon SNS will set this to false when a notification service indicates to Amazon SNS that the endpoint is invalid. Users can set it back to true, typically after updating Token. Token \226\128\147 device token, also referred to as a registration id, for an app and mobile device. This is returned from the notification service when an app and mobile device are registered with the notification service."]}
    let context_ = "SetEndpointAttributesInput"
    let make ~endpointArn =
      fun ~attributes -> fun () -> { endpointArn; attributes }
    let to_value x =
      structure_to_value
        [("EndpointArn", (Some (String_.to_value x.endpointArn)));
        ("Attributes", (Some (MapStringToString.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        MapStringToString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let endpointArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointArn") in
      make ~attributes ~endpointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" MapStringToString.of_json in
      let endpointArn = field_map_exn json__ "EndpointArn" String_.of_json in
      make ~attributes ~endpointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for SetEndpointAttributes action."]
module RemovePermissionInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc
          "The ARN of the topic whose access control policy you wish to modify."];
      label: Label.t
        [@ocaml.doc "The unique label of the statement you want to remove."]}
    let context_ = "RemovePermissionInput"
    let make ~topicArn = fun ~label -> fun () -> { topicArn; label }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("Label", (Some (Label.to_value x.label)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let label =
        Label.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Label") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ~label ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let label = field_map_exn json__ "Label" Label.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ~label ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for RemovePermission action."]
module PutDataProtectionPolicyInput =
  struct
    type nonrec t =
      {
      resourceArn: TopicARN.t
        [@ocaml.doc
          "The ARN of the topic whose DataProtectionPolicy you want to add or update. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."];
      dataProtectionPolicy: AttributeValue.t
        [@ocaml.doc
          "The JSON serialization of the topic's DataProtectionPolicy. The DataProtectionPolicy must be in JSON string format. Length Constraints: Maximum length of 30,720."]}
    let context_ = "PutDataProtectionPolicyInput"
    let make ~resourceArn =
      fun ~dataProtectionPolicy ->
        fun () -> { resourceArn; dataProtectionPolicy }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TopicARN.to_value x.resourceArn)));
        ("DataProtectionPolicy",
          (Some (AttributeValue.to_value x.dataProtectionPolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataProtectionPolicy =
        AttributeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataProtectionPolicy") in
      let resourceArn =
        TopicARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~dataProtectionPolicy ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataProtectionPolicy =
        field_map_exn json__ "DataProtectionPolicy" AttributeValue.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" TopicARN.of_json in
      make ~dataProtectionPolicy ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates an inline policy document that is stored in the specified Amazon SNS topic."]
module PublishResponse =
  struct
    type publishResult =
      {
      messageId: MessageId.t option
        [@ocaml.doc
          "Unique identifier assigned to the published message. Length Constraint: Maximum 100 characters"];
      sequenceNumber: String_.t option
        [@ocaml.doc
          "This response element applies only to FIFO (first-in-first-out) topics. The sequence number is a large, non-consecutive number that Amazon SNS assigns to each message. The length of SequenceNumber is 128 bits. SequenceNumber continues to increase for each MessageGroupId."]}
    and responseMetaData = unit
    and t =
      {
      publishResult: publishResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `EndpointDisabledException of EndpointDisabledException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `InvalidSecurityException of InvalidSecurityException.t 
      | `KMSAccessDeniedException of KMSAccessDeniedException.t 
      | `KMSDisabledException of KMSDisabledException.t 
      | `KMSInvalidStateException of KMSInvalidStateException.t 
      | `KMSNotFoundException of KMSNotFoundException.t 
      | `KMSOptInRequired of KMSOptInRequired.t 
      | `KMSThrottlingException of KMSThrottlingException.t 
      | `NotFoundException of NotFoundException.t 
      | `PlatformApplicationDisabledException of
          PlatformApplicationDisabledException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "PublishResponse"
    let make ?messageId =
      fun ?sequenceNumber ->
        fun () ->
          {
            publishResult = { messageId; sequenceNumber };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "EndpointDisabledException" ->
          `EndpointDisabledException (EndpointDisabledException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_json json)
      | "KMSAccessDeniedException" ->
          `KMSAccessDeniedException (KMSAccessDeniedException.of_json json)
      | "KMSDisabledException" ->
          `KMSDisabledException (KMSDisabledException.of_json json)
      | "KMSInvalidStateException" ->
          `KMSInvalidStateException (KMSInvalidStateException.of_json json)
      | "KMSNotFoundException" ->
          `KMSNotFoundException (KMSNotFoundException.of_json json)
      | "KMSOptInRequired" ->
          `KMSOptInRequired (KMSOptInRequired.of_json json)
      | "KMSThrottlingException" ->
          `KMSThrottlingException (KMSThrottlingException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "PlatformApplicationDisabledException" ->
          `PlatformApplicationDisabledException
            (PlatformApplicationDisabledException.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
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "EndpointDisabledException" ->
          `EndpointDisabledException (EndpointDisabledException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_xml xml)
      | "KMSAccessDeniedException" ->
          `KMSAccessDeniedException (KMSAccessDeniedException.of_xml xml)
      | "KMSDisabledException" ->
          `KMSDisabledException (KMSDisabledException.of_xml xml)
      | "KMSInvalidStateException" ->
          `KMSInvalidStateException (KMSInvalidStateException.of_xml xml)
      | "KMSNotFoundException" ->
          `KMSNotFoundException (KMSNotFoundException.of_xml xml)
      | "KMSOptInRequired" -> `KMSOptInRequired (KMSOptInRequired.of_xml xml)
      | "KMSThrottlingException" ->
          `KMSThrottlingException (KMSThrottlingException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "PlatformApplicationDisabledException" ->
          `PlatformApplicationDisabledException
            (PlatformApplicationDisabledException.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
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `EndpointDisabledException e ->
          `Assoc
            [("error", (`String "EndpointDisabledException"));
            ("details", (EndpointDisabledException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `InvalidSecurityException e ->
          `Assoc
            [("error", (`String "InvalidSecurityException"));
            ("details", (InvalidSecurityException.to_json e))]
      | `KMSAccessDeniedException e ->
          `Assoc
            [("error", (`String "KMSAccessDeniedException"));
            ("details", (KMSAccessDeniedException.to_json e))]
      | `KMSDisabledException e ->
          `Assoc
            [("error", (`String "KMSDisabledException"));
            ("details", (KMSDisabledException.to_json e))]
      | `KMSInvalidStateException e ->
          `Assoc
            [("error", (`String "KMSInvalidStateException"));
            ("details", (KMSInvalidStateException.to_json e))]
      | `KMSNotFoundException e ->
          `Assoc
            [("error", (`String "KMSNotFoundException"));
            ("details", (KMSNotFoundException.to_json e))]
      | `KMSOptInRequired e ->
          `Assoc
            [("error", (`String "KMSOptInRequired"));
            ("details", (KMSOptInRequired.to_json e))]
      | `KMSThrottlingException e ->
          `Assoc
            [("error", (`String "KMSThrottlingException"));
            ("details", (KMSThrottlingException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `PlatformApplicationDisabledException e ->
          `Assoc
            [("error", (`String "PlatformApplicationDisabledException"));
            ("details", (PlatformApplicationDisabledException.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 t =
      let x = t.publishResult in
      structure_to_wrapped_value
        [("MessageId", (Option.map x.messageId ~f:MessageId.to_value));
        ("SequenceNumber", (Option.map x.sequenceNumber ~f:String_.to_value))]
        ~wrapper:"PublishResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "PublishResult" in
      let sequenceNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SequenceNumber") in
      let messageId =
        (Option.map ~f:MessageId.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?sequenceNumber ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "SequenceNumber" String_.of_json in
      let messageId = field_map json__ "MessageId" MessageId.of_json in
      make ?sequenceNumber ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for Publish action."]
module PublishInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t option
        [@ocaml.doc
          "The topic you want to publish to. If you don't specify a value for the TopicArn parameter, you must specify a value for the PhoneNumber or TargetArn parameters."];
      targetArn: String_.t option
        [@ocaml.doc
          "If you don't specify a value for the TargetArn parameter, you must specify a value for the PhoneNumber or TopicArn parameters."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The phone number to which you want to deliver an SMS message. Use E.164 format. If you don't specify a value for the PhoneNumber parameter, you must specify a value for the TargetArn or TopicArn parameters."];
      message: Message.t
        [@ocaml.doc
          "The message you want to send. If you are publishing to a topic and you want to send the same message to all transport protocols, include the text of the message as a String value. If you want to send different messages for each transport protocol, set the value of the MessageStructure parameter to json and use a JSON object for the Message parameter. Constraints: With the exception of SMS, messages must be UTF-8 encoded strings and at most 256 KB in size (262,144 bytes, not 262,144 characters). For SMS, each message can contain up to 140 characters. This character limit depends on the encoding schema. For example, an SMS message can contain 160 GSM characters, 140 ASCII characters, or 70 UCS-2 characters. If you publish a message that exceeds this size limit, Amazon SNS sends the message as multiple messages, each fitting within the size limit. Messages aren't truncated mid-word but are cut off at whole-word boundaries. The total size limit for a single SMS Publish action is 1,600 characters. JSON-specific constraints: Keys in the JSON object that correspond to supported transport protocols must have simple JSON string values. The values will be parsed (unescaped) before they are used in outgoing messages. Outbound notifications are JSON encoded (meaning that the characters will be reescaped for sending). Values have a minimum length of 0 (the empty string, \"\", is allowed). Values have a maximum length bounded by the overall message size (so, including multiple protocols may limit message sizes). Non-string values will cause the key to be ignored. Keys that do not correspond to supported transport protocols are ignored. Duplicate keys are not allowed. Failure to parse or validate any key or value in the message will cause the Publish call to return an error (no partial delivery)."];
      subject: Subject.t option
        [@ocaml.doc
          "Optional parameter to be used as the \"Subject\" line when the message is delivered to email endpoints. This field will also be included, if present, in the standard JSON messages delivered to other endpoints. Constraints: Subjects must be UTF-8 text with no line breaks or control characters, and less than 100 characters long."];
      messageStructure: MessageStructure.t option
        [@ocaml.doc
          "Set MessageStructure to json if you want to send a different message for each protocol. For example, using one publish action, you can send a short message to your SMS subscribers and a longer message to your email subscribers. If you set MessageStructure to json, the value of the Message parameter must: be a syntactically valid JSON object; and contain at least a top-level JSON key of \"default\" with a value that is a string. You can define other top-level keys that define the message you want to send to a specific transport protocol (e.g., \"http\"). Valid value: json"];
      messageAttributes: MessageAttributeMap.t option
        [@ocaml.doc "Message attributes for Publish action."];
      messageDeduplicationId: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) topics. The MessageDeduplicationId can contain up to 128 alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). Every message must have a unique MessageDeduplicationId, which is a token used for deduplication of sent messages within the 5 minute minimum deduplication interval. The scope of deduplication depends on the FifoThroughputScope attribute, when set to Topic the message deduplication scope is across the entire topic, when set to MessageGroup the message deduplication scope is within each individual message group. If a message with a particular MessageDeduplicationId is sent successfully, subsequent messages within the deduplication scope and interval, with the same MessageDeduplicationId, are accepted successfully but aren't delivered. Every message must have a unique MessageDeduplicationId: You may provide a MessageDeduplicationId explicitly. If you aren't able to provide a MessageDeduplicationId and you enable ContentBasedDeduplication for your topic, Amazon SNS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). If you don't provide a MessageDeduplicationId and the topic doesn't have ContentBasedDeduplication set, the action fails with an error. If the topic has a ContentBasedDeduplication set, your MessageDeduplicationId overrides the generated one. When ContentBasedDeduplication is in effect, messages with identical content sent within the deduplication scope and interval are treated as duplicates and only one copy of the message is delivered. If you send one message with ContentBasedDeduplication enabled, and then another message with a MessageDeduplicationId that is the same as the one generated for the first MessageDeduplicationId, the two messages are treated as duplicates, within the deduplication scope and interval, and only one copy of the message is delivered."];
      messageGroupId: String_.t option
        [@ocaml.doc
          "The MessageGroupId can contain up to 128 alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). For FIFO topics: The MessageGroupId is a tag that specifies that a message belongs to a specific message group. Messages that belong to the same message group are processed in a FIFO manner (however, messages in different message groups might be processed out of order). Every message must include a MessageGroupId. For standard topics: The MessageGroupId is optional and is forwarded only to Amazon SQS standard subscriptions to activate fair queues. The MessageGroupId is not used for, or sent to, any other endpoint types. When provided, the same validation rules apply as for FIFO topics."]}
    let context_ = "PublishInput"
    let make ?topicArn =
      fun ?targetArn ->
        fun ?phoneNumber ->
          fun ?subject ->
            fun ?messageStructure ->
              fun ?messageAttributes ->
                fun ?messageDeduplicationId ->
                  fun ?messageGroupId ->
                    fun ~message ->
                      fun () ->
                        {
                          topicArn;
                          targetArn;
                          phoneNumber;
                          subject;
                          messageStructure;
                          messageAttributes;
                          messageDeduplicationId;
                          messageGroupId;
                          message
                        }
    let to_value x =
      structure_to_value
        [("TopicArn", (Option.map x.topicArn ~f:TopicARN.to_value));
        ("TargetArn", (Option.map x.targetArn ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Message", (Some (Message.to_value x.message)));
        ("Subject", (Option.map x.subject ~f:Subject.to_value));
        ("MessageStructure",
          (Option.map x.messageStructure ~f:MessageStructure.to_value));
        ("MessageAttributes",
          (Option.map x.messageAttributes ~f:MessageAttributeMap.to_value));
        ("MessageDeduplicationId",
          (Option.map x.messageDeduplicationId ~f:String_.to_value));
        ("MessageGroupId", (Option.map x.messageGroupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageGroupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageGroupId") in
      let messageDeduplicationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MessageDeduplicationId") in
      let messageAttributes =
        (Option.map ~f:MessageAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageAttributes") in
      let messageStructure =
        (Option.map ~f:MessageStructure.of_xml)
          (Xml.child xml_arg0 "MessageStructure") in
      let subject =
        (Option.map ~f:Subject.of_xml) (Xml.child xml_arg0 "Subject") in
      let message =
        Message.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Message") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let targetArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TargetArn") in
      let topicArn =
        (Option.map ~f:TopicARN.of_xml) (Xml.child xml_arg0 "TopicArn") in
      make ?messageGroupId ?messageDeduplicationId ?messageAttributes
        ?messageStructure ?subject ~message ?phoneNumber ?targetArn ?topicArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageGroupId = field_map json__ "MessageGroupId" String_.of_json in
      let messageDeduplicationId =
        field_map json__ "MessageDeduplicationId" String_.of_json in
      let messageAttributes =
        field_map json__ "MessageAttributes" MessageAttributeMap.of_json in
      let messageStructure =
        field_map json__ "MessageStructure" MessageStructure.of_json in
      let subject = field_map json__ "Subject" Subject.of_json in
      let message = field_map_exn json__ "Message" Message.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let targetArn = field_map json__ "TargetArn" String_.of_json in
      let topicArn = field_map json__ "TopicArn" TopicARN.of_json in
      make ?messageGroupId ?messageDeduplicationId ?messageAttributes
        ?messageStructure ?subject ~message ?phoneNumber ?targetArn ?topicArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for Publish action."]
module PublishBatchResponse =
  struct
    type publishBatchResult =
      {
      successful: PublishBatchResultEntryList.t option
        [@ocaml.doc "A list of successful PublishBatch responses."];
      failed: BatchResultErrorEntryList.t option
        [@ocaml.doc "A list of failed PublishBatch responses."]}
    and responseMetaData = unit
    and t =
      {
      publishBatchResult: publishBatchResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `BatchEntryIdsNotDistinctException of
          BatchEntryIdsNotDistinctException.t 
      | `BatchRequestTooLongException of BatchRequestTooLongException.t 
      | `EmptyBatchRequestException of EmptyBatchRequestException.t 
      | `EndpointDisabledException of EndpointDisabledException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidBatchEntryIdException of InvalidBatchEntryIdException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `InvalidSecurityException of InvalidSecurityException.t 
      | `KMSAccessDeniedException of KMSAccessDeniedException.t 
      | `KMSDisabledException of KMSDisabledException.t 
      | `KMSInvalidStateException of KMSInvalidStateException.t 
      | `KMSNotFoundException of KMSNotFoundException.t 
      | `KMSOptInRequired of KMSOptInRequired.t 
      | `KMSThrottlingException of KMSThrottlingException.t 
      | `NotFoundException of NotFoundException.t 
      | `PlatformApplicationDisabledException of
          PlatformApplicationDisabledException.t 
      | `TooManyEntriesInBatchRequestException of
          TooManyEntriesInBatchRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "PublishBatchResponse"
    let make ?successful =
      fun ?failed ->
        fun () ->
          {
            publishBatchResult = { successful; failed };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "BatchEntryIdsNotDistinctException" ->
          `BatchEntryIdsNotDistinctException
            (BatchEntryIdsNotDistinctException.of_json json)
      | "BatchRequestTooLongException" ->
          `BatchRequestTooLongException
            (BatchRequestTooLongException.of_json json)
      | "EmptyBatchRequestException" ->
          `EmptyBatchRequestException
            (EmptyBatchRequestException.of_json json)
      | "EndpointDisabledException" ->
          `EndpointDisabledException (EndpointDisabledException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidBatchEntryIdException" ->
          `InvalidBatchEntryIdException
            (InvalidBatchEntryIdException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_json json)
      | "KMSAccessDeniedException" ->
          `KMSAccessDeniedException (KMSAccessDeniedException.of_json json)
      | "KMSDisabledException" ->
          `KMSDisabledException (KMSDisabledException.of_json json)
      | "KMSInvalidStateException" ->
          `KMSInvalidStateException (KMSInvalidStateException.of_json json)
      | "KMSNotFoundException" ->
          `KMSNotFoundException (KMSNotFoundException.of_json json)
      | "KMSOptInRequired" ->
          `KMSOptInRequired (KMSOptInRequired.of_json json)
      | "KMSThrottlingException" ->
          `KMSThrottlingException (KMSThrottlingException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "PlatformApplicationDisabledException" ->
          `PlatformApplicationDisabledException
            (PlatformApplicationDisabledException.of_json json)
      | "TooManyEntriesInBatchRequestException" ->
          `TooManyEntriesInBatchRequestException
            (TooManyEntriesInBatchRequestException.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
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "BatchEntryIdsNotDistinctException" ->
          `BatchEntryIdsNotDistinctException
            (BatchEntryIdsNotDistinctException.of_xml xml)
      | "BatchRequestTooLongException" ->
          `BatchRequestTooLongException
            (BatchRequestTooLongException.of_xml xml)
      | "EmptyBatchRequestException" ->
          `EmptyBatchRequestException (EmptyBatchRequestException.of_xml xml)
      | "EndpointDisabledException" ->
          `EndpointDisabledException (EndpointDisabledException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidBatchEntryIdException" ->
          `InvalidBatchEntryIdException
            (InvalidBatchEntryIdException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_xml xml)
      | "KMSAccessDeniedException" ->
          `KMSAccessDeniedException (KMSAccessDeniedException.of_xml xml)
      | "KMSDisabledException" ->
          `KMSDisabledException (KMSDisabledException.of_xml xml)
      | "KMSInvalidStateException" ->
          `KMSInvalidStateException (KMSInvalidStateException.of_xml xml)
      | "KMSNotFoundException" ->
          `KMSNotFoundException (KMSNotFoundException.of_xml xml)
      | "KMSOptInRequired" -> `KMSOptInRequired (KMSOptInRequired.of_xml xml)
      | "KMSThrottlingException" ->
          `KMSThrottlingException (KMSThrottlingException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "PlatformApplicationDisabledException" ->
          `PlatformApplicationDisabledException
            (PlatformApplicationDisabledException.of_xml xml)
      | "TooManyEntriesInBatchRequestException" ->
          `TooManyEntriesInBatchRequestException
            (TooManyEntriesInBatchRequestException.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
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `BatchEntryIdsNotDistinctException e ->
          `Assoc
            [("error", (`String "BatchEntryIdsNotDistinctException"));
            ("details", (BatchEntryIdsNotDistinctException.to_json e))]
      | `BatchRequestTooLongException e ->
          `Assoc
            [("error", (`String "BatchRequestTooLongException"));
            ("details", (BatchRequestTooLongException.to_json e))]
      | `EmptyBatchRequestException e ->
          `Assoc
            [("error", (`String "EmptyBatchRequestException"));
            ("details", (EmptyBatchRequestException.to_json e))]
      | `EndpointDisabledException e ->
          `Assoc
            [("error", (`String "EndpointDisabledException"));
            ("details", (EndpointDisabledException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidBatchEntryIdException e ->
          `Assoc
            [("error", (`String "InvalidBatchEntryIdException"));
            ("details", (InvalidBatchEntryIdException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `InvalidSecurityException e ->
          `Assoc
            [("error", (`String "InvalidSecurityException"));
            ("details", (InvalidSecurityException.to_json e))]
      | `KMSAccessDeniedException e ->
          `Assoc
            [("error", (`String "KMSAccessDeniedException"));
            ("details", (KMSAccessDeniedException.to_json e))]
      | `KMSDisabledException e ->
          `Assoc
            [("error", (`String "KMSDisabledException"));
            ("details", (KMSDisabledException.to_json e))]
      | `KMSInvalidStateException e ->
          `Assoc
            [("error", (`String "KMSInvalidStateException"));
            ("details", (KMSInvalidStateException.to_json e))]
      | `KMSNotFoundException e ->
          `Assoc
            [("error", (`String "KMSNotFoundException"));
            ("details", (KMSNotFoundException.to_json e))]
      | `KMSOptInRequired e ->
          `Assoc
            [("error", (`String "KMSOptInRequired"));
            ("details", (KMSOptInRequired.to_json e))]
      | `KMSThrottlingException e ->
          `Assoc
            [("error", (`String "KMSThrottlingException"));
            ("details", (KMSThrottlingException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `PlatformApplicationDisabledException e ->
          `Assoc
            [("error", (`String "PlatformApplicationDisabledException"));
            ("details", (PlatformApplicationDisabledException.to_json e))]
      | `TooManyEntriesInBatchRequestException e ->
          `Assoc
            [("error", (`String "TooManyEntriesInBatchRequestException"));
            ("details", (TooManyEntriesInBatchRequestException.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 t =
      let x = t.publishBatchResult in
      structure_to_wrapped_value
        [("Successful",
           (Option.map x.successful ~f:PublishBatchResultEntryList.to_value));
        ("Failed",
          (Option.map x.failed ~f:BatchResultErrorEntryList.to_value))]
        ~wrapper:"PublishBatchResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "PublishBatchResult" in
      let failed =
        (Option.map ~f:BatchResultErrorEntryList.of_xml)
          (Xml.child xml_arg0 "Failed") in
      let successful =
        (Option.map ~f:PublishBatchResultEntryList.of_xml)
          (Xml.child xml_arg0 "Successful") in
      make ?failed ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failed =
        field_map json__ "Failed" BatchResultErrorEntryList.of_json in
      let successful =
        field_map json__ "Successful" PublishBatchResultEntryList.of_json in
      make ?failed ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Publishes up to 10 messages to the specified topic in a single batch. This is a batch version of the Publish API. If you try to send more than 10 messages in a single batch request, you will receive a TooManyEntriesInBatchRequest exception. For FIFO topics, multiple messages within a single batch are published in the order they are sent, and messages are deduplicated within the batch and across batches for five minutes. The result of publishing each message is reported individually in the response. Because the batch request can result in a combination of successful and unsuccessful actions, you should check for batch errors even when the call returns an HTTP status code of 200. The maximum allowed individual message size and the maximum total payload size (the sum of the individual lengths of all of the batched messages) are both 256 KB (262,144 bytes). The PublishBatch API can send up to 10 messages at a time. If you attempt to send more than 10 messages in one request, you will encounter a TooManyEntriesInBatchRequest exception. In such cases, split your messages into multiple requests, each containing no more than 10 messages. Some actions take lists of parameters. These lists are specified using the param.n notation. Values of n are integers starting from 1. For example, a parameter list with two elements looks like this: &AttributeName.1=first &AttributeName.2=second If you send a batch message to a topic, Amazon SNS publishes the batch message to each endpoint that is subscribed to the topic. The format of the batch message depends on the notification protocol for each subscribed endpoint. When a messageId is returned, the batch message is saved, and Amazon SNS immediately delivers the message to subscribers."]
module PublishBatchInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the topic you want to batch publish to."];
      publishBatchRequestEntries: PublishBatchRequestEntryList.t
        [@ocaml.doc
          "A list of PublishBatch request entries to be sent to the SNS topic."]}
    let context_ = "PublishBatchInput"
    let make ~topicArn =
      fun ~publishBatchRequestEntries ->
        fun () -> { topicArn; publishBatchRequestEntries }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("PublishBatchRequestEntries",
          (Some
             (PublishBatchRequestEntryList.to_value
                x.publishBatchRequestEntries)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publishBatchRequestEntries =
        PublishBatchRequestEntryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PublishBatchRequestEntries") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ~publishBatchRequestEntries ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publishBatchRequestEntries =
        field_map_exn json__ "PublishBatchRequestEntries"
          PublishBatchRequestEntryList.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ~publishBatchRequestEntries ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Publishes up to 10 messages to the specified topic in a single batch. This is a batch version of the Publish API. If you try to send more than 10 messages in a single batch request, you will receive a TooManyEntriesInBatchRequest exception. For FIFO topics, multiple messages within a single batch are published in the order they are sent, and messages are deduplicated within the batch and across batches for five minutes. The result of publishing each message is reported individually in the response. Because the batch request can result in a combination of successful and unsuccessful actions, you should check for batch errors even when the call returns an HTTP status code of 200. The maximum allowed individual message size and the maximum total payload size (the sum of the individual lengths of all of the batched messages) are both 256 KB (262,144 bytes). The PublishBatch API can send up to 10 messages at a time. If you attempt to send more than 10 messages in one request, you will encounter a TooManyEntriesInBatchRequest exception. In such cases, split your messages into multiple requests, each containing no more than 10 messages. Some actions take lists of parameters. These lists are specified using the param.n notation. Values of n are integers starting from 1. For example, a parameter list with two elements looks like this: &AttributeName.1=first &AttributeName.2=second If you send a batch message to a topic, Amazon SNS publishes the batch message to each endpoint that is subscribed to the topic. The format of the batch message depends on the notification protocol for each subscribed endpoint. When a messageId is returned, the batch message is saved, and Amazon SNS immediately delivers the message to subscribers."]
module OptInPhoneNumberResponse =
  struct
    type optInPhoneNumberResult = unit
    and responseMetaData = unit
    and t =
      {
      optInPhoneNumberResult: optInPhoneNumberResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = { optInPhoneNumberResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.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 "The response for the OptInPhoneNumber action."]
module OptInPhoneNumberInput =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t
        [@ocaml.doc "The phone number to opt in. Use E.164 format."]}
    let context_ = "OptInPhoneNumberInput"
    let make ~phoneNumber = fun () -> { phoneNumber }
    let to_value x =
      structure_to_value
        [("phoneNumber", (Some (PhoneNumber.to_value x.phoneNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumber") in
      make ~phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber =
        field_map_exn json__ "phoneNumber" PhoneNumber.of_json in
      make ~phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for the OptInPhoneNumber action."]
module ListTopicsResponse =
  struct
    type listTopicsResult =
      {
      topics: TopicsList.t option [@ocaml.doc "A list of topic ARNs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token to pass along to the next ListTopics request. This element is returned if there are additional topics to retrieve."]}
    and responseMetaData = unit
    and t =
      {
      listTopicsResult: listTopicsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListTopicsResponse"
    let make ?topics =
      fun ?nextToken ->
        fun () ->
          { listTopicsResult = { topics; nextToken }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listTopicsResult in
      structure_to_wrapped_value
        [("Topics", (Option.map x.topics ~f:TopicsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListTopicsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListTopicsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let topics =
        (Option.map ~f:TopicsList.of_xml) (Xml.child xml_arg0 "Topics") in
      make ?nextToken ?topics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let topics = field_map json__ "Topics" TopicsList.of_json in
      make ?nextToken ?topics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for ListTopics action."]
module ListTopicsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc "Token returned by the previous ListTopics request."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the requester's topics. Each call returns a limited list of topics, up to 100. If there are more topics, a NextToken is also returned. Use the NextToken parameter in a new ListTopics call to get further results. This action is throttled at 30 transactions per second (TPS)."]
module ListTagsForResourceResponse =
  struct
    type listTagsForResourceResult =
      {
      tags: TagList.t option
        [@ocaml.doc "The tags associated with the specified topic."]}
    and responseMetaData = unit
    and t =
      {
      listTagsForResourceResult: listTagsForResourceResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `ConcurrentAccessException of ConcurrentAccessException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TagPolicyException of TagPolicyException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListTagsForResourceResponse"
    let make ?tags =
      fun () ->
        { listTagsForResourceResult = { tags }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `ConcurrentAccessException e ->
          `Assoc
            [("error", (`String "ConcurrentAccessException"));
            ("details", (ConcurrentAccessException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TagPolicyException e ->
          `Assoc
            [("error", (`String "TagPolicyException"));
            ("details", (TagPolicyException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listTagsForResourceResult in
      structure_to_wrapped_value
        [("Tags", (Option.map x.tags ~f:TagList.to_value))]
        ~wrapper:"ListTagsForResourceResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListTagsForResourceResult" in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all tags added to the specified Amazon SNS topic. For an overview, see Amazon SNS Tags in the Amazon Simple Notification Service Developer Guide."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc "The ARN of the topic for which to list tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all tags added to the specified Amazon SNS topic. For an overview, see Amazon SNS Tags in the Amazon Simple Notification Service Developer Guide."]
module ListSubscriptionsResponse =
  struct
    type listSubscriptionsResult =
      {
      subscriptions: SubscriptionsList.t option
        [@ocaml.doc "A list of subscriptions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token to pass along to the next ListSubscriptions request. This element is returned if there are more subscriptions to retrieve."]}
    and responseMetaData = unit
    and t =
      {
      listSubscriptionsResult: listSubscriptionsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListSubscriptionsResponse"
    let make ?subscriptions =
      fun ?nextToken ->
        fun () ->
          {
            listSubscriptionsResult = { subscriptions; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listSubscriptionsResult in
      structure_to_wrapped_value
        [("Subscriptions",
           (Option.map x.subscriptions ~f:SubscriptionsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListSubscriptionsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListSubscriptionsResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let subscriptions =
        (Option.map ~f:SubscriptionsList.of_xml)
          (Xml.child xml_arg0 "Subscriptions") in
      make ?nextToken ?subscriptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let subscriptions =
        field_map json__ "Subscriptions" SubscriptionsList.of_json in
      make ?nextToken ?subscriptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for ListSubscriptions action"]
module ListSubscriptionsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token returned by the previous ListSubscriptions request."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for ListSubscriptions action."]
module ListSubscriptionsByTopicResponse =
  struct
    type listSubscriptionsByTopicResult =
      {
      subscriptions: SubscriptionsList.t option
        [@ocaml.doc "A list of subscriptions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token to pass along to the next ListSubscriptionsByTopic request. This element is returned if there are more subscriptions to retrieve."]}
    and responseMetaData = unit
    and t =
      {
      listSubscriptionsByTopicResult: listSubscriptionsByTopicResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListSubscriptionsByTopicResponse"
    let make ?subscriptions =
      fun ?nextToken ->
        fun () ->
          {
            listSubscriptionsByTopicResult = { subscriptions; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listSubscriptionsByTopicResult in
      structure_to_wrapped_value
        [("Subscriptions",
           (Option.map x.subscriptions ~f:SubscriptionsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
        ~wrapper:"ListSubscriptionsByTopicResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListSubscriptionsByTopicResult" in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let subscriptions =
        (Option.map ~f:SubscriptionsList.of_xml)
          (Xml.child xml_arg0 "Subscriptions") in
      make ?nextToken ?subscriptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let subscriptions =
        field_map json__ "Subscriptions" SubscriptionsList.of_json in
      make ?nextToken ?subscriptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for ListSubscriptionsByTopic action."]
module ListSubscriptionsByTopicInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc
          "The ARN of the topic for which you wish to find subscriptions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token returned by the previous ListSubscriptionsByTopic request."]}
    let context_ = "ListSubscriptionsByTopicInput"
    let make ?nextToken = fun ~topicArn -> fun () -> { nextToken; topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ?nextToken ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ?nextToken ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for ListSubscriptionsByTopic action."]
module ListSMSSandboxPhoneNumbersResult =
  struct
    type listSMSSandboxPhoneNumbersResult =
      {
      phoneNumbers: SMSSandboxPhoneNumberList.t option
        [@ocaml.doc
          "A list of the calling account's pending and verified phone numbers."];
      nextToken: String__lc1.t option
        [@ocaml.doc
          "A NextToken string is returned when you call the ListSMSSandboxPhoneNumbersInput operation if additional pages of records are available."]}
    and responseMetaData = unit
    and t =
      {
      listSMSSandboxPhoneNumbersResult: listSMSSandboxPhoneNumbersResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListSMSSandboxPhoneNumbersResult"
    let make ?phoneNumbers =
      fun ?nextToken ->
        fun () ->
          {
            listSMSSandboxPhoneNumbersResult = { phoneNumbers; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listSMSSandboxPhoneNumbersResult in
      structure_to_wrapped_value
        [("PhoneNumbers",
           (Option.map x.phoneNumbers ~f:SMSSandboxPhoneNumberList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String__lc1.to_value))]
        ~wrapper:"ListSMSSandboxPhoneNumbersResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListSMSSandboxPhoneNumbersResult" in
      let nextToken =
        (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "NextToken") in
      let phoneNumbers =
        (Option.map ~f:SMSSandboxPhoneNumberList.of_xml)
          (Xml.child xml_arg0 "PhoneNumbers") in
      make ?nextToken ?phoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String__lc1.of_json in
      let phoneNumbers =
        field_map json__ "PhoneNumbers" SMSSandboxPhoneNumberList.of_json in
      make ?nextToken ?phoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the calling Amazon Web Services account's current verified and pending destination phone numbers in the SMS sandbox. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module ListSMSSandboxPhoneNumbersInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token that the previous ListSMSSandboxPhoneNumbersInput request returns."];
      maxResults: MaxItems.t option
        [@ocaml.doc "The maximum number of phone numbers to return."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the calling Amazon Web Services account's current verified and pending destination phone numbers in the SMS sandbox. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module ListPlatformApplicationsResponse =
  struct
    type listPlatformApplicationsResult =
      {
      platformApplications: ListOfPlatformApplications.t option
        [@ocaml.doc
          "Platform applications returned when calling ListPlatformApplications action."];
      nextToken: String_.t option
        [@ocaml.doc
          "NextToken string is returned when calling ListPlatformApplications action if additional records are available after the first page results."]}
    and responseMetaData = unit
    and t =
      {
      listPlatformApplicationsResult: listPlatformApplicationsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListPlatformApplicationsResponse"
    let make ?platformApplications =
      fun ?nextToken ->
        fun () ->
          {
            listPlatformApplicationsResult =
              { platformApplications; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listPlatformApplicationsResult in
      structure_to_wrapped_value
        [("PlatformApplications",
           (Option.map x.platformApplications
              ~f:ListOfPlatformApplications.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
        ~wrapper:"ListPlatformApplicationsResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListPlatformApplicationsResult" in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let platformApplications =
        (Option.map ~f:ListOfPlatformApplications.of_xml)
          (Xml.child xml_arg0 "PlatformApplications") in
      make ?nextToken ?platformApplications ()
    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 platformApplications =
        field_map json__ "PlatformApplications"
          ListOfPlatformApplications.of_json in
      make ?nextToken ?platformApplications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for ListPlatformApplications action."]
module ListPlatformApplicationsInput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "NextToken string is used when calling ListPlatformApplications action to retrieve additional records that are available after the first page results."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_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
      make ?nextToken ()
    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
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for ListPlatformApplications action."]
module ListPhoneNumbersOptedOutResponse =
  struct
    type listPhoneNumbersOptedOutResult =
      {
      phoneNumbers: PhoneNumberList.t option
        [@ocaml.doc
          "A list of phone numbers that are opted out of receiving SMS messages. The list is paginated, and each page can contain up to 100 phone numbers."];
      nextToken: String__lc1.t option
        [@ocaml.doc
          "A NextToken string is returned when you call the ListPhoneNumbersOptedOut action if additional records are available after the first page of results."]}
    and responseMetaData = unit
    and t =
      {
      listPhoneNumbersOptedOutResult: listPhoneNumbersOptedOutResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListPhoneNumbersOptedOutResponse"
    let make ?phoneNumbers =
      fun ?nextToken ->
        fun () ->
          {
            listPhoneNumbersOptedOutResult = { phoneNumbers; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listPhoneNumbersOptedOutResult in
      structure_to_wrapped_value
        [("phoneNumbers",
           (Option.map x.phoneNumbers ~f:PhoneNumberList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String__lc1.to_value))]
        ~wrapper:"ListPhoneNumbersOptedOutResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListPhoneNumbersOptedOutResult" in
      let nextToken =
        (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "NextToken") in
      let phoneNumbers =
        (Option.map ~f:PhoneNumberList.of_xml)
          (Xml.child xml_arg0 "PhoneNumbers") in
      make ?nextToken ?phoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String__lc1.of_json in
      let phoneNumbers =
        field_map json__ "phoneNumbers" PhoneNumberList.of_json in
      make ?nextToken ?phoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from the ListPhoneNumbersOptedOut action."]
module ListPhoneNumbersOptedOutInput =
  struct
    type nonrec t =
      {
      nextToken: String__lc1.t option
        [@ocaml.doc
          "A NextToken string is used when you call the ListPhoneNumbersOptedOut action to retrieve additional records that are available after the first page of results."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String__lc1.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the ListPhoneNumbersOptedOut action."]
module ListOriginationNumbersResult =
  struct
    type listOriginationNumbersResult =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A NextToken string is returned when you call the ListOriginationNumbers operation if additional pages of records are available."];
      phoneNumbers: PhoneNumberInformationList.t option
        [@ocaml.doc
          "A list of the calling account's verified and pending origination numbers."]}
    and responseMetaData = unit
    and t =
      {
      listOriginationNumbersResult: listOriginationNumbersResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottledException of ThrottledException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListOriginationNumbersResult"
    let make ?nextToken =
      fun ?phoneNumbers ->
        fun () ->
          {
            listOriginationNumbersResult = { nextToken; phoneNumbers };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.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
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.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
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.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 t =
      let x = t.listOriginationNumbersResult in
      structure_to_wrapped_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PhoneNumbers",
          (Option.map x.phoneNumbers ~f:PhoneNumberInformationList.to_value))]
        ~wrapper:"ListOriginationNumbersResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ListOriginationNumbersResult" in
      let phoneNumbers =
        (Option.map ~f:PhoneNumberInformationList.of_xml)
          (Xml.child xml_arg0 "PhoneNumbers") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?phoneNumbers ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumbers =
        field_map json__ "PhoneNumbers" PhoneNumberInformationList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?phoneNumbers ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the calling Amazon Web Services account's dedicated origination numbers and their metadata. For more information about origination numbers, see Origination numbers in the Amazon SNS Developer Guide."]
module ListOriginationNumbersRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token that the previous ListOriginationNumbers request returns."];
      maxResults: MaxItemsListOriginationNumbers.t option
        [@ocaml.doc "The maximum number of origination numbers to return."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxItemsListOriginationNumbers.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxItemsListOriginationNumbers.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItemsListOriginationNumbers.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the calling Amazon Web Services account's dedicated origination numbers and their metadata. For more information about origination numbers, see Origination numbers in the Amazon SNS Developer Guide."]
module ListEndpointsByPlatformApplicationResponse =
  struct
    type listEndpointsByPlatformApplicationResult =
      {
      endpoints: ListOfEndpoints.t option
        [@ocaml.doc
          "Endpoints returned for ListEndpointsByPlatformApplication action."];
      nextToken: String_.t option
        [@ocaml.doc
          "NextToken string is returned when calling ListEndpointsByPlatformApplication action if additional records are available after the first page results."]}
    and responseMetaData = unit
    and t =
      {
      listEndpointsByPlatformApplicationResult:
        listEndpointsByPlatformApplicationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListEndpointsByPlatformApplicationResponse"
    let make ?endpoints =
      fun ?nextToken ->
        fun () ->
          {
            listEndpointsByPlatformApplicationResult =
              { endpoints; nextToken };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listEndpointsByPlatformApplicationResult in
      structure_to_wrapped_value
        [("Endpoints", (Option.map x.endpoints ~f:ListOfEndpoints.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
        ~wrapper:"ListEndpointsByPlatformApplicationResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "ListEndpointsByPlatformApplicationResult" in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let endpoints =
        (Option.map ~f:ListOfEndpoints.of_xml)
          (Xml.child xml_arg0 "Endpoints") in
      make ?nextToken ?endpoints ()
    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 endpoints = field_map json__ "Endpoints" ListOfEndpoints.of_json in
      make ?nextToken ?endpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for ListEndpointsByPlatformApplication action."]
module ListEndpointsByPlatformApplicationInput =
  struct
    type nonrec t =
      {
      platformApplicationArn: String_.t
        [@ocaml.doc
          "PlatformApplicationArn for ListEndpointsByPlatformApplicationInput action."];
      nextToken: String_.t option
        [@ocaml.doc
          "NextToken string is used when calling ListEndpointsByPlatformApplication action to retrieve additional records that are available after the first page results."]}
    let context_ = "ListEndpointsByPlatformApplicationInput"
    let make ?nextToken =
      fun ~platformApplicationArn ->
        fun () -> { nextToken; platformApplicationArn }
    let to_value x =
      structure_to_value
        [("PlatformApplicationArn",
           (Some (String_.to_value x.platformApplicationArn)));
        ("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 platformApplicationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlatformApplicationArn") in
      make ?nextToken ~platformApplicationArn ()
    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 platformApplicationArn =
        field_map_exn json__ "PlatformApplicationArn" String_.of_json in
      make ?nextToken ~platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for ListEndpointsByPlatformApplication action."]
module InvalidStateException =
  struct
    type nonrec t = {
      message: String__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String__lc1.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__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the specified state is not a valid state for an event source."]
module GetTopicAttributesResponse =
  struct
    type getTopicAttributesResult =
      {
      attributes: TopicAttributesMap.t option
        [@ocaml.doc
          "A map of the topic's attributes. Attributes in this map include the following: DeliveryPolicy \226\128\147 The JSON serialization of the topic's delivery policy. DisplayName \226\128\147 The human-readable name used in the From field for notifications to email and email-json endpoints. EffectiveDeliveryPolicy \226\128\147 The JSON serialization of the effective delivery policy, taking system defaults into account. Owner \226\128\147 The Amazon Web Services account ID of the topic's owner. Policy \226\128\147 The JSON serialization of the topic's access control policy. SignatureVersion \226\128\147 The signature version corresponds to the hashing algorithm used while creating the signature of the notifications, subscription confirmations, or unsubscribe confirmation messages sent by Amazon SNS. By default, SignatureVersion is set to 1. The signature is a Base64-encoded SHA1withRSA signature. When you set SignatureVersion to 2. Amazon SNS uses a Base64-encoded SHA256withRSA signature. If the API response does not include the SignatureVersion attribute, it means that the SignatureVersion for the topic has value 1. SubscriptionsConfirmed \226\128\147 The number of confirmed subscriptions for the topic. SubscriptionsDeleted \226\128\147 The number of deleted subscriptions for the topic. SubscriptionsPending \226\128\147 The number of subscriptions pending confirmation for the topic. TopicArn \226\128\147 The topic's ARN. TracingConfig \226\128\147 Tracing mode of an Amazon SNS topic. By default TracingConfig is set to PassThrough, and the topic passes through the tracing header it receives from an Amazon SNS publisher to its subscriptions. If set to Active, Amazon SNS will vend X-Ray segment data to topic owner account if the sampled flag in the tracing header is true. This is only supported on standard topics. The following attribute applies only to server-side-encryption: KmsMasterKeyId - The ID of an Amazon Web Services managed customer master key (CMK) for Amazon SNS or a custom CMK. For more information, see Key Terms. For more examples, see KeyId in the Key Management Service API Reference. The following attributes apply only to FIFO topics: ArchivePolicy \226\128\147 The policy that sets the retention period for messages stored in the message archive of an Amazon SNS FIFO topic. BeginningArchiveTime \226\128\147 The earliest starting point at which a message in the topic\226\128\153s archive can be replayed from. This point in time is based on the configured message retention period set by the topic\226\128\153s message archiving policy. ContentBasedDeduplication \226\128\147 Enables content-based deduplication for FIFO topics. By default, ContentBasedDeduplication is set to false. If you create a FIFO topic and this attribute is false, you must specify a value for the MessageDeduplicationId parameter for the Publish action. When you set ContentBasedDeduplication to true, Amazon SNS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). (Optional) To override the generated value, you can specify a value for the MessageDeduplicationId parameter for the Publish action. FifoTopic \226\128\147 When this is set to true, a FIFO topic is created."]}
    and responseMetaData = unit
    and t =
      {
      getTopicAttributesResult: getTopicAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidSecurityException of InvalidSecurityException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetTopicAttributesResponse"
    let make ?attributes =
      fun () ->
        { getTopicAttributesResult = { attributes }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidSecurityException e ->
          `Assoc
            [("error", (`String "InvalidSecurityException"));
            ("details", (InvalidSecurityException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getTopicAttributesResult in
      structure_to_wrapped_value
        [("Attributes",
           (Option.map x.attributes ~f:TopicAttributesMap.to_value))]
        ~wrapper:"GetTopicAttributesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetTopicAttributesResult" in
      let attributes =
        (Option.map ~f:TopicAttributesMap.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" TopicAttributesMap.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for GetTopicAttributes action."]
module GetTopicAttributesInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc "The ARN of the topic whose properties you want to get."]}
    let context_ = "GetTopicAttributesInput"
    let make ~topicArn = fun () -> { topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for GetTopicAttributes action."]
module GetSubscriptionAttributesResponse =
  struct
    type getSubscriptionAttributesResult =
      {
      attributes: SubscriptionAttributesMap.t option
        [@ocaml.doc
          "A map of the subscription's attributes. Attributes in this map include the following: ConfirmationWasAuthenticated \226\128\147 true if the subscription confirmation request was authenticated. DeliveryPolicy \226\128\147 The JSON serialization of the subscription's delivery policy. EffectiveDeliveryPolicy \226\128\147 The JSON serialization of the effective delivery policy that takes into account the topic delivery policy and account system defaults. FilterPolicy \226\128\147 The filter policy JSON that is assigned to the subscription. For more information, see Amazon SNS Message Filtering in the Amazon SNS Developer Guide. FilterPolicyScope \226\128\147 This attribute lets you choose the filtering scope by using one of the following string value types: MessageAttributes (default) \226\128\147 The filter is applied on the message attributes. MessageBody \226\128\147 The filter is applied on the message body. Owner \226\128\147 The Amazon Web Services account ID of the subscription's owner. PendingConfirmation \226\128\147 true if the subscription hasn't been confirmed. To confirm a pending subscription, call the ConfirmSubscription action with a confirmation token. RawMessageDelivery \226\128\147 true if raw message delivery is enabled for the subscription. Raw messages are free of JSON formatting and can be sent to HTTP/S and Amazon SQS endpoints. RedrivePolicy \226\128\147 When specified, sends undeliverable messages to the specified Amazon SQS dead-letter queue. Messages that can't be delivered due to client errors (for example, when the subscribed endpoint is unreachable) or server errors (for example, when the service that powers the subscribed endpoint becomes unavailable) are held in the dead-letter queue for further analysis or reprocessing. SubscriptionArn \226\128\147 The subscription's ARN. TopicArn \226\128\147 The topic ARN that the subscription is associated with. The following attribute applies only to Amazon Data Firehose delivery stream subscriptions: SubscriptionRoleArn \226\128\147 The ARN of the IAM role that has the following: Permission to write to the Firehose delivery stream Amazon SNS listed as a trusted entity Specifying a valid ARN for this attribute is required for Firehose delivery stream subscriptions. For more information, see Fanout to Firehose delivery streams in the Amazon SNS Developer Guide."]}
    and responseMetaData = unit
    and t =
      {
      getSubscriptionAttributesResult: getSubscriptionAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetSubscriptionAttributesResponse"
    let make ?attributes =
      fun () ->
        {
          getSubscriptionAttributesResult = { attributes };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getSubscriptionAttributesResult in
      structure_to_wrapped_value
        [("Attributes",
           (Option.map x.attributes ~f:SubscriptionAttributesMap.to_value))]
        ~wrapper:"GetSubscriptionAttributesResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetSubscriptionAttributesResult" in
      let attributes =
        (Option.map ~f:SubscriptionAttributesMap.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" SubscriptionAttributesMap.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for GetSubscriptionAttributes action."]
module GetSubscriptionAttributesInput =
  struct
    type nonrec t =
      {
      subscriptionArn: SubscriptionARN.t
        [@ocaml.doc
          "The ARN of the subscription whose properties you want to get."]}
    let context_ = "GetSubscriptionAttributesInput"
    let make ~subscriptionArn = fun () -> { subscriptionArn }
    let to_value x =
      structure_to_value
        [("SubscriptionArn",
           (Some (SubscriptionARN.to_value x.subscriptionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscriptionArn =
        SubscriptionARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionArn") in
      make ~subscriptionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionArn =
        field_map_exn json__ "SubscriptionArn" SubscriptionARN.of_json in
      make ~subscriptionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for GetSubscriptionAttributes."]
module GetSMSSandboxAccountStatusResult =
  struct
    type getSMSSandboxAccountStatusResult =
      {
      isInSandbox: Boolean.t option
        [@ocaml.doc
          "Indicates whether the calling Amazon Web Services account is in the SMS sandbox."]}
    and responseMetaData = unit
    and t =
      {
      getSMSSandboxAccountStatusResult: getSMSSandboxAccountStatusResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetSMSSandboxAccountStatusResult"
    let make ?isInSandbox =
      fun () ->
        {
          getSMSSandboxAccountStatusResult = { isInSandbox };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getSMSSandboxAccountStatusResult in
      structure_to_wrapped_value
        [("IsInSandbox", (Option.map x.isInSandbox ~f:Boolean.to_value))]
        ~wrapper:"GetSMSSandboxAccountStatusResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetSMSSandboxAccountStatusResult" in
      let isInSandbox =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsInSandbox") in
      make ?isInSandbox ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isInSandbox = field_map json__ "IsInSandbox" Boolean.of_json in
      make ?isInSandbox ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the SMS sandbox status for the calling Amazon Web Services account in the target Amazon Web Services Region. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module GetSMSSandboxAccountStatusInput =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the SMS sandbox status for the calling Amazon Web Services account in the target Amazon Web Services Region. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module GetSMSAttributesResponse =
  struct
    type getSMSAttributesResult =
      {
      attributes: MapStringToString.t option
        [@ocaml.doc "The SMS attribute names and their values."]}
    and responseMetaData = unit
    and t =
      {
      getSMSAttributesResult: getSMSAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetSMSAttributesResponse"
    let make ?attributes =
      fun () ->
        { getSMSAttributesResult = { attributes }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getSMSAttributesResult in
      structure_to_wrapped_value
        [("attributes",
           (Option.map x.attributes ~f:MapStringToString.to_value))]
        ~wrapper:"GetSMSAttributesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetSMSAttributesResult" in
      let attributes =
        (Option.map ~f:MapStringToString.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "attributes" MapStringToString.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from the GetSMSAttributes request."]
module GetSMSAttributesInput =
  struct
    type nonrec t =
      {
      attributes: ListString.t option
        [@ocaml.doc
          "A list of the individual attribute names, such as MonthlySpendLimit, for which you want values. For all attribute names, see SetSMSAttributes. If you don't use this parameter, Amazon SNS returns all SMS attributes."]}
    let make ?attributes = fun () -> { attributes }
    let to_value x =
      structure_to_value
        [("attributes", (Option.map x.attributes ~f:ListString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:ListString.of_xml) (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" ListString.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the GetSMSAttributes request."]
module GetPlatformApplicationAttributesResponse =
  struct
    type getPlatformApplicationAttributesResult =
      {
      attributes: MapStringToString.t option
        [@ocaml.doc
          "Attributes include the following: AppleCertificateExpiryDate \226\128\147 The expiry date of the SSL certificate used to configure certificate-based authentication. ApplePlatformTeamID \226\128\147 The Apple developer account ID used to configure token-based authentication. ApplePlatformBundleID \226\128\147 The app identifier used to configure token-based authentication. AuthenticationMethod \226\128\147 Returns the credential type used when sending push notifications from application to APNS/APNS_Sandbox, or application to GCM. APNS \226\128\147 Returns the token or certificate. GCM \226\128\147 Returns the token or key. EventEndpointCreated \226\128\147 Topic ARN to which EndpointCreated event notifications should be sent. EventEndpointDeleted \226\128\147 Topic ARN to which EndpointDeleted event notifications should be sent. EventEndpointUpdated \226\128\147 Topic ARN to which EndpointUpdate event notifications should be sent. EventDeliveryFailure \226\128\147 Topic ARN to which DeliveryFailure event notifications should be sent upon Direct Publish delivery failure (permanent) to one of the application's endpoints."]}
    and responseMetaData = unit
    and t =
      {
      getPlatformApplicationAttributesResult:
        getPlatformApplicationAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetPlatformApplicationAttributesResponse"
    let make ?attributes =
      fun () ->
        {
          getPlatformApplicationAttributesResult = { attributes };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getPlatformApplicationAttributesResult in
      structure_to_wrapped_value
        [("Attributes",
           (Option.map x.attributes ~f:MapStringToString.to_value))]
        ~wrapper:"GetPlatformApplicationAttributesResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "GetPlatformApplicationAttributesResult" in
      let attributes =
        (Option.map ~f:MapStringToString.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" MapStringToString.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for GetPlatformApplicationAttributes action."]
module GetPlatformApplicationAttributesInput =
  struct
    type nonrec t =
      {
      platformApplicationArn: String_.t
        [@ocaml.doc
          "PlatformApplicationArn for GetPlatformApplicationAttributesInput."]}
    let context_ = "GetPlatformApplicationAttributesInput"
    let make ~platformApplicationArn = fun () -> { platformApplicationArn }
    let to_value x =
      structure_to_value
        [("PlatformApplicationArn",
           (Some (String_.to_value x.platformApplicationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let platformApplicationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlatformApplicationArn") in
      make ~platformApplicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let platformApplicationArn =
        field_map_exn json__ "PlatformApplicationArn" String_.of_json in
      make ~platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for GetPlatformApplicationAttributes action."]
module GetEndpointAttributesResponse =
  struct
    type getEndpointAttributesResult =
      {
      attributes: MapStringToString.t option
        [@ocaml.doc
          "Attributes include the following: CustomUserData \226\128\147 arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB. Enabled \226\128\147 flag that enables/disables delivery to the endpoint. Amazon SNS will set this to false when a notification service indicates to Amazon SNS that the endpoint is invalid. Users can set it back to true, typically after updating Token. Token \226\128\147 device token, also referred to as a registration id, for an app and mobile device. This is returned from the notification service when an app and mobile device are registered with the notification service. The device token for the iOS platform is returned in lowercase."]}
    and responseMetaData = unit
    and t =
      {
      getEndpointAttributesResult: getEndpointAttributesResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetEndpointAttributesResponse"
    let make ?attributes =
      fun () ->
        { getEndpointAttributesResult = { attributes }; responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getEndpointAttributesResult in
      structure_to_wrapped_value
        [("Attributes",
           (Option.map x.attributes ~f:MapStringToString.to_value))]
        ~wrapper:"GetEndpointAttributesResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetEndpointAttributesResult" in
      let attributes =
        (Option.map ~f:MapStringToString.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" MapStringToString.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response from GetEndpointAttributes of the EndpointArn."]
module GetEndpointAttributesInput =
  struct
    type nonrec t =
      {
      endpointArn: String_.t
        [@ocaml.doc "EndpointArn for GetEndpointAttributes input."]}
    let context_ = "GetEndpointAttributesInput"
    let make ~endpointArn = fun () -> { endpointArn }
    let to_value x =
      structure_to_value
        [("EndpointArn", (Some (String_.to_value x.endpointArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointArn") in
      make ~endpointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointArn = field_map_exn json__ "EndpointArn" String_.of_json in
      make ~endpointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for GetEndpointAttributes action."]
module GetDataProtectionPolicyResponse =
  struct
    type getDataProtectionPolicyResult =
      {
      dataProtectionPolicy: AttributeValue.t option
        [@ocaml.doc
          "Retrieves the DataProtectionPolicy in JSON string format."]}
    and responseMetaData = unit
    and t =
      {
      getDataProtectionPolicyResult: getDataProtectionPolicyResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidSecurityException of InvalidSecurityException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetDataProtectionPolicyResponse"
    let make ?dataProtectionPolicy =
      fun () ->
        {
          getDataProtectionPolicyResult = { dataProtectionPolicy };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidSecurityException e ->
          `Assoc
            [("error", (`String "InvalidSecurityException"));
            ("details", (InvalidSecurityException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getDataProtectionPolicyResult in
      structure_to_wrapped_value
        [("DataProtectionPolicy",
           (Option.map x.dataProtectionPolicy ~f:AttributeValue.to_value))]
        ~wrapper:"GetDataProtectionPolicyResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetDataProtectionPolicyResult" in
      let dataProtectionPolicy =
        (Option.map ~f:AttributeValue.of_xml)
          (Xml.child xml_arg0 "DataProtectionPolicy") in
      make ?dataProtectionPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataProtectionPolicy =
        field_map json__ "DataProtectionPolicy" AttributeValue.of_json in
      make ?dataProtectionPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified inline DataProtectionPolicy document that is stored in the specified Amazon SNS topic."]
module GetDataProtectionPolicyInput =
  struct
    type nonrec t =
      {
      resourceArn: TopicARN.t
        [@ocaml.doc
          "The ARN of the topic whose DataProtectionPolicy you want to get. For more information about ARNs, see Amazon Resource Names (ARNs) in the Amazon Web Services General Reference."]}
    let context_ = "GetDataProtectionPolicyInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TopicARN.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        TopicARN.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" TopicARN.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified inline DataProtectionPolicy document that is stored in the specified Amazon SNS topic."]
module DeleteTopicInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc "The ARN of the topic you want to delete."]}
    let context_ = "DeleteTopicInput"
    let make ~topicArn = fun () -> { topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a topic and all its subscriptions. Deleting a topic might prevent some messages previously sent to the topic from being delivered to subscribers. This action is idempotent, so deleting a topic that does not exist does not result in an error."]
module DeleteSMSSandboxPhoneNumberResult =
  struct
    type deleteSMSSandboxPhoneNumberResult = unit
    and responseMetaData = unit
    and t =
      {
      deleteSMSSandboxPhoneNumberResult: deleteSMSSandboxPhoneNumberResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledException of ThrottledException.t 
      | `UserErrorException of UserErrorException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () =
      { deleteSMSSandboxPhoneNumberResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | "UserErrorException" ->
          `UserErrorException (UserErrorException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | "UserErrorException" ->
          `UserErrorException (UserErrorException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `UserErrorException e ->
          `Assoc
            [("error", (`String "UserErrorException"));
            ("details", (UserErrorException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an Amazon Web Services account's verified or pending phone number from the SMS sandbox. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module DeleteSMSSandboxPhoneNumberInput =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumberString.t
        [@ocaml.doc "The destination phone number to delete."]}
    let context_ = "DeleteSMSSandboxPhoneNumberInput"
    let make ~phoneNumber = fun () -> { phoneNumber }
    let to_value x =
      structure_to_value
        [("PhoneNumber", (Some (PhoneNumberString.to_value x.phoneNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        PhoneNumberString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumber") in
      make ~phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber =
        field_map_exn json__ "PhoneNumber" PhoneNumberString.of_json in
      make ~phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an Amazon Web Services account's verified or pending phone number from the SMS sandbox. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module DeletePlatformApplicationInput =
  struct
    type nonrec t =
      {
      platformApplicationArn: String_.t
        [@ocaml.doc
          "PlatformApplicationArn of platform application object to delete."]}
    let context_ = "DeletePlatformApplicationInput"
    let make ~platformApplicationArn = fun () -> { platformApplicationArn }
    let to_value x =
      structure_to_value
        [("PlatformApplicationArn",
           (Some (String_.to_value x.platformApplicationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let platformApplicationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlatformApplicationArn") in
      make ~platformApplicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let platformApplicationArn =
        field_map_exn json__ "PlatformApplicationArn" String_.of_json in
      make ~platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for DeletePlatformApplication action."]
module DeleteEndpointInput =
  struct
    type nonrec t =
      {
      endpointArn: String_.t
        [@ocaml.doc "EndpointArn of endpoint to delete."]}
    let context_ = "DeleteEndpointInput"
    let make ~endpointArn = fun () -> { endpointArn }
    let to_value x =
      structure_to_value
        [("EndpointArn", (Some (String_.to_value x.endpointArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointArn") in
      make ~endpointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointArn = field_map_exn json__ "EndpointArn" String_.of_json in
      make ~endpointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for DeleteEndpoint action."]
module CreateTopicResponse =
  struct
    type createTopicResult =
      {
      topicArn: TopicARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) assigned to the created topic."]}
    and responseMetaData = unit
    and t =
      {
      createTopicResult: createTopicResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `ConcurrentAccessException of ConcurrentAccessException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidSecurityException of InvalidSecurityException.t 
      | `StaleTagException of StaleTagException.t 
      | `TagLimitExceededException of TagLimitExceededException.t 
      | `TagPolicyException of TagPolicyException.t 
      | `TopicLimitExceededException of TopicLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateTopicResponse"
    let make ?topicArn =
      fun () -> { createTopicResult = { topicArn }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_json json)
      | "StaleTagException" ->
          `StaleTagException (StaleTagException.of_json json)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_json json)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_json json)
      | "TopicLimitExceededException" ->
          `TopicLimitExceededException
            (TopicLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "ConcurrentAccessException" ->
          `ConcurrentAccessException (ConcurrentAccessException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidSecurityException" ->
          `InvalidSecurityException (InvalidSecurityException.of_xml xml)
      | "StaleTagException" ->
          `StaleTagException (StaleTagException.of_xml xml)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_xml xml)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_xml xml)
      | "TopicLimitExceededException" ->
          `TopicLimitExceededException
            (TopicLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `ConcurrentAccessException e ->
          `Assoc
            [("error", (`String "ConcurrentAccessException"));
            ("details", (ConcurrentAccessException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidSecurityException e ->
          `Assoc
            [("error", (`String "InvalidSecurityException"));
            ("details", (InvalidSecurityException.to_json e))]
      | `StaleTagException e ->
          `Assoc
            [("error", (`String "StaleTagException"));
            ("details", (StaleTagException.to_json e))]
      | `TagLimitExceededException e ->
          `Assoc
            [("error", (`String "TagLimitExceededException"));
            ("details", (TagLimitExceededException.to_json e))]
      | `TagPolicyException e ->
          `Assoc
            [("error", (`String "TagPolicyException"));
            ("details", (TagPolicyException.to_json e))]
      | `TopicLimitExceededException e ->
          `Assoc
            [("error", (`String "TopicLimitExceededException"));
            ("details", (TopicLimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createTopicResult in
      structure_to_wrapped_value
        [("TopicArn", (Option.map x.topicArn ~f:TopicARN.to_value))]
        ~wrapper:"CreateTopicResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "CreateTopicResult" in
      let topicArn =
        (Option.map ~f:TopicARN.of_xml) (Xml.child xml_arg0 "TopicArn") in
      make ?topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicArn = field_map json__ "TopicArn" TopicARN.of_json in
      make ?topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response from CreateTopic action."]
module CreateTopicInput =
  struct
    type nonrec t =
      {
      name: TopicName.t
        [@ocaml.doc
          "The name of the topic you want to create. Constraints: Topic names must be made up of only uppercase and lowercase ASCII letters, numbers, underscores, and hyphens, and must be between 1 and 256 characters long. For a FIFO (first-in-first-out) topic, the name must end with the .fifo suffix."];
      attributes: TopicAttributesMap.t option
        [@ocaml.doc
          "A map of attributes with their corresponding values. The following lists names, descriptions, and values of the special request parameters that the CreateTopic action uses: DeliveryPolicy \226\128\147 The policy that defines how Amazon SNS retries failed deliveries to HTTP/S endpoints. DisplayName \226\128\147 The display name to use for a topic with SMS subscriptions. Policy \226\128\147 The policy that defines who can access your topic. By default, only the topic owner can publish or subscribe to the topic. TracingConfig \226\128\147 Tracing mode of an Amazon SNS topic. By default TracingConfig is set to PassThrough, and the topic passes through the tracing header it receives from an Amazon SNS publisher to its subscriptions. If set to Active, Amazon SNS will vend X-Ray segment data to topic owner account if the sampled flag in the tracing header is true. This is only supported on standard topics. HTTP HTTPSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an HTTP endpoint. HTTPSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an HTTP endpoint. HTTPFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an HTTP endpoint. Amazon Data Firehose FirehoseSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an Amazon Data Firehose endpoint. FirehoseSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an Amazon Data Firehose endpoint. FirehoseFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an Amazon Data Firehose endpoint. Lambda LambdaSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an Lambda endpoint. LambdaSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an Lambda endpoint. LambdaFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an Lambda endpoint. Platform application endpoint ApplicationSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to a platform application endpoint. ApplicationSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an platform application endpoint. ApplicationFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an platform application endpoint. In addition to being able to configure topic attributes for message delivery status of notification messages sent to Amazon SNS application endpoints, you can also configure application attributes for the delivery status of push notification messages sent to push notification services. For example, For more information, see Using Amazon SNS Application Attributes for Message Delivery Status. Amazon SQS SQSSuccessFeedbackRoleArn \226\128\147 Indicates successful message delivery status for an Amazon SNS topic that is subscribed to an Amazon SQS endpoint. SQSSuccessFeedbackSampleRate \226\128\147 Indicates percentage of successful messages to sample for an Amazon SNS topic that is subscribed to an Amazon SQS endpoint. SQSFailureFeedbackRoleArn \226\128\147 Indicates failed message delivery status for an Amazon SNS topic that is subscribed to an Amazon SQS endpoint. The <ENDPOINT>SuccessFeedbackRoleArn and <ENDPOINT>FailureFeedbackRoleArn attributes are used to give Amazon SNS write access to use CloudWatch Logs on your behalf. The <ENDPOINT>SuccessFeedbackSampleRate attribute is for specifying the sample rate percentage (0-100) of successfully delivered messages. After you configure the <ENDPOINT>FailureFeedbackRoleArn attribute, then all failed message deliveries generate CloudWatch Logs. The following attribute applies only to server-side encryption: KmsMasterKeyId \226\128\147 The ID of an Amazon Web Services managed customer master key (CMK) for Amazon SNS or a custom CMK. For more information, see Key Terms. For more examples, see KeyId in the Key Management Service API Reference. The following attributes apply only to FIFO topics: ArchivePolicy \226\128\147 The policy that sets the retention period for messages stored in the message archive of an Amazon SNS FIFO topic. ContentBasedDeduplication \226\128\147 Enables content-based deduplication for FIFO topics. By default, ContentBasedDeduplication is set to false. If you create a FIFO topic and this attribute is false, you must specify a value for the MessageDeduplicationId parameter for the Publish action. When you set ContentBasedDeduplication to true, Amazon SNS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). (Optional) To override the generated value, you can specify a value for the MessageDeduplicationId parameter for the Publish action. FifoThroughputScope \226\128\147 Enables higher throughput for your FIFO topic by adjusting the scope of deduplication. This attribute has two possible values: Topic \226\128\147 The scope of message deduplication is across the entire topic. This is the default value and maintains existing behavior, with a maximum throughput of 3000 messages per second or 20MB per second, whichever comes first. MessageGroup \226\128\147 The scope of deduplication is within each individual message group, which enables higher throughput per topic subject to regional quotas. For more information on quotas or to request an increase, see Amazon SNS service quotas in the Amazon Web Services General Reference."];
      tags: TagList.t option
        [@ocaml.doc
          "The list of tags to add to a new topic. To be able to tag a topic on creation, you must have the sns:CreateTopic and sns:TagResource permissions."];
      dataProtectionPolicy: AttributeValue.t option
        [@ocaml.doc
          "The body of the policy document you want to use for this topic. You can only add one policy per topic. The policy must be in JSON string format. Length Constraints: Maximum length of 30,720."]}
    let context_ = "CreateTopicInput"
    let make ?attributes =
      fun ?tags ->
        fun ?dataProtectionPolicy ->
          fun ~name ->
            fun () -> { attributes; tags; dataProtectionPolicy; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (TopicName.to_value x.name)));
        ("Attributes",
          (Option.map x.attributes ~f:TopicAttributesMap.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DataProtectionPolicy",
          (Option.map x.dataProtectionPolicy ~f:AttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataProtectionPolicy =
        (Option.map ~f:AttributeValue.of_xml)
          (Xml.child xml_arg0 "DataProtectionPolicy") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let attributes =
        (Option.map ~f:TopicAttributesMap.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let name =
        TopicName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?dataProtectionPolicy ?tags ?attributes ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataProtectionPolicy =
        field_map json__ "DataProtectionPolicy" AttributeValue.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let attributes =
        field_map json__ "Attributes" TopicAttributesMap.of_json in
      let name = field_map_exn json__ "Name" TopicName.of_json in
      make ?dataProtectionPolicy ?tags ?attributes ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for CreateTopic action."]
module CreateSMSSandboxPhoneNumberResult =
  struct
    type createSMSSandboxPhoneNumberResult = unit
    and responseMetaData = unit
    and t =
      {
      createSMSSandboxPhoneNumberResult: createSMSSandboxPhoneNumberResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `OptedOutException of OptedOutException.t 
      | `ThrottledException of ThrottledException.t 
      | `UserErrorException of UserErrorException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () =
      { createSMSSandboxPhoneNumberResult = (); responseMetaData = () }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "OptedOutException" ->
          `OptedOutException (OptedOutException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | "UserErrorException" ->
          `UserErrorException (UserErrorException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "OptedOutException" ->
          `OptedOutException (OptedOutException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | "UserErrorException" ->
          `UserErrorException (UserErrorException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `OptedOutException e ->
          `Assoc
            [("error", (`String "OptedOutException"));
            ("details", (OptedOutException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `UserErrorException e ->
          `Assoc
            [("error", (`String "UserErrorException"));
            ("details", (UserErrorException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a destination phone number to an Amazon Web Services account in the SMS sandbox and sends a one-time password (OTP) to that phone number. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module CreateSMSSandboxPhoneNumberInput =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumberString.t
        [@ocaml.doc
          "The destination phone number to verify. On verification, Amazon SNS adds this phone number to the list of verified phone numbers that you can send SMS messages to."];
      languageCode: LanguageCodeString.t option
        [@ocaml.doc
          "The language to use for sending the OTP. The default value is en-US."]}
    let context_ = "CreateSMSSandboxPhoneNumberInput"
    let make ?languageCode =
      fun ~phoneNumber -> fun () -> { languageCode; phoneNumber }
    let to_value x =
      structure_to_value
        [("PhoneNumber", (Some (PhoneNumberString.to_value x.phoneNumber)));
        ("LanguageCode",
          (Option.map x.languageCode ~f:LanguageCodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let languageCode =
        (Option.map ~f:LanguageCodeString.of_xml)
          (Xml.child xml_arg0 "LanguageCode") in
      let phoneNumber =
        PhoneNumberString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumber") in
      make ?languageCode ~phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let languageCode =
        field_map json__ "LanguageCode" LanguageCodeString.of_json in
      let phoneNumber =
        field_map_exn json__ "PhoneNumber" PhoneNumberString.of_json in
      make ?languageCode ~phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a destination phone number to an Amazon Web Services account in the SMS sandbox and sends a one-time password (OTP) to that phone number. When you start using Amazon SNS to send SMS messages, your Amazon Web Services account is in the SMS sandbox. The SMS sandbox provides a safe environment for you to try Amazon SNS features without risking your reputation as an SMS sender. While your Amazon Web Services account is in the SMS sandbox, you can use all of the features of Amazon SNS. However, you can send SMS messages only to verified destination phone numbers. For more information, including how to move out of the sandbox to send messages without restrictions, see SMS sandbox in the Amazon SNS Developer Guide."]
module CreatePlatformEndpointInput =
  struct
    type nonrec t =
      {
      platformApplicationArn: String_.t
        [@ocaml.doc
          "PlatformApplicationArn returned from CreatePlatformApplication is used to create a an endpoint."];
      token: String_.t
        [@ocaml.doc
          "Unique identifier created by the notification service for an app on a device. The specific name for Token will vary, depending on which notification service is being used. For example, when using APNS as the notification service, you need the device token. Alternatively, when using GCM (Firebase Cloud Messaging) or ADM, the device token equivalent is called the registration ID."];
      customUserData: String_.t option
        [@ocaml.doc
          "Arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB."];
      attributes: MapStringToString.t option
        [@ocaml.doc "For a list of attributes, see SetEndpointAttributes ."]}
    let context_ = "CreatePlatformEndpointInput"
    let make ?customUserData =
      fun ?attributes ->
        fun ~platformApplicationArn ->
          fun ~token ->
            fun () ->
              { customUserData; attributes; platformApplicationArn; token }
    let to_value x =
      structure_to_value
        [("PlatformApplicationArn",
           (Some (String_.to_value x.platformApplicationArn)));
        ("Token", (Some (String_.to_value x.token)));
        ("CustomUserData", (Option.map x.customUserData ~f:String_.to_value));
        ("Attributes",
          (Option.map x.attributes ~f:MapStringToString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:MapStringToString.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let customUserData =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CustomUserData") in
      let token =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Token") in
      let platformApplicationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PlatformApplicationArn") in
      make ?attributes ?customUserData ~token ~platformApplicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" MapStringToString.of_json in
      let customUserData = field_map json__ "CustomUserData" String_.of_json in
      let token = field_map_exn json__ "Token" String_.of_json in
      let platformApplicationArn =
        field_map_exn json__ "PlatformApplicationArn" String_.of_json in
      make ?attributes ?customUserData ~token ~platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for CreatePlatformEndpoint action."]
module CreatePlatformApplicationResponse =
  struct
    type createPlatformApplicationResult =
      {
      platformApplicationArn: String_.t option
        [@ocaml.doc "PlatformApplicationArn is returned."]}
    and responseMetaData = unit
    and t =
      {
      createPlatformApplicationResult: createPlatformApplicationResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreatePlatformApplicationResponse"
    let make ?platformApplicationArn =
      fun () ->
        {
          createPlatformApplicationResult = { platformApplicationArn };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createPlatformApplicationResult in
      structure_to_wrapped_value
        [("PlatformApplicationArn",
           (Option.map x.platformApplicationArn ~f:String_.to_value))]
        ~wrapper:"CreatePlatformApplicationResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreatePlatformApplicationResult" in
      let platformApplicationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PlatformApplicationArn") in
      make ?platformApplicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let platformApplicationArn =
        field_map json__ "PlatformApplicationArn" String_.of_json in
      make ?platformApplicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response from CreatePlatformApplication action."]
module CreatePlatformApplicationInput =
  struct
    type nonrec t =
      {
      name: String_.t
        [@ocaml.doc
          "Application names must be made up of only uppercase and lowercase ASCII letters, numbers, underscores, hyphens, and periods, and must be between 1 and 256 characters long."];
      platform: String_.t
        [@ocaml.doc
          "The following platforms are supported: ADM (Amazon Device Messaging), APNS (Apple Push Notification Service), APNS_SANDBOX, and GCM (Firebase Cloud Messaging)."];
      attributes: MapStringToString.t
        [@ocaml.doc
          "For a list of attributes, see SetPlatformApplicationAttributes ."]}
    let context_ = "CreatePlatformApplicationInput"
    let make ~name =
      fun ~platform ->
        fun ~attributes -> fun () -> { name; platform; attributes }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Platform", (Some (String_.to_value x.platform)));
        ("Attributes", (Some (MapStringToString.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        MapStringToString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let platform =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Platform") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~attributes ~platform ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" MapStringToString.of_json in
      let platform = field_map_exn json__ "Platform" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ~attributes ~platform ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for CreatePlatformApplication action."]
module CreateEndpointResponse =
  struct
    type createPlatformEndpointResult =
      {
      endpointArn: String_.t option
        [@ocaml.doc "EndpointArn returned from CreateEndpoint action."]}
    and responseMetaData = unit
    and t =
      {
      createPlatformEndpointResult: createPlatformEndpointResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateEndpointResponse"
    let make ?endpointArn =
      fun () ->
        {
          createPlatformEndpointResult = { endpointArn };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createPlatformEndpointResult in
      structure_to_wrapped_value
        [("EndpointArn", (Option.map x.endpointArn ~f:String_.to_value))]
        ~wrapper:"CreatePlatformEndpointResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "CreatePlatformEndpointResult" in
      let endpointArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EndpointArn") in
      make ?endpointArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointArn = field_map json__ "EndpointArn" String_.of_json in
      make ?endpointArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response from CreateEndpoint action."]
module ConfirmSubscriptionResponse =
  struct
    type confirmSubscriptionResult =
      {
      subscriptionArn: SubscriptionARN.t option
        [@ocaml.doc "The ARN of the created subscription."]}
    and responseMetaData = unit
    and t =
      {
      confirmSubscriptionResult: confirmSubscriptionResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `FilterPolicyLimitExceededException of
          FilterPolicyLimitExceededException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotFoundException of NotFoundException.t 
      | `ReplayLimitExceededException of ReplayLimitExceededException.t 
      | `SubscriptionLimitExceededException of
          SubscriptionLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ConfirmSubscriptionResponse"
    let make ?subscriptionArn =
      fun () ->
        {
          confirmSubscriptionResult = { subscriptionArn };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "FilterPolicyLimitExceededException" ->
          `FilterPolicyLimitExceededException
            (FilterPolicyLimitExceededException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ReplayLimitExceededException" ->
          `ReplayLimitExceededException
            (ReplayLimitExceededException.of_json json)
      | "SubscriptionLimitExceededException" ->
          `SubscriptionLimitExceededException
            (SubscriptionLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "FilterPolicyLimitExceededException" ->
          `FilterPolicyLimitExceededException
            (FilterPolicyLimitExceededException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ReplayLimitExceededException" ->
          `ReplayLimitExceededException
            (ReplayLimitExceededException.of_xml xml)
      | "SubscriptionLimitExceededException" ->
          `SubscriptionLimitExceededException
            (SubscriptionLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `FilterPolicyLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterPolicyLimitExceededException"));
            ("details", (FilterPolicyLimitExceededException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ReplayLimitExceededException e ->
          `Assoc
            [("error", (`String "ReplayLimitExceededException"));
            ("details", (ReplayLimitExceededException.to_json e))]
      | `SubscriptionLimitExceededException e ->
          `Assoc
            [("error", (`String "SubscriptionLimitExceededException"));
            ("details", (SubscriptionLimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.confirmSubscriptionResult in
      structure_to_wrapped_value
        [("SubscriptionArn",
           (Option.map x.subscriptionArn ~f:SubscriptionARN.to_value))]
        ~wrapper:"ConfirmSubscriptionResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "ConfirmSubscriptionResult" in
      let subscriptionArn =
        (Option.map ~f:SubscriptionARN.of_xml)
          (Xml.child xml_arg0 "SubscriptionArn") in
      make ?subscriptionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionArn =
        field_map json__ "SubscriptionArn" SubscriptionARN.of_json in
      make ?subscriptionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for ConfirmSubscriptions action."]
module ConfirmSubscriptionInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc
          "The ARN of the topic for which you wish to confirm a subscription."];
      token: Token.t
        [@ocaml.doc
          "Short-lived token sent to an endpoint during the Subscribe action."];
      authenticateOnUnsubscribe: AuthenticateOnUnsubscribe.t option
        [@ocaml.doc
          "Disallows unauthenticated unsubscribes of the subscription. If the value of this parameter is true and the request has an Amazon Web Services signature, then only the topic owner and the subscription owner can unsubscribe the endpoint. The unsubscribe action requires Amazon Web Services authentication."]}
    let context_ = "ConfirmSubscriptionInput"
    let make ?authenticateOnUnsubscribe =
      fun ~topicArn ->
        fun ~token ->
          fun () -> { authenticateOnUnsubscribe; topicArn; token }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("Token", (Some (Token.to_value x.token)));
        ("AuthenticateOnUnsubscribe",
          (Option.map x.authenticateOnUnsubscribe
             ~f:AuthenticateOnUnsubscribe.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticateOnUnsubscribe =
        (Option.map ~f:AuthenticateOnUnsubscribe.of_xml)
          (Xml.child xml_arg0 "AuthenticateOnUnsubscribe") in
      let token =
        Token.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Token") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ?authenticateOnUnsubscribe ~token ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticateOnUnsubscribe =
        field_map json__ "AuthenticateOnUnsubscribe"
          AuthenticateOnUnsubscribe.of_json in
      let token = field_map_exn json__ "Token" Token.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ?authenticateOnUnsubscribe ~token ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for ConfirmSubscription action."]
module CheckIfPhoneNumberIsOptedOutResponse =
  struct
    type checkIfPhoneNumberIsOptedOutResult =
      {
      isOptedOut: Boolean.t option
        [@ocaml.doc
          "Indicates whether the phone number is opted out: true \226\128\147 The phone number is opted out, meaning you cannot publish SMS messages to it. false \226\128\147 The phone number is opted in, meaning you can publish SMS messages to it."]}
    and responseMetaData = unit
    and t =
      {
      checkIfPhoneNumberIsOptedOutResult: checkIfPhoneNumberIsOptedOutResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `AuthorizationErrorException of AuthorizationErrorException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ThrottledException of ThrottledException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CheckIfPhoneNumberIsOptedOutResponse"
    let make ?isOptedOut =
      fun () ->
        {
          checkIfPhoneNumberIsOptedOutResult = { isOptedOut };
          responseMetaData = ()
        }
    let error_of_json name json =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorizationErrorException" ->
          `AuthorizationErrorException
            (AuthorizationErrorException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ThrottledException" ->
          `ThrottledException (ThrottledException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorizationErrorException e ->
          `Assoc
            [("error", (`String "AuthorizationErrorException"));
            ("details", (AuthorizationErrorException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ThrottledException e ->
          `Assoc
            [("error", (`String "ThrottledException"));
            ("details", (ThrottledException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.checkIfPhoneNumberIsOptedOutResult in
      structure_to_wrapped_value
        [("isOptedOut", (Option.map x.isOptedOut ~f:Boolean.to_value))]
        ~wrapper:"CheckIfPhoneNumberIsOptedOutResult"
        ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t
          "CheckIfPhoneNumberIsOptedOutResult" in
      let isOptedOut =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsOptedOut") in
      make ?isOptedOut ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isOptedOut = field_map json__ "isOptedOut" Boolean.of_json in
      make ?isOptedOut ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response from the CheckIfPhoneNumberIsOptedOut action."]
module CheckIfPhoneNumberIsOptedOutInput =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t
        [@ocaml.doc
          "The phone number for which you want to check the opt out status."]}
    let context_ = "CheckIfPhoneNumberIsOptedOutInput"
    let make ~phoneNumber = fun () -> { phoneNumber }
    let to_value x =
      structure_to_value
        [("phoneNumber", (Some (PhoneNumber.to_value x.phoneNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumber") in
      make ~phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber =
        field_map_exn json__ "phoneNumber" PhoneNumber.of_json in
      make ~phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the CheckIfPhoneNumberIsOptedOut action."]
module AddPermissionInput =
  struct
    type nonrec t =
      {
      topicArn: TopicARN.t
        [@ocaml.doc
          "The ARN of the topic whose access control policy you wish to modify."];
      label: Label.t
        [@ocaml.doc "A unique identifier for the new policy statement."];
      aWSAccountId: DelegatesList.t
        [@ocaml.doc
          "The Amazon Web Services account IDs of the users (principals) who will be given access to the specified actions. The users must have Amazon Web Services account, but do not need to be signed up for this service."];
      actionName: ActionsList.t
        [@ocaml.doc
          "The action you want to allow for the specified principal(s). Valid values: Any Amazon SNS action name, for example Publish."]}
    let context_ = "AddPermissionInput"
    let make ~topicArn =
      fun ~label ->
        fun ~aWSAccountId ->
          fun ~actionName ->
            fun () -> { topicArn; label; aWSAccountId; actionName }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (TopicARN.to_value x.topicArn)));
        ("Label", (Some (Label.to_value x.label)));
        ("AWSAccountId", (Some (DelegatesList.to_value x.aWSAccountId)));
        ("ActionName", (Some (ActionsList.to_value x.actionName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionName =
        ActionsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ActionName") in
      let aWSAccountId =
        DelegatesList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AWSAccountId") in
      let label =
        Label.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Label") in
      let topicArn =
        TopicARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TopicArn") in
      make ~actionName ~aWSAccountId ~label ~topicArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionName = field_map_exn json__ "ActionName" ActionsList.of_json in
      let aWSAccountId =
        field_map_exn json__ "AWSAccountId" DelegatesList.of_json in
      let label = field_map_exn json__ "Label" Label.of_json in
      let topicArn = field_map_exn json__ "TopicArn" TopicARN.of_json in
      make ~actionName ~aWSAccountId ~label ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a statement to a topic's access control policy, granting access for the specified Amazon Web Services accounts to the specified actions. To remove the ability to change topic permissions, you must deny permissions to the AddPermission, RemovePermission, and SetTopicAttributes actions in your IAM policy."]