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.pinpoint_sms_voice
let apiVersion = "2018-09-05"
let endpointPrefix = "sms-voice.pinpoint"
let serviceFullName = "Amazon Pinpoint SMS and Voice Service"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Pinpoint SMS Voice"
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 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 EventType =
  struct
    type nonrec t =
      | INITIATED_CALL 
      | RINGING 
      | ANSWERED 
      | COMPLETED_CALL 
      | BUSY 
      | FAILED 
      | NO_ANSWER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INITIATED_CALL -> "INITIATED_CALL"
      | RINGING -> "RINGING"
      | ANSWERED -> "ANSWERED"
      | COMPLETED_CALL -> "COMPLETED_CALL"
      | BUSY -> "BUSY"
      | FAILED -> "FAILED"
      | NO_ANSWER -> "NO_ANSWER"
      | Non_static_id s -> s
    let of_string =
      function
      | "INITIATED_CALL" -> INITIATED_CALL
      | "RINGING" -> RINGING
      | "ANSWERED" -> ANSWERED
      | "COMPLETED_CALL" -> COMPLETED_CALL
      | "BUSY" -> BUSY
      | "FAILED" -> FAILED
      | "NO_ANSWER" -> NO_ANSWER
      | 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 EventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventType" j)
    let to_json = simple_to_json to_value
  end
module NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    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:"NonEmptyString" 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 CloudWatchLogsDestination =
  struct
    type nonrec t =
      {
      iamRoleArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Amazon Identity and Access Management (IAM) role that is able to write event data to an Amazon CloudWatch destination."];
      logGroupArn: String_.t option
        [@ocaml.doc
          "The name of the Amazon CloudWatch Log Group that you want to record events in."]}
    let make ?iamRoleArn =
      fun ?logGroupArn -> fun () -> { iamRoleArn; logGroupArn }
    let to_value x =
      structure_to_value
        [("IamRoleArn", (Option.map x.iamRoleArn ~f:String_.to_value));
        ("LogGroupArn", (Option.map x.logGroupArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LogGroupArn") in
      let iamRoleArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      make ?logGroupArn ?iamRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupArn = field_map json__ "LogGroupArn" String_.of_json in
      let iamRoleArn = field_map json__ "IamRoleArn" String_.of_json in
      make ?logGroupArn ?iamRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about an event destination that sends data to Amazon CloudWatch Logs."]
module EventTypes =
  struct
    type nonrec t = EventType.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:EventType.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:EventType.of_xml)
    let of_json j =
      list_of_json ~kind:"EventTypes" ~of_json:EventType.of_json j
    let to_json v = composed_to_json to_value v
  end
module KinesisFirehoseDestination =
  struct
    type nonrec t =
      {
      deliveryStreamArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an IAM role that can write data to an Amazon Kinesis Data Firehose stream."];
      iamRoleArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Kinesis Data Firehose destination that you want to use in the event destination."]}
    let make ?deliveryStreamArn =
      fun ?iamRoleArn -> fun () -> { deliveryStreamArn; iamRoleArn }
    let to_value x =
      structure_to_value
        [("DeliveryStreamArn",
           (Option.map x.deliveryStreamArn ~f:String_.to_value));
        ("IamRoleArn", (Option.map x.iamRoleArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iamRoleArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "IamRoleArn") in
      let deliveryStreamArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DeliveryStreamArn") in
      make ?iamRoleArn ?deliveryStreamArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iamRoleArn = field_map json__ "IamRoleArn" String_.of_json in
      let deliveryStreamArn =
        field_map json__ "DeliveryStreamArn" String_.of_json in
      make ?iamRoleArn ?deliveryStreamArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about an event destination that sends data to Amazon Kinesis Data Firehose."]
module SnsDestination =
  struct
    type nonrec t =
      {
      topicArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon SNS topic that you want to publish events to."]}
    let make ?topicArn = fun () -> { topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Option.map x.topicArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        (Option.map ~f:String_.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" String_.of_json in
      make ?topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about an event destination that sends data to Amazon SNS."]
module CallInstructionsMessageType =
  struct
    type nonrec t =
      {
      text: NonEmptyString.t option
        [@ocaml.doc
          "The language to use when delivering the message. For a complete list of supported languages, see the Amazon Polly Developer Guide."]}
    let make ?text = fun () -> { text }
    let to_value x =
      structure_to_value
        [("Text", (Option.map x.text ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let text =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Text") in
      make ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let text = field_map json__ "Text" NonEmptyString.of_json in
      make ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines a message that contains text formatted using Amazon Pinpoint Voice Instructions markup."]
module PlainTextMessageType =
  struct
    type nonrec t =
      {
      languageCode: String_.t option
        [@ocaml.doc
          "The language to use when delivering the message. For a complete list of supported languages, see the Amazon Polly Developer Guide."];
      text: NonEmptyString.t option
        [@ocaml.doc
          "The plain (not SSML-formatted) text to deliver to the recipient."];
      voiceId: String_.t option
        [@ocaml.doc
          "The name of the voice that you want to use to deliver the message. For a complete list of supported voices, see the Amazon Polly Developer Guide."]}
    let make ?languageCode =
      fun ?text -> fun ?voiceId -> fun () -> { languageCode; text; voiceId }
    let to_value x =
      structure_to_value
        [("LanguageCode", (Option.map x.languageCode ~f:String_.to_value));
        ("Text", (Option.map x.text ~f:NonEmptyString.to_value));
        ("VoiceId", (Option.map x.voiceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VoiceId") in
      let text =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Text") in
      let languageCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LanguageCode") in
      make ?voiceId ?text ?languageCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceId = field_map json__ "VoiceId" String_.of_json in
      let text = field_map json__ "Text" NonEmptyString.of_json in
      let languageCode = field_map json__ "LanguageCode" String_.of_json in
      make ?voiceId ?text ?languageCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines a message that contains unformatted text."]
module SSMLMessageType =
  struct
    type nonrec t =
      {
      languageCode: String_.t option
        [@ocaml.doc
          "The language to use when delivering the message. For a complete list of supported languages, see the Amazon Polly Developer Guide."];
      text: NonEmptyString.t option
        [@ocaml.doc "The SSML-formatted text to deliver to the recipient."];
      voiceId: String_.t option
        [@ocaml.doc
          "The name of the voice that you want to use to deliver the message. For a complete list of supported voices, see the Amazon Polly Developer Guide."]}
    let make ?languageCode =
      fun ?text -> fun ?voiceId -> fun () -> { languageCode; text; voiceId }
    let to_value x =
      structure_to_value
        [("LanguageCode", (Option.map x.languageCode ~f:String_.to_value));
        ("Text", (Option.map x.text ~f:NonEmptyString.to_value));
        ("VoiceId", (Option.map x.voiceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VoiceId") in
      let text =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "Text") in
      let languageCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LanguageCode") in
      make ?voiceId ?text ?languageCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceId = field_map json__ "VoiceId" String_.of_json in
      let text = field_map json__ "Text" NonEmptyString.of_json in
      let languageCode = field_map json__ "LanguageCode" String_.of_json in
      make ?voiceId ?text ?languageCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines a message that contains SSML-formatted text."]
module WordCharactersWithDelimiters =
  struct
    type nonrec t = string
    let context_ = "WordCharactersWithDelimiters"
    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:"WordCharactersWithDelimiters" j
    let to_json = simple_to_json to_value
  end
module EventDestination =
  struct
    type nonrec t =
      {
      cloudWatchLogsDestination: CloudWatchLogsDestination.t option ;
      enabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether or not the event destination is enabled. If the event destination is enabled, then Amazon Pinpoint sends response data to the specified event destination."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option ;
      matchingEventTypes: EventTypes.t option ;
      name: String_.t option
        [@ocaml.doc
          "A name that identifies the event destination configuration."];
      snsDestination: SnsDestination.t option }
    let make ?cloudWatchLogsDestination =
      fun ?enabled ->
        fun ?kinesisFirehoseDestination ->
          fun ?matchingEventTypes ->
            fun ?name ->
              fun ?snsDestination ->
                fun () ->
                  {
                    cloudWatchLogsDestination;
                    enabled;
                    kinesisFirehoseDestination;
                    matchingEventTypes;
                    name;
                    snsDestination
                  }
    let to_value x =
      structure_to_value
        [("CloudWatchLogsDestination",
           (Option.map x.cloudWatchLogsDestination
              ~f:CloudWatchLogsDestination.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("MatchingEventTypes",
          (Option.map x.matchingEventTypes ~f:EventTypes.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let matchingEventTypes =
        (Option.map ~f:EventTypes.of_xml)
          (Xml.child xml_arg0 "MatchingEventTypes") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let cloudWatchLogsDestination =
        (Option.map ~f:CloudWatchLogsDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsDestination") in
      make ?snsDestination ?name ?matchingEventTypes
        ?kinesisFirehoseDestination ?enabled ?cloudWatchLogsDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let matchingEventTypes =
        field_map json__ "MatchingEventTypes" EventTypes.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let cloudWatchLogsDestination =
        field_map json__ "CloudWatchLogsDestination"
          CloudWatchLogsDestination.of_json in
      make ?snsDestination ?name ?matchingEventTypes
        ?kinesisFirehoseDestination ?enabled ?cloudWatchLogsDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object that defines an event destination."]
module BadRequestException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input you provided is invalid."]
module InternalServiceErrorException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The API encountered an unexpected error and couldn't complete the request. You might be able to successfully issue the request again in the future."]
module NotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource you attempted to access doesn't exist."]
module TooManyRequestsException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've issued too many requests to the resource. Wait a few minutes, and then try again."]
module EventDestinationDefinition =
  struct
    type nonrec t =
      {
      cloudWatchLogsDestination: CloudWatchLogsDestination.t option ;
      enabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether or not the event destination is enabled. If the event destination is enabled, then Amazon Pinpoint sends response data to the specified event destination."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option ;
      matchingEventTypes: EventTypes.t option ;
      snsDestination: SnsDestination.t option }
    let make ?cloudWatchLogsDestination =
      fun ?enabled ->
        fun ?kinesisFirehoseDestination ->
          fun ?matchingEventTypes ->
            fun ?snsDestination ->
              fun () ->
                {
                  cloudWatchLogsDestination;
                  enabled;
                  kinesisFirehoseDestination;
                  matchingEventTypes;
                  snsDestination
                }
    let to_value x =
      structure_to_value
        [("CloudWatchLogsDestination",
           (Option.map x.cloudWatchLogsDestination
              ~f:CloudWatchLogsDestination.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("MatchingEventTypes",
          (Option.map x.matchingEventTypes ~f:EventTypes.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let matchingEventTypes =
        (Option.map ~f:EventTypes.of_xml)
          (Xml.child xml_arg0 "MatchingEventTypes") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let cloudWatchLogsDestination =
        (Option.map ~f:CloudWatchLogsDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsDestination") in
      make ?snsDestination ?matchingEventTypes ?kinesisFirehoseDestination
        ?enabled ?cloudWatchLogsDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let matchingEventTypes =
        field_map json__ "MatchingEventTypes" EventTypes.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let cloudWatchLogsDestination =
        field_map json__ "CloudWatchLogsDestination"
          CloudWatchLogsDestination.of_json in
      make ?snsDestination ?matchingEventTypes ?kinesisFirehoseDestination
        ?enabled ?cloudWatchLogsDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object that defines a single event destination."]
module Zz__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 VoiceMessageContent =
  struct
    type nonrec t =
      {
      callInstructionsMessage: CallInstructionsMessageType.t option ;
      plainTextMessage: PlainTextMessageType.t option ;
      sSMLMessage: SSMLMessageType.t option }
    let make ?callInstructionsMessage =
      fun ?plainTextMessage ->
        fun ?sSMLMessage ->
          fun () ->
            { callInstructionsMessage; plainTextMessage; sSMLMessage }
    let to_value x =
      structure_to_value
        [("CallInstructionsMessage",
           (Option.map x.callInstructionsMessage
              ~f:CallInstructionsMessageType.to_value));
        ("PlainTextMessage",
          (Option.map x.plainTextMessage ~f:PlainTextMessageType.to_value));
        ("SSMLMessage",
          (Option.map x.sSMLMessage ~f:SSMLMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sSMLMessage =
        (Option.map ~f:SSMLMessageType.of_xml)
          (Xml.child xml_arg0 "SSMLMessage") in
      let plainTextMessage =
        (Option.map ~f:PlainTextMessageType.of_xml)
          (Xml.child xml_arg0 "PlainTextMessage") in
      let callInstructionsMessage =
        (Option.map ~f:CallInstructionsMessageType.of_xml)
          (Xml.child xml_arg0 "CallInstructionsMessage") in
      make ?sSMLMessage ?plainTextMessage ?callInstructionsMessage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sSMLMessage =
        field_map json__ "SSMLMessage" SSMLMessageType.of_json in
      let plainTextMessage =
        field_map json__ "PlainTextMessage" PlainTextMessageType.of_json in
      let callInstructionsMessage =
        field_map json__ "CallInstructionsMessage"
          CallInstructionsMessageType.of_json in
      make ?sSMLMessage ?plainTextMessage ?callInstructionsMessage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains a voice message and information about the recipient that you want to send it to."]
module ConfigurationSets =
  struct
    type nonrec t = WordCharactersWithDelimiters.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:WordCharactersWithDelimiters.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:WordCharactersWithDelimiters.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationSets"
        ~of_json:WordCharactersWithDelimiters.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextTokenString =
  struct
    type nonrec t = string
    let context_ = "NextTokenString"
    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:"NextTokenString" j
    let to_json = simple_to_json to_value
  end
module EventDestinations =
  struct
    type nonrec t = EventDestination.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:EventDestination.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:EventDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"EventDestinations"
        ~of_json:EventDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module AlreadyExistsException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource specified in your request already exists."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "There are too many instances of the specified resource type."]
module Zz__timestampUnix =
  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 Zz__timestampIso8601 =
  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 Zz__long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module Zz__integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for __integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Zz__double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module Zz__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 UpdateConfigurationSetEventDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
       "An empty object that indicates that the event destination was updated successfully."]
module UpdateConfigurationSetEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: Zz__string.t [@ocaml.doc "ConfigurationSetName"];
      eventDestination: EventDestinationDefinition.t option ;
      eventDestinationName: Zz__string.t [@ocaml.doc "EventDestinationName"]}
    let context_ = "UpdateConfigurationSetEventDestinationRequest"
    let make ?eventDestination =
      fun ~configurationSetName ->
        fun ~eventDestinationName ->
          fun () ->
            { eventDestination; configurationSetName; eventDestinationName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (Zz__string.to_value x.configurationSetName)));
        ("EventDestination",
          (Option.map x.eventDestination
             ~f:EventDestinationDefinition.to_value));
        ("EventDestinationName",
          (Some (Zz__string.to_value x.eventDestinationName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestinationName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let eventDestination =
        (Option.map ~f:EventDestinationDefinition.of_xml)
          (Xml.child xml_arg0 "EventDestination") in
      let configurationSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~eventDestinationName ?eventDestination ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestinationName =
        field_map_exn json__ "EventDestinationName" Zz__string.of_json in
      let eventDestination =
        field_map json__ "EventDestination"
          EventDestinationDefinition.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName" Zz__string.of_json in
      make ~eventDestinationName ?eventDestination ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "UpdateConfigurationSetEventDestinationRequest"]
module SendVoiceMessageResponse =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "A unique identifier for the voice message."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId = fun () -> { messageId }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that that contains the Message ID of a Voice message that was sent successfully."]
module SendVoiceMessageRequest =
  struct
    type nonrec t =
      {
      callerId: String_.t option
        [@ocaml.doc
          "The phone number that appears on recipients' devices when they receive the message."];
      configurationSetName: WordCharactersWithDelimiters.t option
        [@ocaml.doc
          "The name of the configuration set that you want to use to send the message."];
      content: VoiceMessageContent.t option ;
      destinationPhoneNumber: NonEmptyString.t option
        [@ocaml.doc
          "The phone number that you want to send the voice message to."];
      originationPhoneNumber: NonEmptyString.t option
        [@ocaml.doc
          "The phone number that Amazon Pinpoint should use to send the voice message. This isn't necessarily the phone number that appears on recipients' devices when they receive the message, because you can specify a CallerId parameter in the request."]}
    let make ?callerId =
      fun ?configurationSetName ->
        fun ?content ->
          fun ?destinationPhoneNumber ->
            fun ?originationPhoneNumber ->
              fun () ->
                {
                  callerId;
                  configurationSetName;
                  content;
                  destinationPhoneNumber;
                  originationPhoneNumber
                }
    let to_value x =
      structure_to_value
        [("CallerId", (Option.map x.callerId ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:WordCharactersWithDelimiters.to_value));
        ("Content", (Option.map x.content ~f:VoiceMessageContent.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:NonEmptyString.to_value));
        ("OriginationPhoneNumber",
          (Option.map x.originationPhoneNumber ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let originationPhoneNumber =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "OriginationPhoneNumber") in
      let destinationPhoneNumber =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let content =
        (Option.map ~f:VoiceMessageContent.of_xml)
          (Xml.child xml_arg0 "Content") in
      let configurationSetName =
        (Option.map ~f:WordCharactersWithDelimiters.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let callerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CallerId") in
      make ?originationPhoneNumber ?destinationPhoneNumber ?content
        ?configurationSetName ?callerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let originationPhoneNumber =
        field_map json__ "OriginationPhoneNumber" NonEmptyString.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" NonEmptyString.of_json in
      let content = field_map json__ "Content" VoiceMessageContent.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          WordCharactersWithDelimiters.of_json in
      let callerId = field_map json__ "CallerId" String_.of_json in
      make ?originationPhoneNumber ?destinationPhoneNumber ?content
        ?configurationSetName ?callerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "SendVoiceMessageRequest"]
module ListConfigurationSetsResponse =
  struct
    type nonrec t =
      {
      configurationSets: ConfigurationSets.t option
        [@ocaml.doc
          "An object that contains a list of configuration sets for your account in the current region."];
      nextToken: NextTokenString.t option
        [@ocaml.doc
          "A token returned from a previous call to ListConfigurationSets to indicate the position in the list of configuration sets."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSets =
      fun ?nextToken -> fun () -> { configurationSets; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSets",
           (Option.map x.configurationSets ~f:ConfigurationSets.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let configurationSets =
        (Option.map ~f:ConfigurationSets.of_xml)
          (Xml.child xml_arg0 "ConfigurationSets") in
      make ?nextToken ?configurationSets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let configurationSets =
        field_map json__ "ConfigurationSets" ConfigurationSets.of_json in
      make ?nextToken ?configurationSets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the configuration sets for your account in the current region."]
module ListConfigurationSetsRequest =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "A token returned from a previous call to the API that indicates the position in the list of results."];
      pageSize: Zz__string.t option
        [@ocaml.doc
          "Used to specify the number of items that should be returned in the response."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("PageSize", (Option.map x.pageSize ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?pageSize ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all of the configuration sets associated with your Amazon Pinpoint account in the current region."]
module GetConfigurationSetEventDestinationsResponse =
  struct
    type nonrec t = {
      eventDestinations: EventDestinations.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventDestinations = fun () -> { eventDestinations }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("EventDestinations",
           (Option.map x.eventDestinations ~f:EventDestinations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestinations =
        (Option.map ~f:EventDestinations.of_xml)
          (Xml.child xml_arg0 "EventDestinations") in
      make ?eventDestinations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestinations =
        field_map json__ "EventDestinations" EventDestinations.of_json in
      make ?eventDestinations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about an event destination."]
module GetConfigurationSetEventDestinationsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: Zz__string.t [@ocaml.doc "ConfigurationSetName"]}
    let context_ = "GetConfigurationSetEventDestinationsRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (Zz__string.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName" Zz__string.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Obtain information about an event destination, including the types of events it reports, the Amazon Resource Name (ARN) of the destination, and the name of the event destination."]
module DeleteConfigurationSetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
       "An empty object that indicates that the configuration set was deleted successfully."]
module DeleteConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: Zz__string.t [@ocaml.doc "ConfigurationSetName"]}
    let context_ = "DeleteConfigurationSetRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (Zz__string.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName" Zz__string.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing configuration set."]
module DeleteConfigurationSetEventDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
       "An empty object that indicates that the event destination was deleted successfully."]
module DeleteConfigurationSetEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: Zz__string.t [@ocaml.doc "ConfigurationSetName"];
      eventDestinationName: Zz__string.t [@ocaml.doc "EventDestinationName"]}
    let context_ = "DeleteConfigurationSetEventDestinationRequest"
    let make ~configurationSetName =
      fun ~eventDestinationName ->
        fun () -> { configurationSetName; eventDestinationName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (Zz__string.to_value x.configurationSetName)));
        ("EventDestinationName",
          (Some (Zz__string.to_value x.eventDestinationName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestinationName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let configurationSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~eventDestinationName ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestinationName =
        field_map_exn json__ "EventDestinationName" Zz__string.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName" Zz__string.of_json in
      make ~eventDestinationName ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an event destination in a configuration set."]
module CreateConfigurationSetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyExistsException e ->
          `Assoc
            [("error", (`String "AlreadyExistsException"));
            ("details", (AlreadyExistsException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
       "An empty object that indicates that the configuration set was successfully created."]
module CreateConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: WordCharactersWithDelimiters.t option
        [@ocaml.doc "The name that you want to give the configuration set."]}
    let make ?configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Option.map x.configurationSetName
              ~f:WordCharactersWithDelimiters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        (Option.map ~f:WordCharactersWithDelimiters.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      make ?configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          WordCharactersWithDelimiters.of_json in
      make ?configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to create a new configuration set."]
module CreateConfigurationSetEventDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyExistsException e ->
          `Assoc
            [("error", (`String "AlreadyExistsException"));
            ("details", (AlreadyExistsException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
       "An empty object that indicates that the event destination was created successfully."]
module CreateConfigurationSetEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: Zz__string.t [@ocaml.doc "ConfigurationSetName"];
      eventDestination: EventDestinationDefinition.t option ;
      eventDestinationName: NonEmptyString.t option
        [@ocaml.doc "A name that identifies the event destination."]}
    let context_ = "CreateConfigurationSetEventDestinationRequest"
    let make ?eventDestination =
      fun ?eventDestinationName ->
        fun ~configurationSetName ->
          fun () ->
            { eventDestination; eventDestinationName; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (Zz__string.to_value x.configurationSetName)));
        ("EventDestination",
          (Option.map x.eventDestination
             ~f:EventDestinationDefinition.to_value));
        ("EventDestinationName",
          (Option.map x.eventDestinationName ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestinationName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "EventDestinationName") in
      let eventDestination =
        (Option.map ~f:EventDestinationDefinition.of_xml)
          (Xml.child xml_arg0 "EventDestination") in
      let configurationSetName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?eventDestinationName ?eventDestination ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestinationName =
        field_map json__ "EventDestinationName" NonEmptyString.of_json in
      let eventDestination =
        field_map json__ "EventDestination"
          EventDestinationDefinition.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName" Zz__string.of_json in
      make ?eventDestinationName ?eventDestination ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create a new event destination in a configuration set."]