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.sesv2
let apiVersion = "2019-09-27"
let endpointPrefix = "email"
let serviceFullName = "Amazon Simple Email Service"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon SES V2"
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 BounceSubType =
  struct
    type nonrec t = string
    let context_ = "BounceSubType"
    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:"BounceSubType" j
    let to_json = simple_to_json to_value
  end
module BounceType =
  struct
    type nonrec t =
      | UNDETERMINED 
      | TRANSIENT 
      | PERMANENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNDETERMINED -> "UNDETERMINED"
      | TRANSIENT -> "TRANSIENT"
      | PERMANENT -> "PERMANENT"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNDETERMINED" -> UNDETERMINED
      | "TRANSIENT" -> TRANSIENT
      | "PERMANENT" -> PERMANENT
      | 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 BounceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BounceType" j)
    let to_json = simple_to_json to_value
  end
module DiagnosticCode =
  struct
    type nonrec t = string
    let context_ = "DiagnosticCode"
    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:"DiagnosticCode" j
    let to_json = simple_to_json to_value
  end
module ComplaintFeedbackType =
  struct
    type nonrec t = string
    let context_ = "ComplaintFeedbackType"
    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:"ComplaintFeedbackType" j
    let to_json = simple_to_json to_value
  end
module ComplaintSubType =
  struct
    type nonrec t = string
    let context_ = "ComplaintSubType"
    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:"ComplaintSubType" j
    let to_json = simple_to_json to_value
  end
module Bounce =
  struct
    type nonrec t =
      {
      bounceType: BounceType.t option
        [@ocaml.doc
          "The type of the bounce, as determined by SES. Can be one of UNDETERMINED, TRANSIENT, or PERMANENT"];
      bounceSubType: BounceSubType.t option
        [@ocaml.doc "The subtype of the bounce, as determined by SES."];
      diagnosticCode: DiagnosticCode.t option
        [@ocaml.doc
          "The status code issued by the reporting Message Transfer Authority (MTA). This field only appears if a delivery status notification (DSN) was attached to the bounce and the Diagnostic-Code was provided in the DSN."]}
    let make ?bounceType =
      fun ?bounceSubType ->
        fun ?diagnosticCode ->
          fun () -> { bounceType; bounceSubType; diagnosticCode }
    let to_value x =
      structure_to_value
        [("BounceType", (Option.map x.bounceType ~f:BounceType.to_value));
        ("BounceSubType",
          (Option.map x.bounceSubType ~f:BounceSubType.to_value));
        ("DiagnosticCode",
          (Option.map x.diagnosticCode ~f:DiagnosticCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diagnosticCode =
        (Option.map ~f:DiagnosticCode.of_xml)
          (Xml.child xml_arg0 "DiagnosticCode") in
      let bounceSubType =
        (Option.map ~f:BounceSubType.of_xml)
          (Xml.child xml_arg0 "BounceSubType") in
      let bounceType =
        (Option.map ~f:BounceType.of_xml) (Xml.child xml_arg0 "BounceType") in
      make ?diagnosticCode ?bounceSubType ?bounceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diagnosticCode =
        field_map json__ "DiagnosticCode" DiagnosticCode.of_json in
      let bounceSubType =
        field_map json__ "BounceSubType" BounceSubType.of_json in
      let bounceType = field_map json__ "BounceType" BounceType.of_json in
      make ?diagnosticCode ?bounceSubType ?bounceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a Bounce event."]
module Complaint =
  struct
    type nonrec t =
      {
      complaintSubType: ComplaintSubType.t option
        [@ocaml.doc
          "Can either be null or OnAccountSuppressionList. If the value is OnAccountSuppressionList, SES accepted the message, but didn't attempt to send it because it was on the account-level suppression list."];
      complaintFeedbackType: ComplaintFeedbackType.t option
        [@ocaml.doc
          "The value of the Feedback-Type field from the feedback report received from the ISP."]}
    let make ?complaintSubType =
      fun ?complaintFeedbackType ->
        fun () -> { complaintSubType; complaintFeedbackType }
    let to_value x =
      structure_to_value
        [("ComplaintSubType",
           (Option.map x.complaintSubType ~f:ComplaintSubType.to_value));
        ("ComplaintFeedbackType",
          (Option.map x.complaintFeedbackType
             ~f:ComplaintFeedbackType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let complaintFeedbackType =
        (Option.map ~f:ComplaintFeedbackType.of_xml)
          (Xml.child xml_arg0 "ComplaintFeedbackType") in
      let complaintSubType =
        (Option.map ~f:ComplaintSubType.of_xml)
          (Xml.child xml_arg0 "ComplaintSubType") in
      make ?complaintFeedbackType ?complaintSubType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let complaintFeedbackType =
        field_map json__ "ComplaintFeedbackType"
          ComplaintFeedbackType.of_json in
      let complaintSubType =
        field_map json__ "ComplaintSubType" ComplaintSubType.of_json in
      make ?complaintFeedbackType ?complaintSubType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a Complaint event."]
module DefaultDimensionValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The default value of the dimension that is published to Amazon CloudWatch if you don't provide the value of the dimension when you send an email. This value has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]
    let context_ = "DefaultDimensionValue"
    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:"DefaultDimensionValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The default value of the dimension that is published to Amazon CloudWatch if you don't provide the value of the dimension when you send an email. This value has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]
module DimensionName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of an Amazon CloudWatch dimension associated with an email sending metric. The name has to meet the following criteria: It can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-). It can contain no more than 256 characters."]
    let context_ = "DimensionName"
    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:"DimensionName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of an Amazon CloudWatch dimension associated with an email sending metric. The name has to meet the following criteria: It can only contain ASCII letters (a-z, A-Z), numbers (0-9), underscores (_), or dashes (-). It can contain no more than 256 characters."]
module DimensionValueSource =
  struct
    type nonrec t =
      | MESSAGE_TAG 
      | EMAIL_HEADER 
      | LINK_TAG 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MESSAGE_TAG -> "MESSAGE_TAG"
      | EMAIL_HEADER -> "EMAIL_HEADER"
      | LINK_TAG -> "LINK_TAG"
      | Non_static_id s -> s
    let of_string =
      function
      | "MESSAGE_TAG" -> MESSAGE_TAG
      | "EMAIL_HEADER" -> EMAIL_HEADER
      | "LINK_TAG" -> LINK_TAG
      | 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 DimensionValueSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DimensionValueSource" j)
    let to_json = simple_to_json to_value
  end
module AttachmentContentDescription =
  struct
    type nonrec t = string
    let context_ = "AttachmentContentDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"AttachmentContentDescription" j
    let to_json = simple_to_json to_value
  end
module AttachmentContentDisposition =
  struct
    type nonrec t =
      | ATTACHMENT 
      | INLINE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ATTACHMENT -> "ATTACHMENT"
      | INLINE -> "INLINE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ATTACHMENT" -> ATTACHMENT
      | "INLINE" -> INLINE
      | 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 AttachmentContentDisposition"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AttachmentContentDisposition" j)
    let to_json = simple_to_json to_value
  end
module AttachmentContentId =
  struct
    type nonrec t = string
    let context_ = "AttachmentContentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:78) >>=
             (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:"AttachmentContentId" j
    let to_json = simple_to_json to_value
  end
module AttachmentContentTransferEncoding =
  struct
    type nonrec t =
      | BASE64 
      | QUOTED_PRINTABLE 
      | SEVEN_BIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASE64 -> "BASE64"
      | QUOTED_PRINTABLE -> "QUOTED_PRINTABLE"
      | SEVEN_BIT -> "SEVEN_BIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASE64" -> BASE64
      | "QUOTED_PRINTABLE" -> QUOTED_PRINTABLE
      | "SEVEN_BIT" -> SEVEN_BIT
      | 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 AttachmentContentTransferEncoding"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AttachmentContentTransferEncoding" j)
    let to_json = simple_to_json to_value
  end
module AttachmentContentType =
  struct
    type nonrec t = string
    let context_ = "AttachmentContentType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:78) >>=
             (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:"AttachmentContentType" j
    let to_json = simple_to_json to_value
  end
module AttachmentFileName =
  struct
    type nonrec t = string
    let context_ = "AttachmentFileName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttachmentFileName" j
    let to_json = simple_to_json to_value
  end
module RawAttachmentData =
  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 Charset =
  struct
    type nonrec t = string
    let context_ = "Charset"
    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:"Charset" j
    let to_json = simple_to_json to_value
  end
module MessageData =
  struct
    type nonrec t = string
    let context_ = "MessageData"
    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:"MessageData" j
    let to_json = simple_to_json to_value
  end
module MessageHeaderName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the message header. The message header name has to meet the following criteria: Can contain any printable ASCII character (33 - 126) except for colon (:). Can contain no more than 126 characters."]
    let context_ = "MessageHeaderName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:126) >>=
                  (fun () -> check_pattern i ~pattern:"^[!-9;-@A-~]+$")));
        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:"MessageHeaderName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of the message header. The message header name has to meet the following criteria: Can contain any printable ASCII character (33 - 126) except for colon (:). Can contain no more than 126 characters."]
module MessageHeaderValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The value of the message header. The message header value has to meet the following criteria: Can contain any printable ASCII character."]
    let context_ = "MessageHeaderValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:995) >>=
                  (fun () -> check_pattern i ~pattern:"[ -~]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MessageHeaderValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The value of the message header. The message header value has to meet the following criteria: Can contain any printable ASCII character."]
module EmailAddress =
  struct
    type nonrec t = string
    let context_ = "EmailAddress"
    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:"EmailAddress" j
    let to_json = simple_to_json to_value
  end
module MessageTagName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the message tag. The message tag name has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]
    let context_ = "MessageTagName"
    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:"MessageTagName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of the message tag. The message tag name has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]
module MessageTagValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The value of the message tag. The message tag value has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]
    let context_ = "MessageTagValue"
    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:"MessageTagValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The value of the message tag. The message tag value has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]
module EmailTemplateData =
  struct
    type nonrec t = string[@@ocaml.doc
                            "An object that defines the values to use for message variables in the template. This object is a set of key-value pairs. Each key defines a message variable in the template. The corresponding value defines the value to use for that variable."]
    let context_ = "EmailTemplateData"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:262144); 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:"EmailTemplateData" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "An object that defines the values to use for message variables in the template. This object is a set of key-value pairs. Each key defines a message variable in the template. The corresponding value defines the value to use for that variable."]
module IspName =
  struct
    type nonrec t = string[@@ocaml.doc "The name of an email provider."]
    let context_ = "IspName"
    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:"IspName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The name of an email provider."]
module ContactListImportAction =
  struct
    type nonrec t =
      | DELETE 
      | PUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | DELETE -> "DELETE" | PUT -> "PUT" | Non_static_id s -> s
    let of_string =
      function | "DELETE" -> DELETE | "PUT" -> PUT | 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 ContactListImportAction" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ContactListImportAction" j)
    let to_json = simple_to_json to_value
  end
module ContactListName =
  struct
    type nonrec t = string
    let context_ = "ContactListName"
    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:"ContactListName" j
    let to_json = simple_to_json to_value
  end
module SuppressionListImportAction =
  struct
    type nonrec t =
      | DELETE 
      | PUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | DELETE -> "DELETE" | PUT -> "PUT" | Non_static_id s -> s
    let of_string =
      function | "DELETE" -> DELETE | "PUT" -> PUT | 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 SuppressionListImportAction"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SuppressionListImportAction" j)
    let to_json = simple_to_json to_value
  end
module SubscriptionStatus =
  struct
    type nonrec t =
      | OPT_IN 
      | OPT_OUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OPT_IN -> "OPT_IN"
      | OPT_OUT -> "OPT_OUT"
      | Non_static_id s -> s
    let of_string =
      function
      | "OPT_IN" -> OPT_IN
      | "OPT_OUT" -> OPT_OUT
      | 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 SubscriptionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SubscriptionStatus" j)
    let to_json = simple_to_json to_value
  end
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 EventDetails =
  struct
    type nonrec t =
      {
      bounce: Bounce.t option
        [@ocaml.doc "Information about a Bounce event."];
      complaint: Complaint.t option
        [@ocaml.doc "Information about a Complaint event."]}
    let make ?bounce = fun ?complaint -> fun () -> { bounce; complaint }
    let to_value x =
      structure_to_value
        [("Bounce", (Option.map x.bounce ~f:Bounce.to_value));
        ("Complaint", (Option.map x.complaint ~f:Complaint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let complaint =
        (Option.map ~f:Complaint.of_xml) (Xml.child xml_arg0 "Complaint") in
      let bounce =
        (Option.map ~f:Bounce.of_xml) (Xml.child xml_arg0 "Bounce") in
      make ?complaint ?bounce ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let complaint = field_map json__ "Complaint" Complaint.of_json in
      let bounce = field_map json__ "Bounce" Bounce.of_json in
      make ?complaint ?bounce ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a Bounce object if the event type is BOUNCE. Contains a Complaint object if the event type is COMPLAINT."]
module EventType =
  struct
    type nonrec t =
      | SEND 
      | REJECT 
      | BOUNCE 
      | COMPLAINT 
      | DELIVERY 
      | OPEN 
      | CLICK 
      | RENDERING_FAILURE 
      | DELIVERY_DELAY 
      | SUBSCRIPTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEND -> "SEND"
      | REJECT -> "REJECT"
      | BOUNCE -> "BOUNCE"
      | COMPLAINT -> "COMPLAINT"
      | DELIVERY -> "DELIVERY"
      | OPEN -> "OPEN"
      | CLICK -> "CLICK"
      | RENDERING_FAILURE -> "RENDERING_FAILURE"
      | DELIVERY_DELAY -> "DELIVERY_DELAY"
      | SUBSCRIPTION -> "SUBSCRIPTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEND" -> SEND
      | "REJECT" -> REJECT
      | "BOUNCE" -> BOUNCE
      | "COMPLAINT" -> COMPLAINT
      | "DELIVERY" -> DELIVERY
      | "OPEN" -> OPEN
      | "CLICK" -> CLICK
      | "RENDERING_FAILURE" -> RENDERING_FAILURE
      | "DELIVERY_DELAY" -> DELIVERY_DELAY
      | "SUBSCRIPTION" -> SUBSCRIPTION
      | 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 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 InsightsEmailAddress =
  struct
    type nonrec t = string
    let context_ = "InsightsEmailAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:320) >>=
             (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:"InsightsEmailAddress" j
    let to_json = simple_to_json to_value
  end
module EmailSubject =
  struct
    type nonrec t = string
    let context_ = "EmailSubject"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:998) >>=
             (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:"EmailSubject" j
    let to_json = simple_to_json to_value
  end
module Isp =
  struct
    type nonrec t = string
    let context_ = "Isp"
    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:"Isp" j
    let to_json = simple_to_json to_value
  end
module DeliveryEventType =
  struct
    type nonrec t =
      | SEND 
      | DELIVERY 
      | TRANSIENT_BOUNCE 
      | PERMANENT_BOUNCE 
      | UNDETERMINED_BOUNCE 
      | COMPLAINT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEND -> "SEND"
      | DELIVERY -> "DELIVERY"
      | TRANSIENT_BOUNCE -> "TRANSIENT_BOUNCE"
      | PERMANENT_BOUNCE -> "PERMANENT_BOUNCE"
      | UNDETERMINED_BOUNCE -> "UNDETERMINED_BOUNCE"
      | COMPLAINT -> "COMPLAINT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEND" -> SEND
      | "DELIVERY" -> DELIVERY
      | "TRANSIENT_BOUNCE" -> TRANSIENT_BOUNCE
      | "PERMANENT_BOUNCE" -> PERMANENT_BOUNCE
      | "UNDETERMINED_BOUNCE" -> UNDETERMINED_BOUNCE
      | "COMPLAINT" -> COMPLAINT
      | 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 DeliveryEventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeliveryEventType" j)
    let to_json = simple_to_json to_value
  end
module EngagementEventType =
  struct
    type nonrec t =
      | OPEN 
      | CLICK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OPEN -> "OPEN" | CLICK -> "CLICK" | Non_static_id s -> s
    let of_string =
      function | "OPEN" -> OPEN | "CLICK" -> CLICK | 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 EngagementEventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EngagementEventType" j)
    let to_json = simple_to_json to_value
  end
module MetricDimensionValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A list of values associated with the MetricDimensionName to filter metrics by. Can either be * as a wildcard for all values or a list of up to 10 specific values. If one Dimension has the * value, other dimensions can only contain one value."]
    let context_ = "MetricDimensionValue"
    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:"MetricDimensionValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A list of values associated with the MetricDimensionName to filter metrics by. Can either be * as a wildcard for all values or a list of up to 10 specific values. If one Dimension has the * value, other dimensions can only contain one value."]
module Metric =
  struct
    type nonrec t =
      | SEND 
      | COMPLAINT 
      | PERMANENT_BOUNCE 
      | TRANSIENT_BOUNCE 
      | OPEN 
      | CLICK 
      | DELIVERY 
      | DELIVERY_OPEN 
      | DELIVERY_CLICK 
      | DELIVERY_COMPLAINT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEND -> "SEND"
      | COMPLAINT -> "COMPLAINT"
      | PERMANENT_BOUNCE -> "PERMANENT_BOUNCE"
      | TRANSIENT_BOUNCE -> "TRANSIENT_BOUNCE"
      | OPEN -> "OPEN"
      | CLICK -> "CLICK"
      | DELIVERY -> "DELIVERY"
      | DELIVERY_OPEN -> "DELIVERY_OPEN"
      | DELIVERY_CLICK -> "DELIVERY_CLICK"
      | DELIVERY_COMPLAINT -> "DELIVERY_COMPLAINT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEND" -> SEND
      | "COMPLAINT" -> COMPLAINT
      | "PERMANENT_BOUNCE" -> PERMANENT_BOUNCE
      | "TRANSIENT_BOUNCE" -> TRANSIENT_BOUNCE
      | "OPEN" -> OPEN
      | "CLICK" -> CLICK
      | "DELIVERY" -> DELIVERY
      | "DELIVERY_OPEN" -> DELIVERY_OPEN
      | "DELIVERY_CLICK" -> DELIVERY_CLICK
      | "DELIVERY_COMPLAINT" -> DELIVERY_COMPLAINT
      | 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 Metric" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Metric" j)
    let to_json = simple_to_json to_value
  end
module MetricAggregation =
  struct
    type nonrec t =
      | RATE 
      | VOLUME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | RATE -> "RATE" | VOLUME -> "VOLUME" | Non_static_id s -> s
    let of_string =
      function | "RATE" -> RATE | "VOLUME" -> VOLUME | 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 MetricAggregation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetricAggregation" j)
    let to_json = simple_to_json to_value
  end
module Percentage =
  struct
    type nonrec t = float[@@ocaml.doc
                           "An object that contains information about inbox placement percentages."]
    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[@@ocaml.doc
       "An object that contains information about inbox placement percentages."]
module Volume =
  struct
    type nonrec t = Int64.t[@@ocaml.doc
                             "An object that contains information about inbox placement volume."]
    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[@@ocaml.doc
       "An object that contains information about inbox placement volume."]
module SuppressionConfidenceVerdictThreshold =
  struct
    type nonrec t =
      | MEDIUM 
      | HIGH 
      | MANAGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MEDIUM -> "MEDIUM"
      | HIGH -> "HIGH"
      | MANAGED -> "MANAGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "MEDIUM" -> MEDIUM
      | "HIGH" -> HIGH
      | "MANAGED" -> MANAGED
      | 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 SuppressionConfidenceVerdictThreshold" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SuppressionConfidenceVerdictThreshold" j)
    let to_json = simple_to_json to_value
  end
module CloudWatchDimensionConfiguration =
  struct
    type nonrec t =
      {
      dimensionName: DimensionName.t
        [@ocaml.doc
          "The name of an Amazon CloudWatch dimension associated with an email sending metric. The name has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."];
      dimensionValueSource: DimensionValueSource.t
        [@ocaml.doc
          "The location where the Amazon SES API v2 finds the value of a dimension to publish to Amazon CloudWatch. To use the message tags that you specify using an X-SES-MESSAGE-TAGS header or a parameter to the SendEmail or SendRawEmail API, choose messageTag. To use your own email headers, choose emailHeader. To use link tags, choose linkTags."];
      defaultDimensionValue: DefaultDimensionValue.t
        [@ocaml.doc
          "The default value of the dimension that is published to Amazon CloudWatch if you don't provide the value of the dimension when you send an email. This value has to meet the following criteria: Can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-), at signs (\\@), and periods (.). It can contain no more than 256 characters."]}
    let context_ = "CloudWatchDimensionConfiguration"
    let make ~dimensionName =
      fun ~dimensionValueSource ->
        fun ~defaultDimensionValue ->
          fun () ->
            { dimensionName; dimensionValueSource; defaultDimensionValue }
    let to_value x =
      structure_to_value
        [("DimensionName", (Some (DimensionName.to_value x.dimensionName)));
        ("DimensionValueSource",
          (Some (DimensionValueSource.to_value x.dimensionValueSource)));
        ("DefaultDimensionValue",
          (Some (DefaultDimensionValue.to_value x.defaultDimensionValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultDimensionValue =
        DefaultDimensionValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DefaultDimensionValue") in
      let dimensionValueSource =
        DimensionValueSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DimensionValueSource") in
      let dimensionName =
        DimensionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DimensionName") in
      make ~defaultDimensionValue ~dimensionValueSource ~dimensionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultDimensionValue =
        field_map_exn json__ "DefaultDimensionValue"
          DefaultDimensionValue.of_json in
      let dimensionValueSource =
        field_map_exn json__ "DimensionValueSource"
          DimensionValueSource.of_json in
      let dimensionName =
        field_map_exn json__ "DimensionName" DimensionName.of_json in
      make ~defaultDimensionValue ~dimensionValueSource ~dimensionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the dimension configuration to use when you send email events to Amazon CloudWatch."]
module Attachment =
  struct
    type nonrec t =
      {
      rawContent: RawAttachmentData.t
        [@ocaml.doc
          "The raw data of the attachment. It needs to be base64-encoded if you are accessing Amazon SES directly through the HTTPS interface. If you are accessing Amazon SES using an Amazon Web Services SDK, the SDK takes care of the base 64-encoding for you."];
      contentDisposition: AttachmentContentDisposition.t option
        [@ocaml.doc
          "A standard descriptor indicating how the attachment should be rendered in the email. Supported values: ATTACHMENT or INLINE."];
      fileName: AttachmentFileName.t
        [@ocaml.doc
          "The file name for the attachment as it will appear in the email. Amazon SES restricts certain file extensions. To ensure attachments are accepted, check the Unsupported attachment types in the Amazon SES Developer Guide."];
      contentDescription: AttachmentContentDescription.t option
        [@ocaml.doc "A brief description of the attachment content."];
      contentId: AttachmentContentId.t option
        [@ocaml.doc
          "Unique identifier for the attachment, used for referencing attachments with INLINE disposition in HTML content."];
      contentTransferEncoding: AttachmentContentTransferEncoding.t option
        [@ocaml.doc
          "Specifies how the attachment is encoded. Supported values: BASE64, QUOTED_PRINTABLE, SEVEN_BIT."];
      contentType: AttachmentContentType.t option
        [@ocaml.doc
          "The MIME type of the attachment. Example: application/pdf, image/jpeg"]}
    let context_ = "Attachment"
    let make ?contentDisposition =
      fun ?contentDescription ->
        fun ?contentId ->
          fun ?contentTransferEncoding ->
            fun ?contentType ->
              fun ~rawContent ->
                fun ~fileName ->
                  fun () ->
                    {
                      contentDisposition;
                      contentDescription;
                      contentId;
                      contentTransferEncoding;
                      contentType;
                      rawContent;
                      fileName
                    }
    let to_value x =
      structure_to_value
        [("RawContent", (Some (RawAttachmentData.to_value x.rawContent)));
        ("ContentDisposition",
          (Option.map x.contentDisposition
             ~f:AttachmentContentDisposition.to_value));
        ("FileName", (Some (AttachmentFileName.to_value x.fileName)));
        ("ContentDescription",
          (Option.map x.contentDescription
             ~f:AttachmentContentDescription.to_value));
        ("ContentId",
          (Option.map x.contentId ~f:AttachmentContentId.to_value));
        ("ContentTransferEncoding",
          (Option.map x.contentTransferEncoding
             ~f:AttachmentContentTransferEncoding.to_value));
        ("ContentType",
          (Option.map x.contentType ~f:AttachmentContentType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentType =
        (Option.map ~f:AttachmentContentType.of_xml)
          (Xml.child xml_arg0 "ContentType") in
      let contentTransferEncoding =
        (Option.map ~f:AttachmentContentTransferEncoding.of_xml)
          (Xml.child xml_arg0 "ContentTransferEncoding") in
      let contentId =
        (Option.map ~f:AttachmentContentId.of_xml)
          (Xml.child xml_arg0 "ContentId") in
      let contentDescription =
        (Option.map ~f:AttachmentContentDescription.of_xml)
          (Xml.child xml_arg0 "ContentDescription") in
      let fileName =
        AttachmentFileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileName") in
      let contentDisposition =
        (Option.map ~f:AttachmentContentDisposition.of_xml)
          (Xml.child xml_arg0 "ContentDisposition") in
      let rawContent =
        RawAttachmentData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RawContent") in
      make ?contentType ?contentTransferEncoding ?contentId
        ?contentDescription ~fileName ?contentDisposition ~rawContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentType =
        field_map json__ "ContentType" AttachmentContentType.of_json in
      let contentTransferEncoding =
        field_map json__ "ContentTransferEncoding"
          AttachmentContentTransferEncoding.of_json in
      let contentId =
        field_map json__ "ContentId" AttachmentContentId.of_json in
      let contentDescription =
        field_map json__ "ContentDescription"
          AttachmentContentDescription.of_json in
      let fileName =
        field_map_exn json__ "FileName" AttachmentFileName.of_json in
      let contentDisposition =
        field_map json__ "ContentDisposition"
          AttachmentContentDisposition.of_json in
      let rawContent =
        field_map_exn json__ "RawContent" RawAttachmentData.of_json in
      make ?contentType ?contentTransferEncoding ?contentId
        ?contentDescription ~fileName ?contentDisposition ~rawContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains metadata and attachment raw content."]
module Content =
  struct
    type nonrec t =
      {
      data: MessageData.t [@ocaml.doc "The content of the message itself."];
      charset: Charset.t option
        [@ocaml.doc
          "The character set for the content. Because of the constraints of the SMTP protocol, Amazon SES uses 7-bit ASCII by default. If the text includes characters outside of the ASCII range, you have to specify a character set. For example, you could specify UTF-8, ISO-8859-1, or Shift_JIS."]}
    let context_ = "Content"
    let make ?charset = fun ~data -> fun () -> { charset; data }
    let to_value x =
      structure_to_value
        [("Data", (Some (MessageData.to_value x.data)));
        ("Charset", (Option.map x.charset ~f:Charset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let charset =
        (Option.map ~f:Charset.of_xml) (Xml.child xml_arg0 "Charset") in
      let data =
        MessageData.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Data") in
      make ?charset ~data ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let charset = field_map json__ "Charset" Charset.of_json in
      let data = field_map_exn json__ "Data" MessageData.of_json in
      make ?charset ~data ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents the content of the email, and optionally a character set specification."]
module MessageHeader =
  struct
    type nonrec t =
      {
      name: MessageHeaderName.t
        [@ocaml.doc
          "The name of the message header. The message header name has to meet the following criteria: Can contain any printable ASCII character (33 - 126) except for colon (:). Can contain no more than 126 characters."];
      value: MessageHeaderValue.t
        [@ocaml.doc
          "The value of the message header. The message header value has to meet the following criteria: Can contain any printable ASCII character. Can contain no more than 995 characters. The combined length of the header name and value must not exceed 996 characters."]}
    let context_ = "MessageHeader"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (MessageHeaderName.to_value x.name)));
        ("Value", (Some (MessageHeaderValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        MessageHeaderValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        MessageHeaderName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" MessageHeaderValue.of_json in
      let name = field_map_exn json__ "Name" MessageHeaderName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the name and value of a message header that you add to an email."]
module EmailTemplateHtml =
  struct
    type nonrec t = string[@@ocaml.doc "The HTML body of the email."]
    let context_ = "EmailTemplateHtml"
    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:"EmailTemplateHtml" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The HTML body of the email."]
module EmailTemplateSubject =
  struct
    type nonrec t = string[@@ocaml.doc "The subject line of the email."]
    let context_ = "EmailTemplateSubject"
    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:"EmailTemplateSubject" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The subject line of the email."]
module EmailTemplateText =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The email body that will be visible to recipients whose email clients do not display HTML."]
    let context_ = "EmailTemplateText"
    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:"EmailTemplateText" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The email body that will be visible to recipients whose email clients do not display HTML."]
module EmailAddressList =
  struct
    type nonrec t = EmailAddress.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:EmailAddress.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:EmailAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"EmailAddressList" ~of_json:EmailAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageTag =
  struct
    type nonrec t =
      {
      name: MessageTagName.t
        [@ocaml.doc
          "The name of the message tag. The message tag name has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."];
      value: MessageTagValue.t
        [@ocaml.doc
          "The value of the message tag. The message tag value has to meet the following criteria: It can only contain ASCII letters (a\226\128\147z, A\226\128\147Z), numbers (0\226\128\1479), underscores (_), or dashes (-). It can contain no more than 256 characters."]}
    let context_ = "MessageTag"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (MessageTagName.to_value x.name)));
        ("Value", (Some (MessageTagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        MessageTagValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        MessageTagName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" MessageTagValue.of_json in
      let name = field_map_exn json__ "Name" MessageTagName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the name and value of a tag that you apply to an email. You can use message tags when you publish email sending events."]
module ReplacementTemplate =
  struct
    type nonrec t =
      {
      replacementTemplateData: EmailTemplateData.t option
        [@ocaml.doc
          "A list of replacement values to apply to the template. This parameter is a JSON object, typically consisting of key-value pairs in which the keys correspond to replacement tags in the email template."]}
    let make ?replacementTemplateData = fun () -> { replacementTemplateData }
    let to_value x =
      structure_to_value
        [("ReplacementTemplateData",
           (Option.map x.replacementTemplateData
              ~f:EmailTemplateData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replacementTemplateData =
        (Option.map ~f:EmailTemplateData.of_xml)
          (Xml.child xml_arg0 "ReplacementTemplateData") in
      make ?replacementTemplateData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replacementTemplateData =
        field_map json__ "ReplacementTemplateData" EmailTemplateData.of_json in
      make ?replacementTemplateData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object which contains ReplacementTemplateData to be used for a specific BulkEmailEntry."]
module Enabled =
  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 IspNameList =
  struct
    type nonrec t = IspName.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:IspName.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:IspName.of_xml)
    let of_json j =
      list_of_json ~kind:"IspNameList" ~of_json:IspName.of_json j
    let to_json v = composed_to_json to_value v
  end
module SendingStatus =
  struct
    type nonrec t =
      | ENABLED 
      | REINSTATED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | REINSTATED -> "REINSTATED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "REINSTATED" -> REINSTATED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SendingStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SendingStatus" j)
    let to_json = simple_to_json to_value
  end
module StatusCause =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A description of the reason for a status change, such as automated actions taken due to reputation findings or manual status updates."]
    let context_ = "StatusCause"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"StatusCause" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A description of the reason for a status change, such as automated actions taken due to reputation findings or manual status updates."]
module Region =
  struct
    type nonrec t = string[@@ocaml.doc "The name of an AWS-Region."]
    let context_ = "Region"
    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:"Region" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The name of an AWS-Region."]
module ContactListDestination =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."];
      contactListImportAction: ContactListImportAction.t
        [@ocaml.doc
          ">The type of action to perform on the addresses. The following are the possible values: PUT: add the addresses to the contact list. If the record already exists, it will override it with the new value. DELETE: remove the addresses from the contact list."]}
    let context_ = "ContactListDestination"
    let make ~contactListName =
      fun ~contactListImportAction ->
        fun () -> { contactListName; contactListImportAction }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("ContactListImportAction",
          (Some (ContactListImportAction.to_value x.contactListImportAction)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactListImportAction =
        ContactListImportAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListImportAction") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ~contactListImportAction ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactListImportAction =
        field_map_exn json__ "ContactListImportAction"
          ContactListImportAction.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ~contactListImportAction ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the action of a contact list."]
module SuppressionListDestination =
  struct
    type nonrec t =
      {
      suppressionListImportAction: SuppressionListImportAction.t
        [@ocaml.doc
          "The type of action to perform on the address. The following are possible values: PUT: add the addresses to the suppression list. If the record already exists, it will override it with the new value. DELETE: remove the addresses from the suppression list."]}
    let context_ = "SuppressionListDestination"
    let make ~suppressionListImportAction =
      fun () -> { suppressionListImportAction }
    let to_value x =
      structure_to_value
        [("SuppressionListImportAction",
           (Some
              (SuppressionListImportAction.to_value
                 x.suppressionListImportAction)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suppressionListImportAction =
        SuppressionListImportAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SuppressionListImportAction") in
      make ~suppressionListImportAction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suppressionListImportAction =
        field_map_exn json__ "SuppressionListImportAction"
          SuppressionListImportAction.of_json in
      make ~suppressionListImportAction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the action of suppression list."]
module Esp =
  struct
    type nonrec t = string
    let context_ = "Esp"
    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:"Esp" j
    let to_json = simple_to_json to_value
  end
module Ip =
  struct
    type nonrec t = string[@@ocaml.doc "An IPv4 address."]
    let context_ = "Ip"
    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:"Ip" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "An IPv4 address."]
module TopicPreference =
  struct
    type nonrec t =
      {
      topicName: TopicName.t [@ocaml.doc "The name of the topic."];
      subscriptionStatus: SubscriptionStatus.t
        [@ocaml.doc
          "The contact's subscription status to a topic which is either OPT_IN or OPT_OUT."]}
    let context_ = "TopicPreference"
    let make ~topicName =
      fun ~subscriptionStatus -> fun () -> { topicName; subscriptionStatus }
    let to_value x =
      structure_to_value
        [("TopicName", (Some (TopicName.to_value x.topicName)));
        ("SubscriptionStatus",
          (Some (SubscriptionStatus.to_value x.subscriptionStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscriptionStatus =
        SubscriptionStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionStatus") in
      let topicName =
        TopicName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TopicName") in
      make ~subscriptionStatus ~topicName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionStatus =
        field_map_exn json__ "SubscriptionStatus" SubscriptionStatus.of_json in
      let topicName = field_map_exn json__ "TopicName" TopicName.of_json in
      make ~subscriptionStatus ~topicName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The contact's preference for being opted-in to or opted-out of a topic."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module InsightsEvent =
  struct
    type nonrec t =
      {
      timestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of the event."];
      type_: EventType.t option
        [@ocaml.doc
          "The type of event: SEND - The send request was successful and SES will attempt to deliver the message to the recipient\226\128\153s mail server. (If account-level or global suppression is being used, SES will still count it as a send, but delivery is suppressed.) DELIVERY - SES successfully delivered the email to the recipient's mail server. Excludes deliveries to the mailbox simulator, and those from emails addressed to more than one recipient. BOUNCE - Feedback received for delivery failures. Additional details about the bounce are provided in the Details object. Excludes bounces from the mailbox simulator, and those from emails addressed to more than one recipient. COMPLAINT - Complaint received for the email. Additional details about the complaint are provided in the Details object. This excludes complaints from the mailbox simulator, those originating from your account-level suppression list (if enabled), and those from emails addressed to more than one recipient. OPEN - Open event for emails including open trackers. Excludes opens for emails addressed to more than one recipient. CLICK - Click event for emails including wrapped links. Excludes clicks for emails addressed to more than one recipient."];
      details: EventDetails.t option
        [@ocaml.doc "Details about bounce or complaint events."]}
    let make ?timestamp =
      fun ?type_ -> fun ?details -> fun () -> { timestamp; type_; details }
    let to_value x =
      structure_to_value
        [("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("Type", (Option.map x.type_ ~f:EventType.to_value));
        ("Details", (Option.map x.details ~f:EventDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let details =
        (Option.map ~f:EventDetails.of_xml) (Xml.child xml_arg0 "Details") in
      let type_ =
        (Option.map ~f:EventType.of_xml) (Xml.child xml_arg0 "Type") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      make ?details ?type_ ?timestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let details = field_map json__ "Details" EventDetails.of_json in
      let type_ = field_map json__ "Type" EventType.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      make ?details ?type_ ?timestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object containing details about a specific event."]
module EmailAddressFilterList =
  struct
    type nonrec t = InsightsEmailAddress.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InsightsEmailAddress.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:InsightsEmailAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"EmailAddressFilterList"
        ~of_json:InsightsEmailAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmailSubjectFilterList =
  struct
    type nonrec t = EmailSubject.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EmailSubject.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:EmailSubject.of_xml)
    let of_json j =
      list_of_json ~kind:"EmailSubjectFilterList"
        ~of_json:EmailSubject.of_json j
    let to_json v = composed_to_json to_value v
  end
module IspFilterList =
  struct
    type nonrec t = Isp.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Isp.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:Isp.of_xml)
    let of_json j = list_of_json ~kind:"IspFilterList" ~of_json:Isp.of_json j
    let to_json v = composed_to_json to_value v
  end
module LastDeliveryEventList =
  struct
    type nonrec t = DeliveryEventType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DeliveryEventType.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:DeliveryEventType.of_xml)
    let of_json j =
      list_of_json ~kind:"LastDeliveryEventList"
        ~of_json:DeliveryEventType.of_json j
    let to_json v = composed_to_json to_value v
  end
module LastEngagementEventList =
  struct
    type nonrec t = EngagementEventType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:2); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EngagementEventType.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:EngagementEventType.of_xml)
    let of_json j =
      list_of_json ~kind:"LastEngagementEventList"
        ~of_json:EngagementEventType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExportDimensionValue =
  struct
    type nonrec t = MetricDimensionValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MetricDimensionValue.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:MetricDimensionValue.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportDimensionValue"
        ~of_json:MetricDimensionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricDimensionName =
  struct
    type nonrec t =
      | EMAIL_IDENTITY 
      | CONFIGURATION_SET 
      | ISP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EMAIL_IDENTITY -> "EMAIL_IDENTITY"
      | CONFIGURATION_SET -> "CONFIGURATION_SET"
      | ISP -> "ISP"
      | Non_static_id s -> s
    let of_string =
      function
      | "EMAIL_IDENTITY" -> EMAIL_IDENTITY
      | "CONFIGURATION_SET" -> CONFIGURATION_SET
      | "ISP" -> ISP
      | 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 MetricDimensionName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetricDimensionName" j)
    let to_json = simple_to_json to_value
  end
module ExportMetric =
  struct
    type nonrec t =
      {
      name: Metric.t option ;
      aggregation: MetricAggregation.t option }
    let make ?name = fun ?aggregation -> fun () -> { name; aggregation }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:Metric.to_value));
        ("Aggregation",
          (Option.map x.aggregation ~f:MetricAggregation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregation =
        (Option.map ~f:MetricAggregation.of_xml)
          (Xml.child xml_arg0 "Aggregation") in
      let name = (Option.map ~f:Metric.of_xml) (Xml.child xml_arg0 "Name") in
      make ?aggregation ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregation =
        field_map json__ "Aggregation" MetricAggregation.of_json in
      let name = field_map json__ "Name" Metric.of_json in
      make ?aggregation ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains a mapping between a Metric and MetricAggregation."]
module EmailAddressInsightsConfidenceVerdict =
  struct
    type nonrec t =
      | LOW 
      | MEDIUM 
      | HIGH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LOW -> "LOW"
      | MEDIUM -> "MEDIUM"
      | HIGH -> "HIGH"
      | Non_static_id s -> s
    let of_string =
      function
      | "LOW" -> LOW
      | "MEDIUM" -> MEDIUM
      | "HIGH" -> HIGH
      | 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 EmailAddressInsightsConfidenceVerdict" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"EmailAddressInsightsConfidenceVerdict" j)
    let to_json = simple_to_json to_value
  end
module DomainIspPlacement =
  struct
    type nonrec t =
      {
      ispName: IspName.t option
        [@ocaml.doc
          "The name of the email provider that the inbox placement data applies to."];
      inboxRawCount: Volume.t option
        [@ocaml.doc
          "The total number of messages that were sent from the selected domain to the specified email provider that arrived in recipients' inboxes."];
      spamRawCount: Volume.t option
        [@ocaml.doc
          "The total number of messages that were sent from the selected domain to the specified email provider that arrived in recipients' spam or junk mail folders."];
      inboxPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of messages that were sent from the selected domain to the specified email provider that arrived in recipients' inboxes."];
      spamPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of messages that were sent from the selected domain to the specified email provider that arrived in recipients' spam or junk mail folders."]}
    let make ?ispName =
      fun ?inboxRawCount ->
        fun ?spamRawCount ->
          fun ?inboxPercentage ->
            fun ?spamPercentage ->
              fun () ->
                {
                  ispName;
                  inboxRawCount;
                  spamRawCount;
                  inboxPercentage;
                  spamPercentage
                }
    let to_value x =
      structure_to_value
        [("IspName", (Option.map x.ispName ~f:IspName.to_value));
        ("InboxRawCount", (Option.map x.inboxRawCount ~f:Volume.to_value));
        ("SpamRawCount", (Option.map x.spamRawCount ~f:Volume.to_value));
        ("InboxPercentage",
          (Option.map x.inboxPercentage ~f:Percentage.to_value));
        ("SpamPercentage",
          (Option.map x.spamPercentage ~f:Percentage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spamPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "SpamPercentage") in
      let inboxPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "InboxPercentage") in
      let spamRawCount =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "SpamRawCount") in
      let inboxRawCount =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "InboxRawCount") in
      let ispName =
        (Option.map ~f:IspName.of_xml) (Xml.child xml_arg0 "IspName") in
      make ?spamPercentage ?inboxPercentage ?spamRawCount ?inboxRawCount
        ?ispName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spamPercentage =
        field_map json__ "SpamPercentage" Percentage.of_json in
      let inboxPercentage =
        field_map json__ "InboxPercentage" Percentage.of_json in
      let spamRawCount = field_map json__ "SpamRawCount" Volume.of_json in
      let inboxRawCount = field_map json__ "InboxRawCount" Volume.of_json in
      let ispName = field_map json__ "IspName" IspName.of_json in
      make ?spamPercentage ?inboxPercentage ?spamRawCount ?inboxRawCount
        ?ispName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains inbox placement data for email sent from one of your email domains to a specific email provider."]
module FeatureStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration FeatureStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FeatureStatus" j)
    let to_json = simple_to_json to_value
  end
module SuppressionConfidenceThreshold =
  struct
    type nonrec t =
      {
      confidenceVerdictThreshold: SuppressionConfidenceVerdictThreshold.t
        [@ocaml.doc
          "The confidence level threshold for suppression decisions."]}
    let context_ = "SuppressionConfidenceThreshold"
    let make ~confidenceVerdictThreshold =
      fun () -> { confidenceVerdictThreshold }
    let to_value x =
      structure_to_value
        [("ConfidenceVerdictThreshold",
           (Some
              (SuppressionConfidenceVerdictThreshold.to_value
                 x.confidenceVerdictThreshold)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let confidenceVerdictThreshold =
        SuppressionConfidenceVerdictThreshold.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ConfidenceVerdictThreshold") in
      make ~confidenceVerdictThreshold ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let confidenceVerdictThreshold =
        field_map_exn json__ "ConfidenceVerdictThreshold"
          SuppressionConfidenceVerdictThreshold.of_json in
      make ~confidenceVerdictThreshold ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the confidence threshold settings for Auto Validation."]
module CloudWatchDimensionConfigurations =
  struct
    type nonrec t = CloudWatchDimensionConfiguration.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:CloudWatchDimensionConfiguration.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:CloudWatchDimensionConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"CloudWatchDimensionConfigurations"
        ~of_json:CloudWatchDimensionConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in ok_or_failwith (check_string_min i ~min:1); 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 BlacklistingDescription =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A description of the blacklisting event."]
    let context_ = "BlacklistingDescription"
    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:"BlacklistingDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A description of the blacklisting event."]
module RblName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of a blacklist that an IP address was found on."]
    let context_ = "RblName"
    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:"RblName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The name of a blacklist that an IP address was found on."]
module Counter =
  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 Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    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:"Description" j
    let to_json = simple_to_json to_value
  end
module DisplayName =
  struct
    type nonrec t = string
    let context_ = "DisplayName"
    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:"DisplayName" j
    let to_json = simple_to_json to_value
  end
module AttachmentList =
  struct
    type nonrec t = Attachment.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:Attachment.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:Attachment.of_xml)
    let of_json j =
      list_of_json ~kind:"AttachmentList" ~of_json:Attachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module Body =
  struct
    type nonrec t =
      {
      text: Content.t option
        [@ocaml.doc
          "An object that represents the version of the message that is displayed in email clients that don't support HTML, or clients where the recipient has disabled HTML rendering."];
      html: Content.t option
        [@ocaml.doc
          "An object that represents the version of the message that is displayed in email clients that support HTML. HTML messages can include formatted text, hyperlinks, images, and more."]}
    let make ?text = fun ?html -> fun () -> { text; html }
    let to_value x =
      structure_to_value
        [("Text", (Option.map x.text ~f:Content.to_value));
        ("Html", (Option.map x.html ~f:Content.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let html = (Option.map ~f:Content.of_xml) (Xml.child xml_arg0 "Html") in
      let text = (Option.map ~f:Content.of_xml) (Xml.child xml_arg0 "Text") in
      make ?html ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let html = field_map json__ "Html" Content.of_json in
      let text = field_map json__ "Text" Content.of_json in
      make ?html ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the body of the email message."]
module MessageHeaderList =
  struct
    type nonrec t = MessageHeader.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:15) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MessageHeader.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:MessageHeader.of_xml)
    let of_json j =
      list_of_json ~kind:"MessageHeaderList" ~of_json:MessageHeader.of_json j
    let to_json v = composed_to_json to_value v
  end
module RawMessageData =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The raw email message. The message has to meet the following criteria: The message has to contain a header and a body, separated by one blank line. All of the required header fields must be present in the message. Each part of a multipart MIME message must be formatted properly. Attachments must be in a file format that the Amazon SES API v2 supports. The entire message must be Base64 encoded. If any of the MIME parts in your message contain content that is outside of the 7-bit ASCII character range, you should encode that content to ensure that recipients' email clients render the message properly. The length of any single line of text in the message can't exceed 1,000 characters. This restriction is defined in RFC 5321."]
    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[@@ocaml.doc
       "The raw email message. The message has to meet the following criteria: The message has to contain a header and a body, separated by one blank line. All of the required header fields must be present in the message. Each part of a multipart MIME message must be formatted properly. Attachments must be in a file format that the Amazon SES API v2 supports. The entire message must be Base64 encoded. If any of the MIME parts in your message contain content that is outside of the 7-bit ASCII character range, you should encode that content to ensure that recipients' email clients render the message properly. The length of any single line of text in the message can't exceed 1,000 characters. This restriction is defined in RFC 5321."]
module EmailTemplateContent =
  struct
    type nonrec t =
      {
      subject: EmailTemplateSubject.t option
        [@ocaml.doc "The subject line of the email."];
      text: EmailTemplateText.t option
        [@ocaml.doc
          "The email body that will be visible to recipients whose email clients do not display HTML."];
      html: EmailTemplateHtml.t option
        [@ocaml.doc "The HTML body of the email."]}
    let make ?subject =
      fun ?text -> fun ?html -> fun () -> { subject; text; html }
    let to_value x =
      structure_to_value
        [("Subject", (Option.map x.subject ~f:EmailTemplateSubject.to_value));
        ("Text", (Option.map x.text ~f:EmailTemplateText.to_value));
        ("Html", (Option.map x.html ~f:EmailTemplateHtml.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let html =
        (Option.map ~f:EmailTemplateHtml.of_xml) (Xml.child xml_arg0 "Html") in
      let text =
        (Option.map ~f:EmailTemplateText.of_xml) (Xml.child xml_arg0 "Text") in
      let subject =
        (Option.map ~f:EmailTemplateSubject.of_xml)
          (Xml.child xml_arg0 "Subject") in
      make ?html ?text ?subject ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let html = field_map json__ "Html" EmailTemplateHtml.of_json in
      let text = field_map json__ "Text" EmailTemplateText.of_json in
      let subject = field_map json__ "Subject" EmailTemplateSubject.of_json in
      make ?html ?text ?subject ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The content of the email, composed of a subject line, an HTML part, and a text-only part."]
module EmailTemplateName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the template. You will refer to this name when you send email using the SendEmail or SendBulkEmail operations."]
    let context_ = "EmailTemplateName"
    let make i =
      let open Result in ok_or_failwith (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:"EmailTemplateName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of the template. You will refer to this name when you send email using the SendEmail or SendBulkEmail operations."]
module BulkEmailStatus =
  struct
    type nonrec t =
      | SUCCESS 
      | MESSAGE_REJECTED 
      | MAIL_FROM_DOMAIN_NOT_VERIFIED 
      | CONFIGURATION_SET_NOT_FOUND 
      | TEMPLATE_NOT_FOUND 
      | ACCOUNT_SUSPENDED 
      | ACCOUNT_THROTTLED 
      | ACCOUNT_DAILY_QUOTA_EXCEEDED 
      | INVALID_SENDING_POOL_NAME 
      | ACCOUNT_SENDING_PAUSED 
      | CONFIGURATION_SET_SENDING_PAUSED 
      | INVALID_PARAMETER 
      | TRANSIENT_FAILURE 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCESS -> "SUCCESS"
      | MESSAGE_REJECTED -> "MESSAGE_REJECTED"
      | MAIL_FROM_DOMAIN_NOT_VERIFIED -> "MAIL_FROM_DOMAIN_NOT_VERIFIED"
      | CONFIGURATION_SET_NOT_FOUND -> "CONFIGURATION_SET_NOT_FOUND"
      | TEMPLATE_NOT_FOUND -> "TEMPLATE_NOT_FOUND"
      | ACCOUNT_SUSPENDED -> "ACCOUNT_SUSPENDED"
      | ACCOUNT_THROTTLED -> "ACCOUNT_THROTTLED"
      | ACCOUNT_DAILY_QUOTA_EXCEEDED -> "ACCOUNT_DAILY_QUOTA_EXCEEDED"
      | INVALID_SENDING_POOL_NAME -> "INVALID_SENDING_POOL_NAME"
      | ACCOUNT_SENDING_PAUSED -> "ACCOUNT_SENDING_PAUSED"
      | CONFIGURATION_SET_SENDING_PAUSED ->
          "CONFIGURATION_SET_SENDING_PAUSED"
      | INVALID_PARAMETER -> "INVALID_PARAMETER"
      | TRANSIENT_FAILURE -> "TRANSIENT_FAILURE"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCESS" -> SUCCESS
      | "MESSAGE_REJECTED" -> MESSAGE_REJECTED
      | "MAIL_FROM_DOMAIN_NOT_VERIFIED" -> MAIL_FROM_DOMAIN_NOT_VERIFIED
      | "CONFIGURATION_SET_NOT_FOUND" -> CONFIGURATION_SET_NOT_FOUND
      | "TEMPLATE_NOT_FOUND" -> TEMPLATE_NOT_FOUND
      | "ACCOUNT_SUSPENDED" -> ACCOUNT_SUSPENDED
      | "ACCOUNT_THROTTLED" -> ACCOUNT_THROTTLED
      | "ACCOUNT_DAILY_QUOTA_EXCEEDED" -> ACCOUNT_DAILY_QUOTA_EXCEEDED
      | "INVALID_SENDING_POOL_NAME" -> INVALID_SENDING_POOL_NAME
      | "ACCOUNT_SENDING_PAUSED" -> ACCOUNT_SENDING_PAUSED
      | "CONFIGURATION_SET_SENDING_PAUSED" ->
          CONFIGURATION_SET_SENDING_PAUSED
      | "INVALID_PARAMETER" -> INVALID_PARAMETER
      | "TRANSIENT_FAILURE" -> TRANSIENT_FAILURE
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration BulkEmailStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BulkEmailStatus" j)
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module OutboundMessageId =
  struct
    type nonrec t = string
    let context_ = "OutboundMessageId"
    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:"OutboundMessageId" j
    let to_json = simple_to_json to_value
  end
module Destination =
  struct
    type nonrec t =
      {
      toAddresses: EmailAddressList.t option
        [@ocaml.doc
          "An array that contains the email addresses of the \"To\" recipients for the email."];
      ccAddresses: EmailAddressList.t option
        [@ocaml.doc
          "An array that contains the email addresses of the \"CC\" (carbon copy) recipients for the email."];
      bccAddresses: EmailAddressList.t option
        [@ocaml.doc
          "An array that contains the email addresses of the \"BCC\" (blind carbon copy) recipients for the email."]}
    let make ?toAddresses =
      fun ?ccAddresses ->
        fun ?bccAddresses ->
          fun () -> { toAddresses; ccAddresses; bccAddresses }
    let to_value x =
      structure_to_value
        [("ToAddresses",
           (Option.map x.toAddresses ~f:EmailAddressList.to_value));
        ("CcAddresses",
          (Option.map x.ccAddresses ~f:EmailAddressList.to_value));
        ("BccAddresses",
          (Option.map x.bccAddresses ~f:EmailAddressList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bccAddresses =
        (Option.map ~f:EmailAddressList.of_xml)
          (Xml.child xml_arg0 "BccAddresses") in
      let ccAddresses =
        (Option.map ~f:EmailAddressList.of_xml)
          (Xml.child xml_arg0 "CcAddresses") in
      let toAddresses =
        (Option.map ~f:EmailAddressList.of_xml)
          (Xml.child xml_arg0 "ToAddresses") in
      make ?bccAddresses ?ccAddresses ?toAddresses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bccAddresses =
        field_map json__ "BccAddresses" EmailAddressList.of_json in
      let ccAddresses =
        field_map json__ "CcAddresses" EmailAddressList.of_json in
      let toAddresses =
        field_map json__ "ToAddresses" EmailAddressList.of_json in
      make ?bccAddresses ?ccAddresses ?toAddresses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that describes the recipients for an email. Amazon SES does not support the SMTPUTF8 extension, as described in RFC6531. For this reason, the local part of a destination email address (the part of the email address that precedes the \\@ sign) may only contain 7-bit ASCII characters. If the domain part of an address (the part after the \\@ sign) contains non-ASCII characters, they must be encoded using Punycode, as described in RFC3492."]
module MessageTagList =
  struct
    type nonrec t = MessageTag.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:MessageTag.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:MessageTag.of_xml)
    let of_json j =
      list_of_json ~kind:"MessageTagList" ~of_json:MessageTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplacementEmailContent =
  struct
    type nonrec t =
      {
      replacementTemplate: ReplacementTemplate.t option
        [@ocaml.doc
          "The ReplacementTemplate associated with ReplacementEmailContent."]}
    let make ?replacementTemplate = fun () -> { replacementTemplate }
    let to_value x =
      structure_to_value
        [("ReplacementTemplate",
           (Option.map x.replacementTemplate ~f:ReplacementTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replacementTemplate =
        (Option.map ~f:ReplacementTemplate.of_xml)
          (Xml.child xml_arg0 "ReplacementTemplate") in
      make ?replacementTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replacementTemplate =
        field_map json__ "ReplacementTemplate" ReplacementTemplate.of_json in
      make ?replacementTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ReplaceEmailContent object to be used for a specific BulkEmailEntry. The ReplacementTemplate can be specified within this object."]
module Domain =
  struct
    type nonrec t = string
    let context_ = "Domain"
    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:"Domain" j
    let to_json = simple_to_json to_value
  end
module InboxPlacementTrackingOption =
  struct
    type nonrec t =
      {
      global: Enabled.t option
        [@ocaml.doc
          "Specifies whether inbox placement data is being tracked for the domain."];
      trackedIsps: IspNameList.t option
        [@ocaml.doc
          "An array of strings, one for each major email provider that the inbox placement data applies to."]}
    let make ?global = fun ?trackedIsps -> fun () -> { global; trackedIsps }
    let to_value x =
      structure_to_value
        [("Global", (Option.map x.global ~f:Enabled.to_value));
        ("TrackedIsps", (Option.map x.trackedIsps ~f:IspNameList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trackedIsps =
        (Option.map ~f:IspNameList.of_xml) (Xml.child xml_arg0 "TrackedIsps") in
      let global =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "Global") in
      make ?trackedIsps ?global ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trackedIsps = field_map json__ "TrackedIsps" IspNameList.of_json in
      let global = field_map json__ "Global" Enabled.of_json in
      make ?trackedIsps ?global ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the inbox placement data settings for a verified domain that\226\128\153s associated with your Amazon Web Services account. This data is available only if you enabled the Deliverability dashboard for the domain."]
module TenantId =
  struct
    type nonrec t = string
    let context_ = "TenantId"
    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:"TenantId" j
    let to_json = simple_to_json to_value
  end
module TenantName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of a tenant. The name can contain up to 64 alphanumeric characters, including letters, numbers, hyphens (-) and underscores (_) only."]
    let context_ = "TenantName"
    let make i =
      let open Result in ok_or_failwith (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:"TenantName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of a tenant. The name can contain up to 64 alphanumeric characters, including letters, numbers, hyphens (-) and underscores (_) only."]
module ResourceType =
  struct
    type nonrec t =
      | EMAIL_IDENTITY 
      | CONFIGURATION_SET 
      | EMAIL_TEMPLATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EMAIL_IDENTITY -> "EMAIL_IDENTITY"
      | CONFIGURATION_SET -> "CONFIGURATION_SET"
      | EMAIL_TEMPLATE -> "EMAIL_TEMPLATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "EMAIL_IDENTITY" -> EMAIL_IDENTITY
      | "CONFIGURATION_SET" -> CONFIGURATION_SET
      | "EMAIL_TEMPLATE" -> EMAIL_TEMPLATE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module SuppressionListReason =
  struct
    type nonrec t =
      | BOUNCE 
      | COMPLAINT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BOUNCE -> "BOUNCE"
      | COMPLAINT -> "COMPLAINT"
      | Non_static_id s -> s
    let of_string =
      function
      | "BOUNCE" -> BOUNCE
      | "COMPLAINT" -> COMPLAINT
      | 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 SuppressionListReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SuppressionListReason" j)
    let to_json = simple_to_json to_value
  end
module RecommendationImpact =
  struct
    type nonrec t =
      | LOW 
      | HIGH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | LOW -> "LOW" | HIGH -> "HIGH" | Non_static_id s -> s
    let of_string =
      function | "LOW" -> LOW | "HIGH" -> HIGH | 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 RecommendationImpact" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RecommendationImpact" j)
    let to_json = simple_to_json to_value
  end
module ReputationEntityReference =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The unique identifier for a reputation entity. For resource-type entities, this is the Amazon Resource Name (ARN) of the resource."]
    let context_ = "ReputationEntityReference"
    let make i =
      let open Result in ok_or_failwith (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:"ReputationEntityReference" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The unique identifier for a reputation entity. For resource-type entities, this is the Amazon Resource Name (ARN) of the resource."]
module ReputationEntityType =
  struct
    type nonrec t =
      | RESOURCE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | RESOURCE -> "RESOURCE" | Non_static_id s -> s
    let of_string = function | "RESOURCE" -> RESOURCE | 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 ReputationEntityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReputationEntityType" j)
    let to_json = simple_to_json to_value
  end
module StatusRecord =
  struct
    type nonrec t =
      {
      status: SendingStatus.t option
        [@ocaml.doc
          "The current sending status. This can be one of the following: ENABLED \226\128\147 Sending is allowed. DISABLED \226\128\147 Sending is prevented. REINSTATED \226\128\147 Sending is allowed even with active reputation findings."];
      cause: StatusCause.t option
        [@ocaml.doc
          "A description of the reason for the current status, or null if no specific cause is available."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp when this status was last updated."]}
    let make ?status =
      fun ?cause ->
        fun ?lastUpdatedTimestamp ->
          fun () -> { status; cause; lastUpdatedTimestamp }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:SendingStatus.to_value));
        ("Cause", (Option.map x.cause ~f:StatusCause.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let cause =
        (Option.map ~f:StatusCause.of_xml) (Xml.child xml_arg0 "Cause") in
      let status =
        (Option.map ~f:SendingStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?lastUpdatedTimestamp ?cause ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let cause = field_map json__ "Cause" StatusCause.of_json in
      let status = field_map json__ "Status" SendingStatus.of_json in
      make ?lastUpdatedTimestamp ?cause ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains status information for a reputation entity, including the current status, cause description, and timestamp."]
module RecommendationDescription =
  struct
    type nonrec t = string
    let context_ = "RecommendationDescription"
    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:"RecommendationDescription" j
    let to_json = simple_to_json to_value
  end
module RecommendationStatus =
  struct
    type nonrec t =
      | OPEN 
      | FIXED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OPEN -> "OPEN" | FIXED -> "FIXED" | Non_static_id s -> s
    let of_string =
      function | "OPEN" -> OPEN | "FIXED" -> FIXED | 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 RecommendationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RecommendationStatus" j)
    let to_json = simple_to_json to_value
  end
module RecommendationType =
  struct
    type nonrec t =
      | DKIM 
      | DMARC 
      | SPF 
      | BIMI 
      | COMPLAINT 
      | BOUNCE 
      | FEEDBACK_3P 
      | IP_LISTING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DKIM -> "DKIM"
      | DMARC -> "DMARC"
      | SPF -> "SPF"
      | BIMI -> "BIMI"
      | COMPLAINT -> "COMPLAINT"
      | BOUNCE -> "BOUNCE"
      | FEEDBACK_3P -> "FEEDBACK_3P"
      | IP_LISTING -> "IP_LISTING"
      | Non_static_id s -> s
    let of_string =
      function
      | "DKIM" -> DKIM
      | "DMARC" -> DMARC
      | "SPF" -> SPF
      | "BIMI" -> BIMI
      | "COMPLAINT" -> COMPLAINT
      | "BOUNCE" -> BOUNCE
      | "FEEDBACK_3P" -> FEEDBACK_3P
      | "IP_LISTING" -> IP_LISTING
      | 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 RecommendationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RecommendationType" j)
    let to_json = simple_to_json to_value
  end
module EndpointId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The ID of the multi-region endpoint (global-endpoint)."]
    let context_ = "EndpointId"
    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:"EndpointId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The ID of the multi-region endpoint (global-endpoint)."]
module EndpointName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the multi-region endpoint (global-endpoint)."]
    let context_ = "EndpointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\-_]+$")));
        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:"EndpointName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The name of the multi-region endpoint (global-endpoint)."]
module Regions =
  struct
    type nonrec t = Region.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:Region.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:Region.of_xml)
    let of_json j = list_of_json ~kind:"Regions" ~of_json:Region.of_json j
    let to_json v = composed_to_json to_value v
  end
module Status =
  struct
    type nonrec t =
      | CREATING 
      | READY 
      | FAILED 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | READY -> "READY"
      | FAILED -> "FAILED"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "READY" -> READY
      | "FAILED" -> FAILED
      | "DELETING" -> DELETING
      | 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 Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module FailedRecordsCount =
  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 FailedRecordsCount" 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 ImportDestination =
  struct
    type nonrec t =
      {
      suppressionListDestination: SuppressionListDestination.t option
        [@ocaml.doc
          "An object that contains the action of the import job towards suppression list."];
      contactListDestination: ContactListDestination.t option
        [@ocaml.doc
          "An object that contains the action of the import job towards a contact list."]}
    let make ?suppressionListDestination =
      fun ?contactListDestination ->
        fun () -> { suppressionListDestination; contactListDestination }
    let to_value x =
      structure_to_value
        [("SuppressionListDestination",
           (Option.map x.suppressionListDestination
              ~f:SuppressionListDestination.to_value));
        ("ContactListDestination",
          (Option.map x.contactListDestination
             ~f:ContactListDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactListDestination =
        (Option.map ~f:ContactListDestination.of_xml)
          (Xml.child xml_arg0 "ContactListDestination") in
      let suppressionListDestination =
        (Option.map ~f:SuppressionListDestination.of_xml)
          (Xml.child xml_arg0 "SuppressionListDestination") in
      make ?contactListDestination ?suppressionListDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactListDestination =
        field_map json__ "ContactListDestination"
          ContactListDestination.of_json in
      let suppressionListDestination =
        field_map json__ "SuppressionListDestination"
          SuppressionListDestination.of_json in
      make ?contactListDestination ?suppressionListDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the resource destination the import job is going to target."]
module JobId =
  struct
    type nonrec t = string[@@ocaml.doc "A string that represents a job ID."]
    let context_ = "JobId"
    let make i =
      let open Result in ok_or_failwith (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:"JobId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A string that represents a job ID."]
module JobStatus =
  struct
    type nonrec t =
      | CREATED 
      | PROCESSING 
      | COMPLETED 
      | FAILED 
      | CANCELLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | PROCESSING -> "PROCESSING"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | CANCELLED -> "CANCELLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "PROCESSING" -> PROCESSING
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | "CANCELLED" -> CANCELLED
      | 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 JobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobStatus" j)
    let to_json = simple_to_json to_value
  end
module ProcessedRecordsCount =
  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 ProcessedRecordsCount" 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 ExportSourceType =
  struct
    type nonrec t =
      | METRICS_DATA 
      | MESSAGE_INSIGHTS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | METRICS_DATA -> "METRICS_DATA"
      | MESSAGE_INSIGHTS -> "MESSAGE_INSIGHTS"
      | Non_static_id s -> s
    let of_string =
      function
      | "METRICS_DATA" -> METRICS_DATA
      | "MESSAGE_INSIGHTS" -> MESSAGE_INSIGHTS
      | 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 ExportSourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExportSourceType" j)
    let to_json = simple_to_json to_value
  end
module Identity =
  struct
    type nonrec t = string
    let context_ = "Identity"
    let make i =
      let open Result in ok_or_failwith (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:"Identity" j
    let to_json = simple_to_json to_value
  end
module IdentityType =
  struct
    type nonrec t =
      | EMAIL_ADDRESS 
      | DOMAIN 
      | MANAGED_DOMAIN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EMAIL_ADDRESS -> "EMAIL_ADDRESS"
      | DOMAIN -> "DOMAIN"
      | MANAGED_DOMAIN -> "MANAGED_DOMAIN"
      | Non_static_id s -> s
    let of_string =
      function
      | "EMAIL_ADDRESS" -> EMAIL_ADDRESS
      | "DOMAIN" -> DOMAIN
      | "MANAGED_DOMAIN" -> MANAGED_DOMAIN
      | 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 IdentityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IdentityType" j)
    let to_json = simple_to_json to_value
  end
module VerificationStatus =
  struct
    type nonrec t =
      | PENDING 
      | SUCCESS 
      | FAILED 
      | TEMPORARY_FAILURE 
      | NOT_STARTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | SUCCESS -> "SUCCESS"
      | FAILED -> "FAILED"
      | TEMPORARY_FAILURE -> "TEMPORARY_FAILURE"
      | NOT_STARTED -> "NOT_STARTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "SUCCESS" -> SUCCESS
      | "FAILED" -> FAILED
      | "TEMPORARY_FAILURE" -> TEMPORARY_FAILURE
      | "NOT_STARTED" -> NOT_STARTED
      | 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 VerificationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VerificationStatus" j)
    let to_json = simple_to_json to_value
  end
module CampaignId =
  struct
    type nonrec t = string
    let context_ = "CampaignId"
    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:"CampaignId" j
    let to_json = simple_to_json to_value
  end
module Esps =
  struct
    type nonrec t = Esp.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:Esp.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:Esp.of_xml)
    let of_json j = list_of_json ~kind:"Esps" ~of_json:Esp.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageUrl =
  struct
    type nonrec t = string
    let context_ = "ImageUrl"
    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:"ImageUrl" j
    let to_json = simple_to_json to_value
  end
module IpList =
  struct
    type nonrec t = Ip.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:Ip.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:Ip.of_xml)
    let of_json j = list_of_json ~kind:"IpList" ~of_json:Ip.of_json j
    let to_json v = composed_to_json to_value v
  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 DeliverabilityTestStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | COMPLETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | 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 DeliverabilityTestStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DeliverabilityTestStatus" j)
    let to_json = simple_to_json to_value
  end
module DeliverabilityTestSubject =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The subject line for an email that you submitted in a predictive inbox placement test."]
    let context_ = "DeliverabilityTestSubject"
    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:"DeliverabilityTestSubject" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The subject line for an email that you submitted in a predictive inbox placement test."]
module ReportId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A unique string that identifies a Deliverability dashboard report."]
    let context_ = "ReportId"
    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:"ReportId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A unique string that identifies a Deliverability dashboard report."]
module ReportName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A name that helps you identify a report generated by the Deliverability dashboard."]
    let context_ = "ReportName"
    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:"ReportName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A name that helps you identify a report generated by the Deliverability dashboard."]
module FailureRedirectionURL =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The URL that the recipient of the verification email is sent to if his or her address is not successfully verified."]
    let context_ = "FailureRedirectionURL"
    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:"FailureRedirectionURL" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The URL that the recipient of the verification email is sent to if his or her address is not successfully verified."]
module SuccessRedirectionURL =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The URL that the recipient of the verification email is sent to if his or her address is successfully verified."]
    let context_ = "SuccessRedirectionURL"
    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:"SuccessRedirectionURL" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The URL that the recipient of the verification email is sent to if his or her address is successfully verified."]
module TopicPreferenceList =
  struct
    type nonrec t = TopicPreference.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:TopicPreference.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:TopicPreference.of_xml)
    let of_json j =
      list_of_json ~kind:"TopicPreferenceList"
        ~of_json:TopicPreference.of_json j
    let to_json v = composed_to_json to_value v
  end
module UnsubscribeAll =
  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 UseDefaultIfPreferenceUnavailable =
  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 Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "One part of a key-value pair that defines a tag. The maximum length of a tag key is 128 characters. The minimum length is 1 character."];
      value: TagValue.t
        [@ocaml.doc
          "The optional part of a key-value pair that defines a tag. The maximum length of a tag value is 256 characters. The minimum length is 0 characters. If you don't want a resource to have a specific tag value, don't specify a value for this\194\160parameter. If you don't specify a value, Amazon SES sets the value to an empty string."]}
    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
       "An object that defines the tags that are associated with a resource. A\194\160tag\194\160is a label that you optionally define and associate with a resource. Tags can help you categorize and manage resources in different ways, such as by purpose, owner, environment, or other criteria. A resource can have as many as 50 tags. Each tag consists of a required\194\160tag key\194\160and an associated\194\160tag value, both of which you define. A tag key is a general label that acts as a category for a more specific tag value. A tag value acts as a descriptor within a tag key. A tag key can contain as many as 128 characters. A tag value can contain as many as 256 characters. The characters can be Unicode letters, digits, white space, or one of the following symbols: _ . : / = + -. The following additional restrictions apply to tags: Tag keys and values are case sensitive. For each associated resource, each tag key must be unique and it can have only one value. The\194\160aws:\194\160prefix is reserved for use by Amazon Web Services; you can\226\128\153t use it in any tag keys or values that you define. In addition, you can't edit or remove tag keys or values that use this prefix. Tags that use this prefix don\226\128\153t count against the limit of 50 tags per resource. You can associate tags with public or shared resources, but the tags are available only for your Amazon Web Services account, not any other accounts that share the resource. In addition, the tags are available only for resources that are located in the specified Amazon Web Services Region for your Amazon Web Services account."]
module FeedbackId =
  struct
    type nonrec t = string
    let context_ = "FeedbackId"
    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:"FeedbackId" j
    let to_json = simple_to_json to_value
  end
module InsightsEvents =
  struct
    type nonrec t = InsightsEvent.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:InsightsEvent.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:InsightsEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"InsightsEvents" ~of_json:InsightsEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageInsightsExportMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10000) >>=
             (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 MessageInsightsExportMaxResults"
           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 MessageInsightsFilters =
  struct
    type nonrec t =
      {
      fromEmailAddress: EmailAddressFilterList.t option
        [@ocaml.doc "The from address used to send the message."];
      destination: EmailAddressFilterList.t option
        [@ocaml.doc "The recipient's email address."];
      subject: EmailSubjectFilterList.t option
        [@ocaml.doc "The subject line of the message."];
      isp: IspFilterList.t option
        [@ocaml.doc "The recipient's ISP (e.g., Gmail, Yahoo, etc.)."];
      lastDeliveryEvent: LastDeliveryEventList.t option
        [@ocaml.doc
          "The last delivery-related event for the email, where the ordering is as follows: SEND < BOUNCE < DELIVERY < COMPLAINT."];
      lastEngagementEvent: LastEngagementEventList.t option
        [@ocaml.doc
          "The last engagement-related event for the email, where the ordering is as follows: OPEN < CLICK. Engagement events are only available if Engagement tracking is enabled."]}
    let make ?fromEmailAddress =
      fun ?destination ->
        fun ?subject ->
          fun ?isp ->
            fun ?lastDeliveryEvent ->
              fun ?lastEngagementEvent ->
                fun () ->
                  {
                    fromEmailAddress;
                    destination;
                    subject;
                    isp;
                    lastDeliveryEvent;
                    lastEngagementEvent
                  }
    let to_value x =
      structure_to_value
        [("FromEmailAddress",
           (Option.map x.fromEmailAddress ~f:EmailAddressFilterList.to_value));
        ("Destination",
          (Option.map x.destination ~f:EmailAddressFilterList.to_value));
        ("Subject",
          (Option.map x.subject ~f:EmailSubjectFilterList.to_value));
        ("Isp", (Option.map x.isp ~f:IspFilterList.to_value));
        ("LastDeliveryEvent",
          (Option.map x.lastDeliveryEvent ~f:LastDeliveryEventList.to_value));
        ("LastEngagementEvent",
          (Option.map x.lastEngagementEvent
             ~f:LastEngagementEventList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastEngagementEvent =
        (Option.map ~f:LastEngagementEventList.of_xml)
          (Xml.child xml_arg0 "LastEngagementEvent") in
      let lastDeliveryEvent =
        (Option.map ~f:LastDeliveryEventList.of_xml)
          (Xml.child xml_arg0 "LastDeliveryEvent") in
      let isp =
        (Option.map ~f:IspFilterList.of_xml) (Xml.child xml_arg0 "Isp") in
      let subject =
        (Option.map ~f:EmailSubjectFilterList.of_xml)
          (Xml.child xml_arg0 "Subject") in
      let destination =
        (Option.map ~f:EmailAddressFilterList.of_xml)
          (Xml.child xml_arg0 "Destination") in
      let fromEmailAddress =
        (Option.map ~f:EmailAddressFilterList.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      make ?lastEngagementEvent ?lastDeliveryEvent ?isp ?subject ?destination
        ?fromEmailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastEngagementEvent =
        field_map json__ "LastEngagementEvent"
          LastEngagementEventList.of_json in
      let lastDeliveryEvent =
        field_map json__ "LastDeliveryEvent" LastDeliveryEventList.of_json in
      let isp = field_map json__ "Isp" IspFilterList.of_json in
      let subject = field_map json__ "Subject" EmailSubjectFilterList.of_json in
      let destination =
        field_map json__ "Destination" EmailAddressFilterList.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" EmailAddressFilterList.of_json in
      make ?lastEngagementEvent ?lastDeliveryEvent ?isp ?subject ?destination
        ?fromEmailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object containing Message Insights filters. If you specify multiple filters, the filters are joined by AND. If you specify multiple values for a filter, the values are joined by OR. Filter values are case-sensitive. FromEmailAddress, Destination, and Subject filters support partial match. A partial match is performed by using the * wildcard character placed at the beginning (suffix match), the end (prefix match) or both ends of the string (contains match). In order to match the literal characters * or \\, they must be escaped using the \\ character. If no wildcard character is present, an exact match is performed."]
module ExportDimensions =
  struct
    type nonrec t = (MetricDimensionName.t * ExportDimensionValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types MetricDimensionName ExportDimensionValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MetricDimensionName.to_value x) |>
                    (fun x ->
                       (ExportDimensionValue.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:MetricDimensionName.of_string
        ~of_json:ExportDimensionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExportMetrics =
  struct
    type nonrec t = ExportMetric.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ExportMetric.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:ExportMetric.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportMetrics" ~of_json:ExportMetric.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricNamespace =
  struct
    type nonrec t =
      | VDM 
      | Non_static_id of string 
    let make i = i
    let to_string = function | VDM -> "VDM" | Non_static_id s -> s
    let of_string = function | "VDM" -> VDM | 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 MetricNamespace" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MetricNamespace" j)
    let to_json = simple_to_json to_value
  end
module DnsToken =
  struct
    type nonrec t = string
    let context_ = "DnsToken"
    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:"DnsToken" j
    let to_json = simple_to_json to_value
  end
module AdminEmail =
  struct
    type nonrec t = string
    let context_ = "AdminEmail"
    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:"AdminEmail" j
    let to_json = simple_to_json to_value
  end
module PrimaryNameServer =
  struct
    type nonrec t = string
    let context_ = "PrimaryNameServer"
    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:"PrimaryNameServer" j
    let to_json = simple_to_json to_value
  end
module SerialNumber =
  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 EmailAddressInsightsVerdict =
  struct
    type nonrec t =
      {
      confidenceVerdict: EmailAddressInsightsConfidenceVerdict.t option
        [@ocaml.doc "The confidence level of the validation verdict."]}
    let make ?confidenceVerdict = fun () -> { confidenceVerdict }
    let to_value x =
      structure_to_value
        [("ConfidenceVerdict",
           (Option.map x.confidenceVerdict
              ~f:EmailAddressInsightsConfidenceVerdict.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let confidenceVerdict =
        (Option.map ~f:EmailAddressInsightsConfidenceVerdict.of_xml)
          (Xml.child xml_arg0 "ConfidenceVerdict") in
      make ?confidenceVerdict ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let confidenceVerdict =
        field_map json__ "ConfidenceVerdict"
          EmailAddressInsightsConfidenceVerdict.of_json in
      make ?confidenceVerdict ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the overall validation verdict for an email address."]
module DomainIspPlacements =
  struct
    type nonrec t = DomainIspPlacement.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:DomainIspPlacement.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:DomainIspPlacement.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainIspPlacements"
        ~of_json:DomainIspPlacement.of_json j
    let to_json v = composed_to_json to_value v
  end
module VolumeStatistics =
  struct
    type nonrec t =
      {
      inboxRawCount: Volume.t option
        [@ocaml.doc
          "The total number of emails that arrived in recipients' inboxes."];
      spamRawCount: Volume.t option
        [@ocaml.doc
          "The total number of emails that arrived in recipients' spam or junk mail folders."];
      projectedInbox: Volume.t option
        [@ocaml.doc
          "An estimate of the percentage of emails sent from the current domain that will arrive in recipients' inboxes."];
      projectedSpam: Volume.t option
        [@ocaml.doc
          "An estimate of the percentage of emails sent from the current domain that will arrive in recipients' spam or junk mail folders."]}
    let make ?inboxRawCount =
      fun ?spamRawCount ->
        fun ?projectedInbox ->
          fun ?projectedSpam ->
            fun () ->
              { inboxRawCount; spamRawCount; projectedInbox; projectedSpam }
    let to_value x =
      structure_to_value
        [("InboxRawCount", (Option.map x.inboxRawCount ~f:Volume.to_value));
        ("SpamRawCount", (Option.map x.spamRawCount ~f:Volume.to_value));
        ("ProjectedInbox", (Option.map x.projectedInbox ~f:Volume.to_value));
        ("ProjectedSpam", (Option.map x.projectedSpam ~f:Volume.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectedSpam =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "ProjectedSpam") in
      let projectedInbox =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "ProjectedInbox") in
      let spamRawCount =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "SpamRawCount") in
      let inboxRawCount =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "InboxRawCount") in
      make ?projectedSpam ?projectedInbox ?spamRawCount ?inboxRawCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectedSpam = field_map json__ "ProjectedSpam" Volume.of_json in
      let projectedInbox = field_map json__ "ProjectedInbox" Volume.of_json in
      let spamRawCount = field_map json__ "SpamRawCount" Volume.of_json in
      let inboxRawCount = field_map json__ "InboxRawCount" Volume.of_json in
      make ?projectedSpam ?projectedInbox ?spamRawCount ?inboxRawCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the amount of email that was delivered to recipients."]
module PlacementStatistics =
  struct
    type nonrec t =
      {
      inboxPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of emails that arrived in recipients' inboxes during the predictive inbox placement test."];
      spamPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of emails that arrived in recipients' spam or junk mail folders during the predictive inbox placement test."];
      missingPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of emails that didn't arrive in recipients' inboxes at all during the predictive inbox placement test."];
      spfPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of emails that were authenticated by using Sender Policy Framework (SPF) during the predictive inbox placement test."];
      dkimPercentage: Percentage.t option
        [@ocaml.doc
          "The percentage of emails that were authenticated by using DomainKeys Identified Mail (DKIM) during the predictive inbox placement test."]}
    let make ?inboxPercentage =
      fun ?spamPercentage ->
        fun ?missingPercentage ->
          fun ?spfPercentage ->
            fun ?dkimPercentage ->
              fun () ->
                {
                  inboxPercentage;
                  spamPercentage;
                  missingPercentage;
                  spfPercentage;
                  dkimPercentage
                }
    let to_value x =
      structure_to_value
        [("InboxPercentage",
           (Option.map x.inboxPercentage ~f:Percentage.to_value));
        ("SpamPercentage",
          (Option.map x.spamPercentage ~f:Percentage.to_value));
        ("MissingPercentage",
          (Option.map x.missingPercentage ~f:Percentage.to_value));
        ("SpfPercentage",
          (Option.map x.spfPercentage ~f:Percentage.to_value));
        ("DkimPercentage",
          (Option.map x.dkimPercentage ~f:Percentage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dkimPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "DkimPercentage") in
      let spfPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "SpfPercentage") in
      let missingPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "MissingPercentage") in
      let spamPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "SpamPercentage") in
      let inboxPercentage =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "InboxPercentage") in
      make ?dkimPercentage ?spfPercentage ?missingPercentage ?spamPercentage
        ?inboxPercentage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dkimPercentage =
        field_map json__ "DkimPercentage" Percentage.of_json in
      let spfPercentage = field_map json__ "SpfPercentage" Percentage.of_json in
      let missingPercentage =
        field_map json__ "MissingPercentage" Percentage.of_json in
      let spamPercentage =
        field_map json__ "SpamPercentage" Percentage.of_json in
      let inboxPercentage =
        field_map json__ "InboxPercentage" Percentage.of_json in
      make ?dkimPercentage ?spfPercentage ?missingPercentage ?spamPercentage
        ?inboxPercentage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains inbox placement data for an email provider."]
module Percentage100Wrapper =
  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 Percentage100Wrapper" 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 PoolName =
  struct
    type nonrec t = string[@@ocaml.doc "The name of a dedicated IP pool."]
    let context_ = "PoolName"
    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:"PoolName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The name of a dedicated IP pool."]
module WarmupStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | DONE 
      | NOT_APPLICABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | DONE -> "DONE"
      | NOT_APPLICABLE -> "NOT_APPLICABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "DONE" -> DONE
      | "NOT_APPLICABLE" -> NOT_APPLICABLE
      | 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 WarmupStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WarmupStatus" j)
    let to_json = simple_to_json to_value
  end
module SuppressionConditionThreshold =
  struct
    type nonrec t =
      {
      conditionThresholdEnabled: FeatureStatus.t
        [@ocaml.doc
          "Indicates whether Auto Validation is enabled for suppression. Set to ENABLED to enable the Auto Validation feature, or set to DISABLED to disable it."];
      overallConfidenceThreshold: SuppressionConfidenceThreshold.t option
        [@ocaml.doc
          "The overall confidence threshold used to determine suppression decisions."]}
    let context_ = "SuppressionConditionThreshold"
    let make ?overallConfidenceThreshold =
      fun ~conditionThresholdEnabled ->
        fun () -> { overallConfidenceThreshold; conditionThresholdEnabled }
    let to_value x =
      structure_to_value
        [("ConditionThresholdEnabled",
           (Some (FeatureStatus.to_value x.conditionThresholdEnabled)));
        ("OverallConfidenceThreshold",
          (Option.map x.overallConfidenceThreshold
             ~f:SuppressionConfidenceThreshold.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overallConfidenceThreshold =
        (Option.map ~f:SuppressionConfidenceThreshold.of_xml)
          (Xml.child xml_arg0 "OverallConfidenceThreshold") in
      let conditionThresholdEnabled =
        FeatureStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ConditionThresholdEnabled") in
      make ?overallConfidenceThreshold ~conditionThresholdEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overallConfidenceThreshold =
        field_map json__ "OverallConfidenceThreshold"
          SuppressionConfidenceThreshold.of_json in
      let conditionThresholdEnabled =
        field_map_exn json__ "ConditionThresholdEnabled"
          FeatureStatus.of_json in
      make ?overallConfidenceThreshold ~conditionThresholdEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains Auto Validation settings, allowing you to suppress sending to specific destination(s) if they do not meet required threshold. For details on Auto Validation, see Auto Validation."]
module CloudWatchDestination =
  struct
    type nonrec t =
      {
      dimensionConfigurations: CloudWatchDimensionConfigurations.t
        [@ocaml.doc
          "An array of objects that define the dimensions to use when you send email events to Amazon CloudWatch."]}
    let context_ = "CloudWatchDestination"
    let make ~dimensionConfigurations = fun () -> { dimensionConfigurations }
    let to_value x =
      structure_to_value
        [("DimensionConfigurations",
           (Some
              (CloudWatchDimensionConfigurations.to_value
                 x.dimensionConfigurations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimensionConfigurations =
        CloudWatchDimensionConfigurations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DimensionConfigurations") in
      make ~dimensionConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimensionConfigurations =
        field_map_exn json__ "DimensionConfigurations"
          CloudWatchDimensionConfigurations.of_json in
      make ~dimensionConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines an Amazon CloudWatch destination for email events. You can use Amazon CloudWatch to monitor and gain insights on your email sending metrics."]
module EventBridgeDestination =
  struct
    type nonrec t =
      {
      eventBusArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon EventBridge bus to publish email events to. Only the default bus is supported."]}
    let context_ = "EventBridgeDestination"
    let make ~eventBusArn = fun () -> { eventBusArn }
    let to_value x =
      structure_to_value
        [("EventBusArn", (Some (AmazonResourceName.to_value x.eventBusArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBusArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventBusArn") in
      make ~eventBusArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBusArn =
        field_map_exn json__ "EventBusArn" AmazonResourceName.of_json in
      make ~eventBusArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines an Amazon EventBridge destination for email events. You can use Amazon EventBridge to send notifications when certain email events occur."]
module EventDestinationName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of an event destination. Events include message sends, deliveries, opens, clicks, bounces, and complaints. Event destinations are places that you can send information about these events to. For example, you can send event data to Amazon SNS to receive notifications when you receive bounces or complaints, or you can use Amazon Kinesis Data Firehose to stream data to Amazon S3 for long-term storage."]
    let context_ = "EventDestinationName"
    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:"EventDestinationName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of an event destination. Events include message sends, deliveries, opens, clicks, bounces, and complaints. Event destinations are places that you can send information about these events to. For example, you can send event data to Amazon SNS to receive notifications when you receive bounces or complaints, or you can use Amazon Kinesis Data Firehose to stream data to Amazon S3 for long-term storage."]
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 =
      {
      iamRoleArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role that the Amazon SES API v2 uses to send email events to the Amazon Kinesis Data Firehose stream."];
      deliveryStreamArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Kinesis Data Firehose stream that the Amazon SES API v2 sends email events to."]}
    let context_ = "KinesisFirehoseDestination"
    let make ~iamRoleArn =
      fun ~deliveryStreamArn -> fun () -> { iamRoleArn; deliveryStreamArn }
    let to_value x =
      structure_to_value
        [("IamRoleArn", (Some (AmazonResourceName.to_value x.iamRoleArn)));
        ("DeliveryStreamArn",
          (Some (AmazonResourceName.to_value x.deliveryStreamArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliveryStreamArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeliveryStreamArn") in
      let iamRoleArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      make ~deliveryStreamArn ~iamRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliveryStreamArn =
        field_map_exn json__ "DeliveryStreamArn" AmazonResourceName.of_json in
      let iamRoleArn =
        field_map_exn json__ "IamRoleArn" AmazonResourceName.of_json in
      make ~deliveryStreamArn ~iamRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines an Amazon Kinesis Data Firehose destination for email events. You can use Amazon Kinesis Data Firehose to stream data to other services, such as Amazon S3 and Amazon Redshift."]
module PinpointDestination =
  struct
    type nonrec t =
      {
      applicationArn: AmazonResourceName.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Pinpoint project to send email events to."]}
    let make ?applicationArn = fun () -> { applicationArn }
    let to_value x =
      structure_to_value
        [("ApplicationArn",
           (Option.map x.applicationArn ~f:AmazonResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ApplicationArn") in
      make ?applicationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationArn =
        field_map json__ "ApplicationArn" AmazonResourceName.of_json in
      make ?applicationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines an Amazon Pinpoint project destination for email events. You can send email event data to a Amazon Pinpoint project to view metrics using the Transactional Messaging dashboards that are built in to Amazon Pinpoint. For more information, see Transactional Messaging Charts in the Amazon Pinpoint User Guide."]
module SnsDestination =
  struct
    type nonrec t =
      {
      topicArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon SNS topic to publish email events to. For more information about Amazon SNS topics, see the Amazon SNS Developer Guide."]}
    let context_ = "SnsDestination"
    let make ~topicArn = fun () -> { topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (AmazonResourceName.to_value x.topicArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        AmazonResourceName.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" AmazonResourceName.of_json in
      make ~topicArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines an Amazon SNS destination for email events. You can use Amazon SNS to send notifications when certain email events occur."]
module BlacklistEntry =
  struct
    type nonrec t =
      {
      rblName: RblName.t option
        [@ocaml.doc
          "The name of the blacklist that the IP address appears on."];
      listingTime: Timestamp.t option
        [@ocaml.doc "The time when the blacklisting event occurred."];
      description: BlacklistingDescription.t option
        [@ocaml.doc
          "Additional information about the blacklisting event, as provided by the blacklist maintainer."]}
    let make ?rblName =
      fun ?listingTime ->
        fun ?description -> fun () -> { rblName; listingTime; description }
    let to_value x =
      structure_to_value
        [("RblName", (Option.map x.rblName ~f:RblName.to_value));
        ("ListingTime", (Option.map x.listingTime ~f:Timestamp.to_value));
        ("Description",
          (Option.map x.description ~f:BlacklistingDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:BlacklistingDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let listingTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "ListingTime") in
      let rblName =
        (Option.map ~f:RblName.of_xml) (Xml.child xml_arg0 "RblName") in
      make ?description ?listingTime ?rblName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" BlacklistingDescription.of_json in
      let listingTime = field_map json__ "ListingTime" Timestamp.of_json in
      let rblName = field_map json__ "RblName" RblName.of_json in
      make ?description ?listingTime ?rblName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about a blacklisting event that impacts one of the dedicated IP addresses that is associated with your account."]
module AdditionalContactEmailAddress =
  struct
    type nonrec t = string
    let context_ = "AdditionalContactEmailAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:254) >>=
                  (fun () -> check_pattern i ~pattern:"^(.+)@(.+)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AdditionalContactEmailAddress" j
    let to_json = simple_to_json to_value
  end
module CaseId =
  struct
    type nonrec t = string
    let context_ = "CaseId"
    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:"CaseId" j
    let to_json = simple_to_json to_value
  end
module ReviewStatus =
  struct
    type nonrec t =
      | PENDING 
      | FAILED 
      | GRANTED 
      | DENIED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | FAILED -> "FAILED"
      | GRANTED -> "GRANTED"
      | DENIED -> "DENIED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "FAILED" -> FAILED
      | "GRANTED" -> GRANTED
      | "DENIED" -> DENIED
      | 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 ReviewStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReviewStatus" j)
    let to_json = simple_to_json to_value
  end
module RouteDetails =
  struct
    type nonrec t =
      {
      region: Region.t
        [@ocaml.doc
          "The name of an AWS-Region to be a secondary region for the multi-region endpoint (global-endpoint)."]}
    let context_ = "RouteDetails"
    let make ~region = fun () -> { region }
    let to_value x =
      structure_to_value [("Region", (Some (Region.to_value x.region)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        Region.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Region") in
      make ~region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map_exn json__ "Region" Region.of_json in
      make ~region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains route configuration. Includes secondary region name."]
module QueryErrorCode =
  struct
    type nonrec t =
      | INTERNAL_FAILURE 
      | ACCESS_DENIED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INTERNAL_FAILURE -> "INTERNAL_FAILURE"
      | ACCESS_DENIED -> "ACCESS_DENIED"
      | Non_static_id s -> s
    let of_string =
      function
      | "INTERNAL_FAILURE" -> INTERNAL_FAILURE
      | "ACCESS_DENIED" -> ACCESS_DENIED
      | 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 QueryErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QueryErrorCode" j)
    let to_json = simple_to_json to_value
  end
module QueryErrorMessage =
  struct
    type nonrec t = string
    let context_ = "QueryErrorMessage"
    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:"QueryErrorMessage" j
    let to_json = simple_to_json to_value
  end
module QueryIdentifier =
  struct
    type nonrec t = string
    let context_ = "QueryIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueryIdentifier" j
    let to_json = simple_to_json to_value
  end
module MetricValueList =
  struct
    type nonrec t = Counter.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:Counter.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:Counter.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricValueList" ~of_json:Counter.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimestampList =
  struct
    type nonrec t = Timestamp.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:Timestamp.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:Timestamp.of_xml)
    let of_json j =
      list_of_json ~kind:"TimestampList" ~of_json:Timestamp.of_json j
    let to_json v = composed_to_json to_value v
  end
module Dimensions =
  struct
    type nonrec t = (MetricDimensionName.t * MetricDimensionValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((MetricDimensionName.of_string chopped),
                              (MetricDimensionValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MetricDimensionName.to_value x) |>
                    (fun x ->
                       (MetricDimensionValue.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:MetricDimensionName.of_string
        ~of_json:MetricDimensionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Topic =
  struct
    type nonrec t =
      {
      topicName: TopicName.t [@ocaml.doc "The name of the topic."];
      displayName: DisplayName.t
        [@ocaml.doc "The name of the topic the contact will see."];
      description: Description.t option
        [@ocaml.doc
          "A description of what the topic is about, which the contact will see."];
      defaultSubscriptionStatus: SubscriptionStatus.t
        [@ocaml.doc
          "The default subscription status to be applied to a contact if the contact has not noted their preference for subscribing to a topic."]}
    let context_ = "Topic"
    let make ?description =
      fun ~topicName ->
        fun ~displayName ->
          fun ~defaultSubscriptionStatus ->
            fun () ->
              {
                description;
                topicName;
                displayName;
                defaultSubscriptionStatus
              }
    let to_value x =
      structure_to_value
        [("TopicName", (Some (TopicName.to_value x.topicName)));
        ("DisplayName", (Some (DisplayName.to_value x.displayName)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("DefaultSubscriptionStatus",
          (Some (SubscriptionStatus.to_value x.defaultSubscriptionStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultSubscriptionStatus =
        SubscriptionStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "DefaultSubscriptionStatus") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let displayName =
        DisplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DisplayName") in
      let topicName =
        TopicName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TopicName") in
      make ~defaultSubscriptionStatus ?description ~displayName ~topicName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultSubscriptionStatus =
        field_map_exn json__ "DefaultSubscriptionStatus"
          SubscriptionStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let displayName =
        field_map_exn json__ "DisplayName" DisplayName.of_json in
      let topicName = field_map_exn json__ "TopicName" TopicName.of_json in
      make ~defaultSubscriptionStatus ?description ~displayName ~topicName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An interest group, theme, or label within a list. Lists can have multiple topics."]
module Message =
  struct
    type nonrec t =
      {
      subject: Content.t
        [@ocaml.doc
          "The subject line of the email. The subject line can only contain 7-bit ASCII characters. However, you can specify non-ASCII characters in the subject line by using encoded-word syntax, as described in RFC 2047."];
      body: Body.t
        [@ocaml.doc
          "The body of the message. You can specify an HTML version of the message, a text-only version of the message, or both."];
      headers: MessageHeaderList.t option
        [@ocaml.doc
          "The list of message headers that will be added to the email message."];
      attachments: AttachmentList.t option
        [@ocaml.doc
          "The List of attachments to include in your email. All recipients will receive the same attachments."]}
    let context_ = "Message"
    let make ?headers =
      fun ?attachments ->
        fun ~subject ->
          fun ~body -> fun () -> { headers; attachments; subject; body }
    let to_value x =
      structure_to_value
        [("Subject", (Some (Content.to_value x.subject)));
        ("Body", (Some (Body.to_value x.body)));
        ("Headers", (Option.map x.headers ~f:MessageHeaderList.to_value));
        ("Attachments",
          (Option.map x.attachments ~f:AttachmentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachments =
        (Option.map ~f:AttachmentList.of_xml)
          (Xml.child xml_arg0 "Attachments") in
      let headers =
        (Option.map ~f:MessageHeaderList.of_xml)
          (Xml.child xml_arg0 "Headers") in
      let body =
        Body.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Body") in
      let subject =
        Content.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Subject") in
      make ?attachments ?headers ~body ~subject ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachments = field_map json__ "Attachments" AttachmentList.of_json in
      let headers = field_map json__ "Headers" MessageHeaderList.of_json in
      let body = field_map_exn json__ "Body" Body.of_json in
      let subject = field_map_exn json__ "Subject" Content.of_json in
      make ?attachments ?headers ~body ~subject ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the email message that you're sending. The Message object consists of a subject line and a message body."]
module RawMessage =
  struct
    type nonrec t =
      {
      data: RawMessageData.t
        [@ocaml.doc
          "The raw email message. The message has to meet the following criteria: The message has to contain a header and a body, separated by one blank line. All of the required header fields must be present in the message. Each part of a multipart MIME message must be formatted properly. Attachments must be in a file format that the Amazon SES supports. The raw data of the message needs to base64-encoded if you are accessing Amazon SES directly through the HTTPS interface. If you are accessing Amazon SES using an Amazon Web Services SDK, the SDK takes care of the base 64-encoding for you. If any of the MIME parts in your message contain content that is outside of the 7-bit ASCII character range, you should encode that content to ensure that recipients' email clients render the message properly. The length of any single line of text in the message can't exceed 1,000 characters. This restriction is defined in RFC 5321."]}
    let context_ = "RawMessage"
    let make ~data = fun () -> { data }
    let of_header_and_body = ((fun (xs, pipe) -> make ~data:pipe ())
      [@warning "-27"])
    let to_value x =
      structure_to_value [("Data", (Some (RawMessageData.to_value x.data)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let data =
        RawMessageData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Data") in
      make ~data ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let data = field_map_exn json__ "Data" RawMessageData.of_json in
      make ~data ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the raw content of an email message."]
module Template =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t option
        [@ocaml.doc
          "The name of the template. You will refer to this name when you send email using the SendEmail or SendBulkEmail operations."];
      templateArn: AmazonResourceName.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the template."];
      templateContent: EmailTemplateContent.t option
        [@ocaml.doc
          "The content of the template. Amazon SES supports only simple substitions when you send email using the SendEmail or SendBulkEmail operations and you provide the full template content in the request."];
      templateData: EmailTemplateData.t option
        [@ocaml.doc
          "An object that defines the values to use for message variables in the template. This object is a set of key-value pairs. Each key defines a message variable in the template. The corresponding value defines the value to use for that variable."];
      headers: MessageHeaderList.t option
        [@ocaml.doc
          "The list of message headers that will be added to the email message."];
      attachments: AttachmentList.t option
        [@ocaml.doc
          "The List of attachments to include in your email. All recipients will receive the same attachments."]}
    let make ?templateName =
      fun ?templateArn ->
        fun ?templateContent ->
          fun ?templateData ->
            fun ?headers ->
              fun ?attachments ->
                fun () ->
                  {
                    templateName;
                    templateArn;
                    templateContent;
                    templateData;
                    headers;
                    attachments
                  }
    let to_value x =
      structure_to_value
        [("TemplateName",
           (Option.map x.templateName ~f:EmailTemplateName.to_value));
        ("TemplateArn",
          (Option.map x.templateArn ~f:AmazonResourceName.to_value));
        ("TemplateContent",
          (Option.map x.templateContent ~f:EmailTemplateContent.to_value));
        ("TemplateData",
          (Option.map x.templateData ~f:EmailTemplateData.to_value));
        ("Headers", (Option.map x.headers ~f:MessageHeaderList.to_value));
        ("Attachments",
          (Option.map x.attachments ~f:AttachmentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachments =
        (Option.map ~f:AttachmentList.of_xml)
          (Xml.child xml_arg0 "Attachments") in
      let headers =
        (Option.map ~f:MessageHeaderList.of_xml)
          (Xml.child xml_arg0 "Headers") in
      let templateData =
        (Option.map ~f:EmailTemplateData.of_xml)
          (Xml.child xml_arg0 "TemplateData") in
      let templateContent =
        (Option.map ~f:EmailTemplateContent.of_xml)
          (Xml.child xml_arg0 "TemplateContent") in
      let templateArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "TemplateArn") in
      let templateName =
        (Option.map ~f:EmailTemplateName.of_xml)
          (Xml.child xml_arg0 "TemplateName") in
      make ?attachments ?headers ?templateData ?templateContent ?templateArn
        ?templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachments = field_map json__ "Attachments" AttachmentList.of_json in
      let headers = field_map json__ "Headers" MessageHeaderList.of_json in
      let templateData =
        field_map json__ "TemplateData" EmailTemplateData.of_json in
      let templateContent =
        field_map json__ "TemplateContent" EmailTemplateContent.of_json in
      let templateArn =
        field_map json__ "TemplateArn" AmazonResourceName.of_json in
      let templateName =
        field_map json__ "TemplateName" EmailTemplateName.of_json in
      make ?attachments ?headers ?templateData ?templateContent ?templateArn
        ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the email template to use for an email message, and the values to use for any message variables in that template. An email template is a type of message template that contains content that you want to reuse in email messages that you send. You can specifiy the email template by providing the name or ARN of an email template previously saved in your Amazon SES account or by providing the full template content."]
module BulkEmailEntryResult =
  struct
    type nonrec t =
      {
      status: BulkEmailStatus.t option
        [@ocaml.doc
          "The status of a message sent using the SendBulkTemplatedEmail operation. Possible values for this parameter include: SUCCESS: Amazon SES accepted the message, and will attempt to deliver it to the recipients. MESSAGE_REJECTED: The message was rejected because it contained a virus. MAIL_FROM_DOMAIN_NOT_VERIFIED: The sender's email address or domain was not verified. CONFIGURATION_SET_DOES_NOT_EXIST: The configuration set you specified does not exist. TEMPLATE_DOES_NOT_EXIST: The template you specified does not exist. ACCOUNT_SUSPENDED: Your account has been shut down because of issues related to your email sending practices. ACCOUNT_THROTTLED: The number of emails you can send has been reduced because your account has exceeded its allocated sending limit. ACCOUNT_DAILY_QUOTA_EXCEEDED: You have reached or exceeded the maximum number of emails you can send from your account in a 24-hour period. INVALID_SENDING_POOL_NAME: The configuration set you specified refers to an IP pool that does not exist. ACCOUNT_SENDING_PAUSED: Email sending for the Amazon SES account was disabled using the UpdateAccountSendingEnabled operation. CONFIGURATION_SET_SENDING_PAUSED: Email sending for this configuration set was disabled using the UpdateConfigurationSetSendingEnabled operation. INVALID_PARAMETER_VALUE: One or more of the parameters you specified when calling this operation was invalid. See the error message for additional information. TRANSIENT_FAILURE: Amazon SES was unable to process your request because of a temporary issue. FAILED: Amazon SES was unable to process your request. See the error message for additional information."];
      error: ErrorMessage.t option
        [@ocaml.doc
          "A description of an error that prevented a message being sent using the SendBulkTemplatedEmail operation."];
      messageId: OutboundMessageId.t option
        [@ocaml.doc
          "The unique message identifier returned from the SendBulkTemplatedEmail operation."]}
    let make ?status =
      fun ?error -> fun ?messageId -> fun () -> { status; error; messageId }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:BulkEmailStatus.to_value));
        ("Error", (Option.map x.error ~f:ErrorMessage.to_value));
        ("MessageId", (Option.map x.messageId ~f:OutboundMessageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:OutboundMessageId.of_xml)
          (Xml.child xml_arg0 "MessageId") in
      let error =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Error") in
      let status =
        (Option.map ~f:BulkEmailStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?messageId ?error ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map json__ "MessageId" OutboundMessageId.of_json in
      let error = field_map json__ "Error" ErrorMessage.of_json in
      let status = field_map json__ "Status" BulkEmailStatus.of_json in
      make ?messageId ?error ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of the SendBulkEmail operation of each specified BulkEmailEntry."]
module BulkEmailEntry =
  struct
    type nonrec t =
      {
      destination: Destination.t
        [@ocaml.doc
          "Represents the destination of the message, consisting of To:, CC:, and BCC: fields. Amazon SES does not support the SMTPUTF8 extension, as described in RFC6531. For this reason, the local part of a destination email address (the part of the email address that precedes the \\@ sign) may only contain 7-bit ASCII characters. If the domain part of an address (the part after the \\@ sign) contains non-ASCII characters, they must be encoded using Punycode, as described in RFC3492."];
      replacementTags: MessageTagList.t option
        [@ocaml.doc
          "A list of tags, in the form of name/value pairs, to apply to an email that you send using the SendBulkTemplatedEmail operation. Tags correspond to characteristics of the email that you define, so that you can publish email sending events."];
      replacementEmailContent: ReplacementEmailContent.t option
        [@ocaml.doc
          "The ReplacementEmailContent associated with a BulkEmailEntry."];
      replacementHeaders: MessageHeaderList.t option
        [@ocaml.doc
          "The list of message headers associated with the BulkEmailEntry data type. Headers Not Present in BulkEmailEntry: If a header is specified in Template but not in BulkEmailEntry, the header from Template will be added to the outgoing email. Headers Present in BulkEmailEntry: If a header is specified in BulkEmailEntry, it takes precedence over any header of the same name specified in Template : If the header is also defined within Template, the value from BulkEmailEntry will replace the header's value in the email. If the header is not defined within Template, it will simply be added to the email as specified in BulkEmailEntry."]}
    let context_ = "BulkEmailEntry"
    let make ?replacementTags =
      fun ?replacementEmailContent ->
        fun ?replacementHeaders ->
          fun ~destination ->
            fun () ->
              {
                replacementTags;
                replacementEmailContent;
                replacementHeaders;
                destination
              }
    let to_value x =
      structure_to_value
        [("Destination", (Some (Destination.to_value x.destination)));
        ("ReplacementTags",
          (Option.map x.replacementTags ~f:MessageTagList.to_value));
        ("ReplacementEmailContent",
          (Option.map x.replacementEmailContent
             ~f:ReplacementEmailContent.to_value));
        ("ReplacementHeaders",
          (Option.map x.replacementHeaders ~f:MessageHeaderList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replacementHeaders =
        (Option.map ~f:MessageHeaderList.of_xml)
          (Xml.child xml_arg0 "ReplacementHeaders") in
      let replacementEmailContent =
        (Option.map ~f:ReplacementEmailContent.of_xml)
          (Xml.child xml_arg0 "ReplacementEmailContent") in
      let replacementTags =
        (Option.map ~f:MessageTagList.of_xml)
          (Xml.child xml_arg0 "ReplacementTags") in
      let destination =
        Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destination") in
      make ?replacementHeaders ?replacementEmailContent ?replacementTags
        ~destination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replacementHeaders =
        field_map json__ "ReplacementHeaders" MessageHeaderList.of_json in
      let replacementEmailContent =
        field_map json__ "ReplacementEmailContent"
          ReplacementEmailContent.of_json in
      let replacementTags =
        field_map json__ "ReplacementTags" MessageTagList.of_json in
      let destination =
        field_map_exn json__ "Destination" Destination.of_json in
      make ?replacementHeaders ?replacementEmailContent ?replacementTags
        ~destination ()
    let to_json v = composed_to_json to_value v
  end
module DkimSigningAttributesOrigin =
  struct
    type nonrec t =
      | AWS_SES 
      | EXTERNAL 
      | AWS_SES_AF_SOUTH_1 
      | AWS_SES_EU_NORTH_1 
      | AWS_SES_AP_SOUTH_1 
      | AWS_SES_EU_WEST_3 
      | AWS_SES_EU_WEST_2 
      | AWS_SES_EU_SOUTH_1 
      | AWS_SES_EU_WEST_1 
      | AWS_SES_AP_NORTHEAST_3 
      | AWS_SES_AP_NORTHEAST_2 
      | AWS_SES_ME_SOUTH_1 
      | AWS_SES_AP_NORTHEAST_1 
      | AWS_SES_IL_CENTRAL_1 
      | AWS_SES_SA_EAST_1 
      | AWS_SES_CA_CENTRAL_1 
      | AWS_SES_AP_SOUTHEAST_1 
      | AWS_SES_AP_SOUTHEAST_2 
      | AWS_SES_AP_SOUTHEAST_3 
      | AWS_SES_EU_CENTRAL_1 
      | AWS_SES_US_EAST_1 
      | AWS_SES_US_EAST_2 
      | AWS_SES_US_WEST_1 
      | AWS_SES_US_WEST_2 
      | AWS_SES_ME_CENTRAL_1 
      | AWS_SES_AP_SOUTH_2 
      | AWS_SES_EU_CENTRAL_2 
      | AWS_SES_AP_SOUTHEAST_5 
      | AWS_SES_CA_WEST_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_SES -> "AWS_SES"
      | EXTERNAL -> "EXTERNAL"
      | AWS_SES_AF_SOUTH_1 -> "AWS_SES_AF_SOUTH_1"
      | AWS_SES_EU_NORTH_1 -> "AWS_SES_EU_NORTH_1"
      | AWS_SES_AP_SOUTH_1 -> "AWS_SES_AP_SOUTH_1"
      | AWS_SES_EU_WEST_3 -> "AWS_SES_EU_WEST_3"
      | AWS_SES_EU_WEST_2 -> "AWS_SES_EU_WEST_2"
      | AWS_SES_EU_SOUTH_1 -> "AWS_SES_EU_SOUTH_1"
      | AWS_SES_EU_WEST_1 -> "AWS_SES_EU_WEST_1"
      | AWS_SES_AP_NORTHEAST_3 -> "AWS_SES_AP_NORTHEAST_3"
      | AWS_SES_AP_NORTHEAST_2 -> "AWS_SES_AP_NORTHEAST_2"
      | AWS_SES_ME_SOUTH_1 -> "AWS_SES_ME_SOUTH_1"
      | AWS_SES_AP_NORTHEAST_1 -> "AWS_SES_AP_NORTHEAST_1"
      | AWS_SES_IL_CENTRAL_1 -> "AWS_SES_IL_CENTRAL_1"
      | AWS_SES_SA_EAST_1 -> "AWS_SES_SA_EAST_1"
      | AWS_SES_CA_CENTRAL_1 -> "AWS_SES_CA_CENTRAL_1"
      | AWS_SES_AP_SOUTHEAST_1 -> "AWS_SES_AP_SOUTHEAST_1"
      | AWS_SES_AP_SOUTHEAST_2 -> "AWS_SES_AP_SOUTHEAST_2"
      | AWS_SES_AP_SOUTHEAST_3 -> "AWS_SES_AP_SOUTHEAST_3"
      | AWS_SES_EU_CENTRAL_1 -> "AWS_SES_EU_CENTRAL_1"
      | AWS_SES_US_EAST_1 -> "AWS_SES_US_EAST_1"
      | AWS_SES_US_EAST_2 -> "AWS_SES_US_EAST_2"
      | AWS_SES_US_WEST_1 -> "AWS_SES_US_WEST_1"
      | AWS_SES_US_WEST_2 -> "AWS_SES_US_WEST_2"
      | AWS_SES_ME_CENTRAL_1 -> "AWS_SES_ME_CENTRAL_1"
      | AWS_SES_AP_SOUTH_2 -> "AWS_SES_AP_SOUTH_2"
      | AWS_SES_EU_CENTRAL_2 -> "AWS_SES_EU_CENTRAL_2"
      | AWS_SES_AP_SOUTHEAST_5 -> "AWS_SES_AP_SOUTHEAST_5"
      | AWS_SES_CA_WEST_1 -> "AWS_SES_CA_WEST_1"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_SES" -> AWS_SES
      | "EXTERNAL" -> EXTERNAL
      | "AWS_SES_AF_SOUTH_1" -> AWS_SES_AF_SOUTH_1
      | "AWS_SES_EU_NORTH_1" -> AWS_SES_EU_NORTH_1
      | "AWS_SES_AP_SOUTH_1" -> AWS_SES_AP_SOUTH_1
      | "AWS_SES_EU_WEST_3" -> AWS_SES_EU_WEST_3
      | "AWS_SES_EU_WEST_2" -> AWS_SES_EU_WEST_2
      | "AWS_SES_EU_SOUTH_1" -> AWS_SES_EU_SOUTH_1
      | "AWS_SES_EU_WEST_1" -> AWS_SES_EU_WEST_1
      | "AWS_SES_AP_NORTHEAST_3" -> AWS_SES_AP_NORTHEAST_3
      | "AWS_SES_AP_NORTHEAST_2" -> AWS_SES_AP_NORTHEAST_2
      | "AWS_SES_ME_SOUTH_1" -> AWS_SES_ME_SOUTH_1
      | "AWS_SES_AP_NORTHEAST_1" -> AWS_SES_AP_NORTHEAST_1
      | "AWS_SES_IL_CENTRAL_1" -> AWS_SES_IL_CENTRAL_1
      | "AWS_SES_SA_EAST_1" -> AWS_SES_SA_EAST_1
      | "AWS_SES_CA_CENTRAL_1" -> AWS_SES_CA_CENTRAL_1
      | "AWS_SES_AP_SOUTHEAST_1" -> AWS_SES_AP_SOUTHEAST_1
      | "AWS_SES_AP_SOUTHEAST_2" -> AWS_SES_AP_SOUTHEAST_2
      | "AWS_SES_AP_SOUTHEAST_3" -> AWS_SES_AP_SOUTHEAST_3
      | "AWS_SES_EU_CENTRAL_1" -> AWS_SES_EU_CENTRAL_1
      | "AWS_SES_US_EAST_1" -> AWS_SES_US_EAST_1
      | "AWS_SES_US_EAST_2" -> AWS_SES_US_EAST_2
      | "AWS_SES_US_WEST_1" -> AWS_SES_US_WEST_1
      | "AWS_SES_US_WEST_2" -> AWS_SES_US_WEST_2
      | "AWS_SES_ME_CENTRAL_1" -> AWS_SES_ME_CENTRAL_1
      | "AWS_SES_AP_SOUTH_2" -> AWS_SES_AP_SOUTH_2
      | "AWS_SES_EU_CENTRAL_2" -> AWS_SES_EU_CENTRAL_2
      | "AWS_SES_AP_SOUTHEAST_5" -> AWS_SES_AP_SOUTHEAST_5
      | "AWS_SES_CA_WEST_1" -> AWS_SES_CA_WEST_1
      | 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 DkimSigningAttributesOrigin"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DkimSigningAttributesOrigin" j)
    let to_json = simple_to_json to_value
  end
module DkimSigningKeyLength =
  struct
    type nonrec t =
      | RSA_1024_BIT 
      | RSA_2048_BIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RSA_1024_BIT -> "RSA_1024_BIT"
      | RSA_2048_BIT -> "RSA_2048_BIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "RSA_1024_BIT" -> RSA_1024_BIT
      | "RSA_2048_BIT" -> RSA_2048_BIT
      | 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 DkimSigningKeyLength" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DkimSigningKeyLength" j)
    let to_json = simple_to_json to_value
  end
module PrivateKey =
  struct
    type nonrec t = string
    let context_ = "PrivateKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20480) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z0-9+\\/]+={0,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:"PrivateKey" j
    let to_json = simple_to_json to_value
  end
module Selector =
  struct
    type nonrec t = string
    let context_ = "Selector"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(([a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\\-]*[a-zA-Z0-9]))$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Selector" j
    let to_json = simple_to_json to_value
  end
module DomainDeliverabilityTrackingOption =
  struct
    type nonrec t =
      {
      domain: Domain.t option
        [@ocaml.doc
          "A verified domain that\226\128\153s associated with your Amazon Web Services account and currently has an active Deliverability dashboard subscription."];
      subscriptionStartDate: Timestamp.t option
        [@ocaml.doc
          "The date when you enabled the Deliverability dashboard for the domain."];
      inboxPlacementTrackingOption: InboxPlacementTrackingOption.t option
        [@ocaml.doc
          "An object that contains information about the inbox placement data settings for the domain."]}
    let make ?domain =
      fun ?subscriptionStartDate ->
        fun ?inboxPlacementTrackingOption ->
          fun () ->
            { domain; subscriptionStartDate; inboxPlacementTrackingOption }
    let to_value x =
      structure_to_value
        [("Domain", (Option.map x.domain ~f:Domain.to_value));
        ("SubscriptionStartDate",
          (Option.map x.subscriptionStartDate ~f:Timestamp.to_value));
        ("InboxPlacementTrackingOption",
          (Option.map x.inboxPlacementTrackingOption
             ~f:InboxPlacementTrackingOption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inboxPlacementTrackingOption =
        (Option.map ~f:InboxPlacementTrackingOption.of_xml)
          (Xml.child xml_arg0 "InboxPlacementTrackingOption") in
      let subscriptionStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubscriptionStartDate") in
      let domain =
        (Option.map ~f:Domain.of_xml) (Xml.child xml_arg0 "Domain") in
      make ?inboxPlacementTrackingOption ?subscriptionStartDate ?domain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inboxPlacementTrackingOption =
        field_map json__ "InboxPlacementTrackingOption"
          InboxPlacementTrackingOption.of_json in
      let subscriptionStartDate =
        field_map json__ "SubscriptionStartDate" Timestamp.of_json in
      let domain = field_map json__ "Domain" Domain.of_json in
      make ?inboxPlacementTrackingOption ?subscriptionStartDate ?domain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the Deliverability dashboard subscription for a verified domain that you use to send email and currently has an active Deliverability dashboard subscription. If a Deliverability dashboard subscription is active for a domain, you gain access to reputation, inbox placement, and other metrics for the domain."]
module DashboardOptions =
  struct
    type nonrec t =
      {
      engagementMetrics: FeatureStatus.t option
        [@ocaml.doc
          "Specifies the status of your VDM engagement metrics collection. Can be one of the following: ENABLED \226\128\147 Amazon SES enables engagement metrics for the configuration set. DISABLED \226\128\147 Amazon SES disables engagement metrics for the configuration set."]}
    let make ?engagementMetrics = fun () -> { engagementMetrics }
    let to_value x =
      structure_to_value
        [("EngagementMetrics",
           (Option.map x.engagementMetrics ~f:FeatureStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engagementMetrics =
        (Option.map ~f:FeatureStatus.of_xml)
          (Xml.child xml_arg0 "EngagementMetrics") in
      make ?engagementMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engagementMetrics =
        field_map json__ "EngagementMetrics" FeatureStatus.of_json in
      make ?engagementMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object containing additional settings for your VDM configuration as applicable to the Dashboard."]
module GuardianOptions =
  struct
    type nonrec t =
      {
      optimizedSharedDelivery: FeatureStatus.t option
        [@ocaml.doc
          "Specifies the status of your VDM optimized shared delivery. Can be one of the following: ENABLED \226\128\147 Amazon SES enables optimized shared delivery for the configuration set. DISABLED \226\128\147 Amazon SES disables optimized shared delivery for the configuration set."]}
    let make ?optimizedSharedDelivery = fun () -> { optimizedSharedDelivery }
    let to_value x =
      structure_to_value
        [("OptimizedSharedDelivery",
           (Option.map x.optimizedSharedDelivery ~f:FeatureStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optimizedSharedDelivery =
        (Option.map ~f:FeatureStatus.of_xml)
          (Xml.child xml_arg0 "OptimizedSharedDelivery") in
      make ?optimizedSharedDelivery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optimizedSharedDelivery =
        field_map json__ "OptimizedSharedDelivery" FeatureStatus.of_json in
      make ?optimizedSharedDelivery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object containing additional settings for your VDM configuration as applicable to the Guardian."]
module DashboardAttributes =
  struct
    type nonrec t =
      {
      engagementMetrics: FeatureStatus.t option
        [@ocaml.doc
          "Specifies the status of your VDM engagement metrics collection. Can be one of the following: ENABLED \226\128\147 Amazon SES enables engagement metrics for your account. DISABLED \226\128\147 Amazon SES disables engagement metrics for your account."]}
    let make ?engagementMetrics = fun () -> { engagementMetrics }
    let to_value x =
      structure_to_value
        [("EngagementMetrics",
           (Option.map x.engagementMetrics ~f:FeatureStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engagementMetrics =
        (Option.map ~f:FeatureStatus.of_xml)
          (Xml.child xml_arg0 "EngagementMetrics") in
      make ?engagementMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engagementMetrics =
        field_map json__ "EngagementMetrics" FeatureStatus.of_json in
      make ?engagementMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object containing additional settings for your VDM configuration as applicable to the Dashboard."]
module GuardianAttributes =
  struct
    type nonrec t =
      {
      optimizedSharedDelivery: FeatureStatus.t option
        [@ocaml.doc
          "Specifies the status of your VDM optimized shared delivery. Can be one of the following: ENABLED \226\128\147 Amazon SES enables optimized shared delivery for your account. DISABLED \226\128\147 Amazon SES disables optimized shared delivery for your account."]}
    let make ?optimizedSharedDelivery = fun () -> { optimizedSharedDelivery }
    let to_value x =
      structure_to_value
        [("OptimizedSharedDelivery",
           (Option.map x.optimizedSharedDelivery ~f:FeatureStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optimizedSharedDelivery =
        (Option.map ~f:FeatureStatus.of_xml)
          (Xml.child xml_arg0 "OptimizedSharedDelivery") in
      make ?optimizedSharedDelivery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optimizedSharedDelivery =
        field_map json__ "OptimizedSharedDelivery" FeatureStatus.of_json in
      make ?optimizedSharedDelivery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object containing additional settings for your VDM configuration as applicable to the Guardian."]
module TenantInfo =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t option [@ocaml.doc "The name of the tenant."];
      tenantId: TenantId.t option
        [@ocaml.doc "A unique identifier for the tenant."];
      tenantArn: AmazonResourceName.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the tenant."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The date and time when the tenant was created."]}
    let make ?tenantName =
      fun ?tenantId ->
        fun ?tenantArn ->
          fun ?createdTimestamp ->
            fun () -> { tenantName; tenantId; tenantArn; createdTimestamp }
    let to_value x =
      structure_to_value
        [("TenantName", (Option.map x.tenantName ~f:TenantName.to_value));
        ("TenantId", (Option.map x.tenantId ~f:TenantId.to_value));
        ("TenantArn",
          (Option.map x.tenantArn ~f:AmazonResourceName.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let tenantArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "TenantArn") in
      let tenantId =
        (Option.map ~f:TenantId.of_xml) (Xml.child xml_arg0 "TenantId") in
      let tenantName =
        (Option.map ~f:TenantName.of_xml) (Xml.child xml_arg0 "TenantName") in
      make ?createdTimestamp ?tenantArn ?tenantId ?tenantName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let tenantArn = field_map json__ "TenantArn" AmazonResourceName.of_json in
      let tenantId = field_map json__ "TenantId" TenantId.of_json in
      let tenantName = field_map json__ "TenantName" TenantName.of_json in
      make ?createdTimestamp ?tenantArn ?tenantId ?tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains basic information about a tenant."]
module TenantResource =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of resource associated with the tenant. Valid values are EMAIL_IDENTITY, CONFIGURATION_SET, or EMAIL_TEMPLATE."];
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource associated with the tenant."]}
    let make ?resourceType =
      fun ?resourceArn -> fun () -> { resourceType; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceArn",
          (Option.map x.resourceArn ~f:AmazonResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?resourceArn ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?resourceArn ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about a resource associated with a tenant."]
module ListTenantResourcesFilterKey =
  struct
    type nonrec t =
      | RESOURCE_TYPE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | RESOURCE_TYPE -> "RESOURCE_TYPE" | Non_static_id s -> s
    let of_string =
      function | "RESOURCE_TYPE" -> RESOURCE_TYPE | 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 ListTenantResourcesFilterKey"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListTenantResourcesFilterKey" j)
    let to_json = simple_to_json to_value
  end
module ListTenantResourcesFilterValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The value used to filter tenant resources. When filtering by RESOURCE_TYPE, valid values are EMAIL_IDENTITY, CONFIGURATION_SET, or EMAIL_TEMPLATE."]
    let context_ = "ListTenantResourcesFilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"ListTenantResourcesFilterValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The value used to filter tenant resources. When filtering by RESOURCE_TYPE, valid values are EMAIL_IDENTITY, CONFIGURATION_SET, or EMAIL_TEMPLATE."]
module SuppressedDestinationSummary =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address that's on the suppression list for your account."];
      reason: SuppressionListReason.t option
        [@ocaml.doc
          "The reason that the address was added to the suppression list for your account."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The date and time when the suppressed destination was last updated, shown in Unix time format."]}
    let make ?emailAddress =
      fun ?reason ->
        fun ?lastUpdateTime ->
          fun () -> { emailAddress; reason; lastUpdateTime }
    let to_value x =
      structure_to_value
        [("EmailAddress",
           (Option.map x.emailAddress ~f:EmailAddress.to_value));
        ("Reason", (Option.map x.reason ~f:SuppressionListReason.to_value));
        ("LastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateTime") in
      let reason =
        (Option.map ~f:SuppressionListReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let emailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      make ?lastUpdateTime ?reason ?emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdateTime =
        field_map json__ "LastUpdateTime" Timestamp.of_json in
      let reason = field_map json__ "Reason" SuppressionListReason.of_json in
      let emailAddress = field_map json__ "EmailAddress" EmailAddress.of_json in
      make ?lastUpdateTime ?reason ?emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary that describes the suppressed email address."]
module ResourceTenantMetadata =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t option
        [@ocaml.doc "The name of the tenant associated with the resource."];
      tenantId: TenantId.t option
        [@ocaml.doc
          "A unique identifier for the tenant associated with the resource."];
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      associatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The date and time when the resource was associated with the tenant."]}
    let make ?tenantName =
      fun ?tenantId ->
        fun ?resourceArn ->
          fun ?associatedTimestamp ->
            fun () ->
              { tenantName; tenantId; resourceArn; associatedTimestamp }
    let to_value x =
      structure_to_value
        [("TenantName", (Option.map x.tenantName ~f:TenantName.to_value));
        ("TenantId", (Option.map x.tenantId ~f:TenantId.to_value));
        ("ResourceArn",
          (Option.map x.resourceArn ~f:AmazonResourceName.to_value));
        ("AssociatedTimestamp",
          (Option.map x.associatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "AssociatedTimestamp") in
      let resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      let tenantId =
        (Option.map ~f:TenantId.of_xml) (Xml.child xml_arg0 "TenantId") in
      let tenantName =
        (Option.map ~f:TenantName.of_xml) (Xml.child xml_arg0 "TenantName") in
      make ?associatedTimestamp ?resourceArn ?tenantId ?tenantName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedTimestamp =
        field_map json__ "AssociatedTimestamp" Timestamp.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      let tenantId = field_map json__ "TenantId" TenantId.of_json in
      let tenantName = field_map json__ "TenantName" TenantName.of_json in
      make ?associatedTimestamp ?resourceArn ?tenantId ?tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information about a tenant associated with a resource."]
module ReputationEntity =
  struct
    type nonrec t =
      {
      reputationEntityReference: ReputationEntityReference.t option
        [@ocaml.doc
          "The unique identifier for the reputation entity. For resource-type entities, this is the Amazon Resource Name (ARN) of the resource."];
      reputationEntityType: ReputationEntityType.t option
        [@ocaml.doc
          "The type of reputation entity. Currently, only RESOURCE type entities are supported."];
      reputationManagementPolicy: AmazonResourceName.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the reputation management policy applied to this entity. This is an Amazon Web Services Amazon SES-managed policy."];
      customerManagedStatus: StatusRecord.t option
        [@ocaml.doc
          "The customer-managed status record for this reputation entity, including the current status, cause description, and last updated timestamp."];
      awsSesManagedStatus: StatusRecord.t option
        [@ocaml.doc
          "The Amazon Web Services Amazon SES-managed status record for this reputation entity, including the current status, cause description, and last updated timestamp."];
      sendingStatusAggregate: SendingStatus.t option
        [@ocaml.doc
          "The aggregate sending status that determines whether the entity is allowed to send emails. This status is derived from both the customer-managed and Amazon Web Services Amazon SES-managed statuses. If either the customer-managed status or the Amazon Web Services Amazon SES-managed status is DISABLED, the aggregate status will be DISABLED and the entity will not be allowed to send emails. When the customer-managed status is set to REINSTATED, the entity can continue sending even if there are active reputation findings, provided the Amazon Web Services Amazon SES-managed status also permits sending. The entity can only send emails when both statuses permit sending."];
      reputationImpact: RecommendationImpact.t option
        [@ocaml.doc
          "The reputation impact level for this entity, representing the highest impact reputation finding currently active. Reputation findings can be retrieved using the ListRecommendations operation."]}
    let make ?reputationEntityReference =
      fun ?reputationEntityType ->
        fun ?reputationManagementPolicy ->
          fun ?customerManagedStatus ->
            fun ?awsSesManagedStatus ->
              fun ?sendingStatusAggregate ->
                fun ?reputationImpact ->
                  fun () ->
                    {
                      reputationEntityReference;
                      reputationEntityType;
                      reputationManagementPolicy;
                      customerManagedStatus;
                      awsSesManagedStatus;
                      sendingStatusAggregate;
                      reputationImpact
                    }
    let to_value x =
      structure_to_value
        [("ReputationEntityReference",
           (Option.map x.reputationEntityReference
              ~f:ReputationEntityReference.to_value));
        ("ReputationEntityType",
          (Option.map x.reputationEntityType ~f:ReputationEntityType.to_value));
        ("ReputationManagementPolicy",
          (Option.map x.reputationManagementPolicy
             ~f:AmazonResourceName.to_value));
        ("CustomerManagedStatus",
          (Option.map x.customerManagedStatus ~f:StatusRecord.to_value));
        ("AwsSesManagedStatus",
          (Option.map x.awsSesManagedStatus ~f:StatusRecord.to_value));
        ("SendingStatusAggregate",
          (Option.map x.sendingStatusAggregate ~f:SendingStatus.to_value));
        ("ReputationImpact",
          (Option.map x.reputationImpact ~f:RecommendationImpact.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reputationImpact =
        (Option.map ~f:RecommendationImpact.of_xml)
          (Xml.child xml_arg0 "ReputationImpact") in
      let sendingStatusAggregate =
        (Option.map ~f:SendingStatus.of_xml)
          (Xml.child xml_arg0 "SendingStatusAggregate") in
      let awsSesManagedStatus =
        (Option.map ~f:StatusRecord.of_xml)
          (Xml.child xml_arg0 "AwsSesManagedStatus") in
      let customerManagedStatus =
        (Option.map ~f:StatusRecord.of_xml)
          (Xml.child xml_arg0 "CustomerManagedStatus") in
      let reputationManagementPolicy =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ReputationManagementPolicy") in
      let reputationEntityType =
        (Option.map ~f:ReputationEntityType.of_xml)
          (Xml.child xml_arg0 "ReputationEntityType") in
      let reputationEntityReference =
        (Option.map ~f:ReputationEntityReference.of_xml)
          (Xml.child xml_arg0 "ReputationEntityReference") in
      make ?reputationImpact ?sendingStatusAggregate ?awsSesManagedStatus
        ?customerManagedStatus ?reputationManagementPolicy
        ?reputationEntityType ?reputationEntityReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reputationImpact =
        field_map json__ "ReputationImpact" RecommendationImpact.of_json in
      let sendingStatusAggregate =
        field_map json__ "SendingStatusAggregate" SendingStatus.of_json in
      let awsSesManagedStatus =
        field_map json__ "AwsSesManagedStatus" StatusRecord.of_json in
      let customerManagedStatus =
        field_map json__ "CustomerManagedStatus" StatusRecord.of_json in
      let reputationManagementPolicy =
        field_map json__ "ReputationManagementPolicy"
          AmazonResourceName.of_json in
      let reputationEntityType =
        field_map json__ "ReputationEntityType" ReputationEntityType.of_json in
      let reputationEntityReference =
        field_map json__ "ReputationEntityReference"
          ReputationEntityReference.of_json in
      make ?reputationImpact ?sendingStatusAggregate ?awsSesManagedStatus
        ?customerManagedStatus ?reputationManagementPolicy
        ?reputationEntityType ?reputationEntityReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about a reputation entity, including its reference, type, policy, status records, and reputation impact."]
module ReputationEntityFilterKey =
  struct
    type nonrec t =
      | ENTITY_TYPE 
      | REPUTATION_IMPACT 
      | SENDING_STATUS 
      | ENTITY_REFERENCE_PREFIX 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENTITY_TYPE -> "ENTITY_TYPE"
      | REPUTATION_IMPACT -> "REPUTATION_IMPACT"
      | SENDING_STATUS -> "SENDING_STATUS"
      | ENTITY_REFERENCE_PREFIX -> "ENTITY_REFERENCE_PREFIX"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENTITY_TYPE" -> ENTITY_TYPE
      | "REPUTATION_IMPACT" -> REPUTATION_IMPACT
      | "SENDING_STATUS" -> SENDING_STATUS
      | "ENTITY_REFERENCE_PREFIX" -> ENTITY_REFERENCE_PREFIX
      | 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 ReputationEntityFilterKey" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReputationEntityFilterKey" j)
    let to_json = simple_to_json to_value
  end
module ReputationEntityFilterValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The filter value to match against the specified filter key."]
    let context_ = "ReputationEntityFilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"ReputationEntityFilterValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The filter value to match against the specified filter key."]
module Recommendation =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc
          "The resource affected by the recommendation, with values like arn:aws:ses:us-east-1:123456789012:identity/example.com."];
      type_: RecommendationType.t option
        [@ocaml.doc
          "The recommendation type, with values like DKIM, SPF, DMARC, BIMI, or COMPLAINT."];
      description: RecommendationDescription.t option
        [@ocaml.doc
          "The recommendation description / disambiguator - e.g. DKIM1 and DKIM2 are different recommendations about your DKIM setup."];
      status: RecommendationStatus.t option
        [@ocaml.doc
          "The recommendation status, with values like OPEN or FIXED."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The first time this issue was encountered and the recommendation was generated."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc "The last time the recommendation was updated."];
      impact: RecommendationImpact.t option
        [@ocaml.doc
          "The recommendation impact, with values like HIGH or LOW."]}
    let make ?resourceArn =
      fun ?type_ ->
        fun ?description ->
          fun ?status ->
            fun ?createdTimestamp ->
              fun ?lastUpdatedTimestamp ->
                fun ?impact ->
                  fun () ->
                    {
                      resourceArn;
                      type_;
                      description;
                      status;
                      createdTimestamp;
                      lastUpdatedTimestamp;
                      impact
                    }
    let to_value x =
      structure_to_value
        [("ResourceArn",
           (Option.map x.resourceArn ~f:AmazonResourceName.to_value));
        ("Type", (Option.map x.type_ ~f:RecommendationType.to_value));
        ("Description",
          (Option.map x.description ~f:RecommendationDescription.to_value));
        ("Status", (Option.map x.status ~f:RecommendationStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("Impact", (Option.map x.impact ~f:RecommendationImpact.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let impact =
        (Option.map ~f:RecommendationImpact.of_xml)
          (Xml.child xml_arg0 "Impact") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let status =
        (Option.map ~f:RecommendationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let description =
        (Option.map ~f:RecommendationDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let type_ =
        (Option.map ~f:RecommendationType.of_xml) (Xml.child xml_arg0 "Type") in
      let resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      make ?impact ?lastUpdatedTimestamp ?createdTimestamp ?status
        ?description ?type_ ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let impact = field_map json__ "Impact" RecommendationImpact.of_json in
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let status = field_map json__ "Status" RecommendationStatus.of_json in
      let description =
        field_map json__ "Description" RecommendationDescription.of_json in
      let type_ = field_map json__ "Type" RecommendationType.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      make ?impact ?lastUpdatedTimestamp ?createdTimestamp ?status
        ?description ?type_ ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A recommendation generated for your account."]
module ListRecommendationFilterValue =
  struct
    type nonrec t = string
    let context_ = "ListRecommendationFilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"ListRecommendationFilterValue" j
    let to_json = simple_to_json to_value
  end
module ListRecommendationsFilterKey =
  struct
    type nonrec t =
      | TYPE 
      | IMPACT 
      | STATUS 
      | RESOURCE_ARN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TYPE -> "TYPE"
      | IMPACT -> "IMPACT"
      | STATUS -> "STATUS"
      | RESOURCE_ARN -> "RESOURCE_ARN"
      | Non_static_id s -> s
    let of_string =
      function
      | "TYPE" -> TYPE
      | "IMPACT" -> IMPACT
      | "STATUS" -> STATUS
      | "RESOURCE_ARN" -> RESOURCE_ARN
      | 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 ListRecommendationsFilterKey"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListRecommendationsFilterKey" j)
    let to_json = simple_to_json to_value
  end
module MultiRegionEndpoint =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t option
        [@ocaml.doc
          "The name of the multi-region endpoint (global-endpoint)."];
      status: Status.t option
        [@ocaml.doc
          "The status of the multi-region endpoint (global-endpoint). CREATING \226\128\147 The resource is being provisioned. READY \226\128\147 The resource is ready to use. FAILED \226\128\147 The resource failed to be provisioned. DELETING \226\128\147 The resource is being deleted as requested."];
      endpointId: EndpointId.t option
        [@ocaml.doc "The ID of the multi-region endpoint (global-endpoint)."];
      regions: Regions.t option
        [@ocaml.doc
          "Primary and secondary regions between which multi-region endpoint splits sending traffic."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time stamp of when the multi-region endpoint (global-endpoint) was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time stamp of when the multi-region endpoint (global-endpoint) was last updated."]}
    let make ?endpointName =
      fun ?status ->
        fun ?endpointId ->
          fun ?regions ->
            fun ?createdTimestamp ->
              fun ?lastUpdatedTimestamp ->
                fun () ->
                  {
                    endpointName;
                    status;
                    endpointId;
                    regions;
                    createdTimestamp;
                    lastUpdatedTimestamp
                  }
    let to_value x =
      structure_to_value
        [("EndpointName",
           (Option.map x.endpointName ~f:EndpointName.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("Regions", (Option.map x.regions ~f:Regions.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let regions =
        (Option.map ~f:Regions.of_xml) (Xml.child xml_arg0 "Regions") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let endpointName =
        (Option.map ~f:EndpointName.of_xml)
          (Xml.child xml_arg0 "EndpointName") in
      make ?lastUpdatedTimestamp ?createdTimestamp ?regions ?endpointId
        ?status ?endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let regions = field_map json__ "Regions" Regions.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let endpointName = field_map json__ "EndpointName" EndpointName.of_json in
      make ?lastUpdatedTimestamp ?createdTimestamp ?regions ?endpointId
        ?status ?endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains multi-region endpoint (global-endpoint) properties."]
module ImportJobSummary =
  struct
    type nonrec t =
      {
      jobId: JobId.t option ;
      importDestination: ImportDestination.t option ;
      jobStatus: JobStatus.t option ;
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The date and time when the import job was created."];
      processedRecordsCount: ProcessedRecordsCount.t option
        [@ocaml.doc "The current number of records processed."];
      failedRecordsCount: FailedRecordsCount.t option
        [@ocaml.doc
          "The number of records that failed processing because of invalid input or other reasons."]}
    let make ?jobId =
      fun ?importDestination ->
        fun ?jobStatus ->
          fun ?createdTimestamp ->
            fun ?processedRecordsCount ->
              fun ?failedRecordsCount ->
                fun () ->
                  {
                    jobId;
                    importDestination;
                    jobStatus;
                    createdTimestamp;
                    processedRecordsCount;
                    failedRecordsCount
                  }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("ImportDestination",
          (Option.map x.importDestination ~f:ImportDestination.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("ProcessedRecordsCount",
          (Option.map x.processedRecordsCount
             ~f:ProcessedRecordsCount.to_value));
        ("FailedRecordsCount",
          (Option.map x.failedRecordsCount ~f:FailedRecordsCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRecordsCount =
        (Option.map ~f:FailedRecordsCount.of_xml)
          (Xml.child xml_arg0 "FailedRecordsCount") in
      let processedRecordsCount =
        (Option.map ~f:ProcessedRecordsCount.of_xml)
          (Xml.child xml_arg0 "ProcessedRecordsCount") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let importDestination =
        (Option.map ~f:ImportDestination.of_xml)
          (Xml.child xml_arg0 "ImportDestination") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?failedRecordsCount ?processedRecordsCount ?createdTimestamp
        ?jobStatus ?importDestination ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRecordsCount =
        field_map json__ "FailedRecordsCount" FailedRecordsCount.of_json in
      let processedRecordsCount =
        field_map json__ "ProcessedRecordsCount"
          ProcessedRecordsCount.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let importDestination =
        field_map json__ "ImportDestination" ImportDestination.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?failedRecordsCount ?processedRecordsCount ?createdTimestamp
        ?jobStatus ?importDestination ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the import job."]
module ExportJobSummary =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The export job ID."];
      exportSourceType: ExportSourceType.t option
        [@ocaml.doc "The source type of the export job."];
      jobStatus: JobStatus.t option
        [@ocaml.doc "The status of the export job."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of when the export job was created."];
      completedTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of when the export job was completed."]}
    let make ?jobId =
      fun ?exportSourceType ->
        fun ?jobStatus ->
          fun ?createdTimestamp ->
            fun ?completedTimestamp ->
              fun () ->
                {
                  jobId;
                  exportSourceType;
                  jobStatus;
                  createdTimestamp;
                  completedTimestamp
                }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("ExportSourceType",
          (Option.map x.exportSourceType ~f:ExportSourceType.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("CompletedTimestamp",
          (Option.map x.completedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CompletedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let exportSourceType =
        (Option.map ~f:ExportSourceType.of_xml)
          (Xml.child xml_arg0 "ExportSourceType") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?completedTimestamp ?createdTimestamp ?jobStatus ?exportSourceType
        ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completedTimestamp =
        field_map json__ "CompletedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let exportSourceType =
        field_map json__ "ExportSourceType" ExportSourceType.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?completedTimestamp ?createdTimestamp ?jobStatus ?exportSourceType
        ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the export job."]
module EmailTemplateMetadata =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t option
        [@ocaml.doc "The name of the template."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The time and date the template was created."]}
    let make ?templateName =
      fun ?createdTimestamp -> fun () -> { templateName; createdTimestamp }
    let to_value x =
      structure_to_value
        [("TemplateName",
           (Option.map x.templateName ~f:EmailTemplateName.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let templateName =
        (Option.map ~f:EmailTemplateName.of_xml)
          (Xml.child xml_arg0 "TemplateName") in
      make ?createdTimestamp ?templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let templateName =
        field_map json__ "TemplateName" EmailTemplateName.of_json in
      make ?createdTimestamp ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an email template."]
module IdentityInfo =
  struct
    type nonrec t =
      {
      identityType: IdentityType.t option
        [@ocaml.doc
          "The email identity type. Note: the MANAGED_DOMAIN type is not supported for email identity types."];
      identityName: Identity.t option
        [@ocaml.doc "The address or domain of the identity."];
      sendingEnabled: Enabled.t option
        [@ocaml.doc
          "Indicates whether or not you can send email from the identity. An identity is an email address or domain that you send email from. Before you can send email from an identity, you have to demostrate that you own the identity, and that you authorize Amazon SES to send email from that identity."];
      verificationStatus: VerificationStatus.t option
        [@ocaml.doc
          "The verification status of the identity. The status can be one of the following: PENDING \226\128\147 The verification process was initiated, but Amazon SES hasn't yet been able to verify the identity. SUCCESS \226\128\147 The verification process completed successfully. FAILED \226\128\147 The verification process failed. TEMPORARY_FAILURE \226\128\147 A temporary issue is preventing Amazon SES from determining the verification status of the identity. NOT_STARTED \226\128\147 The verification process hasn't been initiated for the identity."]}
    let make ?identityType =
      fun ?identityName ->
        fun ?sendingEnabled ->
          fun ?verificationStatus ->
            fun () ->
              {
                identityType;
                identityName;
                sendingEnabled;
                verificationStatus
              }
    let to_value x =
      structure_to_value
        [("IdentityType",
           (Option.map x.identityType ~f:IdentityType.to_value));
        ("IdentityName", (Option.map x.identityName ~f:Identity.to_value));
        ("SendingEnabled", (Option.map x.sendingEnabled ~f:Enabled.to_value));
        ("VerificationStatus",
          (Option.map x.verificationStatus ~f:VerificationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationStatus =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "VerificationStatus") in
      let sendingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SendingEnabled") in
      let identityName =
        (Option.map ~f:Identity.of_xml) (Xml.child xml_arg0 "IdentityName") in
      let identityType =
        (Option.map ~f:IdentityType.of_xml)
          (Xml.child xml_arg0 "IdentityType") in
      make ?verificationStatus ?sendingEnabled ?identityName ?identityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationStatus =
        field_map json__ "VerificationStatus" VerificationStatus.of_json in
      let sendingEnabled = field_map json__ "SendingEnabled" Enabled.of_json in
      let identityName = field_map json__ "IdentityName" Identity.of_json in
      let identityType = field_map json__ "IdentityType" IdentityType.of_json in
      make ?verificationStatus ?sendingEnabled ?identityName ?identityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about an email identity."]
module DomainDeliverabilityCampaign =
  struct
    type nonrec t =
      {
      campaignId: CampaignId.t option
        [@ocaml.doc
          "The unique identifier for the campaign. The Deliverability dashboard automatically generates and assigns this identifier to a campaign."];
      imageUrl: ImageUrl.t option
        [@ocaml.doc
          "The URL of an image that contains a snapshot of the email message that was sent."];
      subject: Subject.t option
        [@ocaml.doc "The subject line, or title, of the email message."];
      fromAddress: Identity.t option
        [@ocaml.doc
          "The verified email address that the email message was sent from."];
      sendingIps: IpList.t option
        [@ocaml.doc
          "The IP addresses that were used to send the email message."];
      firstSeenDateTime: Timestamp.t option
        [@ocaml.doc
          "The first time when the email message was delivered to any recipient's inbox. This value can help you determine how long it took for a campaign to deliver an email message."];
      lastSeenDateTime: Timestamp.t option
        [@ocaml.doc
          "The last time when the email message was delivered to any recipient's inbox. This value can help you determine how long it took for a campaign to deliver an email message."];
      inboxCount: Volume.t option
        [@ocaml.doc
          "The number of email messages that were delivered to recipients\226\128\153 inboxes."];
      spamCount: Volume.t option
        [@ocaml.doc
          "The number of email messages that were delivered to recipients' spam or junk mail folders."];
      readRate: Percentage.t option
        [@ocaml.doc
          "The percentage of email messages that were opened by recipients. Due to technical limitations, this value only includes recipients who opened the message by using an email client that supports images."];
      deleteRate: Percentage.t option
        [@ocaml.doc
          "The percentage of email messages that were deleted by recipients, without being opened first. Due to technical limitations, this value only includes recipients who opened the message by using an email client that supports images."];
      readDeleteRate: Percentage.t option
        [@ocaml.doc
          "The percentage of email messages that were opened and then deleted by recipients. Due to technical limitations, this value only includes recipients who opened the message by using an email client that supports images."];
      projectedVolume: Volume.t option
        [@ocaml.doc
          "The projected number of recipients that the email message was sent to."];
      esps: Esps.t option
        [@ocaml.doc
          "The major email providers who handled the email message."]}
    let make ?campaignId =
      fun ?imageUrl ->
        fun ?subject ->
          fun ?fromAddress ->
            fun ?sendingIps ->
              fun ?firstSeenDateTime ->
                fun ?lastSeenDateTime ->
                  fun ?inboxCount ->
                    fun ?spamCount ->
                      fun ?readRate ->
                        fun ?deleteRate ->
                          fun ?readDeleteRate ->
                            fun ?projectedVolume ->
                              fun ?esps ->
                                fun () ->
                                  {
                                    campaignId;
                                    imageUrl;
                                    subject;
                                    fromAddress;
                                    sendingIps;
                                    firstSeenDateTime;
                                    lastSeenDateTime;
                                    inboxCount;
                                    spamCount;
                                    readRate;
                                    deleteRate;
                                    readDeleteRate;
                                    projectedVolume;
                                    esps
                                  }
    let to_value x =
      structure_to_value
        [("CampaignId", (Option.map x.campaignId ~f:CampaignId.to_value));
        ("ImageUrl", (Option.map x.imageUrl ~f:ImageUrl.to_value));
        ("Subject", (Option.map x.subject ~f:Subject.to_value));
        ("FromAddress", (Option.map x.fromAddress ~f:Identity.to_value));
        ("SendingIps", (Option.map x.sendingIps ~f:IpList.to_value));
        ("FirstSeenDateTime",
          (Option.map x.firstSeenDateTime ~f:Timestamp.to_value));
        ("LastSeenDateTime",
          (Option.map x.lastSeenDateTime ~f:Timestamp.to_value));
        ("InboxCount", (Option.map x.inboxCount ~f:Volume.to_value));
        ("SpamCount", (Option.map x.spamCount ~f:Volume.to_value));
        ("ReadRate", (Option.map x.readRate ~f:Percentage.to_value));
        ("DeleteRate", (Option.map x.deleteRate ~f:Percentage.to_value));
        ("ReadDeleteRate",
          (Option.map x.readDeleteRate ~f:Percentage.to_value));
        ("ProjectedVolume",
          (Option.map x.projectedVolume ~f:Volume.to_value));
        ("Esps", (Option.map x.esps ~f:Esps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let esps = (Option.map ~f:Esps.of_xml) (Xml.child xml_arg0 "Esps") in
      let projectedVolume =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "ProjectedVolume") in
      let readDeleteRate =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "ReadDeleteRate") in
      let deleteRate =
        (Option.map ~f:Percentage.of_xml) (Xml.child xml_arg0 "DeleteRate") in
      let readRate =
        (Option.map ~f:Percentage.of_xml) (Xml.child xml_arg0 "ReadRate") in
      let spamCount =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "SpamCount") in
      let inboxCount =
        (Option.map ~f:Volume.of_xml) (Xml.child xml_arg0 "InboxCount") in
      let lastSeenDateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastSeenDateTime") in
      let firstSeenDateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "FirstSeenDateTime") in
      let sendingIps =
        (Option.map ~f:IpList.of_xml) (Xml.child xml_arg0 "SendingIps") in
      let fromAddress =
        (Option.map ~f:Identity.of_xml) (Xml.child xml_arg0 "FromAddress") in
      let subject =
        (Option.map ~f:Subject.of_xml) (Xml.child xml_arg0 "Subject") in
      let imageUrl =
        (Option.map ~f:ImageUrl.of_xml) (Xml.child xml_arg0 "ImageUrl") in
      let campaignId =
        (Option.map ~f:CampaignId.of_xml) (Xml.child xml_arg0 "CampaignId") in
      make ?esps ?projectedVolume ?readDeleteRate ?deleteRate ?readRate
        ?spamCount ?inboxCount ?lastSeenDateTime ?firstSeenDateTime
        ?sendingIps ?fromAddress ?subject ?imageUrl ?campaignId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let esps = field_map json__ "Esps" Esps.of_json in
      let projectedVolume = field_map json__ "ProjectedVolume" Volume.of_json in
      let readDeleteRate =
        field_map json__ "ReadDeleteRate" Percentage.of_json in
      let deleteRate = field_map json__ "DeleteRate" Percentage.of_json in
      let readRate = field_map json__ "ReadRate" Percentage.of_json in
      let spamCount = field_map json__ "SpamCount" Volume.of_json in
      let inboxCount = field_map json__ "InboxCount" Volume.of_json in
      let lastSeenDateTime =
        field_map json__ "LastSeenDateTime" Timestamp.of_json in
      let firstSeenDateTime =
        field_map json__ "FirstSeenDateTime" Timestamp.of_json in
      let sendingIps = field_map json__ "SendingIps" IpList.of_json in
      let fromAddress = field_map json__ "FromAddress" Identity.of_json in
      let subject = field_map json__ "Subject" Subject.of_json in
      let imageUrl = field_map json__ "ImageUrl" ImageUrl.of_json in
      let campaignId = field_map json__ "CampaignId" CampaignId.of_json in
      make ?esps ?projectedVolume ?readDeleteRate ?deleteRate ?readRate
        ?spamCount ?inboxCount ?lastSeenDateTime ?firstSeenDateTime
        ?sendingIps ?fromAddress ?subject ?imageUrl ?campaignId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains the deliverability data for a specific campaign. This data is available for a campaign only if the campaign sent email by using a domain that the Deliverability dashboard is enabled for (PutDeliverabilityDashboardOption operation)."]
module DeliverabilityTestReport =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option
        [@ocaml.doc
          "A unique string that identifies the predictive inbox placement test."];
      reportName: ReportName.t option
        [@ocaml.doc
          "A name that helps you identify a predictive inbox placement test report."];
      subject: DeliverabilityTestSubject.t option
        [@ocaml.doc
          "The subject line for an email that you submitted in a predictive inbox placement test."];
      fromEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The sender address that you specified for the predictive inbox placement test."];
      createDate: Timestamp.t option
        [@ocaml.doc
          "The date and time when the predictive inbox placement test was created."];
      deliverabilityTestStatus: DeliverabilityTestStatus.t option
        [@ocaml.doc
          "The status of the predictive inbox placement test. If the status is IN_PROGRESS, then the predictive inbox placement test is currently running. Predictive inbox placement tests are usually complete within 24 hours of creating the test. If the status is COMPLETE, then the test is finished, and you can use the GetDeliverabilityTestReport to view the results of the test."]}
    let make ?reportId =
      fun ?reportName ->
        fun ?subject ->
          fun ?fromEmailAddress ->
            fun ?createDate ->
              fun ?deliverabilityTestStatus ->
                fun () ->
                  {
                    reportId;
                    reportName;
                    subject;
                    fromEmailAddress;
                    createDate;
                    deliverabilityTestStatus
                  }
    let to_value x =
      structure_to_value
        [("ReportId", (Option.map x.reportId ~f:ReportId.to_value));
        ("ReportName", (Option.map x.reportName ~f:ReportName.to_value));
        ("Subject",
          (Option.map x.subject ~f:DeliverabilityTestSubject.to_value));
        ("FromEmailAddress",
          (Option.map x.fromEmailAddress ~f:EmailAddress.to_value));
        ("CreateDate", (Option.map x.createDate ~f:Timestamp.to_value));
        ("DeliverabilityTestStatus",
          (Option.map x.deliverabilityTestStatus
             ~f:DeliverabilityTestStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliverabilityTestStatus =
        (Option.map ~f:DeliverabilityTestStatus.of_xml)
          (Xml.child xml_arg0 "DeliverabilityTestStatus") in
      let createDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreateDate") in
      let fromEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      let subject =
        (Option.map ~f:DeliverabilityTestSubject.of_xml)
          (Xml.child xml_arg0 "Subject") in
      let reportName =
        (Option.map ~f:ReportName.of_xml) (Xml.child xml_arg0 "ReportName") in
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "ReportId") in
      make ?deliverabilityTestStatus ?createDate ?fromEmailAddress ?subject
        ?reportName ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliverabilityTestStatus =
        field_map json__ "DeliverabilityTestStatus"
          DeliverabilityTestStatus.of_json in
      let createDate = field_map json__ "CreateDate" Timestamp.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" EmailAddress.of_json in
      let subject =
        field_map json__ "Subject" DeliverabilityTestSubject.of_json in
      let reportName = field_map json__ "ReportName" ReportName.of_json in
      let reportId = field_map json__ "ReportId" ReportId.of_json in
      make ?deliverabilityTestStatus ?createDate ?fromEmailAddress ?subject
        ?reportName ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains metadata related to a predictive inbox placement test."]
module CustomVerificationEmailTemplateMetadata =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t option
        [@ocaml.doc "The name of the custom verification email template."];
      fromEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address that the custom verification email is sent from."];
      templateSubject: EmailTemplateSubject.t option
        [@ocaml.doc "The subject line of the custom verification email."];
      successRedirectionURL: SuccessRedirectionURL.t option
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is successfully verified."];
      failureRedirectionURL: FailureRedirectionURL.t option
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is not successfully verified."]}
    let make ?templateName =
      fun ?fromEmailAddress ->
        fun ?templateSubject ->
          fun ?successRedirectionURL ->
            fun ?failureRedirectionURL ->
              fun () ->
                {
                  templateName;
                  fromEmailAddress;
                  templateSubject;
                  successRedirectionURL;
                  failureRedirectionURL
                }
    let to_value x =
      structure_to_value
        [("TemplateName",
           (Option.map x.templateName ~f:EmailTemplateName.to_value));
        ("FromEmailAddress",
          (Option.map x.fromEmailAddress ~f:EmailAddress.to_value));
        ("TemplateSubject",
          (Option.map x.templateSubject ~f:EmailTemplateSubject.to_value));
        ("SuccessRedirectionURL",
          (Option.map x.successRedirectionURL
             ~f:SuccessRedirectionURL.to_value));
        ("FailureRedirectionURL",
          (Option.map x.failureRedirectionURL
             ~f:FailureRedirectionURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureRedirectionURL =
        (Option.map ~f:FailureRedirectionURL.of_xml)
          (Xml.child xml_arg0 "FailureRedirectionURL") in
      let successRedirectionURL =
        (Option.map ~f:SuccessRedirectionURL.of_xml)
          (Xml.child xml_arg0 "SuccessRedirectionURL") in
      let templateSubject =
        (Option.map ~f:EmailTemplateSubject.of_xml)
          (Xml.child xml_arg0 "TemplateSubject") in
      let fromEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      let templateName =
        (Option.map ~f:EmailTemplateName.of_xml)
          (Xml.child xml_arg0 "TemplateName") in
      make ?failureRedirectionURL ?successRedirectionURL ?templateSubject
        ?fromEmailAddress ?templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureRedirectionURL =
        field_map json__ "FailureRedirectionURL"
          FailureRedirectionURL.of_json in
      let successRedirectionURL =
        field_map json__ "SuccessRedirectionURL"
          SuccessRedirectionURL.of_json in
      let templateSubject =
        field_map json__ "TemplateSubject" EmailTemplateSubject.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" EmailAddress.of_json in
      let templateName =
        field_map json__ "TemplateName" EmailTemplateName.of_json in
      make ?failureRedirectionURL ?successRedirectionURL ?templateSubject
        ?fromEmailAddress ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a custom verification email template."]
module Contact =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t option
        [@ocaml.doc "The contact's email address."];
      topicPreferences: TopicPreferenceList.t option
        [@ocaml.doc
          "The contact's preference for being opted-in to or opted-out of a topic."];
      topicDefaultPreferences: TopicPreferenceList.t option
        [@ocaml.doc "The default topic preferences applied to the contact."];
      unsubscribeAll: UnsubscribeAll.t option
        [@ocaml.doc
          "A boolean value status noting if the contact is unsubscribed from all contact list topics."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "A timestamp noting the last time the contact's information was updated."]}
    let make ?emailAddress =
      fun ?topicPreferences ->
        fun ?topicDefaultPreferences ->
          fun ?unsubscribeAll ->
            fun ?lastUpdatedTimestamp ->
              fun () ->
                {
                  emailAddress;
                  topicPreferences;
                  topicDefaultPreferences;
                  unsubscribeAll;
                  lastUpdatedTimestamp
                }
    let to_value x =
      structure_to_value
        [("EmailAddress",
           (Option.map x.emailAddress ~f:EmailAddress.to_value));
        ("TopicPreferences",
          (Option.map x.topicPreferences ~f:TopicPreferenceList.to_value));
        ("TopicDefaultPreferences",
          (Option.map x.topicDefaultPreferences
             ~f:TopicPreferenceList.to_value));
        ("UnsubscribeAll",
          (Option.map x.unsubscribeAll ~f:UnsubscribeAll.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let unsubscribeAll =
        (Option.map ~f:UnsubscribeAll.of_xml)
          (Xml.child xml_arg0 "UnsubscribeAll") in
      let topicDefaultPreferences =
        (Option.map ~f:TopicPreferenceList.of_xml)
          (Xml.child xml_arg0 "TopicDefaultPreferences") in
      let topicPreferences =
        (Option.map ~f:TopicPreferenceList.of_xml)
          (Xml.child xml_arg0 "TopicPreferences") in
      let emailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      make ?lastUpdatedTimestamp ?unsubscribeAll ?topicDefaultPreferences
        ?topicPreferences ?emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let unsubscribeAll =
        field_map json__ "UnsubscribeAll" UnsubscribeAll.of_json in
      let topicDefaultPreferences =
        field_map json__ "TopicDefaultPreferences"
          TopicPreferenceList.of_json in
      let topicPreferences =
        field_map json__ "TopicPreferences" TopicPreferenceList.of_json in
      let emailAddress = field_map json__ "EmailAddress" EmailAddress.of_json in
      make ?lastUpdatedTimestamp ?unsubscribeAll ?topicDefaultPreferences
        ?topicPreferences ?emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A contact is the end-user who is receiving the email."]
module TopicFilter =
  struct
    type nonrec t =
      {
      topicName: TopicName.t option
        [@ocaml.doc
          "The name of a topic on which you wish to apply the filter."];
      useDefaultIfPreferenceUnavailable:
        UseDefaultIfPreferenceUnavailable.t option
        [@ocaml.doc
          "Notes that the default subscription status should be applied to a contact because the contact has not noted their preference for subscribing to a topic."]}
    let make ?topicName =
      fun ?useDefaultIfPreferenceUnavailable ->
        fun () -> { topicName; useDefaultIfPreferenceUnavailable }
    let to_value x =
      structure_to_value
        [("TopicName", (Option.map x.topicName ~f:TopicName.to_value));
        ("UseDefaultIfPreferenceUnavailable",
          (Option.map x.useDefaultIfPreferenceUnavailable
             ~f:UseDefaultIfPreferenceUnavailable.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let useDefaultIfPreferenceUnavailable =
        (Option.map ~f:UseDefaultIfPreferenceUnavailable.of_xml)
          (Xml.child xml_arg0 "UseDefaultIfPreferenceUnavailable") in
      let topicName =
        (Option.map ~f:TopicName.of_xml) (Xml.child xml_arg0 "TopicName") in
      make ?useDefaultIfPreferenceUnavailable ?topicName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let useDefaultIfPreferenceUnavailable =
        field_map json__ "UseDefaultIfPreferenceUnavailable"
          UseDefaultIfPreferenceUnavailable.of_json in
      let topicName = field_map json__ "TopicName" TopicName.of_json in
      make ?useDefaultIfPreferenceUnavailable ?topicName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Used for filtering by a specific topic preference."]
module ContactList =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t option
        [@ocaml.doc "The name of the contact list."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "A timestamp noting the last time the contact list was updated."]}
    let make ?contactListName =
      fun ?lastUpdatedTimestamp ->
        fun () -> { contactListName; lastUpdatedTimestamp }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Option.map x.contactListName ~f:ContactListName.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let contactListName =
        (Option.map ~f:ContactListName.of_xml)
          (Xml.child xml_arg0 "ContactListName") in
      make ?lastUpdatedTimestamp ?contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let contactListName =
        field_map json__ "ContactListName" ContactListName.of_json in
      make ?lastUpdatedTimestamp ?contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list that contains contacts that have subscribed to a particular topic or topics."]
module ConfigurationSetName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of a configuration set. Configuration sets are groups of rules that you can apply to the emails you send. You apply a configuration set to an email by including a reference to the configuration set in the headers of the email. When you apply a configuration set to an email, all of the rules in that configuration set are applied to the email."]
    let context_ = "ConfigurationSetName"
    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:"ConfigurationSetName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of a configuration set. Configuration sets are groups of rules that you can apply to the emails you send. You apply a configuration set to an email by including a reference to the configuration set in the headers of the email. When you apply a configuration set to an email, all of the rules in that configuration set are applied to the email."]
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 SuppressedDestinationAttributes =
  struct
    type nonrec t =
      {
      messageId: OutboundMessageId.t option
        [@ocaml.doc
          "The unique identifier of the email message that caused the email address to be added to the suppression list for your account."];
      feedbackId: FeedbackId.t option
        [@ocaml.doc
          "A unique identifier that's generated when an email address is added to the suppression list for your account."]}
    let make ?messageId =
      fun ?feedbackId -> fun () -> { messageId; feedbackId }
    let to_value x =
      structure_to_value
        [("MessageId",
           (Option.map x.messageId ~f:OutboundMessageId.to_value));
        ("FeedbackId", (Option.map x.feedbackId ~f:FeedbackId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let feedbackId =
        (Option.map ~f:FeedbackId.of_xml) (Xml.child xml_arg0 "FeedbackId") in
      let messageId =
        (Option.map ~f:OutboundMessageId.of_xml)
          (Xml.child xml_arg0 "MessageId") in
      make ?feedbackId ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let feedbackId = field_map json__ "FeedbackId" FeedbackId.of_json in
      let messageId = field_map json__ "MessageId" OutboundMessageId.of_json in
      make ?feedbackId ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains additional attributes that are related an email address that is on the suppression list for your account."]
module Route =
  struct
    type nonrec t =
      {
      region: Region.t option [@ocaml.doc "The name of an AWS-Region."]}
    let make ?region = fun () -> { region }
    let to_value x =
      structure_to_value
        [("Region", (Option.map x.region ~f:Region.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "Region") in
      make ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map json__ "Region" Region.of_json in
      make ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object which contains an AWS-Region and routing status."]
module EmailInsights =
  struct
    type nonrec t =
      {
      destination: InsightsEmailAddress.t option
        [@ocaml.doc "The recipient of the email."];
      isp: Isp.t option
        [@ocaml.doc "The recipient's ISP (e.g., Gmail, Yahoo, etc.)."];
      events: InsightsEvents.t option
        [@ocaml.doc "A list of events associated with the sent email."]}
    let make ?destination =
      fun ?isp -> fun ?events -> fun () -> { destination; isp; events }
    let to_value x =
      structure_to_value
        [("Destination",
           (Option.map x.destination ~f:InsightsEmailAddress.to_value));
        ("Isp", (Option.map x.isp ~f:Isp.to_value));
        ("Events", (Option.map x.events ~f:InsightsEvents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        (Option.map ~f:InsightsEvents.of_xml) (Xml.child xml_arg0 "Events") in
      let isp = (Option.map ~f:Isp.of_xml) (Xml.child xml_arg0 "Isp") in
      let destination =
        (Option.map ~f:InsightsEmailAddress.of_xml)
          (Xml.child xml_arg0 "Destination") in
      make ?events ?isp ?destination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events = field_map json__ "Events" InsightsEvents.of_json in
      let isp = field_map json__ "Isp" Isp.of_json in
      let destination =
        field_map json__ "Destination" InsightsEmailAddress.of_json in
      make ?events ?isp ?destination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An email's insights contain metadata and delivery information about a specific email."]
module FailedRecordsS3Url =
  struct
    type nonrec t = string
    let context_ = "FailedRecordsS3Url"
    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:"FailedRecordsS3Url" j
    let to_json = simple_to_json to_value
  end
module DataFormat =
  struct
    type nonrec t =
      | CSV 
      | JSON 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | CSV -> "CSV" | JSON -> "JSON" | Non_static_id s -> s
    let of_string =
      function | "CSV" -> CSV | "JSON" -> JSON | 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 DataFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataFormat" j)
    let to_json = simple_to_json to_value
  end
module S3Url =
  struct
    type nonrec t = string[@@ocaml.doc
                            "An Amazon S3 URL in the format s3://<bucket_name>/<object> or a pre-signed URL."]
    let context_ = "S3Url"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^s3:\\/\\/([^\\/]+)\\/(.*?([^\\/]+)\\/?)$");
        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:"S3Url" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "An Amazon S3 URL in the format s3://<bucket_name>/<object> or a pre-signed URL."]
module MessageInsightsDataSource =
  struct
    type nonrec t =
      {
      startDate: Timestamp.t
        [@ocaml.doc
          "Represents the start date for the export interval as a timestamp. The start date is inclusive."];
      endDate: Timestamp.t
        [@ocaml.doc
          "Represents the end date for the export interval as a timestamp. The end date is inclusive."];
      include_: MessageInsightsFilters.t option
        [@ocaml.doc "Filters for results to be included in the export file."];
      exclude: MessageInsightsFilters.t option
        [@ocaml.doc
          "Filters for results to be excluded from the export file."];
      maxResults: MessageInsightsExportMaxResults.t option
        [@ocaml.doc "The maximum number of results."]}
    let context_ = "MessageInsightsDataSource"
    let make ?include_ =
      fun ?exclude ->
        fun ?maxResults ->
          fun ~startDate ->
            fun ~endDate ->
              fun () -> { include_; exclude; maxResults; startDate; endDate }
    let to_value x =
      structure_to_value
        [("StartDate", (Some (Timestamp.to_value x.startDate)));
        ("EndDate", (Some (Timestamp.to_value x.endDate)));
        ("Include",
          (Option.map x.include_ ~f:MessageInsightsFilters.to_value));
        ("Exclude",
          (Option.map x.exclude ~f:MessageInsightsFilters.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:MessageInsightsExportMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MessageInsightsExportMaxResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let exclude =
        (Option.map ~f:MessageInsightsFilters.of_xml)
          (Xml.child xml_arg0 "Exclude") in
      let include_ =
        (Option.map ~f:MessageInsightsFilters.of_xml)
          (Xml.child xml_arg0 "Include") in
      let endDate =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndDate") in
      let startDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartDate") in
      make ?maxResults ?exclude ?include_ ~endDate ~startDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" MessageInsightsExportMaxResults.of_json in
      let exclude = field_map json__ "Exclude" MessageInsightsFilters.of_json in
      let include_ =
        field_map json__ "Include" MessageInsightsFilters.of_json in
      let endDate = field_map_exn json__ "EndDate" Timestamp.of_json in
      let startDate = field_map_exn json__ "StartDate" Timestamp.of_json in
      make ?maxResults ?exclude ?include_ ~endDate ~startDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains filters applied when performing the Message Insights export."]
module MetricsDataSource =
  struct
    type nonrec t =
      {
      dimensions: ExportDimensions.t
        [@ocaml.doc
          "An object that contains a mapping between a MetricDimensionName and MetricDimensionValue to filter metrics by. Must contain a least 1 dimension but no more than 3 unique ones."];
      namespace: MetricNamespace.t
        [@ocaml.doc "The metrics namespace - e.g., VDM."];
      metrics: ExportMetrics.t
        [@ocaml.doc "A list of ExportMetric objects to export."];
      startDate: Timestamp.t
        [@ocaml.doc
          "Represents the start date for the export interval as a timestamp."];
      endDate: Timestamp.t
        [@ocaml.doc
          "Represents the end date for the export interval as a timestamp."]}
    let context_ = "MetricsDataSource"
    let make ~dimensions =
      fun ~namespace ->
        fun ~metrics ->
          fun ~startDate ->
            fun ~endDate ->
              fun () ->
                { dimensions; namespace; metrics; startDate; endDate }
    let to_value x =
      structure_to_value
        [("Dimensions", (Some (ExportDimensions.to_value x.dimensions)));
        ("Namespace", (Some (MetricNamespace.to_value x.namespace)));
        ("Metrics", (Some (ExportMetrics.to_value x.metrics)));
        ("StartDate", (Some (Timestamp.to_value x.startDate)));
        ("EndDate", (Some (Timestamp.to_value x.endDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndDate") in
      let startDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartDate") in
      let metrics =
        ExportMetrics.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Metrics") in
      let namespace =
        MetricNamespace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Namespace") in
      let dimensions =
        ExportDimensions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Dimensions") in
      make ~endDate ~startDate ~metrics ~namespace ~dimensions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map_exn json__ "EndDate" Timestamp.of_json in
      let startDate = field_map_exn json__ "StartDate" Timestamp.of_json in
      let metrics = field_map_exn json__ "Metrics" ExportMetrics.of_json in
      let namespace =
        field_map_exn json__ "Namespace" MetricNamespace.of_json in
      let dimensions =
        field_map_exn json__ "Dimensions" ExportDimensions.of_json in
      make ~endDate ~startDate ~metrics ~namespace ~dimensions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the data source for the metrics export."]
module ExportedRecordsCount =
  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 ExportedRecordsCount" 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 DkimStatus =
  struct
    type nonrec t =
      | PENDING 
      | SUCCESS 
      | FAILED 
      | TEMPORARY_FAILURE 
      | NOT_STARTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | SUCCESS -> "SUCCESS"
      | FAILED -> "FAILED"
      | TEMPORARY_FAILURE -> "TEMPORARY_FAILURE"
      | NOT_STARTED -> "NOT_STARTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "SUCCESS" -> SUCCESS
      | "FAILED" -> FAILED
      | "TEMPORARY_FAILURE" -> TEMPORARY_FAILURE
      | "NOT_STARTED" -> NOT_STARTED
      | 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 DkimStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DkimStatus" j)
    let to_json = simple_to_json to_value
  end
module DnsTokenList =
  struct
    type nonrec t = DnsToken.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:DnsToken.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:DnsToken.of_xml)
    let of_json j =
      list_of_json ~kind:"DnsTokenList" ~of_json:DnsToken.of_json j
    let to_json v = composed_to_json to_value v
  end
module HostedZone =
  struct
    type nonrec t = string
    let context_ = "HostedZone"
    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:"HostedZone" j
    let to_json = simple_to_json to_value
  end
module BehaviorOnMxFailure =
  struct
    type nonrec t =
      | USE_DEFAULT_VALUE 
      | REJECT_MESSAGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USE_DEFAULT_VALUE -> "USE_DEFAULT_VALUE"
      | REJECT_MESSAGE -> "REJECT_MESSAGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "USE_DEFAULT_VALUE" -> USE_DEFAULT_VALUE
      | "REJECT_MESSAGE" -> REJECT_MESSAGE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BehaviorOnMxFailure" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BehaviorOnMxFailure" j)
    let to_json = simple_to_json to_value
  end
module MailFromDomainName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The domain to use as a MAIL FROM domain."]
    let context_ = "MailFromDomainName"
    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:"MailFromDomainName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The domain to use as a MAIL FROM domain."]
module MailFromDomainStatus =
  struct
    type nonrec t =
      | PENDING 
      | SUCCESS 
      | FAILED 
      | TEMPORARY_FAILURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | SUCCESS -> "SUCCESS"
      | FAILED -> "FAILED"
      | TEMPORARY_FAILURE -> "TEMPORARY_FAILURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "SUCCESS" -> SUCCESS
      | "FAILED" -> FAILED
      | "TEMPORARY_FAILURE" -> TEMPORARY_FAILURE
      | 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 MailFromDomainStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MailFromDomainStatus" j)
    let to_json = simple_to_json to_value
  end
module Policy =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The text of the policy in JSON format. The policy cannot exceed 4 KB. For information about the syntax of sending authorization policies, see the Amazon SES Developer Guide."]
    let context_ = "Policy"
    let make i =
      let open Result in ok_or_failwith (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:"Policy" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The text of the policy in JSON format. The policy cannot exceed 4 KB. For information about the syntax of sending authorization policies, see the Amazon SES Developer Guide."]
module PolicyName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores."]
    let context_ = "PolicyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PolicyName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores."]
module SOARecord =
  struct
    type nonrec t =
      {
      primaryNameServer: PrimaryNameServer.t option
        [@ocaml.doc "Primary name server specified in the SOA record."];
      adminEmail: AdminEmail.t option
        [@ocaml.doc "Administrative contact email from the SOA record."];
      serialNumber: SerialNumber.t option
        [@ocaml.doc "Serial number from the SOA record."]}
    let make ?primaryNameServer =
      fun ?adminEmail ->
        fun ?serialNumber ->
          fun () -> { primaryNameServer; adminEmail; serialNumber }
    let to_value x =
      structure_to_value
        [("PrimaryNameServer",
           (Option.map x.primaryNameServer ~f:PrimaryNameServer.to_value));
        ("AdminEmail", (Option.map x.adminEmail ~f:AdminEmail.to_value));
        ("SerialNumber",
          (Option.map x.serialNumber ~f:SerialNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serialNumber =
        (Option.map ~f:SerialNumber.of_xml)
          (Xml.child xml_arg0 "SerialNumber") in
      let adminEmail =
        (Option.map ~f:AdminEmail.of_xml) (Xml.child xml_arg0 "AdminEmail") in
      let primaryNameServer =
        (Option.map ~f:PrimaryNameServer.of_xml)
          (Xml.child xml_arg0 "PrimaryNameServer") in
      make ?serialNumber ?adminEmail ?primaryNameServer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serialNumber = field_map json__ "SerialNumber" SerialNumber.of_json in
      let adminEmail = field_map json__ "AdminEmail" AdminEmail.of_json in
      let primaryNameServer =
        field_map json__ "PrimaryNameServer" PrimaryNameServer.of_json in
      make ?serialNumber ?adminEmail ?primaryNameServer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the start of authority (SOA) record associated with the identity."]
module VerificationError =
  struct
    type nonrec t =
      | SERVICE_ERROR 
      | DNS_SERVER_ERROR 
      | HOST_NOT_FOUND 
      | TYPE_NOT_FOUND 
      | INVALID_VALUE 
      | REPLICATION_ACCESS_DENIED 
      | REPLICATION_PRIMARY_NOT_FOUND 
      | REPLICATION_PRIMARY_BYO_DKIM_NOT_SUPPORTED 
      | REPLICATION_REPLICA_AS_PRIMARY_NOT_SUPPORTED 
      | REPLICATION_PRIMARY_INVALID_REGION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVICE_ERROR -> "SERVICE_ERROR"
      | DNS_SERVER_ERROR -> "DNS_SERVER_ERROR"
      | HOST_NOT_FOUND -> "HOST_NOT_FOUND"
      | TYPE_NOT_FOUND -> "TYPE_NOT_FOUND"
      | INVALID_VALUE -> "INVALID_VALUE"
      | REPLICATION_ACCESS_DENIED -> "REPLICATION_ACCESS_DENIED"
      | REPLICATION_PRIMARY_NOT_FOUND -> "REPLICATION_PRIMARY_NOT_FOUND"
      | REPLICATION_PRIMARY_BYO_DKIM_NOT_SUPPORTED ->
          "REPLICATION_PRIMARY_BYO_DKIM_NOT_SUPPORTED"
      | REPLICATION_REPLICA_AS_PRIMARY_NOT_SUPPORTED ->
          "REPLICATION_REPLICA_AS_PRIMARY_NOT_SUPPORTED"
      | REPLICATION_PRIMARY_INVALID_REGION ->
          "REPLICATION_PRIMARY_INVALID_REGION"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVICE_ERROR" -> SERVICE_ERROR
      | "DNS_SERVER_ERROR" -> DNS_SERVER_ERROR
      | "HOST_NOT_FOUND" -> HOST_NOT_FOUND
      | "TYPE_NOT_FOUND" -> TYPE_NOT_FOUND
      | "INVALID_VALUE" -> INVALID_VALUE
      | "REPLICATION_ACCESS_DENIED" -> REPLICATION_ACCESS_DENIED
      | "REPLICATION_PRIMARY_NOT_FOUND" -> REPLICATION_PRIMARY_NOT_FOUND
      | "REPLICATION_PRIMARY_BYO_DKIM_NOT_SUPPORTED" ->
          REPLICATION_PRIMARY_BYO_DKIM_NOT_SUPPORTED
      | "REPLICATION_REPLICA_AS_PRIMARY_NOT_SUPPORTED" ->
          REPLICATION_REPLICA_AS_PRIMARY_NOT_SUPPORTED
      | "REPLICATION_PRIMARY_INVALID_REGION" ->
          REPLICATION_PRIMARY_INVALID_REGION
      | 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 VerificationError" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VerificationError" j)
    let to_json = simple_to_json to_value
  end
module EmailAddressInsightsMailboxEvaluations =
  struct
    type nonrec t =
      {
      hasValidSyntax: EmailAddressInsightsVerdict.t option
        [@ocaml.doc
          "Checks that the email address follows proper RFC standards and contains valid characters in the correct format."];
      hasValidDnsRecords: EmailAddressInsightsVerdict.t option
        [@ocaml.doc
          "Checks that the domain exists, has valid DNS records, and is con\239\172\129gured to receive email."];
      mailboxExists: EmailAddressInsightsVerdict.t option
        [@ocaml.doc
          "Checks that the mailbox exists and can receive messages without actually sending an email."];
      isRoleAddress: EmailAddressInsightsVerdict.t option
        [@ocaml.doc
          "Identi\239\172\129es role-based addresses (such as admin\\@, support\\@, or info\\@) that may have lower engagement rates."];
      isDisposable: EmailAddressInsightsVerdict.t option
        [@ocaml.doc
          "Checks disposable or temporary email addresses that could negatively impact your sender reputation."];
      isRandomInput: EmailAddressInsightsVerdict.t option
        [@ocaml.doc "Checks if the input appears to be random text."]}
    let make ?hasValidSyntax =
      fun ?hasValidDnsRecords ->
        fun ?mailboxExists ->
          fun ?isRoleAddress ->
            fun ?isDisposable ->
              fun ?isRandomInput ->
                fun () ->
                  {
                    hasValidSyntax;
                    hasValidDnsRecords;
                    mailboxExists;
                    isRoleAddress;
                    isDisposable;
                    isRandomInput
                  }
    let to_value x =
      structure_to_value
        [("HasValidSyntax",
           (Option.map x.hasValidSyntax
              ~f:EmailAddressInsightsVerdict.to_value));
        ("HasValidDnsRecords",
          (Option.map x.hasValidDnsRecords
             ~f:EmailAddressInsightsVerdict.to_value));
        ("MailboxExists",
          (Option.map x.mailboxExists ~f:EmailAddressInsightsVerdict.to_value));
        ("IsRoleAddress",
          (Option.map x.isRoleAddress ~f:EmailAddressInsightsVerdict.to_value));
        ("IsDisposable",
          (Option.map x.isDisposable ~f:EmailAddressInsightsVerdict.to_value));
        ("IsRandomInput",
          (Option.map x.isRandomInput ~f:EmailAddressInsightsVerdict.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isRandomInput =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "IsRandomInput") in
      let isDisposable =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "IsDisposable") in
      let isRoleAddress =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "IsRoleAddress") in
      let mailboxExists =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "MailboxExists") in
      let hasValidDnsRecords =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "HasValidDnsRecords") in
      let hasValidSyntax =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "HasValidSyntax") in
      make ?isRandomInput ?isDisposable ?isRoleAddress ?mailboxExists
        ?hasValidDnsRecords ?hasValidSyntax ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isRandomInput =
        field_map json__ "IsRandomInput" EmailAddressInsightsVerdict.of_json in
      let isDisposable =
        field_map json__ "IsDisposable" EmailAddressInsightsVerdict.of_json in
      let isRoleAddress =
        field_map json__ "IsRoleAddress" EmailAddressInsightsVerdict.of_json in
      let mailboxExists =
        field_map json__ "MailboxExists" EmailAddressInsightsVerdict.of_json in
      let hasValidDnsRecords =
        field_map json__ "HasValidDnsRecords"
          EmailAddressInsightsVerdict.of_json in
      let hasValidSyntax =
        field_map json__ "HasValidSyntax" EmailAddressInsightsVerdict.of_json in
      make ?isRandomInput ?isDisposable ?isRoleAddress ?mailboxExists
        ?hasValidDnsRecords ?hasValidSyntax ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains individual validation checks performed on an email address."]
module DailyVolume =
  struct
    type nonrec t =
      {
      startDate: Timestamp.t option
        [@ocaml.doc
          "The date that the DailyVolume metrics apply to, in Unix time."];
      volumeStatistics: VolumeStatistics.t option
        [@ocaml.doc
          "An object that contains inbox placement metrics for a specific day in the analysis period."];
      domainIspPlacements: DomainIspPlacements.t option
        [@ocaml.doc
          "An object that contains inbox placement metrics for a specified day in the analysis period, broken out by the recipient's email provider."]}
    let make ?startDate =
      fun ?volumeStatistics ->
        fun ?domainIspPlacements ->
          fun () -> { startDate; volumeStatistics; domainIspPlacements }
    let to_value x =
      structure_to_value
        [("StartDate", (Option.map x.startDate ~f:Timestamp.to_value));
        ("VolumeStatistics",
          (Option.map x.volumeStatistics ~f:VolumeStatistics.to_value));
        ("DomainIspPlacements",
          (Option.map x.domainIspPlacements ~f:DomainIspPlacements.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainIspPlacements =
        (Option.map ~f:DomainIspPlacements.of_xml)
          (Xml.child xml_arg0 "DomainIspPlacements") in
      let volumeStatistics =
        (Option.map ~f:VolumeStatistics.of_xml)
          (Xml.child xml_arg0 "VolumeStatistics") in
      let startDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartDate") in
      make ?domainIspPlacements ?volumeStatistics ?startDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainIspPlacements =
        field_map json__ "DomainIspPlacements" DomainIspPlacements.of_json in
      let volumeStatistics =
        field_map json__ "VolumeStatistics" VolumeStatistics.of_json in
      let startDate = field_map json__ "StartDate" Timestamp.of_json in
      make ?domainIspPlacements ?volumeStatistics ?startDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the volume of email sent on each day of the analysis period."]
module IspPlacement =
  struct
    type nonrec t =
      {
      ispName: IspName.t option
        [@ocaml.doc
          "The name of the email provider that the inbox placement data applies to."];
      placementStatistics: PlacementStatistics.t option
        [@ocaml.doc
          "An object that contains inbox placement metrics for a specific email provider."]}
    let make ?ispName =
      fun ?placementStatistics -> fun () -> { ispName; placementStatistics }
    let to_value x =
      structure_to_value
        [("IspName", (Option.map x.ispName ~f:IspName.to_value));
        ("PlacementStatistics",
          (Option.map x.placementStatistics ~f:PlacementStatistics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let placementStatistics =
        (Option.map ~f:PlacementStatistics.of_xml)
          (Xml.child xml_arg0 "PlacementStatistics") in
      let ispName =
        (Option.map ~f:IspName.of_xml) (Xml.child xml_arg0 "IspName") in
      make ?placementStatistics ?ispName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let placementStatistics =
        field_map json__ "PlacementStatistics" PlacementStatistics.of_json in
      let ispName = field_map json__ "IspName" IspName.of_json in
      make ?placementStatistics ?ispName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that describes how email sent during the predictive inbox placement test was handled by a certain email provider."]
module DedicatedIp =
  struct
    type nonrec t =
      {
      ip: Ip.t option [@ocaml.doc "An IPv4 address."];
      warmupStatus: WarmupStatus.t option
        [@ocaml.doc
          "The warm-up status of a dedicated IP address. The status can have one of the following values: IN_PROGRESS \226\128\147 The IP address isn't ready to use because the dedicated IP warm-up process is ongoing. DONE \226\128\147 The dedicated IP warm-up process is complete, and the IP address is ready to use. NOT_APPLICABLE \226\128\147 The warm-up status doesn't apply to this IP address. This status is used for IP addresses in managed dedicated IP pools, where Amazon SES automatically handles the warm-up process."];
      warmupPercentage: Percentage100Wrapper.t option
        [@ocaml.doc
          "Indicates the progress of your dedicated IP warm-up: 0-100 \226\128\147 For standard dedicated IP addresses, this shows the warm-up completion percentage. A value of 100 means the IP address is fully warmed up and ready for use. -1 \226\128\147 Appears for IP addresses in managed dedicated pools where Amazon SES automatically handles the warm-up process, making the percentage not applicable."];
      poolName: PoolName.t option
        [@ocaml.doc
          "The name of the dedicated IP pool that the IP address is associated with."]}
    let make ?ip =
      fun ?warmupStatus ->
        fun ?warmupPercentage ->
          fun ?poolName ->
            fun () -> { ip; warmupStatus; warmupPercentage; poolName }
    let to_value x =
      structure_to_value
        [("Ip", (Option.map x.ip ~f:Ip.to_value));
        ("WarmupStatus",
          (Option.map x.warmupStatus ~f:WarmupStatus.to_value));
        ("WarmupPercentage",
          (Option.map x.warmupPercentage ~f:Percentage100Wrapper.to_value));
        ("PoolName", (Option.map x.poolName ~f:PoolName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolName =
        (Option.map ~f:PoolName.of_xml) (Xml.child xml_arg0 "PoolName") in
      let warmupPercentage =
        (Option.map ~f:Percentage100Wrapper.of_xml)
          (Xml.child xml_arg0 "WarmupPercentage") in
      let warmupStatus =
        (Option.map ~f:WarmupStatus.of_xml)
          (Xml.child xml_arg0 "WarmupStatus") in
      let ip = (Option.map ~f:Ip.of_xml) (Xml.child xml_arg0 "Ip") in
      make ?poolName ?warmupPercentage ?warmupStatus ?ip ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolName = field_map json__ "PoolName" PoolName.of_json in
      let warmupPercentage =
        field_map json__ "WarmupPercentage" Percentage100Wrapper.of_json in
      let warmupStatus = field_map json__ "WarmupStatus" WarmupStatus.of_json in
      let ip = field_map json__ "Ip" Ip.of_json in
      make ?poolName ?warmupPercentage ?warmupStatus ?ip ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a dedicated IP address that is associated with your Amazon SES account. To learn more about requesting dedicated IP addresses, see Requesting and Relinquishing Dedicated IP Addresses in the Amazon SES Developer Guide."]
module ScalingMode =
  struct
    type nonrec t =
      | STANDARD 
      | MANAGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | MANAGED -> "MANAGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "MANAGED" -> MANAGED
      | 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 ScalingMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ScalingMode" j)
    let to_json = simple_to_json to_value
  end
module ArchiveArn =
  struct
    type nonrec t = string
    let context_ = "ArchiveArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-[a-z-]+):ses:[a-z]{2,4}-[a-z-]+-[0-9]:[0-9]{1,20}:mailmanager-archive/a-[a-z0-9]{24,62}")));
        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:"ArchiveArn" j
    let to_json = simple_to_json to_value
  end
module MaxDeliverySeconds =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:50400L) >>=
             (fun () -> check_int64_min i ~min:300L));
        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 TlsPolicy =
  struct
    type nonrec t =
      | REQUIRE 
      | OPTIONAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUIRE -> "REQUIRE"
      | OPTIONAL -> "OPTIONAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUIRE" -> REQUIRE
      | "OPTIONAL" -> OPTIONAL
      | 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 TlsPolicy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TlsPolicy" j)
    let to_json = simple_to_json to_value
  end
module LastFreshStart =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The date and time (in Unix time) when the reputation metrics were last given a fresh start. When your account is given a fresh start, your reputation metrics are calculated starting from the date of the fresh start."]
    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[@@ocaml.doc
       "The date and time (in Unix time) when the reputation metrics were last given a fresh start. When your account is given a fresh start, your reputation metrics are calculated starting from the date of the fresh start."]
module SuppressionListReasons =
  struct
    type nonrec t = SuppressionListReason.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:SuppressionListReason.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:SuppressionListReason.of_xml)
    let of_json j =
      list_of_json ~kind:"SuppressionListReasons"
        ~of_json:SuppressionListReason.of_json j
    let to_json v = composed_to_json to_value v
  end
module SuppressionValidationOptions =
  struct
    type nonrec t =
      {
      conditionThreshold: SuppressionConditionThreshold.t
        [@ocaml.doc
          "Specifies the condition threshold settings for suppression validation."]}
    let context_ = "SuppressionValidationOptions"
    let make ~conditionThreshold = fun () -> { conditionThreshold }
    let to_value x =
      structure_to_value
        [("ConditionThreshold",
           (Some
              (SuppressionConditionThreshold.to_value x.conditionThreshold)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionThreshold =
        SuppressionConditionThreshold.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConditionThreshold") in
      make ~conditionThreshold ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionThreshold =
        field_map_exn json__ "ConditionThreshold"
          SuppressionConditionThreshold.of_json in
      make ~conditionThreshold ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains validation options for email address suppression."]
module CustomRedirectDomain =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The domain to use for tracking open and click events."]
    let context_ = "CustomRedirectDomain"
    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:"CustomRedirectDomain" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The domain to use for tracking open and click events."]
module HttpsPolicy =
  struct
    type nonrec t =
      | REQUIRE 
      | REQUIRE_OPEN_ONLY 
      | OPTIONAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUIRE -> "REQUIRE"
      | REQUIRE_OPEN_ONLY -> "REQUIRE_OPEN_ONLY"
      | OPTIONAL -> "OPTIONAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUIRE" -> REQUIRE
      | "REQUIRE_OPEN_ONLY" -> REQUIRE_OPEN_ONLY
      | "OPTIONAL" -> OPTIONAL
      | 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 HttpsPolicy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HttpsPolicy" j)
    let to_json = simple_to_json to_value
  end
module EventDestination =
  struct
    type nonrec t =
      {
      name: EventDestinationName.t option
        [@ocaml.doc "A name that identifies the event destination."];
      enabled: Enabled.t option
        [@ocaml.doc
          "If true, the event destination is enabled. When the event destination is enabled, the specified event types are sent to the destinations in this EventDestinationDefinition. If false, the event destination is disabled. When the event destination is disabled, events aren't sent to the specified destinations."];
      matchingEventTypes: EventTypes.t option
        [@ocaml.doc
          "The types of events that Amazon SES sends to the specified event destinations. SEND - The send request was successful and SES will attempt to deliver the message to the recipient\226\128\153s mail server. (If account-level or global suppression is being used, SES will still count it as a send, but delivery is suppressed.) REJECT - SES accepted the email, but determined that it contained a virus and didn\226\128\153t attempt to deliver it to the recipient\226\128\153s mail server. BOUNCE - (Hard bounce) The recipient's mail server permanently rejected the email. (Soft bounces are only included when SES fails to deliver the email after retrying for a period of time.) COMPLAINT - The email was successfully delivered to the recipient\226\128\153s mail server, but the recipient marked it as spam. DELIVERY - SES successfully delivered the email to the recipient's mail server. OPEN - The recipient received the message and opened it in their email client. CLICK - The recipient clicked one or more links in the email. RENDERING_FAILURE - The email wasn't sent because of a template rendering issue. This event type can occur when template data is missing, or when there is a mismatch between template parameters and data. (This event type only occurs when you send email using the SendEmail or SendBulkEmail API operations.) DELIVERY_DELAY - The email couldn't be delivered to the recipient\226\128\153s mail server because a temporary issue occurred. Delivery delays can occur, for example, when the recipient's inbox is full, or when the receiving email server experiences a transient issue. SUBSCRIPTION - The email was successfully delivered, but the recipient updated their subscription preferences by clicking on an unsubscribe link as part of your subscription management."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon Kinesis Data Firehose destination for email events. You can use Amazon Kinesis Data Firehose to stream data to other services, such as Amazon S3 and Amazon Redshift."];
      cloudWatchDestination: CloudWatchDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon CloudWatch destination for email events. You can use Amazon CloudWatch to monitor and gain insights on your email sending metrics."];
      snsDestination: SnsDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon SNS destination for email events. You can use Amazon SNS to send notifications when certain email events occur."];
      eventBridgeDestination: EventBridgeDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon EventBridge destination for email events. You can use Amazon EventBridge to send notifications when certain email events occur."];
      pinpointDestination: PinpointDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon Pinpoint project destination for email events. You can send email event data to a Amazon Pinpoint project to view metrics using the Transactional Messaging dashboards that are built in to Amazon Pinpoint. For more information, see Transactional Messaging Charts in the Amazon Pinpoint User Guide."]}
    let make ?name =
      fun ?enabled ->
        fun ?matchingEventTypes ->
          fun ?kinesisFirehoseDestination ->
            fun ?cloudWatchDestination ->
              fun ?snsDestination ->
                fun ?eventBridgeDestination ->
                  fun ?pinpointDestination ->
                    fun () ->
                      {
                        name;
                        enabled;
                        matchingEventTypes;
                        kinesisFirehoseDestination;
                        cloudWatchDestination;
                        snsDestination;
                        eventBridgeDestination;
                        pinpointDestination
                      }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:EventDestinationName.to_value));
        ("Enabled", (Option.map x.enabled ~f:Enabled.to_value));
        ("MatchingEventTypes",
          (Option.map x.matchingEventTypes ~f:EventTypes.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("CloudWatchDestination",
          (Option.map x.cloudWatchDestination
             ~f:CloudWatchDestination.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value));
        ("EventBridgeDestination",
          (Option.map x.eventBridgeDestination
             ~f:EventBridgeDestination.to_value));
        ("PinpointDestination",
          (Option.map x.pinpointDestination ~f:PinpointDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinpointDestination =
        (Option.map ~f:PinpointDestination.of_xml)
          (Xml.child xml_arg0 "PinpointDestination") in
      let eventBridgeDestination =
        (Option.map ~f:EventBridgeDestination.of_xml)
          (Xml.child xml_arg0 "EventBridgeDestination") in
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let cloudWatchDestination =
        (Option.map ~f:CloudWatchDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchDestination") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let matchingEventTypes =
        (Option.map ~f:EventTypes.of_xml)
          (Xml.child xml_arg0 "MatchingEventTypes") in
      let enabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "Enabled") in
      let name =
        (Option.map ~f:EventDestinationName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ?pinpointDestination ?eventBridgeDestination ?snsDestination
        ?cloudWatchDestination ?kinesisFirehoseDestination
        ?matchingEventTypes ?enabled ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinpointDestination =
        field_map json__ "PinpointDestination" PinpointDestination.of_json in
      let eventBridgeDestination =
        field_map json__ "EventBridgeDestination"
          EventBridgeDestination.of_json in
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let cloudWatchDestination =
        field_map json__ "CloudWatchDestination"
          CloudWatchDestination.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let matchingEventTypes =
        field_map json__ "MatchingEventTypes" EventTypes.of_json in
      let enabled = field_map json__ "Enabled" Enabled.of_json in
      let name = field_map json__ "Name" EventDestinationName.of_json in
      make ?pinpointDestination ?eventBridgeDestination ?snsDestination
        ?cloudWatchDestination ?kinesisFirehoseDestination
        ?matchingEventTypes ?enabled ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In the Amazon SES API v2, events include message sends, deliveries, opens, clicks, bounces, complaints and delivery delays. Event destinations are places that you can send information about these events to. For example, you can send event data to Amazon SNS to receive notifications when you receive bounces or complaints, or you can use Amazon Kinesis Data Firehose to stream data to Amazon S3 for long-term storage."]
module BlacklistEntries =
  struct
    type nonrec t = BlacklistEntry.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:BlacklistEntry.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:BlacklistEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"BlacklistEntries" ~of_json:BlacklistEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlacklistItemName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "An IP address that you want to obtain blacklist information for."]
    let context_ = "BlacklistItemName"
    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:"BlacklistItemName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "An IP address that you want to obtain blacklist information for."]
module AdditionalContactEmailAddresses =
  struct
    type nonrec t = AdditionalContactEmailAddress.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:4) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AdditionalContactEmailAddress.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:AdditionalContactEmailAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalContactEmailAddresses"
        ~of_json:AdditionalContactEmailAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module ContactLanguage =
  struct
    type nonrec t =
      | EN 
      | JA 
      | Non_static_id of string 
    let make i = i
    let to_string = function | EN -> "EN" | JA -> "JA" | Non_static_id s -> s
    let of_string = function | "EN" -> EN | "JA" -> JA | 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 ContactLanguage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ContactLanguage" j)
    let to_json = simple_to_json to_value
  end
module MailType =
  struct
    type nonrec t =
      | MARKETING 
      | TRANSACTIONAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MARKETING -> "MARKETING"
      | TRANSACTIONAL -> "TRANSACTIONAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "MARKETING" -> MARKETING
      | "TRANSACTIONAL" -> TRANSACTIONAL
      | 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 MailType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MailType" j)
    let to_json = simple_to_json to_value
  end
module ReviewDetails =
  struct
    type nonrec t =
      {
      status: ReviewStatus.t option
        [@ocaml.doc
          "The status of the latest review of your account. The status can be one of the following: PENDING \226\128\147 We have received your appeal and are in the process of reviewing it. GRANTED \226\128\147 Your appeal has been reviewed and your production access has been granted. DENIED \226\128\147 Your appeal has been reviewed and your production access has been denied. FAILED \226\128\147 An internal error occurred and we didn't receive your appeal. You can submit your appeal again."];
      caseId: CaseId.t option
        [@ocaml.doc "The associated support center case ID (if any)."]}
    let make ?status = fun ?caseId -> fun () -> { status; caseId }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:ReviewStatus.to_value));
        ("CaseId", (Option.map x.caseId ~f:CaseId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "CaseId") in
      let status =
        (Option.map ~f:ReviewStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?caseId ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "CaseId" CaseId.of_json in
      let status = field_map json__ "Status" ReviewStatus.of_json in
      make ?caseId ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about your account details review."]
module UseCaseDescription =
  struct
    type nonrec t = string
    let context_ = "UseCaseDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:5000); 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:"UseCaseDescription" j
    let to_json = simple_to_json to_value
  end
module WebsiteURL =
  struct
    type nonrec t = string
    let context_ = "WebsiteURL"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\\?([^#]*))?(#(.*))?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WebsiteURL" j
    let to_json = simple_to_json to_value
  end
module Max24HourSend =
  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 MaxSendRate =
  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 SentLast24Hours =
  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 SuppressionValidationAttributes =
  struct
    type nonrec t =
      {
      conditionThreshold: SuppressionConditionThreshold.t
        [@ocaml.doc
          "Specifies the condition threshold settings for account-level suppression."]}
    let context_ = "SuppressionValidationAttributes"
    let make ~conditionThreshold = fun () -> { conditionThreshold }
    let to_value x =
      structure_to_value
        [("ConditionThreshold",
           (Some
              (SuppressionConditionThreshold.to_value x.conditionThreshold)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionThreshold =
        SuppressionConditionThreshold.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConditionThreshold") in
      make ~conditionThreshold ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionThreshold =
        field_map_exn json__ "ConditionThreshold"
          SuppressionConditionThreshold.of_json in
      make ~conditionThreshold ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Structure containing validation attributes used for suppressing sending to specific destination on account level."]
module RoutesDetails =
  struct
    type nonrec t = RouteDetails.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:RouteDetails.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:RouteDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"RoutesDetails" ~of_json:RouteDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricDataError =
  struct
    type nonrec t =
      {
      id: QueryIdentifier.t option [@ocaml.doc "The query identifier."];
      code: QueryErrorCode.t option
        [@ocaml.doc
          "The query error code. Can be one of: INTERNAL_FAILURE \226\128\147 Amazon SES has failed to process one of the queries. ACCESS_DENIED \226\128\147 You have insufficient access to retrieve metrics based on the given query."];
      message: QueryErrorMessage.t option
        [@ocaml.doc
          "The error message associated with the current query error."]}
    let make ?id =
      fun ?code -> fun ?message -> fun () -> { id; code; message }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:QueryIdentifier.to_value));
        ("Code", (Option.map x.code ~f:QueryErrorCode.to_value));
        ("Message", (Option.map x.message ~f:QueryErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:QueryErrorMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:QueryErrorCode.of_xml) (Xml.child xml_arg0 "Code") in
      let id =
        (Option.map ~f:QueryIdentifier.of_xml) (Xml.child xml_arg0 "Id") in
      make ?message ?code ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" QueryErrorMessage.of_json in
      let code = field_map json__ "Code" QueryErrorCode.of_json in
      let id = field_map json__ "Id" QueryIdentifier.of_json in
      make ?message ?code ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error corresponding to the unsuccessful processing of a single metric data query."]
module MetricDataResult =
  struct
    type nonrec t =
      {
      id: QueryIdentifier.t option [@ocaml.doc "The query identifier."];
      timestamps: TimestampList.t option
        [@ocaml.doc "A list of timestamps for the metric data results."];
      values: MetricValueList.t option
        [@ocaml.doc
          "A list of values (cumulative / sum) for the metric data results."]}
    let make ?id =
      fun ?timestamps -> fun ?values -> fun () -> { id; timestamps; values }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:QueryIdentifier.to_value));
        ("Timestamps", (Option.map x.timestamps ~f:TimestampList.to_value));
        ("Values", (Option.map x.values ~f:MetricValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:MetricValueList.of_xml) (Xml.child xml_arg0 "Values") in
      let timestamps =
        (Option.map ~f:TimestampList.of_xml)
          (Xml.child xml_arg0 "Timestamps") in
      let id =
        (Option.map ~f:QueryIdentifier.of_xml) (Xml.child xml_arg0 "Id") in
      make ?values ?timestamps ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "Values" MetricValueList.of_json in
      let timestamps = field_map json__ "Timestamps" TimestampList.of_json in
      let id = field_map json__ "Id" QueryIdentifier.of_json in
      make ?values ?timestamps ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a single metric data query."]
module BatchGetMetricDataQuery =
  struct
    type nonrec t =
      {
      id: QueryIdentifier.t [@ocaml.doc "The query identifier."];
      namespace: MetricNamespace.t
        [@ocaml.doc "The query namespace - e.g. VDM"];
      metric: Metric.t
        [@ocaml.doc
          "The queried metric. This can be one of the following: SEND \226\128\147 Emails sent eligible for tracking in the VDM dashboard. This excludes emails sent to the mailbox simulator and emails addressed to more than one recipient. COMPLAINT \226\128\147 Complaints received for your account. This excludes complaints from the mailbox simulator, those originating from your account-level suppression list (if enabled), and those for emails addressed to more than one recipient PERMANENT_BOUNCE \226\128\147 Permanent bounces - i.e. feedback received for emails sent to non-existent mailboxes. Excludes bounces from the mailbox simulator, those originating from your account-level suppression list (if enabled), and those for emails addressed to more than one recipient. TRANSIENT_BOUNCE \226\128\147 Transient bounces - i.e. feedback received for delivery failures excluding issues with non-existent mailboxes. Excludes bounces from the mailbox simulator, and those for emails addressed to more than one recipient. OPEN \226\128\147 Unique open events for emails including open trackers. Excludes opens for emails addressed to more than one recipient. CLICK \226\128\147 Unique click events for emails including wrapped links. Excludes clicks for emails addressed to more than one recipient. DELIVERY \226\128\147 Successful deliveries for email sending attempts. Excludes deliveries to the mailbox simulator and for emails addressed to more than one recipient. DELIVERY_OPEN \226\128\147 Successful deliveries for email sending attempts. Excludes deliveries to the mailbox simulator, for emails addressed to more than one recipient, and emails without open trackers. DELIVERY_CLICK \226\128\147 Successful deliveries for email sending attempts. Excludes deliveries to the mailbox simulator, for emails addressed to more than one recipient, and emails without click trackers. DELIVERY_COMPLAINT \226\128\147 Successful deliveries for email sending attempts. Excludes deliveries to the mailbox simulator, for emails addressed to more than one recipient, and emails addressed to recipients hosted by ISPs with which Amazon SES does not have a feedback loop agreement."];
      dimensions: Dimensions.t option
        [@ocaml.doc
          "An object that contains mapping between MetricDimensionName and MetricDimensionValue to filter metrics by."];
      startDate: Timestamp.t
        [@ocaml.doc "Represents the start date for the query interval."];
      endDate: Timestamp.t
        [@ocaml.doc "Represents the end date for the query interval."]}
    let context_ = "BatchGetMetricDataQuery"
    let make ?dimensions =
      fun ~id ->
        fun ~namespace ->
          fun ~metric ->
            fun ~startDate ->
              fun ~endDate ->
                fun () ->
                  { dimensions; id; namespace; metric; startDate; endDate }
    let to_value x =
      structure_to_value
        [("Id", (Some (QueryIdentifier.to_value x.id)));
        ("Namespace", (Some (MetricNamespace.to_value x.namespace)));
        ("Metric", (Some (Metric.to_value x.metric)));
        ("Dimensions", (Option.map x.dimensions ~f:Dimensions.to_value));
        ("StartDate", (Some (Timestamp.to_value x.startDate)));
        ("EndDate", (Some (Timestamp.to_value x.endDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndDate") in
      let startDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartDate") in
      let dimensions =
        (Option.map ~f:Dimensions.of_xml) (Xml.child xml_arg0 "Dimensions") in
      let metric =
        Metric.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Metric") in
      let namespace =
        MetricNamespace.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Namespace") in
      let id =
        QueryIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~endDate ~startDate ?dimensions ~metric ~namespace ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map_exn json__ "EndDate" Timestamp.of_json in
      let startDate = field_map_exn json__ "StartDate" Timestamp.of_json in
      let dimensions = field_map json__ "Dimensions" Dimensions.of_json in
      let metric = field_map_exn json__ "Metric" Metric.of_json in
      let namespace =
        field_map_exn json__ "Namespace" MetricNamespace.of_json in
      let id = field_map_exn json__ "Id" QueryIdentifier.of_json in
      make ~endDate ~startDate ?dimensions ~metric ~namespace ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a single metric data query to include in a batch."]
module BadRequestException =
  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 "The input you provided is invalid."]
module ConflictException =
  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
       "If there is already an ongoing account details update under review."]
module TooManyRequestsException =
  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 "Too many requests have been made to the operation."]
module NotFoundException =
  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 "The resource you attempted to access doesn't exist."]
module TemplateContent =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The content of the custom verification email template."]
    let context_ = "TemplateContent"
    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:"TemplateContent" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The content of the custom verification email template."]
module ConcurrentModificationException =
  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
       "The resource is being modified by another operation or thread."]
module AttributesData =
  struct
    type nonrec t = string
    let context_ = "AttributesData"
    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:"AttributesData" j
    let to_json = simple_to_json to_value
  end
module Topics =
  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:"Topics" ~of_json:Topic.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventDestinationDefinition =
  struct
    type nonrec t =
      {
      enabled: Enabled.t option
        [@ocaml.doc
          "If true, the event destination is enabled. When the event destination is enabled, the specified event types are sent to the destinations in this EventDestinationDefinition. If false, the event destination is disabled. When the event destination is disabled, events aren't sent to the specified destinations."];
      matchingEventTypes: EventTypes.t option
        [@ocaml.doc
          "An array that specifies which events the Amazon SES API v2 should send to the destinations in this EventDestinationDefinition."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon Kinesis Data Firehose destination for email events. You can use Amazon Kinesis Data Firehose to stream data to other services, such as Amazon S3 and Amazon Redshift."];
      cloudWatchDestination: CloudWatchDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon CloudWatch destination for email events. You can use Amazon CloudWatch to monitor and gain insights on your email sending metrics."];
      snsDestination: SnsDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon SNS destination for email events. You can use Amazon SNS to send notifications when certain email events occur."];
      eventBridgeDestination: EventBridgeDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon EventBridge destination for email events. You can use Amazon EventBridge to send notifications when certain email events occur."];
      pinpointDestination: PinpointDestination.t option
        [@ocaml.doc
          "An object that defines an Amazon Pinpoint project destination for email events. You can send email event data to a Amazon Pinpoint project to view metrics using the Transactional Messaging dashboards that are built in to Amazon Pinpoint. For more information, see Transactional Messaging Charts in the Amazon Pinpoint User Guide."]}
    let make ?enabled =
      fun ?matchingEventTypes ->
        fun ?kinesisFirehoseDestination ->
          fun ?cloudWatchDestination ->
            fun ?snsDestination ->
              fun ?eventBridgeDestination ->
                fun ?pinpointDestination ->
                  fun () ->
                    {
                      enabled;
                      matchingEventTypes;
                      kinesisFirehoseDestination;
                      cloudWatchDestination;
                      snsDestination;
                      eventBridgeDestination;
                      pinpointDestination
                    }
    let to_value x =
      structure_to_value
        [("Enabled", (Option.map x.enabled ~f:Enabled.to_value));
        ("MatchingEventTypes",
          (Option.map x.matchingEventTypes ~f:EventTypes.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("CloudWatchDestination",
          (Option.map x.cloudWatchDestination
             ~f:CloudWatchDestination.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value));
        ("EventBridgeDestination",
          (Option.map x.eventBridgeDestination
             ~f:EventBridgeDestination.to_value));
        ("PinpointDestination",
          (Option.map x.pinpointDestination ~f:PinpointDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pinpointDestination =
        (Option.map ~f:PinpointDestination.of_xml)
          (Xml.child xml_arg0 "PinpointDestination") in
      let eventBridgeDestination =
        (Option.map ~f:EventBridgeDestination.of_xml)
          (Xml.child xml_arg0 "EventBridgeDestination") in
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let cloudWatchDestination =
        (Option.map ~f:CloudWatchDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchDestination") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let matchingEventTypes =
        (Option.map ~f:EventTypes.of_xml)
          (Xml.child xml_arg0 "MatchingEventTypes") in
      let enabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "Enabled") in
      make ?pinpointDestination ?eventBridgeDestination ?snsDestination
        ?cloudWatchDestination ?kinesisFirehoseDestination
        ?matchingEventTypes ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pinpointDestination =
        field_map json__ "PinpointDestination" PinpointDestination.of_json in
      let eventBridgeDestination =
        field_map json__ "EventBridgeDestination"
          EventBridgeDestination.of_json in
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let cloudWatchDestination =
        field_map json__ "CloudWatchDestination"
          CloudWatchDestination.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let matchingEventTypes =
        field_map json__ "MatchingEventTypes" EventTypes.of_json in
      let enabled = field_map json__ "Enabled" Enabled.of_json in
      make ?pinpointDestination ?eventBridgeDestination ?snsDestination
        ?cloudWatchDestination ?kinesisFirehoseDestination
        ?matchingEventTypes ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the event destination. Specifically, it defines which services receive events from emails sent using the configuration set that the event destination is associated with. Also defines the types of events that are sent to the event destination."]
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 RenderedEmailTemplate =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The complete MIME message rendered by applying the data in the TemplateData parameter to the template specified in the TemplateName parameter."]
    let context_ = "RenderedEmailTemplate"
    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:"RenderedEmailTemplate" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The complete MIME message rendered by applying the data in the TemplateData parameter to the template specified in the TemplateName parameter."]
module AccountSuspendedException =
  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
       "The message can't be sent because the account's ability to send email has been permanently restricted."]
module LimitExceededException =
  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
       "There are too many instances of the specified resource type."]
module MailFromDomainNotVerifiedException =
  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
       "The message can't be sent because the sending domain isn't verified."]
module MessageRejected =
  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
       "The message can't be sent because it contains invalid content."]
module SendingPausedException =
  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
       "The message can't be sent because the account's ability to send email is currently paused."]
module EmailContent =
  struct
    type nonrec t =
      {
      simple: Message.t option
        [@ocaml.doc
          "The simple email message. The message consists of a subject, message body and attachments list."];
      raw: RawMessage.t option
        [@ocaml.doc
          "The raw email message. The message has to meet the following criteria: The message has to contain a header and a body, separated by one blank line. All of the required header fields must be present in the message. Each part of a multipart MIME message must be formatted properly. If you include attachments, they must be in a file format that the Amazon SES API v2 supports. The raw data of the message needs to base64-encoded if you are accessing Amazon SES directly through the HTTPS interface. If you are accessing Amazon SES using an Amazon Web Services SDK, the SDK takes care of the base 64-encoding for you. If any of the MIME parts in your message contain content that is outside of the 7-bit ASCII character range, you should encode that content to ensure that recipients' email clients render the message properly. The length of any single line of text in the message can't exceed 1,000 characters. This restriction is defined in RFC 5321."];
      template: Template.t option
        [@ocaml.doc "The template to use for the email message."]}
    let make ?simple =
      fun ?raw -> fun ?template -> fun () -> { simple; raw; template }
    let to_value x =
      structure_to_value
        [("Simple", (Option.map x.simple ~f:Message.to_value));
        ("Raw", (Option.map x.raw ~f:RawMessage.to_value));
        ("Template", (Option.map x.template ~f:Template.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let template =
        (Option.map ~f:Template.of_xml) (Xml.child xml_arg0 "Template") in
      let raw = (Option.map ~f:RawMessage.of_xml) (Xml.child xml_arg0 "Raw") in
      let simple =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Simple") in
      make ?template ?raw ?simple ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let template = field_map json__ "Template" Template.of_json in
      let raw = field_map json__ "Raw" RawMessage.of_json in
      let simple = field_map json__ "Simple" Message.of_json in
      make ?template ?raw ?simple ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the entire content of the email, including the message headers, body content, and attachments. For a simple email message, you specify the subject and provide both text and HTML versions of the message body. You can also add attachments to simple and templated messages. For a raw message, you provide a complete MIME-formatted message, which can include custom headers and attachments."]
module ListManagementOptions =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."];
      topicName: TopicName.t option [@ocaml.doc "The name of the topic."]}
    let context_ = "ListManagementOptions"
    let make ?topicName =
      fun ~contactListName -> fun () -> { topicName; contactListName }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("TopicName", (Option.map x.topicName ~f:TopicName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicName =
        (Option.map ~f:TopicName.of_xml) (Xml.child xml_arg0 "TopicName") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ?topicName ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicName = field_map json__ "TopicName" TopicName.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ?topicName ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object used to specify a list or topic to which an email belongs, which will be used when a contact chooses to unsubscribe."]
module BulkEmailEntryResultList =
  struct
    type nonrec t = BulkEmailEntryResult.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:BulkEmailEntryResult.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:BulkEmailEntryResult.of_xml)
    let of_json j =
      list_of_json ~kind:"BulkEmailEntryResultList"
        ~of_json:BulkEmailEntryResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module BulkEmailContent =
  struct
    type nonrec t =
      {
      template: Template.t option
        [@ocaml.doc "The template to use for the bulk email message."]}
    let make ?template = fun () -> { template }
    let to_value x =
      structure_to_value
        [("Template", (Option.map x.template ~f:Template.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let template =
        (Option.map ~f:Template.of_xml) (Xml.child xml_arg0 "Template") in
      make ?template ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let template = field_map json__ "Template" Template.of_json in
      make ?template ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains the body of the message. You can specify a template message."]
module BulkEmailEntryList =
  struct
    type nonrec t = BulkEmailEntry.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:BulkEmailEntry.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:BulkEmailEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"BulkEmailEntryList" ~of_json:BulkEmailEntry.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DkimSigningAttributes =
  struct
    type nonrec t =
      {
      domainSigningSelector: Selector.t option
        [@ocaml.doc
          "\\[Bring Your Own DKIM\\] A string that's used to identify a public key in the DNS configuration for a domain."];
      domainSigningPrivateKey: PrivateKey.t option
        [@ocaml.doc
          "\\[Bring Your Own DKIM\\] A private key that's used to generate a DKIM signature. The private key must use 1024 or 2048-bit RSA encryption, and must be encoded using base64 encoding."];
      nextSigningKeyLength: DkimSigningKeyLength.t option
        [@ocaml.doc
          "\\[Easy DKIM\\] The key length of the future DKIM key pair to be generated. This can be changed at most once per day."];
      domainSigningAttributesOrigin: DkimSigningAttributesOrigin.t option
        [@ocaml.doc
          "The attribute to use for configuring DKIM for the identity depends on the operation: For PutEmailIdentityDkimSigningAttributes: None of the values are allowed - use the SigningAttributesOrigin parameter instead For CreateEmailIdentity when replicating a parent identity's DKIM configuration: Allowed values: All values except AWS_SES and EXTERNAL AWS_SES \226\128\147 Configure DKIM for the identity by using Easy DKIM. EXTERNAL \226\128\147 Configure DKIM for the identity by using Bring Your Own DKIM (BYODKIM). AWS_SES_AF_SOUTH_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Africa (Cape Town) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_NORTH_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (Stockholm) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTH_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Mumbai) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTH_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Hyderabad) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_WEST_3 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (Paris) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_WEST_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (London) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_SOUTH_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (Milan) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_WEST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (Ireland) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_NORTHEAST_3 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Osaka) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_NORTHEAST_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Seoul) region using Deterministic Easy-DKIM (DEED). AWS_SES_ME_CENTRAL_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Middle East (UAE) region using Deterministic Easy-DKIM (DEED). AWS_SES_ME_SOUTH_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Middle East (Bahrain) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_NORTHEAST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Tokyo) region using Deterministic Easy-DKIM (DEED). AWS_SES_IL_CENTRAL_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Israel (Tel Aviv) region using Deterministic Easy-DKIM (DEED). AWS_SES_SA_EAST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in South America (S\195\163o Paulo) region using Deterministic Easy-DKIM (DEED). AWS_SES_CA_CENTRAL_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Canada (Central) region using Deterministic Easy-DKIM (DEED). AWS_SES_CA_WEST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Canada (Calgary) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Singapore) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Sydney) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_3 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Jakarta) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_5 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Asia Pacific (Malaysia) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_CENTRAL_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (Frankfurt) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_CENTRAL_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in Europe (Zurich) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_EAST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in US East (N. Virginia) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_EAST_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in US East (Ohio) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_WEST_1 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in US West (N. California) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_WEST_2 \226\128\147 Configure DKIM for the identity by replicating from a parent identity in US West (Oregon) region using Deterministic Easy-DKIM (DEED)."]}
    let make ?domainSigningSelector =
      fun ?domainSigningPrivateKey ->
        fun ?nextSigningKeyLength ->
          fun ?domainSigningAttributesOrigin ->
            fun () ->
              {
                domainSigningSelector;
                domainSigningPrivateKey;
                nextSigningKeyLength;
                domainSigningAttributesOrigin
              }
    let to_value x =
      structure_to_value
        [("DomainSigningSelector",
           (Option.map x.domainSigningSelector ~f:Selector.to_value));
        ("DomainSigningPrivateKey",
          (Option.map x.domainSigningPrivateKey ~f:PrivateKey.to_value));
        ("NextSigningKeyLength",
          (Option.map x.nextSigningKeyLength ~f:DkimSigningKeyLength.to_value));
        ("DomainSigningAttributesOrigin",
          (Option.map x.domainSigningAttributesOrigin
             ~f:DkimSigningAttributesOrigin.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainSigningAttributesOrigin =
        (Option.map ~f:DkimSigningAttributesOrigin.of_xml)
          (Xml.child xml_arg0 "DomainSigningAttributesOrigin") in
      let nextSigningKeyLength =
        (Option.map ~f:DkimSigningKeyLength.of_xml)
          (Xml.child xml_arg0 "NextSigningKeyLength") in
      let domainSigningPrivateKey =
        (Option.map ~f:PrivateKey.of_xml)
          (Xml.child xml_arg0 "DomainSigningPrivateKey") in
      let domainSigningSelector =
        (Option.map ~f:Selector.of_xml)
          (Xml.child xml_arg0 "DomainSigningSelector") in
      make ?domainSigningAttributesOrigin ?nextSigningKeyLength
        ?domainSigningPrivateKey ?domainSigningSelector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainSigningAttributesOrigin =
        field_map json__ "DomainSigningAttributesOrigin"
          DkimSigningAttributesOrigin.of_json in
      let nextSigningKeyLength =
        field_map json__ "NextSigningKeyLength" DkimSigningKeyLength.of_json in
      let domainSigningPrivateKey =
        field_map json__ "DomainSigningPrivateKey" PrivateKey.of_json in
      let domainSigningSelector =
        field_map json__ "DomainSigningSelector" Selector.of_json in
      make ?domainSigningAttributesOrigin ?nextSigningKeyLength
        ?domainSigningPrivateKey ?domainSigningSelector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains configuration for Bring Your Own DKIM (BYODKIM), or, for Easy DKIM"]
module AlreadyExistsException =
  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 "The resource specified in your request already exists."]
module DomainDeliverabilityTrackingOptions =
  struct
    type nonrec t = DomainDeliverabilityTrackingOption.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:DomainDeliverabilityTrackingOption.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:DomainDeliverabilityTrackingOption.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainDeliverabilityTrackingOptions"
        ~of_json:DomainDeliverabilityTrackingOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module VdmOptions =
  struct
    type nonrec t =
      {
      dashboardOptions: DashboardOptions.t option
        [@ocaml.doc
          "Specifies additional settings for your VDM configuration as applicable to the Dashboard."];
      guardianOptions: GuardianOptions.t option
        [@ocaml.doc
          "Specifies additional settings for your VDM configuration as applicable to the Guardian."]}
    let make ?dashboardOptions =
      fun ?guardianOptions -> fun () -> { dashboardOptions; guardianOptions }
    let to_value x =
      structure_to_value
        [("DashboardOptions",
           (Option.map x.dashboardOptions ~f:DashboardOptions.to_value));
        ("GuardianOptions",
          (Option.map x.guardianOptions ~f:GuardianOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let guardianOptions =
        (Option.map ~f:GuardianOptions.of_xml)
          (Xml.child xml_arg0 "GuardianOptions") in
      let dashboardOptions =
        (Option.map ~f:DashboardOptions.of_xml)
          (Xml.child xml_arg0 "DashboardOptions") in
      make ?guardianOptions ?dashboardOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let guardianOptions =
        field_map json__ "GuardianOptions" GuardianOptions.of_json in
      let dashboardOptions =
        field_map json__ "DashboardOptions" DashboardOptions.of_json in
      make ?guardianOptions ?dashboardOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the VDM settings that apply to emails that you send using the configuration set."]
module SendingPoolName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the dedicated IP pool to associate with the configuration set."]
    let context_ = "SendingPoolName"
    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:"SendingPoolName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of the dedicated IP pool to associate with the configuration set."]
module VdmAttributes =
  struct
    type nonrec t =
      {
      vdmEnabled: FeatureStatus.t
        [@ocaml.doc
          "Specifies the status of your VDM configuration. Can be one of the following: ENABLED \226\128\147 Amazon SES enables VDM for your account. DISABLED \226\128\147 Amazon SES disables VDM for your account."];
      dashboardAttributes: DashboardAttributes.t option
        [@ocaml.doc
          "Specifies additional settings for your VDM configuration as applicable to the Dashboard."];
      guardianAttributes: GuardianAttributes.t option
        [@ocaml.doc
          "Specifies additional settings for your VDM configuration as applicable to the Guardian."]}
    let context_ = "VdmAttributes"
    let make ?dashboardAttributes =
      fun ?guardianAttributes ->
        fun ~vdmEnabled ->
          fun () -> { dashboardAttributes; guardianAttributes; vdmEnabled }
    let to_value x =
      structure_to_value
        [("VdmEnabled", (Some (FeatureStatus.to_value x.vdmEnabled)));
        ("DashboardAttributes",
          (Option.map x.dashboardAttributes ~f:DashboardAttributes.to_value));
        ("GuardianAttributes",
          (Option.map x.guardianAttributes ~f:GuardianAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let guardianAttributes =
        (Option.map ~f:GuardianAttributes.of_xml)
          (Xml.child xml_arg0 "GuardianAttributes") in
      let dashboardAttributes =
        (Option.map ~f:DashboardAttributes.of_xml)
          (Xml.child xml_arg0 "DashboardAttributes") in
      let vdmEnabled =
        FeatureStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VdmEnabled") in
      make ?guardianAttributes ?dashboardAttributes ~vdmEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let guardianAttributes =
        field_map json__ "GuardianAttributes" GuardianAttributes.of_json in
      let dashboardAttributes =
        field_map json__ "DashboardAttributes" DashboardAttributes.of_json in
      let vdmEnabled =
        field_map_exn json__ "VdmEnabled" FeatureStatus.of_json in
      make ?guardianAttributes ?dashboardAttributes ~vdmEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The VDM attributes that apply to your Amazon SES account."]
module EnabledWrapper =
  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 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 TenantInfoList =
  struct
    type nonrec t = TenantInfo.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:TenantInfo.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:TenantInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"TenantInfoList" ~of_json:TenantInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxItems =
  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 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 TenantResourceList =
  struct
    type nonrec t = TenantResource.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:TenantResource.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:TenantResource.of_xml)
    let of_json j =
      list_of_json ~kind:"TenantResourceList" ~of_json:TenantResource.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListTenantResourcesFilter =
  struct
    type nonrec t =
      (ListTenantResourcesFilterKey.t * ListTenantResourcesFilterValue.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 ->
                            ((ListTenantResourcesFilterKey.of_string chopped),
                              (ListTenantResourcesFilterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ListTenantResourcesFilterKey.to_value x) |>
                    (fun x ->
                       (ListTenantResourcesFilterValue.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:ListTenantResourcesFilterKey.of_string
        ~of_json:ListTenantResourcesFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidNextTokenException =
  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
       "The specified request includes an invalid or expired token."]
module SuppressedDestinationSummaries =
  struct
    type nonrec t = SuppressedDestinationSummary.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:SuppressedDestinationSummary.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:SuppressedDestinationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"SuppressedDestinationSummaries"
        ~of_json:SuppressedDestinationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceTenantMetadataList =
  struct
    type nonrec t = ResourceTenantMetadata.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:ResourceTenantMetadata.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:ResourceTenantMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTenantMetadataList"
        ~of_json:ResourceTenantMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReputationEntitiesList =
  struct
    type nonrec t = ReputationEntity.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:ReputationEntity.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:ReputationEntity.of_xml)
    let of_json j =
      list_of_json ~kind:"ReputationEntitiesList"
        ~of_json:ReputationEntity.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReputationEntityFilter =
  struct
    type nonrec t =
      (ReputationEntityFilterKey.t * ReputationEntityFilterValue.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 ->
                            ((ReputationEntityFilterKey.of_string chopped),
                              (ReputationEntityFilterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ReputationEntityFilterKey.to_value x) |>
                    (fun x ->
                       (ReputationEntityFilterValue.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:ReputationEntityFilterKey.of_string
        ~of_json:ReputationEntityFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecommendationsList =
  struct
    type nonrec t = Recommendation.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:Recommendation.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:Recommendation.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendationsList"
        ~of_json:Recommendation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListRecommendationsFilter =
  struct
    type nonrec t =
      (ListRecommendationsFilterKey.t * ListRecommendationFilterValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ListRecommendationsFilterKey.of_string chopped),
                              (ListRecommendationFilterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ListRecommendationsFilterKey.to_value x) |>
                    (fun x ->
                       (ListRecommendationFilterValue.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:ListRecommendationsFilterKey.of_string
        ~of_json:ListRecommendationFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MultiRegionEndpoints =
  struct
    type nonrec t = MultiRegionEndpoint.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:MultiRegionEndpoint.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:MultiRegionEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"MultiRegionEndpoints"
        ~of_json:MultiRegionEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextTokenV2 =
  struct
    type nonrec t = string
    let context_ = "NextTokenV2"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:5000) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^^([A-Za-z0-9+/]{4})*([A-Za-z0-9+/]{2}==|[A-Za-z0-9+/]{3}=)?$")));
        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:"NextTokenV2" j
    let to_json = simple_to_json to_value
  end
module PageSizeV2 =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (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 PageSizeV2" 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 ImportJobSummaryList =
  struct
    type nonrec t = ImportJobSummary.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:ImportJobSummary.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:ImportJobSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ImportJobSummaryList"
        ~of_json:ImportJobSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImportDestinationType =
  struct
    type nonrec t =
      | SUPPRESSION_LIST 
      | CONTACT_LIST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUPPRESSION_LIST -> "SUPPRESSION_LIST"
      | CONTACT_LIST -> "CONTACT_LIST"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUPPRESSION_LIST" -> SUPPRESSION_LIST
      | "CONTACT_LIST" -> CONTACT_LIST
      | 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 ImportDestinationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ImportDestinationType" j)
    let to_json = simple_to_json to_value
  end
module ExportJobSummaryList =
  struct
    type nonrec t = ExportJobSummary.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:ExportJobSummary.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:ExportJobSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportJobSummaryList"
        ~of_json:ExportJobSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmailTemplateMetadataList =
  struct
    type nonrec t = EmailTemplateMetadata.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:EmailTemplateMetadata.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:EmailTemplateMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"EmailTemplateMetadataList"
        ~of_json:EmailTemplateMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentityInfoList =
  struct
    type nonrec t = IdentityInfo.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:IdentityInfo.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:IdentityInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentityInfoList" ~of_json:IdentityInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainDeliverabilityCampaignList =
  struct
    type nonrec t = DomainDeliverabilityCampaign.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:DomainDeliverabilityCampaign.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:DomainDeliverabilityCampaign.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainDeliverabilityCampaignList"
        ~of_json:DomainDeliverabilityCampaign.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeliverabilityTestReports =
  struct
    type nonrec t = DeliverabilityTestReport.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:DeliverabilityTestReport.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:DeliverabilityTestReport.of_xml)
    let of_json j =
      list_of_json ~kind:"DeliverabilityTestReports"
        ~of_json:DeliverabilityTestReport.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfDedicatedIpPools =
  struct
    type nonrec t = PoolName.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:PoolName.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:PoolName.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfDedicatedIpPools" ~of_json:PoolName.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomVerificationEmailTemplatesList =
  struct
    type nonrec t = CustomVerificationEmailTemplateMetadata.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:CustomVerificationEmailTemplateMetadata.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:CustomVerificationEmailTemplateMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomVerificationEmailTemplatesList"
        ~of_json:CustomVerificationEmailTemplateMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfContacts =
  struct
    type nonrec t = Contact.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:Contact.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:Contact.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfContacts" ~of_json:Contact.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListContactsFilter =
  struct
    type nonrec t =
      {
      filteredStatus: SubscriptionStatus.t option
        [@ocaml.doc
          "The status by which you are filtering: OPT_IN or OPT_OUT."];
      topicFilter: TopicFilter.t option
        [@ocaml.doc "Used for filtering by a specific topic preference."]}
    let make ?filteredStatus =
      fun ?topicFilter -> fun () -> { filteredStatus; topicFilter }
    let to_value x =
      structure_to_value
        [("FilteredStatus",
           (Option.map x.filteredStatus ~f:SubscriptionStatus.to_value));
        ("TopicFilter", (Option.map x.topicFilter ~f:TopicFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicFilter =
        (Option.map ~f:TopicFilter.of_xml) (Xml.child xml_arg0 "TopicFilter") in
      let filteredStatus =
        (Option.map ~f:SubscriptionStatus.of_xml)
          (Xml.child xml_arg0 "FilteredStatus") in
      make ?topicFilter ?filteredStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicFilter = field_map json__ "TopicFilter" TopicFilter.of_json in
      let filteredStatus =
        field_map json__ "FilteredStatus" SubscriptionStatus.of_json in
      make ?topicFilter ?filteredStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter that can be applied to a list of contacts."]
module ListOfContactLists =
  struct
    type nonrec t = ContactList.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:ContactList.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:ContactList.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfContactLists" ~of_json:ContactList.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationSetNameList =
  struct
    type nonrec t = ConfigurationSetName.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:ConfigurationSetName.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:ConfigurationSetName.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationSetNameList"
        ~of_json:ConfigurationSetName.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tenant =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t option [@ocaml.doc "The name of the tenant."];
      tenantId: TenantId.t option
        [@ocaml.doc "A unique identifier for the tenant."];
      tenantArn: AmazonResourceName.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the tenant."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The date and time when the tenant was created."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) associated with the tenant."];
      sendingStatus: SendingStatus.t option
        [@ocaml.doc "The status of sending capability for the tenant."]}
    let make ?tenantName =
      fun ?tenantId ->
        fun ?tenantArn ->
          fun ?createdTimestamp ->
            fun ?tags ->
              fun ?sendingStatus ->
                fun () ->
                  {
                    tenantName;
                    tenantId;
                    tenantArn;
                    createdTimestamp;
                    tags;
                    sendingStatus
                  }
    let to_value x =
      structure_to_value
        [("TenantName", (Option.map x.tenantName ~f:TenantName.to_value));
        ("TenantId", (Option.map x.tenantId ~f:TenantId.to_value));
        ("TenantArn",
          (Option.map x.tenantArn ~f:AmazonResourceName.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SendingStatus",
          (Option.map x.sendingStatus ~f:SendingStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendingStatus =
        (Option.map ~f:SendingStatus.of_xml)
          (Xml.child xml_arg0 "SendingStatus") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let tenantArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "TenantArn") in
      let tenantId =
        (Option.map ~f:TenantId.of_xml) (Xml.child xml_arg0 "TenantId") in
      let tenantName =
        (Option.map ~f:TenantName.of_xml) (Xml.child xml_arg0 "TenantName") in
      make ?sendingStatus ?tags ?createdTimestamp ?tenantArn ?tenantId
        ?tenantName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendingStatus =
        field_map json__ "SendingStatus" SendingStatus.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let tenantArn = field_map json__ "TenantArn" AmazonResourceName.of_json in
      let tenantId = field_map json__ "TenantId" TenantId.of_json in
      let tenantName = field_map json__ "TenantName" TenantName.of_json in
      make ?sendingStatus ?tags ?createdTimestamp ?tenantArn ?tenantId
        ?tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structure that contains details about a tenant."]
module SuppressedDestination =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address that is on the suppression list for your account."];
      reason: SuppressionListReason.t option
        [@ocaml.doc
          "The reason that the address was added to the suppression list for your account."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The date and time when the suppressed destination was last updated, shown in Unix time format."];
      attributes: SuppressedDestinationAttributes.t option
        [@ocaml.doc
          "An optional value that can contain additional information about the reasons that the address was added to the suppression list for your account."]}
    let make ?emailAddress =
      fun ?reason ->
        fun ?lastUpdateTime ->
          fun ?attributes ->
            fun () -> { emailAddress; reason; lastUpdateTime; attributes }
    let to_value x =
      structure_to_value
        [("EmailAddress",
           (Option.map x.emailAddress ~f:EmailAddress.to_value));
        ("Reason", (Option.map x.reason ~f:SuppressionListReason.to_value));
        ("LastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("Attributes",
          (Option.map x.attributes
             ~f:SuppressedDestinationAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:SuppressedDestinationAttributes.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateTime") in
      let reason =
        (Option.map ~f:SuppressionListReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let emailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      make ?attributes ?lastUpdateTime ?reason ?emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" SuppressedDestinationAttributes.of_json in
      let lastUpdateTime =
        field_map json__ "LastUpdateTime" Timestamp.of_json in
      let reason = field_map json__ "Reason" SuppressionListReason.of_json in
      let emailAddress = field_map json__ "EmailAddress" EmailAddress.of_json in
      make ?attributes ?lastUpdateTime ?reason ?emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about an email address that is on the suppression list for your account."]
module Routes =
  struct
    type nonrec t = Route.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:Route.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:Route.of_xml)
    let of_json j = list_of_json ~kind:"Routes" ~of_json:Route.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmailInsightsList =
  struct
    type nonrec t = EmailInsights.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:EmailInsights.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:EmailInsights.of_xml)
    let of_json j =
      list_of_json ~kind:"EmailInsightsList" ~of_json:EmailInsights.of_json j
    let to_json v = composed_to_json to_value v
  end
module FailureInfo =
  struct
    type nonrec t =
      {
      failedRecordsS3Url: FailedRecordsS3Url.t option
        [@ocaml.doc
          "An Amazon S3 pre-signed URL that contains all the failed records and related information."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc "A message about why the job failed."]}
    let make ?failedRecordsS3Url =
      fun ?errorMessage -> fun () -> { failedRecordsS3Url; errorMessage }
    let to_value x =
      structure_to_value
        [("FailedRecordsS3Url",
           (Option.map x.failedRecordsS3Url ~f:FailedRecordsS3Url.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let failedRecordsS3Url =
        (Option.map ~f:FailedRecordsS3Url.of_xml)
          (Xml.child xml_arg0 "FailedRecordsS3Url") in
      make ?errorMessage ?failedRecordsS3Url ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let failedRecordsS3Url =
        field_map json__ "FailedRecordsS3Url" FailedRecordsS3Url.of_json in
      make ?errorMessage ?failedRecordsS3Url ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object that contains the failure details about a job."]
module ImportDataSource =
  struct
    type nonrec t =
      {
      s3Url: S3Url.t
        [@ocaml.doc
          "An Amazon S3 URL in the format s3://<bucket_name>/<object>."];
      dataFormat: DataFormat.t
        [@ocaml.doc "The data format of the import job's data source."]}
    let context_ = "ImportDataSource"
    let make ~s3Url = fun ~dataFormat -> fun () -> { s3Url; dataFormat }
    let to_value x =
      structure_to_value
        [("S3Url", (Some (S3Url.to_value x.s3Url)));
        ("DataFormat", (Some (DataFormat.to_value x.dataFormat)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataFormat =
        DataFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataFormat") in
      let s3Url =
        S3Url.of_xml (Xml.child_exn ~context:context_ xml_arg0 "S3Url") in
      make ~dataFormat ~s3Url ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataFormat = field_map_exn json__ "DataFormat" DataFormat.of_json in
      let s3Url = field_map_exn json__ "S3Url" S3Url.of_json in
      make ~dataFormat ~s3Url ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the data source of the import job."]
module ExportDataSource =
  struct
    type nonrec t =
      {
      metricsDataSource: MetricsDataSource.t option ;
      messageInsightsDataSource: MessageInsightsDataSource.t option }
    let make ?metricsDataSource =
      fun ?messageInsightsDataSource ->
        fun () -> { metricsDataSource; messageInsightsDataSource }
    let to_value x =
      structure_to_value
        [("MetricsDataSource",
           (Option.map x.metricsDataSource ~f:MetricsDataSource.to_value));
        ("MessageInsightsDataSource",
          (Option.map x.messageInsightsDataSource
             ~f:MessageInsightsDataSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageInsightsDataSource =
        (Option.map ~f:MessageInsightsDataSource.of_xml)
          (Xml.child xml_arg0 "MessageInsightsDataSource") in
      let metricsDataSource =
        (Option.map ~f:MetricsDataSource.of_xml)
          (Xml.child xml_arg0 "MetricsDataSource") in
      make ?messageInsightsDataSource ?metricsDataSource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageInsightsDataSource =
        field_map json__ "MessageInsightsDataSource"
          MessageInsightsDataSource.of_json in
      let metricsDataSource =
        field_map json__ "MetricsDataSource" MetricsDataSource.of_json in
      make ?messageInsightsDataSource ?metricsDataSource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the data source of the export job. It can only contain one of MetricsDataSource or MessageInsightsDataSource object."]
module ExportDestination =
  struct
    type nonrec t =
      {
      dataFormat: DataFormat.t
        [@ocaml.doc
          "The data format of the final export job file, can be one of the following: CSV - A comma-separated values file. JSON - A Json file."];
      s3Url: S3Url.t option
        [@ocaml.doc
          "An Amazon S3 pre-signed URL that points to the generated export file."]}
    let context_ = "ExportDestination"
    let make ?s3Url = fun ~dataFormat -> fun () -> { s3Url; dataFormat }
    let to_value x =
      structure_to_value
        [("DataFormat", (Some (DataFormat.to_value x.dataFormat)));
        ("S3Url", (Option.map x.s3Url ~f:S3Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Url = (Option.map ~f:S3Url.of_xml) (Xml.child xml_arg0 "S3Url") in
      let dataFormat =
        DataFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataFormat") in
      make ?s3Url ~dataFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Url = field_map json__ "S3Url" S3Url.of_json in
      let dataFormat = field_map_exn json__ "DataFormat" DataFormat.of_json in
      make ?s3Url ~dataFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains details about the destination of the export job."]
module ExportStatistics =
  struct
    type nonrec t =
      {
      processedRecordsCount: ProcessedRecordsCount.t option
        [@ocaml.doc
          "The number of records that were processed to generate the final export file."];
      exportedRecordsCount: ExportedRecordsCount.t option
        [@ocaml.doc
          "The number of records that were exported to the final export file. This value might not be available for all export source types"]}
    let make ?processedRecordsCount =
      fun ?exportedRecordsCount ->
        fun () -> { processedRecordsCount; exportedRecordsCount }
    let to_value x =
      structure_to_value
        [("ProcessedRecordsCount",
           (Option.map x.processedRecordsCount
              ~f:ProcessedRecordsCount.to_value));
        ("ExportedRecordsCount",
          (Option.map x.exportedRecordsCount ~f:ExportedRecordsCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportedRecordsCount =
        (Option.map ~f:ExportedRecordsCount.of_xml)
          (Xml.child xml_arg0 "ExportedRecordsCount") in
      let processedRecordsCount =
        (Option.map ~f:ProcessedRecordsCount.of_xml)
          (Xml.child xml_arg0 "ProcessedRecordsCount") in
      make ?exportedRecordsCount ?processedRecordsCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportedRecordsCount =
        field_map json__ "ExportedRecordsCount" ExportedRecordsCount.of_json in
      let processedRecordsCount =
        field_map json__ "ProcessedRecordsCount"
          ProcessedRecordsCount.of_json in
      make ?exportedRecordsCount ?processedRecordsCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Statistics about the execution of an export job."]
module DkimAttributes =
  struct
    type nonrec t =
      {
      signingEnabled: Enabled.t option
        [@ocaml.doc
          "If the value is true, then the messages that you send from the identity are signed using DKIM. If the value is false, then the messages that you send from the identity aren't DKIM-signed."];
      status: DkimStatus.t option
        [@ocaml.doc
          "Describes whether or not Amazon SES has successfully located the DKIM records in the DNS records for the domain. The status can be one of the following: PENDING \226\128\147 The verification process was initiated, but Amazon SES hasn't yet detected the DKIM records in the DNS configuration for the domain. SUCCESS \226\128\147 The verification process completed successfully. FAILED \226\128\147 The verification process failed. This typically occurs when Amazon SES fails to find the DKIM records in the DNS configuration of the domain. TEMPORARY_FAILURE \226\128\147 A temporary issue is preventing Amazon SES from determining the DKIM authentication status of the domain. NOT_STARTED \226\128\147 The DKIM verification process hasn't been initiated for the domain."];
      tokens: DnsTokenList.t option
        [@ocaml.doc
          "If you used Easy DKIM to configure DKIM authentication for the domain, then this object contains a set of unique strings that you use to create a set of CNAME records that you add to the DNS configuration for your domain. When Amazon SES detects these records in the DNS configuration for your domain, the DKIM authentication process is complete. If you configured DKIM authentication for the domain by providing your own public-private key pair, then this object contains the selector for the public key. Regardless of the DKIM authentication method you use, Amazon SES searches for the appropriate records in the DNS configuration of the domain for up to 72 hours."];
      signingHostedZone: HostedZone.t option
        [@ocaml.doc
          "The hosted zone where Amazon SES publishes the DKIM public key TXT records for this email identity. This value indicates the DNS zone that customers must reference when configuring their CNAME records for DKIM authentication. When configuring DKIM for your domain, create CNAME records in your DNS that point to the selectors in this hosted zone. For example: selector1._domainkey.yourdomain.com CNAME selector1.<SigningHostedZone> selector2._domainkey.yourdomain.com CNAME selector2.<SigningHostedZone> selector3._domainkey.yourdomain.com CNAME selector3.<SigningHostedZone>"];
      signingAttributesOrigin: DkimSigningAttributesOrigin.t option
        [@ocaml.doc
          "A string that indicates how DKIM was configured for the identity. These are the possible values: AWS_SES \226\128\147 Indicates that DKIM was configured for the identity by using Easy DKIM. EXTERNAL \226\128\147 Indicates that DKIM was configured for the identity by using Bring Your Own DKIM (BYODKIM). AWS_SES_AF_SOUTH_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Africa (Cape Town) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_NORTH_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (Stockholm) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTH_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Mumbai) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTH_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Hyderabad) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_WEST_3 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (Paris) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_WEST_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (London) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_SOUTH_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (Milan) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_WEST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (Ireland) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_NORTHEAST_3 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Osaka) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_NORTHEAST_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Seoul) region using Deterministic Easy-DKIM (DEED). AWS_SES_ME_CENTRAL_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Middle East (UAE) region using Deterministic Easy-DKIM (DEED). AWS_SES_ME_SOUTH_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Middle East (Bahrain) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_NORTHEAST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Tokyo) region using Deterministic Easy-DKIM (DEED). AWS_SES_IL_CENTRAL_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Israel (Tel Aviv) region using Deterministic Easy-DKIM (DEED). AWS_SES_SA_EAST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in South America (S\195\163o Paulo) region using Deterministic Easy-DKIM (DEED). AWS_SES_CA_CENTRAL_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Canada (Central) region using Deterministic Easy-DKIM (DEED). AWS_SES_CA_WEST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Canada (Calgary) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Singapore) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Sydney) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_3 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Jakarta) region using Deterministic Easy-DKIM (DEED). AWS_SES_AP_SOUTHEAST_5 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Asia Pacific (Malaysia) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_CENTRAL_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (Frankfurt) region using Deterministic Easy-DKIM (DEED). AWS_SES_EU_CENTRAL_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in Europe (Zurich) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_EAST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in US East (N. Virginia) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_EAST_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in US East (Ohio) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_WEST_1 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in US West (N. California) region using Deterministic Easy-DKIM (DEED). AWS_SES_US_WEST_2 \226\128\147 Indicates that DKIM was configured for the identity by replicating signing attributes from a parent identity in US West (Oregon) region using Deterministic Easy-DKIM (DEED)."];
      nextSigningKeyLength: DkimSigningKeyLength.t option
        [@ocaml.doc
          "\\[Easy DKIM\\] The key length of the future DKIM key pair to be generated. This can be changed at most once per day."];
      currentSigningKeyLength: DkimSigningKeyLength.t option
        [@ocaml.doc
          "\\[Easy DKIM\\] The key length of the DKIM key pair in use."];
      lastKeyGenerationTimestamp: Timestamp.t option
        [@ocaml.doc
          "\\[Easy DKIM\\] The last time a key pair was generated for this identity."]}
    let make ?signingEnabled =
      fun ?status ->
        fun ?tokens ->
          fun ?signingHostedZone ->
            fun ?signingAttributesOrigin ->
              fun ?nextSigningKeyLength ->
                fun ?currentSigningKeyLength ->
                  fun ?lastKeyGenerationTimestamp ->
                    fun () ->
                      {
                        signingEnabled;
                        status;
                        tokens;
                        signingHostedZone;
                        signingAttributesOrigin;
                        nextSigningKeyLength;
                        currentSigningKeyLength;
                        lastKeyGenerationTimestamp
                      }
    let to_value x =
      structure_to_value
        [("SigningEnabled",
           (Option.map x.signingEnabled ~f:Enabled.to_value));
        ("Status", (Option.map x.status ~f:DkimStatus.to_value));
        ("Tokens", (Option.map x.tokens ~f:DnsTokenList.to_value));
        ("SigningHostedZone",
          (Option.map x.signingHostedZone ~f:HostedZone.to_value));
        ("SigningAttributesOrigin",
          (Option.map x.signingAttributesOrigin
             ~f:DkimSigningAttributesOrigin.to_value));
        ("NextSigningKeyLength",
          (Option.map x.nextSigningKeyLength ~f:DkimSigningKeyLength.to_value));
        ("CurrentSigningKeyLength",
          (Option.map x.currentSigningKeyLength
             ~f:DkimSigningKeyLength.to_value));
        ("LastKeyGenerationTimestamp",
          (Option.map x.lastKeyGenerationTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastKeyGenerationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastKeyGenerationTimestamp") in
      let currentSigningKeyLength =
        (Option.map ~f:DkimSigningKeyLength.of_xml)
          (Xml.child xml_arg0 "CurrentSigningKeyLength") in
      let nextSigningKeyLength =
        (Option.map ~f:DkimSigningKeyLength.of_xml)
          (Xml.child xml_arg0 "NextSigningKeyLength") in
      let signingAttributesOrigin =
        (Option.map ~f:DkimSigningAttributesOrigin.of_xml)
          (Xml.child xml_arg0 "SigningAttributesOrigin") in
      let signingHostedZone =
        (Option.map ~f:HostedZone.of_xml)
          (Xml.child xml_arg0 "SigningHostedZone") in
      let tokens =
        (Option.map ~f:DnsTokenList.of_xml) (Xml.child xml_arg0 "Tokens") in
      let status =
        (Option.map ~f:DkimStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let signingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SigningEnabled") in
      make ?lastKeyGenerationTimestamp ?currentSigningKeyLength
        ?nextSigningKeyLength ?signingAttributesOrigin ?signingHostedZone
        ?tokens ?status ?signingEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastKeyGenerationTimestamp =
        field_map json__ "LastKeyGenerationTimestamp" Timestamp.of_json in
      let currentSigningKeyLength =
        field_map json__ "CurrentSigningKeyLength"
          DkimSigningKeyLength.of_json in
      let nextSigningKeyLength =
        field_map json__ "NextSigningKeyLength" DkimSigningKeyLength.of_json in
      let signingAttributesOrigin =
        field_map json__ "SigningAttributesOrigin"
          DkimSigningAttributesOrigin.of_json in
      let signingHostedZone =
        field_map json__ "SigningHostedZone" HostedZone.of_json in
      let tokens = field_map json__ "Tokens" DnsTokenList.of_json in
      let status = field_map json__ "Status" DkimStatus.of_json in
      let signingEnabled = field_map json__ "SigningEnabled" Enabled.of_json in
      make ?lastKeyGenerationTimestamp ?currentSigningKeyLength
        ?nextSigningKeyLength ?signingAttributesOrigin ?signingHostedZone
        ?tokens ?status ?signingEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the DKIM authentication status for an email identity. Amazon SES determines the authentication status by searching for specific records in the DNS configuration for the domain. If you used Easy DKIM to set up DKIM authentication, Amazon SES tries to find three unique CNAME records in the DNS configuration for your domain. If you provided a public key to perform DKIM authentication, Amazon SES tries to find a TXT record that uses the selector that you specified. The value of the TXT record must be a public key that's paired with the private key that you specified in the process of creating the identity"]
module MailFromAttributes =
  struct
    type nonrec t =
      {
      mailFromDomain: MailFromDomainName.t option
        [@ocaml.doc
          "The name of a domain that an email identity uses as a custom MAIL FROM domain."];
      mailFromDomainStatus: MailFromDomainStatus.t option
        [@ocaml.doc
          "The status of the MAIL FROM domain. This status can have the following values: PENDING \226\128\147 Amazon SES hasn't started searching for the MX record yet. SUCCESS \226\128\147 Amazon SES detected the required MX record for the MAIL FROM domain. FAILED \226\128\147 Amazon SES can't find the required MX record, or the record no longer exists. TEMPORARY_FAILURE \226\128\147 A temporary issue occurred, which prevented Amazon SES from determining the status of the MAIL FROM domain."];
      behaviorOnMxFailure: BehaviorOnMxFailure.t option
        [@ocaml.doc
          "The action to take if the required MX record can't be found when you send an email. When you set this value to USE_DEFAULT_VALUE, the mail is sent using amazonses.com as the MAIL FROM domain. When you set this value to REJECT_MESSAGE, the Amazon SES API v2 returns a MailFromDomainNotVerified error, and doesn't attempt to deliver the email. These behaviors are taken when the custom MAIL FROM domain configuration is in the Pending, Failed, and TemporaryFailure states."]}
    let make ?mailFromDomain =
      fun ?mailFromDomainStatus ->
        fun ?behaviorOnMxFailure ->
          fun () ->
            { mailFromDomain; mailFromDomainStatus; behaviorOnMxFailure }
    let to_value x =
      structure_to_value
        [("MailFromDomain",
           (Option.map x.mailFromDomain ~f:MailFromDomainName.to_value));
        ("MailFromDomainStatus",
          (Option.map x.mailFromDomainStatus ~f:MailFromDomainStatus.to_value));
        ("BehaviorOnMxFailure",
          (Option.map x.behaviorOnMxFailure ~f:BehaviorOnMxFailure.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let behaviorOnMxFailure =
        (Option.map ~f:BehaviorOnMxFailure.of_xml)
          (Xml.child xml_arg0 "BehaviorOnMxFailure") in
      let mailFromDomainStatus =
        (Option.map ~f:MailFromDomainStatus.of_xml)
          (Xml.child xml_arg0 "MailFromDomainStatus") in
      let mailFromDomain =
        (Option.map ~f:MailFromDomainName.of_xml)
          (Xml.child xml_arg0 "MailFromDomain") in
      make ?behaviorOnMxFailure ?mailFromDomainStatus ?mailFromDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let behaviorOnMxFailure =
        field_map json__ "BehaviorOnMxFailure" BehaviorOnMxFailure.of_json in
      let mailFromDomainStatus =
        field_map json__ "MailFromDomainStatus" MailFromDomainStatus.of_json in
      let mailFromDomain =
        field_map json__ "MailFromDomain" MailFromDomainName.of_json in
      make ?behaviorOnMxFailure ?mailFromDomainStatus ?mailFromDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of attributes that are associated with a MAIL FROM domain."]
module PolicyMap =
  struct
    type nonrec t = (PolicyName.t * Policy.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 ->
                            ((PolicyName.of_string chopped),
                              (Policy.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (PolicyName.to_value x) |>
                    (fun x -> (Policy.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:PolicyName.of_string
        ~of_json:Policy.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerificationInfo =
  struct
    type nonrec t =
      {
      lastCheckedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The last time a verification attempt was made for this identity."];
      lastSuccessTimestamp: Timestamp.t option
        [@ocaml.doc
          "The last time a successful verification was made for this identity."];
      errorType: VerificationError.t option
        [@ocaml.doc
          "Provides the reason for the failure describing why Amazon SES was not able to successfully verify the identity. Below are the possible values: INVALID_VALUE \226\128\147 Amazon SES was able to find the record, but the value contained within the record was invalid. Ensure you have published the correct values for the record. TYPE_NOT_FOUND \226\128\147 The queried hostname exists but does not have the requested type of DNS record. Ensure that you have published the correct type of DNS record. HOST_NOT_FOUND \226\128\147 The queried hostname does not exist or was not reachable at the time of the request. Ensure that you have published the required DNS record(s). SERVICE_ERROR \226\128\147 A temporary issue is preventing Amazon SES from determining the verification status of the domain. DNS_SERVER_ERROR \226\128\147 The DNS server encountered an issue and was unable to complete the request. REPLICATION_ACCESS_DENIED \226\128\147 The verification failed because the user does not have the required permissions to replicate the DKIM key from the primary region. Ensure you have the necessary permissions in both primary and replica regions. REPLICATION_PRIMARY_NOT_FOUND \226\128\147 The verification failed because no corresponding identity was found in the specified primary region. Ensure the identity exists in the primary region before attempting replication. REPLICATION_PRIMARY_BYO_DKIM_NOT_SUPPORTED \226\128\147 The verification failed because the identity in the primary region is configured with Bring Your Own DKIM (BYODKIM). DKIM key replication is only supported for identities using Easy DKIM. REPLICATION_REPLICA_AS_PRIMARY_NOT_SUPPORTED \226\128\147 The verification failed because the specified primary identity is a replica of another identity, and multi-level replication is not supported; the primary identity must be a non-replica identity. REPLICATION_PRIMARY_INVALID_REGION \226\128\147 The verification failed due to an invalid primary region specified. Ensure you provide a valid Amazon Web Services region where Amazon SES is available and different from the replica region."];
      sOARecord: SOARecord.t option
        [@ocaml.doc
          "An object that contains information about the start of authority (SOA) record associated with the identity."]}
    let make ?lastCheckedTimestamp =
      fun ?lastSuccessTimestamp ->
        fun ?errorType ->
          fun ?sOARecord ->
            fun () ->
              {
                lastCheckedTimestamp;
                lastSuccessTimestamp;
                errorType;
                sOARecord
              }
    let to_value x =
      structure_to_value
        [("LastCheckedTimestamp",
           (Option.map x.lastCheckedTimestamp ~f:Timestamp.to_value));
        ("LastSuccessTimestamp",
          (Option.map x.lastSuccessTimestamp ~f:Timestamp.to_value));
        ("ErrorType", (Option.map x.errorType ~f:VerificationError.to_value));
        ("SOARecord", (Option.map x.sOARecord ~f:SOARecord.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sOARecord =
        (Option.map ~f:SOARecord.of_xml) (Xml.child xml_arg0 "SOARecord") in
      let errorType =
        (Option.map ~f:VerificationError.of_xml)
          (Xml.child xml_arg0 "ErrorType") in
      let lastSuccessTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastSuccessTimestamp") in
      let lastCheckedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastCheckedTimestamp") in
      make ?sOARecord ?errorType ?lastSuccessTimestamp ?lastCheckedTimestamp
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sOARecord = field_map json__ "SOARecord" SOARecord.of_json in
      let errorType = field_map json__ "ErrorType" VerificationError.of_json in
      let lastSuccessTimestamp =
        field_map json__ "LastSuccessTimestamp" Timestamp.of_json in
      let lastCheckedTimestamp =
        field_map json__ "LastCheckedTimestamp" Timestamp.of_json in
      make ?sOARecord ?errorType ?lastSuccessTimestamp ?lastCheckedTimestamp
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains additional information about the verification status for the identity."]
module MailboxValidation =
  struct
    type nonrec t =
      {
      isValid: EmailAddressInsightsVerdict.t option
        [@ocaml.doc
          "Overall validity assessment with a con\239\172\129dence verdict."];
      evaluations: EmailAddressInsightsMailboxEvaluations.t option
        [@ocaml.doc
          "Specific validation checks performed on the email address."]}
    let make ?isValid =
      fun ?evaluations -> fun () -> { isValid; evaluations }
    let to_value x =
      structure_to_value
        [("IsValid",
           (Option.map x.isValid ~f:EmailAddressInsightsVerdict.to_value));
        ("Evaluations",
          (Option.map x.evaluations
             ~f:EmailAddressInsightsMailboxEvaluations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evaluations =
        (Option.map ~f:EmailAddressInsightsMailboxEvaluations.of_xml)
          (Xml.child xml_arg0 "Evaluations") in
      let isValid =
        (Option.map ~f:EmailAddressInsightsVerdict.of_xml)
          (Xml.child xml_arg0 "IsValid") in
      make ?evaluations ?isValid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evaluations =
        field_map json__ "Evaluations"
          EmailAddressInsightsMailboxEvaluations.of_json in
      let isValid =
        field_map json__ "IsValid" EmailAddressInsightsVerdict.of_json in
      make ?evaluations ?isValid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed validation information about an email address."]
module DailyVolumes =
  struct
    type nonrec t = DailyVolume.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:DailyVolume.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:DailyVolume.of_xml)
    let of_json j =
      list_of_json ~kind:"DailyVolumes" ~of_json:DailyVolume.of_json j
    let to_json v = composed_to_json to_value v
  end
module OverallVolume =
  struct
    type nonrec t =
      {
      volumeStatistics: VolumeStatistics.t option
        [@ocaml.doc
          "An object that contains information about the numbers of messages that arrived in recipients' inboxes and junk mail folders."];
      readRatePercent: Percentage.t option
        [@ocaml.doc
          "The percentage of emails that were sent from the domain that were read by their recipients."];
      domainIspPlacements: DomainIspPlacements.t option
        [@ocaml.doc
          "An object that contains inbox and junk mail placement metrics for individual email providers."]}
    let make ?volumeStatistics =
      fun ?readRatePercent ->
        fun ?domainIspPlacements ->
          fun () ->
            { volumeStatistics; readRatePercent; domainIspPlacements }
    let to_value x =
      structure_to_value
        [("VolumeStatistics",
           (Option.map x.volumeStatistics ~f:VolumeStatistics.to_value));
        ("ReadRatePercent",
          (Option.map x.readRatePercent ~f:Percentage.to_value));
        ("DomainIspPlacements",
          (Option.map x.domainIspPlacements ~f:DomainIspPlacements.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainIspPlacements =
        (Option.map ~f:DomainIspPlacements.of_xml)
          (Xml.child xml_arg0 "DomainIspPlacements") in
      let readRatePercent =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "ReadRatePercent") in
      let volumeStatistics =
        (Option.map ~f:VolumeStatistics.of_xml)
          (Xml.child xml_arg0 "VolumeStatistics") in
      make ?domainIspPlacements ?readRatePercent ?volumeStatistics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainIspPlacements =
        field_map json__ "DomainIspPlacements" DomainIspPlacements.of_json in
      let readRatePercent =
        field_map json__ "ReadRatePercent" Percentage.of_json in
      let volumeStatistics =
        field_map json__ "VolumeStatistics" VolumeStatistics.of_json in
      make ?domainIspPlacements ?readRatePercent ?volumeStatistics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about email that was sent from the selected domain."]
module IspPlacements =
  struct
    type nonrec t = IspPlacement.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:IspPlacement.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:IspPlacement.of_xml)
    let of_json j =
      list_of_json ~kind:"IspPlacements" ~of_json:IspPlacement.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageContent =
  struct
    type nonrec t = string[@@ocaml.doc "The body of an email message."]
    let context_ = "MessageContent"
    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:"MessageContent" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The body of an email message."]
module DeliverabilityDashboardAccountStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PENDING_EXPIRATION 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PENDING_EXPIRATION -> "PENDING_EXPIRATION"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PENDING_EXPIRATION" -> PENDING_EXPIRATION
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration DeliverabilityDashboardAccountStatus" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DeliverabilityDashboardAccountStatus" j)
    let to_json = simple_to_json to_value
  end
module DedicatedIpList =
  struct
    type nonrec t = DedicatedIp.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:DedicatedIp.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:DedicatedIp.of_xml)
    let of_json j =
      list_of_json ~kind:"DedicatedIpList" ~of_json:DedicatedIp.of_json j
    let to_json v = composed_to_json to_value v
  end
module DedicatedIpPool =
  struct
    type nonrec t =
      {
      poolName: PoolName.t option
        [@ocaml.doc "The name of the dedicated IP pool."];
      scalingMode: ScalingMode.t option
        [@ocaml.doc
          "The type of the dedicated IP pool. STANDARD \226\128\147 A dedicated IP pool where you can control which IPs are part of the pool. MANAGED \226\128\147 A dedicated IP pool where the reputation and number of IPs are automatically managed by Amazon SES."]}
    let make ?poolName =
      fun ?scalingMode -> fun () -> { poolName; scalingMode }
    let to_value x =
      structure_to_value
        [("PoolName", (Option.map x.poolName ~f:PoolName.to_value));
        ("ScalingMode", (Option.map x.scalingMode ~f:ScalingMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scalingMode =
        (Option.map ~f:ScalingMode.of_xml) (Xml.child xml_arg0 "ScalingMode") in
      let poolName =
        (Option.map ~f:PoolName.of_xml) (Xml.child xml_arg0 "PoolName") in
      make ?scalingMode ?poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scalingMode = field_map json__ "ScalingMode" ScalingMode.of_json in
      let poolName = field_map json__ "PoolName" PoolName.of_json in
      make ?scalingMode ?poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a dedicated IP pool."]
module ArchivingOptions =
  struct
    type nonrec t =
      {
      archiveArn: ArchiveArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MailManager archive where the Amazon SES API v2 will archive sent emails."]}
    let make ?archiveArn = fun () -> { archiveArn }
    let to_value x =
      structure_to_value
        [("ArchiveArn", (Option.map x.archiveArn ~f:ArchiveArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveArn =
        (Option.map ~f:ArchiveArn.of_xml) (Xml.child xml_arg0 "ArchiveArn") in
      make ?archiveArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveArn = field_map json__ "ArchiveArn" ArchiveArn.of_json in
      make ?archiveArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used to associate a configuration set with a MailManager archive."]
module DeliveryOptions =
  struct
    type nonrec t =
      {
      tlsPolicy: TlsPolicy.t option
        [@ocaml.doc
          "Specifies whether messages that use the configuration set are required to use Transport Layer Security (TLS). If the value is Require, messages are only delivered if a TLS connection can be established. If the value is Optional, messages can be delivered in plain text if a TLS connection can't be established."];
      sendingPoolName: PoolName.t option
        [@ocaml.doc
          "The name of the dedicated IP pool to associate with the configuration set."];
      maxDeliverySeconds: MaxDeliverySeconds.t option
        [@ocaml.doc
          "The maximum amount of time, in seconds, that Amazon SES API v2 will attempt delivery of email. If specified, the value must greater than or equal to 300 seconds (5 minutes) and less than or equal to 50400 seconds (840 minutes)."]}
    let make ?tlsPolicy =
      fun ?sendingPoolName ->
        fun ?maxDeliverySeconds ->
          fun () -> { tlsPolicy; sendingPoolName; maxDeliverySeconds }
    let to_value x =
      structure_to_value
        [("TlsPolicy", (Option.map x.tlsPolicy ~f:TlsPolicy.to_value));
        ("SendingPoolName",
          (Option.map x.sendingPoolName ~f:PoolName.to_value));
        ("MaxDeliverySeconds",
          (Option.map x.maxDeliverySeconds ~f:MaxDeliverySeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxDeliverySeconds =
        (Option.map ~f:MaxDeliverySeconds.of_xml)
          (Xml.child xml_arg0 "MaxDeliverySeconds") in
      let sendingPoolName =
        (Option.map ~f:PoolName.of_xml)
          (Xml.child xml_arg0 "SendingPoolName") in
      let tlsPolicy =
        (Option.map ~f:TlsPolicy.of_xml) (Xml.child xml_arg0 "TlsPolicy") in
      make ?maxDeliverySeconds ?sendingPoolName ?tlsPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxDeliverySeconds =
        field_map json__ "MaxDeliverySeconds" MaxDeliverySeconds.of_json in
      let sendingPoolName =
        field_map json__ "SendingPoolName" PoolName.of_json in
      let tlsPolicy = field_map json__ "TlsPolicy" TlsPolicy.of_json in
      make ?maxDeliverySeconds ?sendingPoolName ?tlsPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used to associate a configuration set with a dedicated IP pool."]
module ReputationOptions =
  struct
    type nonrec t =
      {
      reputationMetricsEnabled: Enabled.t option
        [@ocaml.doc
          "If true, tracking of reputation metrics is enabled for the configuration set. If false, tracking of reputation metrics is disabled for the configuration set."];
      lastFreshStart: LastFreshStart.t option
        [@ocaml.doc
          "The date and time (in Unix time) when the reputation metrics were last given a fresh start. When your account is given a fresh start, your reputation metrics are calculated starting from the date of the fresh start."]}
    let make ?reputationMetricsEnabled =
      fun ?lastFreshStart ->
        fun () -> { reputationMetricsEnabled; lastFreshStart }
    let to_value x =
      structure_to_value
        [("ReputationMetricsEnabled",
           (Option.map x.reputationMetricsEnabled ~f:Enabled.to_value));
        ("LastFreshStart",
          (Option.map x.lastFreshStart ~f:LastFreshStart.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastFreshStart =
        (Option.map ~f:LastFreshStart.of_xml)
          (Xml.child xml_arg0 "LastFreshStart") in
      let reputationMetricsEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "ReputationMetricsEnabled") in
      make ?lastFreshStart ?reputationMetricsEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastFreshStart =
        field_map json__ "LastFreshStart" LastFreshStart.of_json in
      let reputationMetricsEnabled =
        field_map json__ "ReputationMetricsEnabled" Enabled.of_json in
      make ?lastFreshStart ?reputationMetricsEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enable or disable collection of reputation metrics for emails that you send using this configuration set in the current Amazon Web Services Region."]
module SendingOptions =
  struct
    type nonrec t =
      {
      sendingEnabled: Enabled.t option
        [@ocaml.doc
          "If true, email sending is enabled for the configuration set. If false, email sending is disabled for the configuration set."]}
    let make ?sendingEnabled = fun () -> { sendingEnabled }
    let to_value x =
      structure_to_value
        [("SendingEnabled",
           (Option.map x.sendingEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SendingEnabled") in
      make ?sendingEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendingEnabled = field_map json__ "SendingEnabled" Enabled.of_json in
      make ?sendingEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used to enable or disable email sending for messages that use this configuration set in the current Amazon Web Services Region."]
module SuppressionOptions =
  struct
    type nonrec t =
      {
      suppressedReasons: SuppressionListReasons.t option
        [@ocaml.doc
          "A list that contains the reasons that email addresses are automatically added to the suppression list for your account. This list can contain any or all of the following: COMPLAINT \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a complaint. BOUNCE \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a hard bounce."];
      validationOptions: SuppressionValidationOptions.t option }
    let make ?suppressedReasons =
      fun ?validationOptions ->
        fun () -> { suppressedReasons; validationOptions }
    let to_value x =
      structure_to_value
        [("SuppressedReasons",
           (Option.map x.suppressedReasons ~f:SuppressionListReasons.to_value));
        ("ValidationOptions",
          (Option.map x.validationOptions
             ~f:SuppressionValidationOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationOptions =
        (Option.map ~f:SuppressionValidationOptions.of_xml)
          (Xml.child xml_arg0 "ValidationOptions") in
      let suppressedReasons =
        (Option.map ~f:SuppressionListReasons.of_xml)
          (Xml.child xml_arg0 "SuppressedReasons") in
      make ?validationOptions ?suppressedReasons ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationOptions =
        field_map json__ "ValidationOptions"
          SuppressionValidationOptions.of_json in
      let suppressedReasons =
        field_map json__ "SuppressedReasons" SuppressionListReasons.of_json in
      make ?validationOptions ?suppressedReasons ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the suppression list preferences for your account."]
module TrackingOptions =
  struct
    type nonrec t =
      {
      customRedirectDomain: CustomRedirectDomain.t
        [@ocaml.doc "The domain to use for tracking open and click events."];
      httpsPolicy: HttpsPolicy.t option
        [@ocaml.doc
          "The https policy to use for tracking open and click events."]}
    let context_ = "TrackingOptions"
    let make ?httpsPolicy =
      fun ~customRedirectDomain ->
        fun () -> { httpsPolicy; customRedirectDomain }
    let to_value x =
      structure_to_value
        [("CustomRedirectDomain",
           (Some (CustomRedirectDomain.to_value x.customRedirectDomain)));
        ("HttpsPolicy", (Option.map x.httpsPolicy ~f:HttpsPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let httpsPolicy =
        (Option.map ~f:HttpsPolicy.of_xml) (Xml.child xml_arg0 "HttpsPolicy") in
      let customRedirectDomain =
        CustomRedirectDomain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomRedirectDomain") in
      make ?httpsPolicy ~customRedirectDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let httpsPolicy = field_map json__ "HttpsPolicy" HttpsPolicy.of_json in
      let customRedirectDomain =
        field_map_exn json__ "CustomRedirectDomain"
          CustomRedirectDomain.of_json in
      make ?httpsPolicy ~customRedirectDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines the tracking options for a configuration set. When you use the Amazon SES API v2 to send an email, it contains an invisible image that's used to track when recipients open your email. If your email contains links, those links are changed slightly in order to track when recipients click them. These images and links include references to a domain operated by Amazon Web Services. You can optionally configure the Amazon SES to use a domain that you operate for these images and links."]
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 BlacklistReport =
  struct
    type nonrec t = (BlacklistItemName.t * BlacklistEntries.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 BlacklistItemName BlacklistEntries"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (BlacklistItemName.to_value x) |>
                    (fun x ->
                       (BlacklistEntries.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:BlacklistItemName.of_string
        ~of_json:BlacklistEntries.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlacklistItemNames =
  struct
    type nonrec t = BlacklistItemName.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:BlacklistItemName.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:BlacklistItemName.of_xml)
    let of_json j =
      list_of_json ~kind:"BlacklistItemNames"
        ~of_json:BlacklistItemName.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountDetails =
  struct
    type nonrec t =
      {
      mailType: MailType.t option
        [@ocaml.doc
          "The type of email your account is sending. The mail type can be one of the following: MARKETING \226\128\147 Most of your sending traffic is to keep your customers informed of your latest offering. TRANSACTIONAL \226\128\147 Most of your sending traffic is to communicate during a transaction with a customer."];
      websiteURL: WebsiteURL.t option
        [@ocaml.doc
          "The URL of your website. This information helps us better understand the type of content that you plan to send."];
      contactLanguage: ContactLanguage.t option
        [@ocaml.doc
          "The language you would prefer for the case. The contact language can be one of ENGLISH or JAPANESE."];
      useCaseDescription: UseCaseDescription.t option
        [@ocaml.doc
          "A description of the types of email that you plan to send."];
      additionalContactEmailAddresses:
        AdditionalContactEmailAddresses.t option
        [@ocaml.doc
          "Additional email addresses where updates are sent about your account review process."];
      reviewDetails: ReviewDetails.t option
        [@ocaml.doc
          "Information about the review of the latest details you submitted."]}
    let make ?mailType =
      fun ?websiteURL ->
        fun ?contactLanguage ->
          fun ?useCaseDescription ->
            fun ?additionalContactEmailAddresses ->
              fun ?reviewDetails ->
                fun () ->
                  {
                    mailType;
                    websiteURL;
                    contactLanguage;
                    useCaseDescription;
                    additionalContactEmailAddresses;
                    reviewDetails
                  }
    let to_value x =
      structure_to_value
        [("MailType", (Option.map x.mailType ~f:MailType.to_value));
        ("WebsiteURL", (Option.map x.websiteURL ~f:WebsiteURL.to_value));
        ("ContactLanguage",
          (Option.map x.contactLanguage ~f:ContactLanguage.to_value));
        ("UseCaseDescription",
          (Option.map x.useCaseDescription ~f:UseCaseDescription.to_value));
        ("AdditionalContactEmailAddresses",
          (Option.map x.additionalContactEmailAddresses
             ~f:AdditionalContactEmailAddresses.to_value));
        ("ReviewDetails",
          (Option.map x.reviewDetails ~f:ReviewDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reviewDetails =
        (Option.map ~f:ReviewDetails.of_xml)
          (Xml.child xml_arg0 "ReviewDetails") in
      let additionalContactEmailAddresses =
        (Option.map ~f:AdditionalContactEmailAddresses.of_xml)
          (Xml.child xml_arg0 "AdditionalContactEmailAddresses") in
      let useCaseDescription =
        (Option.map ~f:UseCaseDescription.of_xml)
          (Xml.child xml_arg0 "UseCaseDescription") in
      let contactLanguage =
        (Option.map ~f:ContactLanguage.of_xml)
          (Xml.child xml_arg0 "ContactLanguage") in
      let websiteURL =
        (Option.map ~f:WebsiteURL.of_xml) (Xml.child xml_arg0 "WebsiteURL") in
      let mailType =
        (Option.map ~f:MailType.of_xml) (Xml.child xml_arg0 "MailType") in
      make ?reviewDetails ?additionalContactEmailAddresses
        ?useCaseDescription ?contactLanguage ?websiteURL ?mailType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reviewDetails =
        field_map json__ "ReviewDetails" ReviewDetails.of_json in
      let additionalContactEmailAddresses =
        field_map json__ "AdditionalContactEmailAddresses"
          AdditionalContactEmailAddresses.of_json in
      let useCaseDescription =
        field_map json__ "UseCaseDescription" UseCaseDescription.of_json in
      let contactLanguage =
        field_map json__ "ContactLanguage" ContactLanguage.of_json in
      let websiteURL = field_map json__ "WebsiteURL" WebsiteURL.of_json in
      let mailType = field_map json__ "MailType" MailType.of_json in
      make ?reviewDetails ?additionalContactEmailAddresses
        ?useCaseDescription ?contactLanguage ?websiteURL ?mailType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about your account details."]
module GeneralEnforcementStatus =
  struct
    type nonrec t = string
    let context_ = "GeneralEnforcementStatus"
    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:"GeneralEnforcementStatus" j
    let to_json = simple_to_json to_value
  end
module SendQuota =
  struct
    type nonrec t =
      {
      max24HourSend: Max24HourSend.t option
        [@ocaml.doc
          "The maximum number of emails that you can send in the current Amazon Web Services Region over a 24-hour period. A value of -1 signifies an unlimited quota. (This value is also referred to as your sending quota.)"];
      maxSendRate: MaxSendRate.t option
        [@ocaml.doc
          "The maximum number of emails that you can send per second in the current Amazon Web Services Region. This value is also called your maximum sending rate or your maximum TPS (transactions per second) rate."];
      sentLast24Hours: SentLast24Hours.t option
        [@ocaml.doc
          "The number of emails sent from your Amazon SES account in the current Amazon Web Services Region over the past 24 hours."]}
    let make ?max24HourSend =
      fun ?maxSendRate ->
        fun ?sentLast24Hours ->
          fun () -> { max24HourSend; maxSendRate; sentLast24Hours }
    let to_value x =
      structure_to_value
        [("Max24HourSend",
           (Option.map x.max24HourSend ~f:Max24HourSend.to_value));
        ("MaxSendRate", (Option.map x.maxSendRate ~f:MaxSendRate.to_value));
        ("SentLast24Hours",
          (Option.map x.sentLast24Hours ~f:SentLast24Hours.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sentLast24Hours =
        (Option.map ~f:SentLast24Hours.of_xml)
          (Xml.child xml_arg0 "SentLast24Hours") in
      let maxSendRate =
        (Option.map ~f:MaxSendRate.of_xml) (Xml.child xml_arg0 "MaxSendRate") in
      let max24HourSend =
        (Option.map ~f:Max24HourSend.of_xml)
          (Xml.child xml_arg0 "Max24HourSend") in
      make ?sentLast24Hours ?maxSendRate ?max24HourSend ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sentLast24Hours =
        field_map json__ "SentLast24Hours" SentLast24Hours.of_json in
      let maxSendRate = field_map json__ "MaxSendRate" MaxSendRate.of_json in
      let max24HourSend =
        field_map json__ "Max24HourSend" Max24HourSend.of_json in
      make ?sentLast24Hours ?maxSendRate ?max24HourSend ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the per-day and per-second sending limits for your Amazon SES account in the current Amazon Web Services Region."]
module SuppressionAttributes =
  struct
    type nonrec t =
      {
      suppressedReasons: SuppressionListReasons.t option
        [@ocaml.doc
          "A list that contains the reasons that email addresses will be automatically added to the suppression list for your account. This list can contain any or all of the following: COMPLAINT \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a complaint. BOUNCE \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a hard bounce."];
      validationAttributes: SuppressionValidationAttributes.t option }
    let make ?suppressedReasons =
      fun ?validationAttributes ->
        fun () -> { suppressedReasons; validationAttributes }
    let to_value x =
      structure_to_value
        [("SuppressedReasons",
           (Option.map x.suppressedReasons ~f:SuppressionListReasons.to_value));
        ("ValidationAttributes",
          (Option.map x.validationAttributes
             ~f:SuppressionValidationAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationAttributes =
        (Option.map ~f:SuppressionValidationAttributes.of_xml)
          (Xml.child xml_arg0 "ValidationAttributes") in
      let suppressedReasons =
        (Option.map ~f:SuppressionListReasons.of_xml)
          (Xml.child xml_arg0 "SuppressedReasons") in
      make ?validationAttributes ?suppressedReasons ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationAttributes =
        field_map json__ "ValidationAttributes"
          SuppressionValidationAttributes.of_json in
      let suppressedReasons =
        field_map json__ "SuppressedReasons" SuppressionListReasons.of_json in
      make ?validationAttributes ?suppressedReasons ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about the email address suppression preferences for your account in the current Amazon Web Services Region."]
module Details =
  struct
    type nonrec t =
      {
      routesDetails: RoutesDetails.t
        [@ocaml.doc
          "A list of route configuration details. Must contain exactly one route configuration."]}
    let context_ = "Details"
    let make ~routesDetails = fun () -> { routesDetails }
    let to_value x =
      structure_to_value
        [("RoutesDetails", (Some (RoutesDetails.to_value x.routesDetails)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routesDetails =
        RoutesDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RoutesDetails") in
      make ~routesDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routesDetails =
        field_map_exn json__ "RoutesDetails" RoutesDetails.of_json in
      make ~routesDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains configuration details of multi-region endpoint (global-endpoint)."]
module InternalServiceErrorException =
  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
       "The request couldn't be processed because an error occurred with the Amazon SES API v2."]
module MetricDataErrorList =
  struct
    type nonrec t = MetricDataError.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:MetricDataError.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:MetricDataError.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricDataErrorList"
        ~of_json:MetricDataError.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricDataResultList =
  struct
    type nonrec t = MetricDataResult.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:MetricDataResult.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:MetricDataResult.of_xml)
    let of_json j =
      list_of_json ~kind:"MetricDataResultList"
        ~of_json:MetricDataResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetMetricDataQueries =
  struct
    type nonrec t = BatchGetMetricDataQuery.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BatchGetMetricDataQuery.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:BatchGetMetricDataQuery.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetMetricDataQueries"
        ~of_json:BatchGetMetricDataQuery.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateReputationEntityPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module UpdateReputationEntityPolicyRequest =
  struct
    type nonrec t =
      {
      reputationEntityType: ReputationEntityType.t
        [@ocaml.doc
          "The type of reputation entity. Currently, only RESOURCE type entities are supported."];
      reputationEntityReference: ReputationEntityReference.t
        [@ocaml.doc
          "The unique identifier for the reputation entity. For resource-type entities, this is the Amazon Resource Name (ARN) of the resource."];
      reputationEntityPolicy: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the reputation management policy to apply to this entity. This is an Amazon Web Services Amazon SES-managed policy."]}
    let context_ = "UpdateReputationEntityPolicyRequest"
    let make ~reputationEntityType =
      fun ~reputationEntityReference ->
        fun ~reputationEntityPolicy ->
          fun () ->
            {
              reputationEntityType;
              reputationEntityReference;
              reputationEntityPolicy
            }
    let to_value x =
      structure_to_value
        [("ReputationEntityType",
           (Some (ReputationEntityType.to_value x.reputationEntityType)));
        ("ReputationEntityReference",
          (Some
             (ReputationEntityReference.to_value x.reputationEntityReference)));
        ("ReputationEntityPolicy",
          (Some (AmazonResourceName.to_value x.reputationEntityPolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reputationEntityPolicy =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReputationEntityPolicy") in
      let reputationEntityReference =
        ReputationEntityReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ReputationEntityReference") in
      let reputationEntityType =
        ReputationEntityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReputationEntityType") in
      make ~reputationEntityPolicy ~reputationEntityReference
        ~reputationEntityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reputationEntityPolicy =
        field_map_exn json__ "ReputationEntityPolicy"
          AmazonResourceName.of_json in
      let reputationEntityReference =
        field_map_exn json__ "ReputationEntityReference"
          ReputationEntityReference.of_json in
      let reputationEntityType =
        field_map_exn json__ "ReputationEntityType"
          ReputationEntityType.of_json in
      make ~reputationEntityPolicy ~reputationEntityReference
        ~reputationEntityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to update the reputation management policy for a reputation entity."]
module UpdateReputationEntityCustomerManagedStatusResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module UpdateReputationEntityCustomerManagedStatusRequest =
  struct
    type nonrec t =
      {
      reputationEntityType: ReputationEntityType.t
        [@ocaml.doc
          "The type of reputation entity. Currently, only RESOURCE type entities are supported."];
      reputationEntityReference: ReputationEntityReference.t
        [@ocaml.doc
          "The unique identifier for the reputation entity. For resource-type entities, this is the Amazon Resource Name (ARN) of the resource."];
      sendingStatus: SendingStatus.t
        [@ocaml.doc
          "The new customer-managed sending status for the reputation entity. This can be one of the following: ENABLED \226\128\147 Allow sending for this entity. DISABLED \226\128\147 Prevent sending for this entity. REINSTATED \226\128\147 Allow sending even if there are active reputation findings."]}
    let context_ = "UpdateReputationEntityCustomerManagedStatusRequest"
    let make ~reputationEntityType =
      fun ~reputationEntityReference ->
        fun ~sendingStatus ->
          fun () ->
            { reputationEntityType; reputationEntityReference; sendingStatus
            }
    let to_value x =
      structure_to_value
        [("ReputationEntityType",
           (Some (ReputationEntityType.to_value x.reputationEntityType)));
        ("ReputationEntityReference",
          (Some
             (ReputationEntityReference.to_value x.reputationEntityReference)));
        ("SendingStatus", (Some (SendingStatus.to_value x.sendingStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendingStatus =
        SendingStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SendingStatus") in
      let reputationEntityReference =
        ReputationEntityReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ReputationEntityReference") in
      let reputationEntityType =
        ReputationEntityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReputationEntityType") in
      make ~sendingStatus ~reputationEntityReference ~reputationEntityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendingStatus =
        field_map_exn json__ "SendingStatus" SendingStatus.of_json in
      let reputationEntityReference =
        field_map_exn json__ "ReputationEntityReference"
          ReputationEntityReference.of_json in
      let reputationEntityType =
        field_map_exn json__ "ReputationEntityType"
          ReputationEntityType.of_json in
      make ~sendingStatus ~reputationEntityReference ~reputationEntityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to update the customer-managed sending status for a reputation entity."]
module UpdateEmailTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module UpdateEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc "The name of the template."];
      templateContent: EmailTemplateContent.t
        [@ocaml.doc
          "The content of the email template, composed of a subject line, an HTML part, and a text-only part."]}
    let context_ = "UpdateEmailTemplateRequest"
    let make ~templateName =
      fun ~templateContent -> fun () -> { templateName; templateContent }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)));
        ("TemplateContent",
          (Some (EmailTemplateContent.to_value x.templateContent)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateContent =
        EmailTemplateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateContent") in
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~templateContent ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateContent =
        field_map_exn json__ "TemplateContent" EmailTemplateContent.of_json in
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~templateContent ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to update an email template. For more information, see the Amazon SES Developer Guide."]
module UpdateEmailIdentityPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module UpdateEmailIdentityPolicyRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."];
      policyName: PolicyName.t
        [@ocaml.doc
          "The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores."];
      policy: Policy.t
        [@ocaml.doc
          "The text of the policy in JSON format. The policy cannot exceed 4 KB. For information about the syntax of sending authorization policies, see the Amazon SES Developer Guide."]}
    let context_ = "UpdateEmailIdentityPolicyRequest"
    let make ~emailIdentity =
      fun ~policyName ->
        fun ~policy -> fun () -> { emailIdentity; policyName; policy }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("PolicyName", (Some (PolicyName.to_value x.policyName)));
        ("Policy", (Some (Policy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let policyName =
        PolicyName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyName") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ~policy ~policyName ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let policyName = field_map_exn json__ "PolicyName" PolicyName.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ~policy ~policyName ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to update a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the Amazon SES Developer Guide."]
module UpdateCustomVerificationEmailTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module UpdateCustomVerificationEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc
          "The name of the custom verification email template that you want to update."];
      fromEmailAddress: EmailAddress.t
        [@ocaml.doc
          "The email address that the custom verification email is sent from."];
      templateSubject: EmailTemplateSubject.t
        [@ocaml.doc "The subject line of the custom verification email."];
      templateContent: TemplateContent.t
        [@ocaml.doc
          "The content of the custom verification email. The total size of the email must be less than 10 MB. The message body may contain HTML, with some limitations. For more information, see Custom verification email frequently asked questions in the Amazon SES Developer Guide."];
      successRedirectionURL: SuccessRedirectionURL.t
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is successfully verified."];
      failureRedirectionURL: FailureRedirectionURL.t
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is not successfully verified."]}
    let context_ = "UpdateCustomVerificationEmailTemplateRequest"
    let make ~templateName =
      fun ~fromEmailAddress ->
        fun ~templateSubject ->
          fun ~templateContent ->
            fun ~successRedirectionURL ->
              fun ~failureRedirectionURL ->
                fun () ->
                  {
                    templateName;
                    fromEmailAddress;
                    templateSubject;
                    templateContent;
                    successRedirectionURL;
                    failureRedirectionURL
                  }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)));
        ("FromEmailAddress",
          (Some (EmailAddress.to_value x.fromEmailAddress)));
        ("TemplateSubject",
          (Some (EmailTemplateSubject.to_value x.templateSubject)));
        ("TemplateContent",
          (Some (TemplateContent.to_value x.templateContent)));
        ("SuccessRedirectionURL",
          (Some (SuccessRedirectionURL.to_value x.successRedirectionURL)));
        ("FailureRedirectionURL",
          (Some (FailureRedirectionURL.to_value x.failureRedirectionURL)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureRedirectionURL =
        FailureRedirectionURL.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FailureRedirectionURL") in
      let successRedirectionURL =
        SuccessRedirectionURL.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SuccessRedirectionURL") in
      let templateContent =
        TemplateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateContent") in
      let templateSubject =
        EmailTemplateSubject.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateSubject") in
      let fromEmailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FromEmailAddress") in
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~failureRedirectionURL ~successRedirectionURL ~templateContent
        ~templateSubject ~fromEmailAddress ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureRedirectionURL =
        field_map_exn json__ "FailureRedirectionURL"
          FailureRedirectionURL.of_json in
      let successRedirectionURL =
        field_map_exn json__ "SuccessRedirectionURL"
          SuccessRedirectionURL.of_json in
      let templateContent =
        field_map_exn json__ "TemplateContent" TemplateContent.of_json in
      let templateSubject =
        field_map_exn json__ "TemplateSubject" EmailTemplateSubject.of_json in
      let fromEmailAddress =
        field_map_exn json__ "FromEmailAddress" EmailAddress.of_json in
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~failureRedirectionURL ~successRedirectionURL ~templateContent
        ~templateSubject ~fromEmailAddress ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to update an existing custom verification email template."]
module UpdateContactResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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
       "Updates a contact's preferences for a list. You must specify all existing topic preferences in the TopicPreferences object, not just the ones that need updating; otherwise, all your existing preferences will be removed."]
module UpdateContactRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."];
      emailAddress: EmailAddress.t
        [@ocaml.doc "The contact's email address."];
      topicPreferences: TopicPreferenceList.t option
        [@ocaml.doc
          "The contact's preference for being opted-in to or opted-out of a topic."];
      unsubscribeAll: UnsubscribeAll.t option
        [@ocaml.doc
          "A boolean value status noting if the contact is unsubscribed from all contact list topics."];
      attributesData: AttributesData.t option
        [@ocaml.doc "The attribute data attached to a contact."]}
    let context_ = "UpdateContactRequest"
    let make ?topicPreferences =
      fun ?unsubscribeAll ->
        fun ?attributesData ->
          fun ~contactListName ->
            fun ~emailAddress ->
              fun () ->
                {
                  topicPreferences;
                  unsubscribeAll;
                  attributesData;
                  contactListName;
                  emailAddress
                }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)));
        ("TopicPreferences",
          (Option.map x.topicPreferences ~f:TopicPreferenceList.to_value));
        ("UnsubscribeAll",
          (Option.map x.unsubscribeAll ~f:UnsubscribeAll.to_value));
        ("AttributesData",
          (Option.map x.attributesData ~f:AttributesData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributesData =
        (Option.map ~f:AttributesData.of_xml)
          (Xml.child xml_arg0 "AttributesData") in
      let unsubscribeAll =
        (Option.map ~f:UnsubscribeAll.of_xml)
          (Xml.child xml_arg0 "UnsubscribeAll") in
      let topicPreferences =
        (Option.map ~f:TopicPreferenceList.of_xml)
          (Xml.child xml_arg0 "TopicPreferences") in
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ?attributesData ?unsubscribeAll ?topicPreferences ~emailAddress
        ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributesData =
        field_map json__ "AttributesData" AttributesData.of_json in
      let unsubscribeAll =
        field_map json__ "UnsubscribeAll" UnsubscribeAll.of_json in
      let topicPreferences =
        field_map json__ "TopicPreferences" TopicPreferenceList.of_json in
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ?attributesData ?unsubscribeAll ?topicPreferences ~emailAddress
        ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a contact's preferences for a list. You must specify all existing topic preferences in the TopicPreferences object, not just the ones that need updating; otherwise, all your existing preferences will be removed."]
module UpdateContactListResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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
       "Updates contact list metadata. This operation does a complete replacement."]
module UpdateContactListRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."];
      topics: Topics.t option
        [@ocaml.doc
          "An interest group, theme, or label within a list. A contact list can have multiple topics."];
      description: Description.t option
        [@ocaml.doc "A description of what the contact list is about."]}
    let context_ = "UpdateContactListRequest"
    let make ?topics =
      fun ?description ->
        fun ~contactListName ->
          fun () -> { topics; description; contactListName }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("Topics", (Option.map x.topics ~f:Topics.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let topics =
        (Option.map ~f:Topics.of_xml) (Xml.child xml_arg0 "Topics") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ?description ?topics ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" Description.of_json in
      let topics = field_map json__ "Topics" Topics.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ?description ?topics ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates contact list metadata. This operation does a complete replacement."]
module UpdateConfigurationSetEventDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module UpdateConfigurationSetEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set that contains the event destination to modify."];
      eventDestinationName: EventDestinationName.t
        [@ocaml.doc "The name of the event destination."];
      eventDestination: EventDestinationDefinition.t
        [@ocaml.doc "An object that defines the event destination."]}
    let context_ = "UpdateConfigurationSetEventDestinationRequest"
    let make ~configurationSetName =
      fun ~eventDestinationName ->
        fun ~eventDestination ->
          fun () ->
            { configurationSetName; eventDestinationName; eventDestination }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("EventDestinationName",
          (Some (EventDestinationName.to_value x.eventDestinationName)));
        ("EventDestination",
          (Some (EventDestinationDefinition.to_value x.eventDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestination =
        EventDestinationDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestination") in
      let eventDestinationName =
        EventDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~eventDestination ~eventDestinationName ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestination =
        field_map_exn json__ "EventDestination"
          EventDestinationDefinition.of_json in
      let eventDestinationName =
        field_map_exn json__ "EventDestinationName"
          EventDestinationName.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ~eventDestination ~eventDestinationName ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to change the settings for an event destination for a configuration set."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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
       "Remove one or more tags (keys and values) from a specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to remove one or more tags from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The tags (tag keys) that you want to remove from the resource. When you specify a tag key, the action removes both that key and its associated tag value. To remove more than one tag from the resource, append the TagKeys parameter and argument for each additional tag to remove, separated by an ampersand. For example: /v2/email/tags?ResourceArn=ResourceArn&TagKeys=Key1&TagKeys=Key2"]}
    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 one or more tags (keys and values) from a specified resource."]
module TestRenderEmailTemplateResponse =
  struct
    type nonrec t =
      {
      renderedTemplate: RenderedEmailTemplate.t option
        [@ocaml.doc
          "The complete MIME message rendered by applying the data in the TemplateData parameter to the template specified in the TemplateName parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?renderedTemplate = fun () -> { renderedTemplate }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("RenderedTemplate",
           (Option.map x.renderedTemplate ~f:RenderedEmailTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let renderedTemplate =
        (Option.map ~f:RenderedEmailTemplate.of_xml)
          (Xml.child xml_arg0 "RenderedTemplate") in
      make ?renderedTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let renderedTemplate =
        field_map json__ "RenderedTemplate" RenderedEmailTemplate.of_json in
      make ?renderedTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following element is returned by the service."]
module TestRenderEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc "The name of the template."];
      templateData: EmailTemplateData.t
        [@ocaml.doc
          "A list of replacement values to apply to the template. This parameter is a JSON object, typically consisting of key-value pairs in which the keys correspond to replacement tags in the email template."]}
    let context_ = "TestRenderEmailTemplateRequest"
    let make ~templateName =
      fun ~templateData -> fun () -> { templateName; templateData }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)));
        ("TemplateData", (Some (EmailTemplateData.to_value x.templateData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateData =
        EmailTemplateData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateData") in
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~templateData ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateData =
        field_map_exn json__ "TemplateData" EmailTemplateData.of_json in
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~templateData ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       ">Represents a request to create a preview of the MIME content of an email when provided with a template and a set of replacement data."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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
       "Add one or more tags (keys and values) to a specified resource. A tag\194\160is a label that you optionally define and associate with a resource. Tags can help you categorize and manage resources in different ways, such as by purpose, owner, environment, or other criteria. A resource can have as many as 50 tags. Each tag consists of a required\194\160tag key\194\160and an associated\194\160tag value, both of which you define. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to add one or more tags to."];
      tags: TagList.t
        [@ocaml.doc
          "A list of the tags that you want to add to the resource. A tag consists of a required tag key (Key) and an associated tag value (Value). The maximum length of a tag key is 128 characters. The maximum length of a tag value is 256 characters."]}
    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 one or more tags (keys and values) to a specified resource. A tag\194\160is a label that you optionally define and associate with a resource. Tags can help you categorize and manage resources in different ways, such as by purpose, owner, environment, or other criteria. A resource can have as many as 50 tags. Each tag consists of a required\194\160tag key\194\160and an associated\194\160tag value, both of which you define. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module SendEmailResponse =
  struct
    type nonrec t =
      {
      messageId: OutboundMessageId.t option
        [@ocaml.doc
          "A unique identifier for the message that is generated when the message is accepted. It's possible for Amazon SES to accept a message without sending it. For example, this can happen when the message that you're trying to send has an attachment that contains a virus, or when you send a templated email that contains invalid personalization content."]}
    type nonrec error =
      [ `AccountSuspendedException of AccountSuspendedException.t 
      | `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `MailFromDomainNotVerifiedException of
          MailFromDomainNotVerifiedException.t 
      | `MessageRejected of MessageRejected.t 
      | `NotFoundException of NotFoundException.t 
      | `SendingPausedException of SendingPausedException.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
      | "AccountSuspendedException" ->
          `AccountSuspendedException (AccountSuspendedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_json json)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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
      | "AccountSuspendedException" ->
          `AccountSuspendedException (AccountSuspendedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_xml xml)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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
      | `AccountSuspendedException e ->
          `Assoc
            [("error", (`String "AccountSuspendedException"));
            ("details", (AccountSuspendedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `MailFromDomainNotVerifiedException e ->
          `Assoc
            [("error", (`String "MailFromDomainNotVerifiedException"));
            ("details", (MailFromDomainNotVerifiedException.to_json e))]
      | `MessageRejected e ->
          `Assoc
            [("error", (`String "MessageRejected"));
            ("details", (MessageRejected.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `SendingPausedException e ->
          `Assoc
            [("error", (`String "SendingPausedException"));
            ("details", (SendingPausedException.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:OutboundMessageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:OutboundMessageId.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" OutboundMessageId.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A unique message ID that you receive when an email is accepted for sending."]
module SendEmailRequest =
  struct
    type nonrec t =
      {
      fromEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address to use as the \"From\" address for the email. The address that you specify has to be verified."];
      fromEmailAddressIdentityArn: AmazonResourceName.t option
        [@ocaml.doc
          "This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the FromEmailAddress parameter. For example, if the owner of example.com (which has ARN arn:aws:ses:us-east-1:123456789012:identity/example.com) attaches a policy to it that authorizes you to use sender\\@example.com, then you would specify the FromEmailAddressIdentityArn to be arn:aws:ses:us-east-1:123456789012:identity/example.com, and the FromEmailAddress to be sender\\@example.com. For more information about sending authorization, see the Amazon SES Developer Guide. For Raw emails, the FromEmailAddressIdentityArn value overrides the X-SES-SOURCE-ARN and X-SES-FROM-ARN headers specified in raw email message content."];
      destination: Destination.t option
        [@ocaml.doc
          "An object that contains the recipients of the email message."];
      replyToAddresses: EmailAddressList.t option
        [@ocaml.doc
          "The \"Reply-to\" email addresses for the message. When the recipient replies to the message, each Reply-to address receives the reply."];
      feedbackForwardingEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The address that you want bounce and complaint notifications to be sent to."];
      feedbackForwardingEmailAddressIdentityArn: AmazonResourceName.t option
        [@ocaml.doc
          "This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the FeedbackForwardingEmailAddress parameter. For example, if the owner of example.com (which has ARN arn:aws:ses:us-east-1:123456789012:identity/example.com) attaches a policy to it that authorizes you to use feedback\\@example.com, then you would specify the FeedbackForwardingEmailAddressIdentityArn to be arn:aws:ses:us-east-1:123456789012:identity/example.com, and the FeedbackForwardingEmailAddress to be feedback\\@example.com. For more information about sending authorization, see the Amazon SES Developer Guide."];
      content: EmailContent.t
        [@ocaml.doc
          "An object that contains the body of the message. You can send either a Simple message, Raw message, or a Templated message."];
      emailTags: MessageTagList.t option
        [@ocaml.doc
          "A list of tags, in the form of name/value pairs, to apply to an email that you send using the SendEmail operation. Tags correspond to characteristics of the email that you define, so that you can publish email sending events."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "The name of the configuration set to use when sending the email."];
      endpointId: EndpointId.t option
        [@ocaml.doc "The ID of the multi-region endpoint (global-endpoint)."];
      tenantName: TenantName.t option
        [@ocaml.doc
          "The name of the tenant through which this email will be sent. The email sending operation will only succeed if all referenced resources (identities, configuration sets, and templates) are associated with this tenant."];
      listManagementOptions: ListManagementOptions.t option
        [@ocaml.doc
          "An object used to specify a list or topic to which an email belongs, which will be used when a contact chooses to unsubscribe."]}
    let context_ = "SendEmailRequest"
    let make ?fromEmailAddress =
      fun ?fromEmailAddressIdentityArn ->
        fun ?destination ->
          fun ?replyToAddresses ->
            fun ?feedbackForwardingEmailAddress ->
              fun ?feedbackForwardingEmailAddressIdentityArn ->
                fun ?emailTags ->
                  fun ?configurationSetName ->
                    fun ?endpointId ->
                      fun ?tenantName ->
                        fun ?listManagementOptions ->
                          fun ~content ->
                            fun () ->
                              {
                                fromEmailAddress;
                                fromEmailAddressIdentityArn;
                                destination;
                                replyToAddresses;
                                feedbackForwardingEmailAddress;
                                feedbackForwardingEmailAddressIdentityArn;
                                emailTags;
                                configurationSetName;
                                endpointId;
                                tenantName;
                                listManagementOptions;
                                content
                              }
    let to_value x =
      structure_to_value
        [("FromEmailAddress",
           (Option.map x.fromEmailAddress ~f:EmailAddress.to_value));
        ("FromEmailAddressIdentityArn",
          (Option.map x.fromEmailAddressIdentityArn
             ~f:AmazonResourceName.to_value));
        ("Destination", (Option.map x.destination ~f:Destination.to_value));
        ("ReplyToAddresses",
          (Option.map x.replyToAddresses ~f:EmailAddressList.to_value));
        ("FeedbackForwardingEmailAddress",
          (Option.map x.feedbackForwardingEmailAddress
             ~f:EmailAddress.to_value));
        ("FeedbackForwardingEmailAddressIdentityArn",
          (Option.map x.feedbackForwardingEmailAddressIdentityArn
             ~f:AmazonResourceName.to_value));
        ("Content", (Some (EmailContent.to_value x.content)));
        ("EmailTags", (Option.map x.emailTags ~f:MessageTagList.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("TenantName", (Option.map x.tenantName ~f:TenantName.to_value));
        ("ListManagementOptions",
          (Option.map x.listManagementOptions
             ~f:ListManagementOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let listManagementOptions =
        (Option.map ~f:ListManagementOptions.of_xml)
          (Xml.child xml_arg0 "ListManagementOptions") in
      let tenantName =
        (Option.map ~f:TenantName.of_xml) (Xml.child xml_arg0 "TenantName") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let emailTags =
        (Option.map ~f:MessageTagList.of_xml)
          (Xml.child xml_arg0 "EmailTags") in
      let content =
        EmailContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Content") in
      let feedbackForwardingEmailAddressIdentityArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "FeedbackForwardingEmailAddressIdentityArn") in
      let feedbackForwardingEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FeedbackForwardingEmailAddress") in
      let replyToAddresses =
        (Option.map ~f:EmailAddressList.of_xml)
          (Xml.child xml_arg0 "ReplyToAddresses") in
      let destination =
        (Option.map ~f:Destination.of_xml) (Xml.child xml_arg0 "Destination") in
      let fromEmailAddressIdentityArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "FromEmailAddressIdentityArn") in
      let fromEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      make ?listManagementOptions ?tenantName ?endpointId
        ?configurationSetName ?emailTags ~content
        ?feedbackForwardingEmailAddressIdentityArn
        ?feedbackForwardingEmailAddress ?replyToAddresses ?destination
        ?fromEmailAddressIdentityArn ?fromEmailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let listManagementOptions =
        field_map json__ "ListManagementOptions"
          ListManagementOptions.of_json in
      let tenantName = field_map json__ "TenantName" TenantName.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let emailTags = field_map json__ "EmailTags" MessageTagList.of_json in
      let content = field_map_exn json__ "Content" EmailContent.of_json in
      let feedbackForwardingEmailAddressIdentityArn =
        field_map json__ "FeedbackForwardingEmailAddressIdentityArn"
          AmazonResourceName.of_json in
      let feedbackForwardingEmailAddress =
        field_map json__ "FeedbackForwardingEmailAddress"
          EmailAddress.of_json in
      let replyToAddresses =
        field_map json__ "ReplyToAddresses" EmailAddressList.of_json in
      let destination = field_map json__ "Destination" Destination.of_json in
      let fromEmailAddressIdentityArn =
        field_map json__ "FromEmailAddressIdentityArn"
          AmazonResourceName.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" EmailAddress.of_json in
      make ?listManagementOptions ?tenantName ?endpointId
        ?configurationSetName ?emailTags ~content
        ?feedbackForwardingEmailAddressIdentityArn
        ?feedbackForwardingEmailAddress ?replyToAddresses ?destination
        ?fromEmailAddressIdentityArn ?fromEmailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to send a single formatted email using Amazon SES. For more information, see the Amazon SES Developer Guide."]
module SendCustomVerificationEmailResponse =
  struct
    type nonrec t =
      {
      messageId: OutboundMessageId.t option
        [@ocaml.doc
          "The unique message identifier returned from the SendCustomVerificationEmail operation."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `MailFromDomainNotVerifiedException of
          MailFromDomainNotVerifiedException.t 
      | `MessageRejected of MessageRejected.t 
      | `NotFoundException of NotFoundException.t 
      | `SendingPausedException of SendingPausedException.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)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_json json)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_xml xml)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `MailFromDomainNotVerifiedException e ->
          `Assoc
            [("error", (`String "MailFromDomainNotVerifiedException"));
            ("details", (MailFromDomainNotVerifiedException.to_json e))]
      | `MessageRejected e ->
          `Assoc
            [("error", (`String "MessageRejected"));
            ("details", (MessageRejected.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `SendingPausedException e ->
          `Assoc
            [("error", (`String "SendingPausedException"));
            ("details", (SendingPausedException.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:OutboundMessageId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:OutboundMessageId.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" OutboundMessageId.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following element is returned by the service."]
module SendCustomVerificationEmailRequest =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t
        [@ocaml.doc "The email address to verify."];
      templateName: EmailTemplateName.t
        [@ocaml.doc
          "The name of the custom verification email template to use when sending the verification email."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "Name of a configuration set to use when sending the verification email."]}
    let context_ = "SendCustomVerificationEmailRequest"
    let make ?configurationSetName =
      fun ~emailAddress ->
        fun ~templateName ->
          fun () -> { configurationSetName; emailAddress; templateName }
    let to_value x =
      structure_to_value
        [("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)));
        ("TemplateName", (Some (EmailTemplateName.to_value x.templateName)));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      make ?configurationSetName ~templateName ~emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      make ?configurationSetName ~templateName ~emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to send a custom verification email to a specified recipient."]
module SendBulkEmailResponse =
  struct
    type nonrec t =
      {
      bulkEmailEntryResults: BulkEmailEntryResultList.t option
        [@ocaml.doc
          "One object per intended recipient. Check each response object and retry any messages with a failure status."]}
    type nonrec error =
      [ `AccountSuspendedException of AccountSuspendedException.t 
      | `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `MailFromDomainNotVerifiedException of
          MailFromDomainNotVerifiedException.t 
      | `MessageRejected of MessageRejected.t 
      | `NotFoundException of NotFoundException.t 
      | `SendingPausedException of SendingPausedException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?bulkEmailEntryResults = fun () -> { bulkEmailEntryResults }
    let error_of_json name json =
      match name with
      | "AccountSuspendedException" ->
          `AccountSuspendedException (AccountSuspendedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_json json)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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
      | "AccountSuspendedException" ->
          `AccountSuspendedException (AccountSuspendedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_xml xml)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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
      | `AccountSuspendedException e ->
          `Assoc
            [("error", (`String "AccountSuspendedException"));
            ("details", (AccountSuspendedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `MailFromDomainNotVerifiedException e ->
          `Assoc
            [("error", (`String "MailFromDomainNotVerifiedException"));
            ("details", (MailFromDomainNotVerifiedException.to_json e))]
      | `MessageRejected e ->
          `Assoc
            [("error", (`String "MessageRejected"));
            ("details", (MessageRejected.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `SendingPausedException e ->
          `Assoc
            [("error", (`String "SendingPausedException"));
            ("details", (SendingPausedException.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
        [("BulkEmailEntryResults",
           (Option.map x.bulkEmailEntryResults
              ~f:BulkEmailEntryResultList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bulkEmailEntryResults =
        (Option.map ~f:BulkEmailEntryResultList.of_xml)
          (Xml.child xml_arg0 "BulkEmailEntryResults") in
      make ?bulkEmailEntryResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bulkEmailEntryResults =
        field_map json__ "BulkEmailEntryResults"
          BulkEmailEntryResultList.of_json in
      make ?bulkEmailEntryResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The following data is returned in JSON format by the service."]
module SendBulkEmailRequest =
  struct
    type nonrec t =
      {
      fromEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address to use as the \"From\" address for the email. The address that you specify has to be verified."];
      fromEmailAddressIdentityArn: AmazonResourceName.t option
        [@ocaml.doc
          "This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the FromEmailAddress parameter. For example, if the owner of example.com (which has ARN arn:aws:ses:us-east-1:123456789012:identity/example.com) attaches a policy to it that authorizes you to use sender\\@example.com, then you would specify the FromEmailAddressIdentityArn to be arn:aws:ses:us-east-1:123456789012:identity/example.com, and the FromEmailAddress to be sender\\@example.com. For more information about sending authorization, see the Amazon SES Developer Guide."];
      replyToAddresses: EmailAddressList.t option
        [@ocaml.doc
          "The \"Reply-to\" email addresses for the message. When the recipient replies to the message, each Reply-to address receives the reply."];
      feedbackForwardingEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The address that you want bounce and complaint notifications to be sent to."];
      feedbackForwardingEmailAddressIdentityArn: AmazonResourceName.t option
        [@ocaml.doc
          "This parameter is used only for sending authorization. It is the ARN of the identity that is associated with the sending authorization policy that permits you to use the email address specified in the FeedbackForwardingEmailAddress parameter. For example, if the owner of example.com (which has ARN arn:aws:ses:us-east-1:123456789012:identity/example.com) attaches a policy to it that authorizes you to use feedback\\@example.com, then you would specify the FeedbackForwardingEmailAddressIdentityArn to be arn:aws:ses:us-east-1:123456789012:identity/example.com, and the FeedbackForwardingEmailAddress to be feedback\\@example.com. For more information about sending authorization, see the Amazon SES Developer Guide."];
      defaultEmailTags: MessageTagList.t option
        [@ocaml.doc
          "A list of tags, in the form of name/value pairs, to apply to an email that you send using the SendEmail operation. Tags correspond to characteristics of the email that you define, so that you can publish email sending events."];
      defaultContent: BulkEmailContent.t
        [@ocaml.doc
          "An object that contains the body of the message. You can specify a template message."];
      bulkEmailEntries: BulkEmailEntryList.t
        [@ocaml.doc "The list of bulk email entry objects."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "The name of the configuration set to use when sending the email."];
      endpointId: EndpointId.t option
        [@ocaml.doc "The ID of the multi-region endpoint (global-endpoint)."];
      tenantName: TenantName.t option
        [@ocaml.doc
          "The name of the tenant through which this bulk email will be sent. The email sending operation will only succeed if all referenced resources (identities, configuration sets, and templates) are associated with this tenant."]}
    let context_ = "SendBulkEmailRequest"
    let make ?fromEmailAddress =
      fun ?fromEmailAddressIdentityArn ->
        fun ?replyToAddresses ->
          fun ?feedbackForwardingEmailAddress ->
            fun ?feedbackForwardingEmailAddressIdentityArn ->
              fun ?defaultEmailTags ->
                fun ?configurationSetName ->
                  fun ?endpointId ->
                    fun ?tenantName ->
                      fun ~defaultContent ->
                        fun ~bulkEmailEntries ->
                          fun () ->
                            {
                              fromEmailAddress;
                              fromEmailAddressIdentityArn;
                              replyToAddresses;
                              feedbackForwardingEmailAddress;
                              feedbackForwardingEmailAddressIdentityArn;
                              defaultEmailTags;
                              configurationSetName;
                              endpointId;
                              tenantName;
                              defaultContent;
                              bulkEmailEntries
                            }
    let to_value x =
      structure_to_value
        [("FromEmailAddress",
           (Option.map x.fromEmailAddress ~f:EmailAddress.to_value));
        ("FromEmailAddressIdentityArn",
          (Option.map x.fromEmailAddressIdentityArn
             ~f:AmazonResourceName.to_value));
        ("ReplyToAddresses",
          (Option.map x.replyToAddresses ~f:EmailAddressList.to_value));
        ("FeedbackForwardingEmailAddress",
          (Option.map x.feedbackForwardingEmailAddress
             ~f:EmailAddress.to_value));
        ("FeedbackForwardingEmailAddressIdentityArn",
          (Option.map x.feedbackForwardingEmailAddressIdentityArn
             ~f:AmazonResourceName.to_value));
        ("DefaultEmailTags",
          (Option.map x.defaultEmailTags ~f:MessageTagList.to_value));
        ("DefaultContent",
          (Some (BulkEmailContent.to_value x.defaultContent)));
        ("BulkEmailEntries",
          (Some (BulkEmailEntryList.to_value x.bulkEmailEntries)));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("TenantName", (Option.map x.tenantName ~f:TenantName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenantName =
        (Option.map ~f:TenantName.of_xml) (Xml.child xml_arg0 "TenantName") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let bulkEmailEntries =
        BulkEmailEntryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BulkEmailEntries") in
      let defaultContent =
        BulkEmailContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DefaultContent") in
      let defaultEmailTags =
        (Option.map ~f:MessageTagList.of_xml)
          (Xml.child xml_arg0 "DefaultEmailTags") in
      let feedbackForwardingEmailAddressIdentityArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "FeedbackForwardingEmailAddressIdentityArn") in
      let feedbackForwardingEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FeedbackForwardingEmailAddress") in
      let replyToAddresses =
        (Option.map ~f:EmailAddressList.of_xml)
          (Xml.child xml_arg0 "ReplyToAddresses") in
      let fromEmailAddressIdentityArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "FromEmailAddressIdentityArn") in
      let fromEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      make ?tenantName ?endpointId ?configurationSetName ~bulkEmailEntries
        ~defaultContent ?defaultEmailTags
        ?feedbackForwardingEmailAddressIdentityArn
        ?feedbackForwardingEmailAddress ?replyToAddresses
        ?fromEmailAddressIdentityArn ?fromEmailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenantName = field_map json__ "TenantName" TenantName.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let bulkEmailEntries =
        field_map_exn json__ "BulkEmailEntries" BulkEmailEntryList.of_json in
      let defaultContent =
        field_map_exn json__ "DefaultContent" BulkEmailContent.of_json in
      let defaultEmailTags =
        field_map json__ "DefaultEmailTags" MessageTagList.of_json in
      let feedbackForwardingEmailAddressIdentityArn =
        field_map json__ "FeedbackForwardingEmailAddressIdentityArn"
          AmazonResourceName.of_json in
      let feedbackForwardingEmailAddress =
        field_map json__ "FeedbackForwardingEmailAddress"
          EmailAddress.of_json in
      let replyToAddresses =
        field_map json__ "ReplyToAddresses" EmailAddressList.of_json in
      let fromEmailAddressIdentityArn =
        field_map json__ "FromEmailAddressIdentityArn"
          AmazonResourceName.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" EmailAddress.of_json in
      make ?tenantName ?endpointId ?configurationSetName ~bulkEmailEntries
        ~defaultContent ?defaultEmailTags
        ?feedbackForwardingEmailAddressIdentityArn
        ?feedbackForwardingEmailAddress ?replyToAddresses
        ?fromEmailAddressIdentityArn ?fromEmailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to send email messages to multiple destinations using Amazon SES. For more information, see the Amazon SES Developer Guide."]
module PutSuppressedDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutSuppressedDestinationRequest =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t
        [@ocaml.doc
          "The email address that should be added to the suppression list for your account."];
      reason: SuppressionListReason.t
        [@ocaml.doc
          "The factors that should cause the email address to be added to the suppression list for your account."]}
    let context_ = "PutSuppressedDestinationRequest"
    let make ~emailAddress =
      fun ~reason -> fun () -> { emailAddress; reason }
    let to_value x =
      structure_to_value
        [("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)));
        ("Reason", (Some (SuppressionListReason.to_value x.reason)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        SuppressionListReason.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Reason") in
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      make ~reason ~emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map_exn json__ "Reason" SuppressionListReason.of_json in
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      make ~reason ~emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to add an email destination to the suppression list for your account."]
module PutEmailIdentityMailFromAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutEmailIdentityMailFromAttributesRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The verified email identity."];
      mailFromDomain: MailFromDomainName.t option
        [@ocaml.doc
          "The custom MAIL FROM domain that you want the verified identity to use. The MAIL FROM domain must meet the following criteria: It has to be a subdomain of the verified identity. It can't be used to receive email. It can't be used in a \"From\" address if the MAIL FROM domain is a destination for feedback forwarding emails."];
      behaviorOnMxFailure: BehaviorOnMxFailure.t option
        [@ocaml.doc
          "The action to take if the required MX record isn't found when you send an email. When you set this value to UseDefaultValue, the mail is sent using amazonses.com as the MAIL FROM domain. When you set this value to RejectMessage, the Amazon SES API v2 returns a MailFromDomainNotVerified error, and doesn't attempt to deliver the email. These behaviors are taken when the custom MAIL FROM domain configuration is in the Pending, Failed, and TemporaryFailure states."]}
    let context_ = "PutEmailIdentityMailFromAttributesRequest"
    let make ?mailFromDomain =
      fun ?behaviorOnMxFailure ->
        fun ~emailIdentity ->
          fun () -> { mailFromDomain; behaviorOnMxFailure; emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("MailFromDomain",
          (Option.map x.mailFromDomain ~f:MailFromDomainName.to_value));
        ("BehaviorOnMxFailure",
          (Option.map x.behaviorOnMxFailure ~f:BehaviorOnMxFailure.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let behaviorOnMxFailure =
        (Option.map ~f:BehaviorOnMxFailure.of_xml)
          (Xml.child xml_arg0 "BehaviorOnMxFailure") in
      let mailFromDomain =
        (Option.map ~f:MailFromDomainName.of_xml)
          (Xml.child xml_arg0 "MailFromDomain") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ?behaviorOnMxFailure ?mailFromDomain ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let behaviorOnMxFailure =
        field_map json__ "BehaviorOnMxFailure" BehaviorOnMxFailure.of_json in
      let mailFromDomain =
        field_map json__ "MailFromDomain" MailFromDomainName.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ?behaviorOnMxFailure ?mailFromDomain ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to configure the custom MAIL FROM domain for a verified identity."]
module PutEmailIdentityFeedbackAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutEmailIdentityFeedbackAttributesRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."];
      emailForwardingEnabled: Enabled.t option
        [@ocaml.doc
          "Sets the feedback forwarding configuration for the identity. If the value is true, you receive email notifications when bounce or complaint events occur. These notifications are sent to the address that you specified in the Return-Path header of the original email. You're required to have a method of tracking bounces and complaints. If you haven't set up another mechanism for receiving bounce or complaint notifications (for example, by setting up an event destination), you receive an email notification when these events occur (even if this setting is disabled)."]}
    let context_ = "PutEmailIdentityFeedbackAttributesRequest"
    let make ?emailForwardingEnabled =
      fun ~emailIdentity ->
        fun () -> { emailForwardingEnabled; emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("EmailForwardingEnabled",
          (Option.map x.emailForwardingEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailForwardingEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "EmailForwardingEnabled") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ?emailForwardingEnabled ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailForwardingEnabled =
        field_map json__ "EmailForwardingEnabled" Enabled.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ?emailForwardingEnabled ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to set the attributes that control how bounce and complaint events are processed."]
module PutEmailIdentityDkimSigningAttributesResponse =
  struct
    type nonrec t =
      {
      dkimStatus: DkimStatus.t option
        [@ocaml.doc
          "The DKIM authentication status of the identity. Amazon SES determines the authentication status by searching for specific records in the DNS configuration for your domain. If you used Easy DKIM to set up DKIM authentication, Amazon SES tries to find three unique CNAME records in the DNS configuration for your domain. If you provided a public key to perform DKIM authentication, Amazon SES tries to find a TXT record that uses the selector that you specified. The value of the TXT record must be a public key that's paired with the private key that you specified in the process of creating the identity. The status can be one of the following: PENDING \226\128\147 The verification process was initiated, but Amazon SES hasn't yet detected the DKIM records in the DNS configuration for the domain. SUCCESS \226\128\147 The verification process completed successfully. FAILED \226\128\147 The verification process failed. This typically occurs when Amazon SES fails to find the DKIM records in the DNS configuration of the domain. TEMPORARY_FAILURE \226\128\147 A temporary issue is preventing Amazon SES from determining the DKIM authentication status of the domain. NOT_STARTED \226\128\147 The DKIM verification process hasn't been initiated for the domain."];
      dkimTokens: DnsTokenList.t option
        [@ocaml.doc
          "If you used Easy DKIM to configure DKIM authentication for the domain, then this object contains a set of unique strings that you use to create a set of CNAME records that you add to the DNS configuration for your domain. When Amazon SES detects these records in the DNS configuration for your domain, the DKIM authentication process is complete. If you configured DKIM authentication for the domain by providing your own public-private key pair, then this object contains the selector that's associated with your public key. Regardless of the DKIM authentication method you use, Amazon SES searches for the appropriate records in the DNS configuration of the domain for up to 72 hours."];
      signingHostedZone: HostedZone.t option
        [@ocaml.doc
          "The hosted zone where Amazon SES publishes the DKIM public key TXT records for this email identity. This value indicates the DNS zone that customers must reference when configuring their CNAME records for DKIM authentication. When configuring DKIM for your domain, create CNAME records in your DNS that point to the selectors in this hosted zone. For example: selector1._domainkey.yourdomain.com CNAME selector1.<SigningHostedZone> selector2._domainkey.yourdomain.com CNAME selector2.<SigningHostedZone> selector3._domainkey.yourdomain.com CNAME selector3.<SigningHostedZone>"]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dkimStatus =
      fun ?dkimTokens ->
        fun ?signingHostedZone ->
          fun () -> { dkimStatus; dkimTokens; signingHostedZone }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DkimStatus", (Option.map x.dkimStatus ~f:DkimStatus.to_value));
        ("DkimTokens", (Option.map x.dkimTokens ~f:DnsTokenList.to_value));
        ("SigningHostedZone",
          (Option.map x.signingHostedZone ~f:HostedZone.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signingHostedZone =
        (Option.map ~f:HostedZone.of_xml)
          (Xml.child xml_arg0 "SigningHostedZone") in
      let dkimTokens =
        (Option.map ~f:DnsTokenList.of_xml) (Xml.child xml_arg0 "DkimTokens") in
      let dkimStatus =
        (Option.map ~f:DkimStatus.of_xml) (Xml.child xml_arg0 "DkimStatus") in
      make ?signingHostedZone ?dkimTokens ?dkimStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signingHostedZone =
        field_map json__ "SigningHostedZone" HostedZone.of_json in
      let dkimTokens = field_map json__ "DkimTokens" DnsTokenList.of_json in
      let dkimStatus = field_map json__ "DkimStatus" DkimStatus.of_json in
      make ?signingHostedZone ?dkimTokens ?dkimStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the action is successful, the service sends back an HTTP 200 response. The following data is returned in JSON format by the service."]
module PutEmailIdentityDkimSigningAttributesRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."];
      signingAttributesOrigin: DkimSigningAttributesOrigin.t
        [@ocaml.doc
          "The method to use to configure DKIM for the identity. There are the following possible values: AWS_SES \226\128\147 Configure DKIM for the identity by using Easy DKIM. EXTERNAL \226\128\147 Configure DKIM for the identity by using Bring Your Own DKIM (BYODKIM)."];
      signingAttributes: DkimSigningAttributes.t option
        [@ocaml.doc
          "An object that contains information about the private key and selector that you want to use to configure DKIM for the identity for Bring Your Own DKIM (BYODKIM) for the identity, or, configures the key length to be used for Easy DKIM."]}
    let context_ = "PutEmailIdentityDkimSigningAttributesRequest"
    let make ?signingAttributes =
      fun ~emailIdentity ->
        fun ~signingAttributesOrigin ->
          fun () ->
            { signingAttributes; emailIdentity; signingAttributesOrigin }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("SigningAttributesOrigin",
          (Some
             (DkimSigningAttributesOrigin.to_value x.signingAttributesOrigin)));
        ("SigningAttributes",
          (Option.map x.signingAttributes ~f:DkimSigningAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signingAttributes =
        (Option.map ~f:DkimSigningAttributes.of_xml)
          (Xml.child xml_arg0 "SigningAttributes") in
      let signingAttributesOrigin =
        DkimSigningAttributesOrigin.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SigningAttributesOrigin") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ?signingAttributes ~signingAttributesOrigin ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signingAttributes =
        field_map json__ "SigningAttributes" DkimSigningAttributes.of_json in
      let signingAttributesOrigin =
        field_map_exn json__ "SigningAttributesOrigin"
          DkimSigningAttributesOrigin.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ?signingAttributes ~signingAttributesOrigin ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to change the DKIM attributes for an email identity."]
module PutEmailIdentityDkimAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutEmailIdentityDkimAttributesRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."];
      signingEnabled: Enabled.t option
        [@ocaml.doc
          "Sets the DKIM signing configuration for the identity. When you set this value true, then the messages that are sent from the identity are signed using DKIM. If you set this value to false, your messages are sent without DKIM signing."]}
    let context_ = "PutEmailIdentityDkimAttributesRequest"
    let make ?signingEnabled =
      fun ~emailIdentity -> fun () -> { signingEnabled; emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("SigningEnabled", (Option.map x.signingEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SigningEnabled") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ?signingEnabled ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signingEnabled = field_map json__ "SigningEnabled" Enabled.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ?signingEnabled ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to enable or disable DKIM signing of email that you send from an email identity."]
module PutEmailIdentityConfigurationSetAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module PutEmailIdentityConfigurationSetAttributesRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t
        [@ocaml.doc
          "The email address or domain to associate with a configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "The configuration set to associate with an email identity."]}
    let context_ = "PutEmailIdentityConfigurationSetAttributesRequest"
    let make ?configurationSetName =
      fun ~emailIdentity -> fun () -> { configurationSetName; emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ?configurationSetName ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ?configurationSetName ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to associate a configuration set with an email identity."]
module PutDeliverabilityDashboardOptionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "A response that indicates whether the Deliverability dashboard is enabled."]
module PutDeliverabilityDashboardOptionRequest =
  struct
    type nonrec t =
      {
      dashboardEnabled: Enabled.t
        [@ocaml.doc
          "Specifies whether to enable the Deliverability dashboard. To enable the dashboard, set this value to true."];
      subscribedDomains: DomainDeliverabilityTrackingOptions.t option
        [@ocaml.doc
          "An array of objects, one for each verified domain that you use to send email and enabled the Deliverability dashboard for."]}
    let context_ = "PutDeliverabilityDashboardOptionRequest"
    let make ?subscribedDomains =
      fun ~dashboardEnabled ->
        fun () -> { subscribedDomains; dashboardEnabled }
    let to_value x =
      structure_to_value
        [("DashboardEnabled", (Some (Enabled.to_value x.dashboardEnabled)));
        ("SubscribedDomains",
          (Option.map x.subscribedDomains
             ~f:DomainDeliverabilityTrackingOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscribedDomains =
        (Option.map ~f:DomainDeliverabilityTrackingOptions.of_xml)
          (Xml.child xml_arg0 "SubscribedDomains") in
      let dashboardEnabled =
        Enabled.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DashboardEnabled") in
      make ?subscribedDomains ~dashboardEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscribedDomains =
        field_map json__ "SubscribedDomains"
          DomainDeliverabilityTrackingOptions.of_json in
      let dashboardEnabled =
        field_map_exn json__ "DashboardEnabled" Enabled.of_json in
      make ?subscribedDomains ~dashboardEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enable or disable the Deliverability dashboard. When you enable the Deliverability dashboard, you gain access to reputation, deliverability, and other metrics for the domains that you use to send email using Amazon SES API v2. You also gain the ability to perform predictive inbox placement tests. When you use the Deliverability dashboard, you pay a monthly subscription charge, in addition to any other fees that you accrue by using Amazon SES and other Amazon Web Services services. For more information about the features and cost of a Deliverability dashboard subscription, see Amazon Pinpoint Pricing."]
module PutDedicatedIpWarmupAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutDedicatedIpWarmupAttributesRequest =
  struct
    type nonrec t =
      {
      ip: Ip.t
        [@ocaml.doc
          "The dedicated IP address that you want to update the warm-up attributes for."];
      warmupPercentage: Percentage100Wrapper.t
        [@ocaml.doc
          "The warm-up percentage that you want to associate with the dedicated IP address."]}
    let context_ = "PutDedicatedIpWarmupAttributesRequest"
    let make ~ip =
      fun ~warmupPercentage -> fun () -> { ip; warmupPercentage }
    let to_value x =
      structure_to_value
        [("IP", (Some (Ip.to_value x.ip)));
        ("WarmupPercentage",
          (Some (Percentage100Wrapper.to_value x.warmupPercentage)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let warmupPercentage =
        Percentage100Wrapper.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WarmupPercentage") in
      let ip = Ip.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IP") in
      make ~warmupPercentage ~ip ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let warmupPercentage =
        field_map_exn json__ "WarmupPercentage" Percentage100Wrapper.of_json in
      let ip = field_map_exn json__ "Ip" Ip.of_json in
      make ~warmupPercentage ~ip ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to change the warm-up attributes for a dedicated IP address. This operation is useful when you want to resume the warm-up process for an existing IP address."]
module PutDedicatedIpPoolScalingAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutDedicatedIpPoolScalingAttributesRequest =
  struct
    type nonrec t =
      {
      poolName: PoolName.t [@ocaml.doc "The name of the dedicated IP pool."];
      scalingMode: ScalingMode.t
        [@ocaml.doc
          "The scaling mode to apply to the dedicated IP pool. Changing the scaling mode from MANAGED to STANDARD is not supported."]}
    let context_ = "PutDedicatedIpPoolScalingAttributesRequest"
    let make ~poolName =
      fun ~scalingMode -> fun () -> { poolName; scalingMode }
    let to_value x =
      structure_to_value
        [("PoolName", (Some (PoolName.to_value x.poolName)));
        ("ScalingMode", (Some (ScalingMode.to_value x.scalingMode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scalingMode =
        ScalingMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ScalingMode") in
      let poolName =
        PoolName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolName") in
      make ~scalingMode ~poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scalingMode =
        field_map_exn json__ "ScalingMode" ScalingMode.of_json in
      let poolName = field_map_exn json__ "PoolName" PoolName.of_json in
      make ~scalingMode ~poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to convert a dedicated IP pool to a different scaling mode."]
module PutDedicatedIpInPoolResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutDedicatedIpInPoolRequest =
  struct
    type nonrec t =
      {
      ip: Ip.t
        [@ocaml.doc
          "The IP address that you want to move to the dedicated IP pool. The value you specify has to be a dedicated IP address that's associated with your Amazon Web Services account."];
      destinationPoolName: PoolName.t
        [@ocaml.doc
          "The name of the IP pool that you want to add the dedicated IP address to. You have to specify an IP pool that already exists."]}
    let context_ = "PutDedicatedIpInPoolRequest"
    let make ~ip =
      fun ~destinationPoolName -> fun () -> { ip; destinationPoolName }
    let to_value x =
      structure_to_value
        [("IP", (Some (Ip.to_value x.ip)));
        ("DestinationPoolName",
          (Some (PoolName.to_value x.destinationPoolName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationPoolName =
        PoolName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPoolName") in
      let ip = Ip.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IP") in
      make ~destinationPoolName ~ip ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationPoolName =
        field_map_exn json__ "DestinationPoolName" PoolName.of_json in
      let ip = field_map_exn json__ "Ip" Ip.of_json in
      make ~destinationPoolName ~ip ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to move a dedicated IP address to a dedicated IP pool."]
module PutConfigurationSetVdmOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetVdmOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name of the configuration set."];
      vdmOptions: VdmOptions.t option
        [@ocaml.doc "The VDM options to apply to the configuration set."]}
    let context_ = "PutConfigurationSetVdmOptionsRequest"
    let make ?vdmOptions =
      fun ~configurationSetName ->
        fun () -> { vdmOptions; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("VdmOptions", (Option.map x.vdmOptions ~f:VdmOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vdmOptions =
        (Option.map ~f:VdmOptions.of_xml) (Xml.child xml_arg0 "VdmOptions") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?vdmOptions ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vdmOptions = field_map json__ "VdmOptions" VdmOptions.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?vdmOptions ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to add specific VDM settings to a configuration set."]
module PutConfigurationSetTrackingOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetTrackingOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name of the configuration set."];
      customRedirectDomain: CustomRedirectDomain.t option
        [@ocaml.doc "The domain to use to track open and click events."];
      httpsPolicy: HttpsPolicy.t option }
    let context_ = "PutConfigurationSetTrackingOptionsRequest"
    let make ?customRedirectDomain =
      fun ?httpsPolicy ->
        fun ~configurationSetName ->
          fun () ->
            { customRedirectDomain; httpsPolicy; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("CustomRedirectDomain",
          (Option.map x.customRedirectDomain ~f:CustomRedirectDomain.to_value));
        ("HttpsPolicy", (Option.map x.httpsPolicy ~f:HttpsPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let httpsPolicy =
        (Option.map ~f:HttpsPolicy.of_xml) (Xml.child xml_arg0 "HttpsPolicy") in
      let customRedirectDomain =
        (Option.map ~f:CustomRedirectDomain.of_xml)
          (Xml.child xml_arg0 "CustomRedirectDomain") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?httpsPolicy ?customRedirectDomain ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let httpsPolicy = field_map json__ "HttpsPolicy" HttpsPolicy.of_json in
      let customRedirectDomain =
        field_map json__ "CustomRedirectDomain" CustomRedirectDomain.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?httpsPolicy ?customRedirectDomain ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to add a custom domain for tracking open and click events to a configuration set."]
module PutConfigurationSetSuppressionOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetSuppressionOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set to change the suppression list preferences for."];
      suppressedReasons: SuppressionListReasons.t option
        [@ocaml.doc
          "A list that contains the reasons that email addresses are automatically added to the suppression list for your account. This list can contain any or all of the following: COMPLAINT \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a complaint. BOUNCE \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a hard bounce."];
      validationOptions: SuppressionValidationOptions.t option
        [@ocaml.doc
          "An object that contains information about the email address suppression preferences for the configuration set in the current Amazon Web Services Region."]}
    let context_ = "PutConfigurationSetSuppressionOptionsRequest"
    let make ?suppressedReasons =
      fun ?validationOptions ->
        fun ~configurationSetName ->
          fun () ->
            { suppressedReasons; validationOptions; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("SuppressedReasons",
          (Option.map x.suppressedReasons ~f:SuppressionListReasons.to_value));
        ("ValidationOptions",
          (Option.map x.validationOptions
             ~f:SuppressionValidationOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationOptions =
        (Option.map ~f:SuppressionValidationOptions.of_xml)
          (Xml.child xml_arg0 "ValidationOptions") in
      let suppressedReasons =
        (Option.map ~f:SuppressionListReasons.of_xml)
          (Xml.child xml_arg0 "SuppressedReasons") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?validationOptions ?suppressedReasons ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationOptions =
        field_map json__ "ValidationOptions"
          SuppressionValidationOptions.of_json in
      let suppressedReasons =
        field_map json__ "SuppressedReasons" SuppressionListReasons.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?validationOptions ?suppressedReasons ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to change the account suppression list preferences for a specific configuration set."]
module PutConfigurationSetSendingOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetSendingOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set to enable or disable email sending for."];
      sendingEnabled: Enabled.t option
        [@ocaml.doc
          "If true, email sending is enabled for the configuration set. If false, email sending is disabled for the configuration set."]}
    let context_ = "PutConfigurationSetSendingOptionsRequest"
    let make ?sendingEnabled =
      fun ~configurationSetName ->
        fun () -> { sendingEnabled; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("SendingEnabled", (Option.map x.sendingEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SendingEnabled") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?sendingEnabled ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendingEnabled = field_map json__ "SendingEnabled" Enabled.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?sendingEnabled ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to enable or disable the ability of Amazon SES to send emails that use a specific configuration set."]
module PutConfigurationSetReputationOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetReputationOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name of the configuration set."];
      reputationMetricsEnabled: Enabled.t option
        [@ocaml.doc
          "If true, tracking of reputation metrics is enabled for the configuration set. If false, tracking of reputation metrics is disabled for the configuration set."]}
    let context_ = "PutConfigurationSetReputationOptionsRequest"
    let make ?reputationMetricsEnabled =
      fun ~configurationSetName ->
        fun () -> { reputationMetricsEnabled; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("ReputationMetricsEnabled",
          (Option.map x.reputationMetricsEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reputationMetricsEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "ReputationMetricsEnabled") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?reputationMetricsEnabled ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reputationMetricsEnabled =
        field_map json__ "ReputationMetricsEnabled" Enabled.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?reputationMetricsEnabled ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to enable or disable tracking of reputation metrics for a configuration set."]
module PutConfigurationSetDeliveryOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetDeliveryOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set to associate with a dedicated IP pool."];
      tlsPolicy: TlsPolicy.t option
        [@ocaml.doc
          "Specifies whether messages that use the configuration set are required to use Transport Layer Security (TLS). If the value is Require, messages are only delivered if a TLS connection can be established. If the value is Optional, messages can be delivered in plain text if a TLS connection can't be established."];
      sendingPoolName: SendingPoolName.t option
        [@ocaml.doc
          "The name of the dedicated IP pool to associate with the configuration set."];
      maxDeliverySeconds: MaxDeliverySeconds.t option
        [@ocaml.doc
          "The maximum amount of time, in seconds, that Amazon SES API v2 will attempt delivery of email. If specified, the value must greater than or equal to 300 seconds (5 minutes) and less than or equal to 50400 seconds (840 minutes)."]}
    let context_ = "PutConfigurationSetDeliveryOptionsRequest"
    let make ?tlsPolicy =
      fun ?sendingPoolName ->
        fun ?maxDeliverySeconds ->
          fun ~configurationSetName ->
            fun () ->
              {
                tlsPolicy;
                sendingPoolName;
                maxDeliverySeconds;
                configurationSetName
              }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("TlsPolicy", (Option.map x.tlsPolicy ~f:TlsPolicy.to_value));
        ("SendingPoolName",
          (Option.map x.sendingPoolName ~f:SendingPoolName.to_value));
        ("MaxDeliverySeconds",
          (Option.map x.maxDeliverySeconds ~f:MaxDeliverySeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxDeliverySeconds =
        (Option.map ~f:MaxDeliverySeconds.of_xml)
          (Xml.child xml_arg0 "MaxDeliverySeconds") in
      let sendingPoolName =
        (Option.map ~f:SendingPoolName.of_xml)
          (Xml.child xml_arg0 "SendingPoolName") in
      let tlsPolicy =
        (Option.map ~f:TlsPolicy.of_xml) (Xml.child xml_arg0 "TlsPolicy") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?maxDeliverySeconds ?sendingPoolName ?tlsPolicy
        ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxDeliverySeconds =
        field_map json__ "MaxDeliverySeconds" MaxDeliverySeconds.of_json in
      let sendingPoolName =
        field_map json__ "SendingPoolName" SendingPoolName.of_json in
      let tlsPolicy = field_map json__ "TlsPolicy" TlsPolicy.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?maxDeliverySeconds ?sendingPoolName ?tlsPolicy
        ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to associate a configuration set with a dedicated IP pool."]
module PutConfigurationSetArchivingOptionsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutConfigurationSetArchivingOptionsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set to associate with a MailManager archive."];
      archiveArn: ArchiveArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the MailManager archive that the Amazon SES API v2 sends email to."]}
    let context_ = "PutConfigurationSetArchivingOptionsRequest"
    let make ?archiveArn =
      fun ~configurationSetName ->
        fun () -> { archiveArn; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("ArchiveArn", (Option.map x.archiveArn ~f:ArchiveArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archiveArn =
        (Option.map ~f:ArchiveArn.of_xml) (Xml.child xml_arg0 "ArchiveArn") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?archiveArn ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archiveArn = field_map json__ "ArchiveArn" ArchiveArn.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?archiveArn ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to associate a configuration set with a MailManager archive."]
module PutAccountVdmAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "Update your Amazon SES account VDM attributes. You can execute this operation no more than once per second."]
module PutAccountVdmAttributesRequest =
  struct
    type nonrec t =
      {
      vdmAttributes: VdmAttributes.t
        [@ocaml.doc
          "The VDM attributes that you wish to apply to your Amazon SES account."]}
    let context_ = "PutAccountVdmAttributesRequest"
    let make ~vdmAttributes = fun () -> { vdmAttributes }
    let to_value x =
      structure_to_value
        [("VdmAttributes", (Some (VdmAttributes.to_value x.vdmAttributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vdmAttributes =
        VdmAttributes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VdmAttributes") in
      make ~vdmAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vdmAttributes =
        field_map_exn json__ "VdmAttributes" VdmAttributes.of_json in
      make ~vdmAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to submit new account VDM attributes."]
module PutAccountSuppressionAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutAccountSuppressionAttributesRequest =
  struct
    type nonrec t =
      {
      suppressedReasons: SuppressionListReasons.t option
        [@ocaml.doc
          "A list that contains the reasons that email addresses will be automatically added to the suppression list for your account. This list can contain any or all of the following: COMPLAINT \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a complaint. BOUNCE \226\128\147 Amazon SES adds an email address to the suppression list for your account when a message sent to that address results in a hard bounce."];
      validationAttributes: SuppressionValidationAttributes.t option
        [@ocaml.doc
          "An object that contains additional suppression attributes for your account."]}
    let make ?suppressedReasons =
      fun ?validationAttributes ->
        fun () -> { suppressedReasons; validationAttributes }
    let to_value x =
      structure_to_value
        [("SuppressedReasons",
           (Option.map x.suppressedReasons ~f:SuppressionListReasons.to_value));
        ("ValidationAttributes",
          (Option.map x.validationAttributes
             ~f:SuppressionValidationAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationAttributes =
        (Option.map ~f:SuppressionValidationAttributes.of_xml)
          (Xml.child xml_arg0 "ValidationAttributes") in
      let suppressedReasons =
        (Option.map ~f:SuppressionListReasons.of_xml)
          (Xml.child xml_arg0 "SuppressedReasons") in
      make ?validationAttributes ?suppressedReasons ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationAttributes =
        field_map json__ "ValidationAttributes"
          SuppressionValidationAttributes.of_json in
      let suppressedReasons =
        field_map json__ "SuppressedReasons" SuppressionListReasons.of_json in
      make ?validationAttributes ?suppressedReasons ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to change your account's suppression preferences."]
module PutAccountSendingAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutAccountSendingAttributesRequest =
  struct
    type nonrec t =
      {
      sendingEnabled: Enabled.t option
        [@ocaml.doc
          "Enables or disables your account's ability to send email. Set to true to enable email sending, or set to false to disable email sending. If Amazon Web Services paused your account's ability to send email, you can't use this operation to resume your account's ability to send email."]}
    let make ?sendingEnabled = fun () -> { sendingEnabled }
    let to_value x =
      structure_to_value
        [("SendingEnabled",
           (Option.map x.sendingEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SendingEnabled") in
      make ?sendingEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendingEnabled = field_map json__ "SendingEnabled" Enabled.of_json in
      make ?sendingEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to change the ability of your account to send email."]
module PutAccountDetailsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutAccountDetailsRequest =
  struct
    type nonrec t =
      {
      mailType: MailType.t
        [@ocaml.doc "The type of email your account will send."];
      websiteURL: WebsiteURL.t
        [@ocaml.doc
          "The URL of your website. This information helps us better understand the type of content that you plan to send."];
      contactLanguage: ContactLanguage.t option
        [@ocaml.doc "The language you would prefer to be contacted with."];
      useCaseDescription: UseCaseDescription.t option
        [@ocaml.doc
          "A description of the types of email that you plan to send."];
      additionalContactEmailAddresses:
        AdditionalContactEmailAddresses.t option
        [@ocaml.doc
          "Additional email addresses that you would like to be notified regarding Amazon SES matters."];
      productionAccessEnabled: EnabledWrapper.t option
        [@ocaml.doc
          "Indicates whether or not your account should have production access in the current Amazon Web Services Region. If the value is false, then your account is in the sandbox. When your account is in the sandbox, you can only send email to verified identities. If the value is true, then your account has production access. When your account has production access, you can send email to any address. The sending quota and maximum sending rate for your account vary based on your specific use case."]}
    let context_ = "PutAccountDetailsRequest"
    let make ?contactLanguage =
      fun ?useCaseDescription ->
        fun ?additionalContactEmailAddresses ->
          fun ?productionAccessEnabled ->
            fun ~mailType ->
              fun ~websiteURL ->
                fun () ->
                  {
                    contactLanguage;
                    useCaseDescription;
                    additionalContactEmailAddresses;
                    productionAccessEnabled;
                    mailType;
                    websiteURL
                  }
    let to_value x =
      structure_to_value
        [("MailType", (Some (MailType.to_value x.mailType)));
        ("WebsiteURL", (Some (WebsiteURL.to_value x.websiteURL)));
        ("ContactLanguage",
          (Option.map x.contactLanguage ~f:ContactLanguage.to_value));
        ("UseCaseDescription",
          (Option.map x.useCaseDescription ~f:UseCaseDescription.to_value));
        ("AdditionalContactEmailAddresses",
          (Option.map x.additionalContactEmailAddresses
             ~f:AdditionalContactEmailAddresses.to_value));
        ("ProductionAccessEnabled",
          (Option.map x.productionAccessEnabled ~f:EnabledWrapper.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productionAccessEnabled =
        (Option.map ~f:EnabledWrapper.of_xml)
          (Xml.child xml_arg0 "ProductionAccessEnabled") in
      let additionalContactEmailAddresses =
        (Option.map ~f:AdditionalContactEmailAddresses.of_xml)
          (Xml.child xml_arg0 "AdditionalContactEmailAddresses") in
      let useCaseDescription =
        (Option.map ~f:UseCaseDescription.of_xml)
          (Xml.child xml_arg0 "UseCaseDescription") in
      let contactLanguage =
        (Option.map ~f:ContactLanguage.of_xml)
          (Xml.child xml_arg0 "ContactLanguage") in
      let websiteURL =
        WebsiteURL.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "WebsiteURL") in
      let mailType =
        MailType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "MailType") in
      make ?productionAccessEnabled ?additionalContactEmailAddresses
        ?useCaseDescription ?contactLanguage ~websiteURL ~mailType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productionAccessEnabled =
        field_map json__ "ProductionAccessEnabled" EnabledWrapper.of_json in
      let additionalContactEmailAddresses =
        field_map json__ "AdditionalContactEmailAddresses"
          AdditionalContactEmailAddresses.of_json in
      let useCaseDescription =
        field_map json__ "UseCaseDescription" UseCaseDescription.of_json in
      let contactLanguage =
        field_map json__ "ContactLanguage" ContactLanguage.of_json in
      let websiteURL = field_map_exn json__ "WebsiteURL" WebsiteURL.of_json in
      let mailType = field_map_exn json__ "MailType" MailType.of_json in
      make ?productionAccessEnabled ?additionalContactEmailAddresses
        ?useCaseDescription ?contactLanguage ~websiteURL ~mailType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to submit new account details."]
module PutAccountDedicatedIpWarmupAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module PutAccountDedicatedIpWarmupAttributesRequest =
  struct
    type nonrec t =
      {
      autoWarmupEnabled: Enabled.t option
        [@ocaml.doc
          "Enables or disables the automatic warm-up feature for dedicated IP addresses that are associated with your Amazon SES account in the current Amazon Web Services Region. Set to true to enable the automatic warm-up feature, or set to false to disable it."]}
    let make ?autoWarmupEnabled = fun () -> { autoWarmupEnabled }
    let to_value x =
      structure_to_value
        [("AutoWarmupEnabled",
           (Option.map x.autoWarmupEnabled ~f:Enabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let autoWarmupEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "AutoWarmupEnabled") in
      make ?autoWarmupEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let autoWarmupEnabled =
        field_map json__ "AutoWarmupEnabled" Enabled.of_json in
      make ?autoWarmupEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to enable or disable the automatic IP address warm-up feature."]
module ListTenantsResponse =
  struct
    type nonrec t =
      {
      tenants: TenantInfoList.t option
        [@ocaml.doc
          "An array that contains basic information about each tenant."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional tenants to list. To view additional tenants, issue another request to ListTenants, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tenants = fun ?nextToken -> fun () -> { tenants; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("Tenants", (Option.map x.tenants ~f:TenantInfoList.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
      let tenants =
        (Option.map ~f:TenantInfoList.of_xml) (Xml.child xml_arg0 "Tenants") in
      make ?nextToken ?tenants ()
    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 tenants = field_map json__ "Tenants" TenantInfoList.of_json in
      make ?nextToken ?tenants ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about tenants associated with your account."]
module ListTenantsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListTenants to indicate the position in the list of tenants."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListTenants. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list all tenants associated with your account in the current Amazon Web Services Region."]
module ListTenantResourcesResponse =
  struct
    type nonrec t =
      {
      tenantResources: TenantResourceList.t option
        [@ocaml.doc
          "An array that contains information about each resource associated with the tenant."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional resources to list. To view additional resources, issue another request to ListTenantResources, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tenantResources =
      fun ?nextToken -> fun () -> { tenantResources; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("TenantResources",
           (Option.map x.tenantResources ~f:TenantResourceList.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
      let tenantResources =
        (Option.map ~f:TenantResourceList.of_xml)
          (Xml.child xml_arg0 "TenantResources") in
      make ?nextToken ?tenantResources ()
    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 tenantResources =
        field_map json__ "TenantResources" TenantResourceList.of_json in
      make ?nextToken ?tenantResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about resources associated with a specific tenant."]
module ListTenantResourcesRequest =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t
        [@ocaml.doc "The name of the tenant to list resources for."];
      filter: ListTenantResourcesFilter.t option
        [@ocaml.doc
          "A map of filter keys and values for filtering the list of tenant resources. Currently, the only supported filter key is RESOURCE_TYPE."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListTenantResources. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListTenantResources to indicate the position in the list of tenant resources."]}
    let context_ = "ListTenantResourcesRequest"
    let make ?filter =
      fun ?pageSize ->
        fun ?nextToken ->
          fun ~tenantName ->
            fun () -> { filter; pageSize; nextToken; tenantName }
    let to_value x =
      structure_to_value
        [("TenantName", (Some (TenantName.to_value x.tenantName)));
        ("Filter",
          (Option.map x.filter ~f:ListTenantResourcesFilter.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.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
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let filter =
        (Option.map ~f:ListTenantResourcesFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      let tenantName =
        TenantName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TenantName") in
      make ?nextToken ?pageSize ?filter ~tenantName ()
    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 pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let filter =
        field_map json__ "Filter" ListTenantResourcesFilter.of_json in
      let tenantName = field_map_exn json__ "TenantName" TenantName.of_json in
      make ?nextToken ?pageSize ?filter ~tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list resources associated with a specific tenant."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "An array that lists all the tags that are associated with the resource. Each tag consists of a required tag key (Key) and an associated tag value (Value)"]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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 [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve a list of the tags (keys and values) that are associated with a specified resource. A\194\160tag\194\160is a label that you optionally define and associate with a resource. Each tag consists of a required\194\160tag key\194\160and an optional associated\194\160tag value. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to retrieve tag information for."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve a list of the tags (keys and values) that are associated with a specified resource. A\194\160tag\194\160is a label that you optionally define and associate with a resource. Each tag consists of a required\194\160tag key\194\160and an optional associated\194\160tag value. A tag key is a general label that acts as a category for more specific tag values. A tag value acts as a descriptor within a tag key."]
module ListSuppressedDestinationsResponse =
  struct
    type nonrec t =
      {
      suppressedDestinationSummaries: SuppressedDestinationSummaries.t option
        [@ocaml.doc
          "A list of summaries, each containing a summary for a suppressed email destination."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional email addresses on the suppression list for your account. To view additional suppressed addresses, issue another request to ListSuppressedDestinations, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suppressedDestinationSummaries =
      fun ?nextToken ->
        fun () -> { suppressedDestinationSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.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)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.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))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.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
        [("SuppressedDestinationSummaries",
           (Option.map x.suppressedDestinationSummaries
              ~f:SuppressedDestinationSummaries.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
      let suppressedDestinationSummaries =
        (Option.map ~f:SuppressedDestinationSummaries.of_xml)
          (Xml.child xml_arg0 "SuppressedDestinationSummaries") in
      make ?nextToken ?suppressedDestinationSummaries ()
    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 suppressedDestinationSummaries =
        field_map json__ "SuppressedDestinationSummaries"
          SuppressedDestinationSummaries.of_json in
      make ?nextToken ?suppressedDestinationSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of suppressed email addresses."]
module ListSuppressedDestinationsRequest =
  struct
    type nonrec t =
      {
      reasons: SuppressionListReasons.t option
        [@ocaml.doc
          "The factors that caused the email address to be added to ."];
      startDate: Timestamp.t option
        [@ocaml.doc
          "Used to filter the list of suppressed email destinations so that it only includes addresses that were added to the list after a specific date."];
      endDate: Timestamp.t option
        [@ocaml.doc
          "Used to filter the list of suppressed email destinations so that it only includes addresses that were added to the list before a specific date."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListSuppressedDestinations to indicate the position in the list of suppressed email addresses."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListSuppressedDestinations. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."]}
    let make ?reasons =
      fun ?startDate ->
        fun ?endDate ->
          fun ?nextToken ->
            fun ?pageSize ->
              fun () -> { reasons; startDate; endDate; nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("Reason",
           (Option.map x.reasons ~f:SuppressionListReasons.to_value));
        ("StartDate", (Option.map x.startDate ~f:Timestamp.to_value));
        ("EndDate", (Option.map x.endDate ~f:Timestamp.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let endDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndDate") in
      let startDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "StartDate") in
      let reasons =
        (Option.map ~f:SuppressionListReasons.of_xml)
          (Xml.child xml_arg0 "Reason") in
      make ?pageSize ?nextToken ?endDate ?startDate ?reasons ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let endDate = field_map json__ "EndDate" Timestamp.of_json in
      let startDate = field_map json__ "StartDate" Timestamp.of_json in
      let reasons = field_map json__ "Reasons" SuppressionListReasons.of_json in
      make ?pageSize ?nextToken ?endDate ?startDate ?reasons ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain a list of email destinations that are on the suppression list for your account."]
module ListResourceTenantsResponse =
  struct
    type nonrec t =
      {
      resourceTenants: ResourceTenantMetadataList.t option
        [@ocaml.doc
          "An array that contains information about each tenant associated with the resource."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional tenants to list. To view additional tenants, issue another request to ListResourceTenants, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceTenants =
      fun ?nextToken -> fun () -> { resourceTenants; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ResourceTenants",
           (Option.map x.resourceTenants
              ~f:ResourceTenantMetadataList.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
      let resourceTenants =
        (Option.map ~f:ResourceTenantMetadataList.of_xml)
          (Xml.child xml_arg0 "ResourceTenants") in
      make ?nextToken ?resourceTenants ()
    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 resourceTenants =
        field_map json__ "ResourceTenants" ResourceTenantMetadataList.of_json in
      make ?nextToken ?resourceTenants ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about tenants associated with a specific resource."]
module ListResourceTenantsRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to list associated tenants for."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListResourceTenants. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListResourceTenants to indicate the position in the list of resource tenants."]}
    let context_ = "ListResourceTenantsRequest"
    let make ?pageSize =
      fun ?nextToken ->
        fun ~resourceArn -> fun () -> { pageSize; nextToken; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.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
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?nextToken ?pageSize ~resourceArn ()
    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 pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ?nextToken ?pageSize ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list tenants associated with a specific resource."]
module ListReputationEntitiesResponse =
  struct
    type nonrec t =
      {
      reputationEntities: ReputationEntitiesList.t option
        [@ocaml.doc
          "An array that contains information about the reputation entities in your account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional reputation entities to list. To view additional reputation entities, issue another request to ListReputationEntities, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reputationEntities =
      fun ?nextToken -> fun () -> { reputationEntities; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ReputationEntities",
           (Option.map x.reputationEntities
              ~f:ReputationEntitiesList.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
      let reputationEntities =
        (Option.map ~f:ReputationEntitiesList.of_xml)
          (Xml.child xml_arg0 "ReputationEntities") in
      make ?nextToken ?reputationEntities ()
    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 reputationEntities =
        field_map json__ "ReputationEntities" ReputationEntitiesList.of_json in
      make ?nextToken ?reputationEntities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of reputation entities in your account."]
module ListReputationEntitiesRequest =
  struct
    type nonrec t =
      {
      filter: ReputationEntityFilter.t option
        [@ocaml.doc
          "An object that contains filters to apply when listing reputation entities. You can filter by entity type, reputation impact, sending status, or entity reference prefix."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListReputationEntities to indicate the position in the list of reputation entities."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListReputationEntities. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."]}
    let make ?filter =
      fun ?nextToken ->
        fun ?pageSize -> fun () -> { filter; nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("Filter", (Option.map x.filter ~f:ReputationEntityFilter.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filter =
        (Option.map ~f:ReputationEntityFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      make ?pageSize ?nextToken ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filter = field_map json__ "Filter" ReputationEntityFilter.of_json in
      make ?pageSize ?nextToken ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list reputation entities with optional filtering."]
module ListRecommendationsResponse =
  struct
    type nonrec t =
      {
      recommendations: RecommendationsList.t option
        [@ocaml.doc "The recommendations applicable to your account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional recommendations available to be listed. Use the token provided in the ListRecommendationsResponse to use in the subsequent call to ListRecommendations with the same parameters to retrieve the next page of recommendations."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?recommendations =
      fun ?nextToken -> fun () -> { recommendations; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("Recommendations",
           (Option.map x.recommendations ~f:RecommendationsList.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
      let recommendations =
        (Option.map ~f:RecommendationsList.of_xml)
          (Xml.child xml_arg0 "Recommendations") in
      make ?nextToken ?recommendations ()
    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 recommendations =
        field_map json__ "Recommendations" RecommendationsList.of_json in
      make ?nextToken ?recommendations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the response to your request to retrieve the list of recommendations for your account."]
module ListRecommendationsRequest =
  struct
    type nonrec t =
      {
      filter: ListRecommendationsFilter.t option
        [@ocaml.doc
          "Filters applied when retrieving recommendations. Can eiter be an individual filter, or combinations of STATUS and IMPACT or STATUS and TYPE"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListRecommendations to indicate the position in the list of recommendations."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListRecommendations. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results. The value you specify has to be at least 1, and can be no more than 100."]}
    let make ?filter =
      fun ?nextToken ->
        fun ?pageSize -> fun () -> { filter; nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("Filter",
           (Option.map x.filter ~f:ListRecommendationsFilter.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filter =
        (Option.map ~f:ListRecommendationsFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      make ?pageSize ?nextToken ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filter =
        field_map json__ "Filter" ListRecommendationsFilter.of_json in
      make ?pageSize ?nextToken ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list the existing recommendations for your account."]
module ListMultiRegionEndpointsResponse =
  struct
    type nonrec t =
      {
      multiRegionEndpoints: MultiRegionEndpoints.t option
        [@ocaml.doc
          "An array that contains key multi-region endpoint (global-endpoint) properties."];
      nextToken: NextTokenV2.t option
        [@ocaml.doc
          "A token indicating that there are additional multi-region endpoints (global-endpoints) available to be listed. Pass this token to a subsequent ListMultiRegionEndpoints call to retrieve the next page."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?multiRegionEndpoints =
      fun ?nextToken -> fun () -> { multiRegionEndpoints; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("MultiRegionEndpoints",
           (Option.map x.multiRegionEndpoints
              ~f:MultiRegionEndpoints.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenV2.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenV2.of_xml) (Xml.child xml_arg0 "NextToken") in
      let multiRegionEndpoints =
        (Option.map ~f:MultiRegionEndpoints.of_xml)
          (Xml.child xml_arg0 "MultiRegionEndpoints") in
      make ?nextToken ?multiRegionEndpoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenV2.of_json in
      let multiRegionEndpoints =
        field_map json__ "MultiRegionEndpoints" MultiRegionEndpoints.of_json in
      make ?nextToken ?multiRegionEndpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following elements are returned by the service."]
module ListMultiRegionEndpointsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextTokenV2.t option
        [@ocaml.doc
          "A token returned from a previous call to ListMultiRegionEndpoints to indicate the position in the list of multi-region endpoints (global-endpoints)."];
      pageSize: PageSizeV2.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListMultiRegionEndpoints. If the number of results is larger than the number you specified in this parameter, the response includes a NextToken element that you can use to retrieve the next page of results."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextTokenV2.to_value));
        ("PageSize", (Option.map x.pageSize ~f:PageSizeV2.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:PageSizeV2.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextTokenV2.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" PageSizeV2.of_json in
      let nextToken = field_map json__ "NextToken" NextTokenV2.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list all the multi-region endpoints (global-endpoints) whose primary region is the AWS-Region where operation is executed."]
module ListImportJobsResponse =
  struct
    type nonrec t =
      {
      importJobs: ImportJobSummaryList.t option
        [@ocaml.doc "A list of the import job summaries."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional import jobs available to be listed. Copy this token to a subsequent call to ListImportJobs with the same parameters to retrieve the next page of import jobs."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?importJobs =
      fun ?nextToken -> fun () -> { importJobs; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ImportJobs",
           (Option.map x.importJobs ~f:ImportJobSummaryList.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
      let importJobs =
        (Option.map ~f:ImportJobSummaryList.of_xml)
          (Xml.child xml_arg0 "ImportJobs") in
      make ?nextToken ?importJobs ()
    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 importJobs =
        field_map json__ "ImportJobs" ImportJobSummaryList.of_json in
      make ?nextToken ?importJobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module ListImportJobsRequest =
  struct
    type nonrec t =
      {
      importDestinationType: ImportDestinationType.t option
        [@ocaml.doc
          "The destination of the import job, which can be used to list import jobs that have a certain ImportDestinationType."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional import jobs available to be listed. Copy this token to a subsequent call to ListImportJobs with the same parameters to retrieve the next page of import jobs."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "Maximum number of import jobs to return at once. Use this parameter to paginate results. If additional import jobs exist beyond the specified limit, the NextToken element is sent in the response. Use the NextToken value in subsequent requests to retrieve additional addresses."]}
    let make ?importDestinationType =
      fun ?nextToken ->
        fun ?pageSize ->
          fun () -> { importDestinationType; nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("ImportDestinationType",
           (Option.map x.importDestinationType
              ~f:ImportDestinationType.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let importDestinationType =
        (Option.map ~f:ImportDestinationType.of_xml)
          (Xml.child xml_arg0 "ImportDestinationType") in
      make ?pageSize ?nextToken ?importDestinationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let importDestinationType =
        field_map json__ "ImportDestinationType"
          ImportDestinationType.of_json in
      make ?pageSize ?nextToken ?importDestinationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list all of the import jobs for a data destination within the specified maximum number of import jobs."]
module ListExportJobsResponse =
  struct
    type nonrec t =
      {
      exportJobs: ExportJobSummaryList.t option
        [@ocaml.doc "A list of the export job summaries."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional export jobs available to be listed. Use this token to a subsequent call to ListExportJobs with the same parameters to retrieve the next page of export jobs."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?exportJobs =
      fun ?nextToken -> fun () -> { exportJobs; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ExportJobs",
           (Option.map x.exportJobs ~f:ExportJobSummaryList.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
      let exportJobs =
        (Option.map ~f:ExportJobSummaryList.of_xml)
          (Xml.child xml_arg0 "ExportJobs") in
      make ?nextToken ?exportJobs ()
    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 exportJobs =
        field_map json__ "ExportJobs" ExportJobSummaryList.of_json in
      make ?nextToken ?exportJobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module ListExportJobsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token returned from a previous call to ListExportJobs to indicate the position in the list of export jobs."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "Maximum number of export jobs to return at once. Use this parameter to paginate results. If additional export jobs exist beyond the specified limit, the NextToken element is sent in the response. Use the NextToken value in subsequent calls to ListExportJobs to retrieve additional export jobs."];
      exportSourceType: ExportSourceType.t option
        [@ocaml.doc
          "A value used to list export jobs that have a certain ExportSourceType."];
      jobStatus: JobStatus.t option
        [@ocaml.doc
          "A value used to list export jobs that have a certain JobStatus."]}
    let make ?nextToken =
      fun ?pageSize ->
        fun ?exportSourceType ->
          fun ?jobStatus ->
            fun () -> { nextToken; pageSize; exportSourceType; jobStatus }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value));
        ("ExportSourceType",
          (Option.map x.exportSourceType ~f:ExportSourceType.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let exportSourceType =
        (Option.map ~f:ExportSourceType.of_xml)
          (Xml.child xml_arg0 "ExportSourceType") in
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?jobStatus ?exportSourceType ?pageSize ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let exportSourceType =
        field_map json__ "ExportSourceType" ExportSourceType.of_json in
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?jobStatus ?exportSourceType ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list all export jobs with filters."]
module ListEmailTemplatesResponse =
  struct
    type nonrec t =
      {
      templatesMetadata: EmailTemplateMetadataList.t option
        [@ocaml.doc
          "An array the contains the name and creation time stamp for each template in your Amazon SES account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating that there are additional email templates available to be listed. Pass this token to a subsequent ListEmailTemplates call to retrieve the next 10 email templates."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templatesMetadata =
      fun ?nextToken -> fun () -> { templatesMetadata; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("TemplatesMetadata",
           (Option.map x.templatesMetadata
              ~f:EmailTemplateMetadataList.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
      let templatesMetadata =
        (Option.map ~f:EmailTemplateMetadataList.of_xml)
          (Xml.child xml_arg0 "TemplatesMetadata") in
      make ?nextToken ?templatesMetadata ()
    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 templatesMetadata =
        field_map json__ "TemplatesMetadata"
          EmailTemplateMetadataList.of_json in
      make ?nextToken ?templatesMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following elements are returned by the service."]
module ListEmailTemplatesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListEmailTemplates to indicate the position in the list of email templates."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListEmailTemplates. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results. The value you specify has to be at least 1, and can be no more than 100."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list the email templates present in your Amazon SES account in the current Amazon Web Services Region. For more information, see the Amazon SES Developer Guide."]
module ListEmailIdentitiesResponse =
  struct
    type nonrec t =
      {
      emailIdentities: IdentityInfoList.t option
        [@ocaml.doc
          "An array that includes all of the email identities associated with your Amazon Web Services account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional configuration sets to list. To view additional configuration sets, issue another request to ListEmailIdentities, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?emailIdentities =
      fun ?nextToken -> fun () -> { emailIdentities; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("EmailIdentities",
           (Option.map x.emailIdentities ~f:IdentityInfoList.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
      let emailIdentities =
        (Option.map ~f:IdentityInfoList.of_xml)
          (Xml.child xml_arg0 "EmailIdentities") in
      make ?nextToken ?emailIdentities ()
    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 emailIdentities =
        field_map json__ "EmailIdentities" IdentityInfoList.of_json in
      make ?nextToken ?emailIdentities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of all of the identities that you've attempted to verify, regardless of whether or not those identities were successfully verified."]
module ListEmailIdentitiesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListEmailIdentities to indicate the position in the list of identities."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListEmailIdentities. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results. The value you specify has to be at least 0, and can be no more than 1000."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to list all of the email identities associated with your Amazon Web Services account. This list includes identities that you've already verified, identities that are unverified, and identities that were verified in the past, but are no longer verified."]
module ListDomainDeliverabilityCampaignsResponse =
  struct
    type nonrec t =
      {
      domainDeliverabilityCampaigns:
        DomainDeliverabilityCampaignList.t option
        [@ocaml.doc
          "An array of responses, one for each campaign that used the domain to send email during the specified time range."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that\226\128\153s returned from a previous call to the ListDomainDeliverabilityCampaigns operation. This token indicates the position of the campaign in the list of campaigns."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainDeliverabilityCampaigns =
      fun ?nextToken ->
        fun () -> { domainDeliverabilityCampaigns; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DomainDeliverabilityCampaigns",
           (Option.map x.domainDeliverabilityCampaigns
              ~f:DomainDeliverabilityCampaignList.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
      let domainDeliverabilityCampaigns =
        (Option.map ~f:DomainDeliverabilityCampaignList.of_xml)
          (Xml.child xml_arg0 "DomainDeliverabilityCampaigns") in
      make ?nextToken ?domainDeliverabilityCampaigns ()
    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 domainDeliverabilityCampaigns =
        field_map json__ "DomainDeliverabilityCampaigns"
          DomainDeliverabilityCampaignList.of_json in
      make ?nextToken ?domainDeliverabilityCampaigns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An array of objects that provide deliverability data for all the campaigns that used a specific domain to send email during a specified time range. This data is available for a domain only if you enabled the Deliverability dashboard for the domain."]
module ListDomainDeliverabilityCampaignsRequest =
  struct
    type nonrec t =
      {
      startDate: Timestamp.t
        [@ocaml.doc
          "The first day that you want to obtain deliverability data for."];
      endDate: Timestamp.t
        [@ocaml.doc
          "The last day that you want to obtain deliverability data for. This value has to be less than or equal to 30 days after the value of the StartDate parameter."];
      subscribedDomain: Domain.t
        [@ocaml.doc "The domain to obtain deliverability data for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that\226\128\153s returned from a previous call to the ListDomainDeliverabilityCampaigns operation. This token indicates the position of a campaign in the list of campaigns."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The maximum number of results to include in response to a single call to the ListDomainDeliverabilityCampaigns operation. If the number of results is larger than the number that you specify in this parameter, the response includes a NextToken element, which you can use to obtain additional results."]}
    let context_ = "ListDomainDeliverabilityCampaignsRequest"
    let make ?nextToken =
      fun ?pageSize ->
        fun ~startDate ->
          fun ~endDate ->
            fun ~subscribedDomain ->
              fun () ->
                { nextToken; pageSize; startDate; endDate; subscribedDomain }
    let to_value x =
      structure_to_value
        [("StartDate", (Some (Timestamp.to_value x.startDate)));
        ("EndDate", (Some (Timestamp.to_value x.endDate)));
        ("SubscribedDomain", (Some (Domain.to_value x.subscribedDomain)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let subscribedDomain =
        Domain.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscribedDomain") in
      let endDate =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndDate") in
      let startDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartDate") in
      make ?pageSize ?nextToken ~subscribedDomain ~endDate ~startDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let subscribedDomain =
        field_map_exn json__ "SubscribedDomain" Domain.of_json in
      let endDate = field_map_exn json__ "EndDate" Timestamp.of_json in
      let startDate = field_map_exn json__ "StartDate" Timestamp.of_json in
      make ?pageSize ?nextToken ~subscribedDomain ~endDate ~startDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve deliverability data for all the campaigns that used a specific domain to send email during a specified time range. This data is available for a domain only if you enabled the Deliverability dashboard."]
module ListDeliverabilityTestReportsResponse =
  struct
    type nonrec t =
      {
      deliverabilityTestReports: DeliverabilityTestReports.t option
        [@ocaml.doc
          "An object that contains a lists of predictive inbox placement tests that you've performed."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional predictive inbox placement tests to list. To view additional predictive inbox placement tests, issue another request to ListDeliverabilityTestReports, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deliverabilityTestReports =
      fun ?nextToken -> fun () -> { deliverabilityTestReports; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DeliverabilityTestReports",
           (Option.map x.deliverabilityTestReports
              ~f:DeliverabilityTestReports.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
      let deliverabilityTestReports =
        (Option.map ~f:DeliverabilityTestReports.of_xml)
          (Xml.child xml_arg0 "DeliverabilityTestReports") in
      make ?nextToken ?deliverabilityTestReports ()
    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 deliverabilityTestReports =
        field_map json__ "DeliverabilityTestReports"
          DeliverabilityTestReports.of_json in
      make ?nextToken ?deliverabilityTestReports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of the predictive inbox placement test reports that are available for your account, regardless of whether or not those tests are complete."]
module ListDeliverabilityTestReportsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListDeliverabilityTestReports to indicate the position in the list of predictive inbox placement tests."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListDeliverabilityTestReports. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results. The value you specify has to be at least 0, and can be no more than 1000."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to list all of the predictive inbox placement tests that you've performed."]
module ListDedicatedIpPoolsResponse =
  struct
    type nonrec t =
      {
      dedicatedIpPools: ListOfDedicatedIpPools.t option
        [@ocaml.doc
          "A list of all of the dedicated IP pools that are associated with your Amazon Web Services account in the current Region."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional IP pools to list. To view additional IP pools, issue another request to ListDedicatedIpPools, passing this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dedicatedIpPools =
      fun ?nextToken -> fun () -> { dedicatedIpPools; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DedicatedIpPools",
           (Option.map x.dedicatedIpPools ~f:ListOfDedicatedIpPools.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
      let dedicatedIpPools =
        (Option.map ~f:ListOfDedicatedIpPools.of_xml)
          (Xml.child xml_arg0 "DedicatedIpPools") in
      make ?nextToken ?dedicatedIpPools ()
    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 dedicatedIpPools =
        field_map json__ "DedicatedIpPools" ListOfDedicatedIpPools.of_json in
      make ?nextToken ?dedicatedIpPools ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of dedicated IP pools."]
module ListDedicatedIpPoolsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListDedicatedIpPools to indicate the position in the list of dedicated IP pools."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListDedicatedIpPools. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to obtain a list of dedicated IP pools."]
module ListCustomVerificationEmailTemplatesResponse =
  struct
    type nonrec t =
      {
      customVerificationEmailTemplates:
        CustomVerificationEmailTemplatesList.t option
        [@ocaml.doc
          "A list of the custom verification email templates that exist in your account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token indicating that there are additional custom verification email templates available to be listed. Pass this token to a subsequent call to ListCustomVerificationEmailTemplates to retrieve the next 50 custom verification email templates."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?customVerificationEmailTemplates =
      fun ?nextToken ->
        fun () -> { customVerificationEmailTemplates; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("CustomVerificationEmailTemplates",
           (Option.map x.customVerificationEmailTemplates
              ~f:CustomVerificationEmailTemplatesList.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
      let customVerificationEmailTemplates =
        (Option.map ~f:CustomVerificationEmailTemplatesList.of_xml)
          (Xml.child xml_arg0 "CustomVerificationEmailTemplates") in
      make ?nextToken ?customVerificationEmailTemplates ()
    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 customVerificationEmailTemplates =
        field_map json__ "CustomVerificationEmailTemplates"
          CustomVerificationEmailTemplatesList.of_json in
      make ?nextToken ?customVerificationEmailTemplates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following elements are returned by the service."]
module ListCustomVerificationEmailTemplatesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListCustomVerificationEmailTemplates to indicate the position in the list of custom verification email templates."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListCustomVerificationEmailTemplates. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results. The value you specify has to be at least 1, and can be no more than 50."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to list the existing custom verification email templates for your account."]
module ListContactsResponse =
  struct
    type nonrec t =
      {
      contacts: ListOfContacts.t option
        [@ocaml.doc "The contacts present in a specific contact list."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional contacts available to be listed. Copy this token to a subsequent call to ListContacts with the same parameters to retrieve the next page of contacts."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contacts = fun ?nextToken -> fun () -> { contacts; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("Contacts", (Option.map x.contacts ~f:ListOfContacts.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
      let contacts =
        (Option.map ~f:ListOfContacts.of_xml) (Xml.child xml_arg0 "Contacts") in
      make ?nextToken ?contacts ()
    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 contacts = field_map json__ "Contacts" ListOfContacts.of_json in
      make ?nextToken ?contacts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the contacts present in a specific contact list."]
module ListContactsRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."];
      filter: ListContactsFilter.t option
        [@ocaml.doc "A filter that can be applied to a list of contacts."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of contacts that may be returned at once, which is dependent on if there are more or less contacts than the value of the PageSize. Use this parameter to paginate results. If additional contacts exist beyond the specified limit, the NextToken element is sent in the response. Use the NextToken value in subsequent requests to retrieve additional contacts."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional contacts available to be listed. Use the token provided in the Response to use in the subsequent call to ListContacts with the same parameters to retrieve the next page of contacts."]}
    let context_ = "ListContactsRequest"
    let make ?filter =
      fun ?pageSize ->
        fun ?nextToken ->
          fun ~contactListName ->
            fun () -> { filter; pageSize; nextToken; contactListName }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("Filter", (Option.map x.filter ~f:ListContactsFilter.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.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
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let filter =
        (Option.map ~f:ListContactsFilter.of_xml)
          (Xml.child xml_arg0 "Filter") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ?nextToken ?pageSize ?filter ~contactListName ()
    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 pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let filter = field_map json__ "Filter" ListContactsFilter.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ?nextToken ?pageSize ?filter ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the contacts present in a specific contact list."]
module ListContactListsResponse =
  struct
    type nonrec t =
      {
      contactLists: ListOfContactLists.t option
        [@ocaml.doc "The available contact lists."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional contact lists available to be listed. Copy this token to a subsequent call to ListContactLists with the same parameters to retrieve the next page of contact lists."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactLists =
      fun ?nextToken -> fun () -> { contactLists; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ContactLists",
           (Option.map x.contactLists ~f:ListOfContactLists.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
      let contactLists =
        (Option.map ~f:ListOfContactLists.of_xml)
          (Xml.child xml_arg0 "ContactLists") in
      make ?nextToken ?contactLists ()
    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 contactLists =
        field_map json__ "ContactLists" ListOfContactLists.of_json in
      make ?nextToken ?contactLists ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the contact lists available. If your output includes a \"NextToken\" field with a string value, this indicates there may be additional contacts on the filtered list - regardless of the number of contacts returned."]
module ListContactListsRequest =
  struct
    type nonrec t =
      {
      pageSize: MaxItems.t option
        [@ocaml.doc
          "Maximum number of contact lists to return at once. Use this parameter to paginate results. If additional contact lists exist beyond the specified limit, the NextToken element is sent in the response. Use the NextToken value in subsequent requests to retrieve additional lists."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A string token indicating that there might be additional contact lists available to be listed. Use the token provided in the Response to use in the subsequent call to ListContactLists with the same parameters to retrieve the next page of contact lists."]}
    let make ?pageSize = fun ?nextToken -> fun () -> { pageSize; nextToken }
    let to_value x =
      structure_to_value
        [("PageSize", (Option.map x.pageSize ~f:MaxItems.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
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      make ?nextToken ?pageSize ()
    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 pageSize = field_map json__ "PageSize" MaxItems.of_json in
      make ?nextToken ?pageSize ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the contact lists available. If your output includes a \"NextToken\" field with a string value, this indicates there may be additional contacts on the filtered list - regardless of the number of contacts returned."]
module ListConfigurationSetsResponse =
  struct
    type nonrec t =
      {
      configurationSets: ConfigurationSetNameList.t option
        [@ocaml.doc
          "An array that contains all of the configuration sets in your Amazon SES account in the current Amazon Web Services Region."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional configuration sets to list. To view additional configuration sets, issue another request to ListConfigurationSets, and pass this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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:ConfigurationSetNameList.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
      let configurationSets =
        (Option.map ~f:ConfigurationSetNameList.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" NextToken.of_json in
      let configurationSets =
        field_map json__ "ConfigurationSets" ConfigurationSetNameList.of_json in
      make ?nextToken ?configurationSets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of configuration sets in your Amazon SES account in the current Amazon Web Services Region."]
module ListConfigurationSetsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to ListConfigurationSets to indicate the position in the list of configuration sets."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to ListConfigurationSets. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."]}
    let make ?nextToken = fun ?pageSize -> fun () -> { nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.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" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?pageSize ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain a list of configuration sets for your Amazon SES account in the current Amazon Web Services Region."]
module GetTenantResponse =
  struct
    type nonrec t =
      {
      tenant: Tenant.t option
        [@ocaml.doc "A structure that contains details about the tenant."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tenant = fun () -> { tenant }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("Tenant", (Option.map x.tenant ~f:Tenant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenant =
        (Option.map ~f:Tenant.of_xml) (Xml.child xml_arg0 "Tenant") in
      make ?tenant ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenant = field_map json__ "Tenant" Tenant.of_json in
      make ?tenant ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a specific tenant."]
module GetTenantRequest =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t
        [@ocaml.doc "The name of the tenant to retrieve information about."]}
    let context_ = "GetTenantRequest"
    let make ~tenantName = fun () -> { tenantName }
    let to_value x =
      structure_to_value
        [("TenantName", (Some (TenantName.to_value x.tenantName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenantName =
        TenantName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TenantName") in
      make ~tenantName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenantName = field_map_exn json__ "TenantName" TenantName.of_json in
      make ~tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to get information about a specific tenant."]
module GetSuppressedDestinationResponse =
  struct
    type nonrec t =
      {
      suppressedDestination: SuppressedDestination.t option
        [@ocaml.doc
          "An object containing information about the suppressed email address."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suppressedDestination = fun () -> { suppressedDestination }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("SuppressedDestination",
           (Option.map x.suppressedDestination
              ~f:SuppressedDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suppressedDestination =
        (Option.map ~f:SuppressedDestination.of_xml)
          (Xml.child xml_arg0 "SuppressedDestination") in
      make ?suppressedDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suppressedDestination =
        field_map json__ "SuppressedDestination"
          SuppressedDestination.of_json in
      make ?suppressedDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the suppressed email address."]
module GetSuppressedDestinationRequest =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t
        [@ocaml.doc
          "The email address that's on the account suppression list."]}
    let context_ = "GetSuppressedDestinationRequest"
    let make ~emailAddress = fun () -> { emailAddress }
    let to_value x =
      structure_to_value
        [("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      make ~emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      make ~emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to retrieve information about an email address that's on the suppression list for your account."]
module GetReputationEntityResponse =
  struct
    type nonrec t =
      {
      reputationEntity: ReputationEntity.t option
        [@ocaml.doc
          "The reputation entity information, including status records, policy configuration, and reputation impact."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reputationEntity = fun () -> { reputationEntity }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ReputationEntity",
           (Option.map x.reputationEntity ~f:ReputationEntity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reputationEntity =
        (Option.map ~f:ReputationEntity.of_xml)
          (Xml.child xml_arg0 "ReputationEntity") in
      make ?reputationEntity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reputationEntity =
        field_map json__ "ReputationEntity" ReputationEntity.of_json in
      make ?reputationEntity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the requested reputation entity."]
module GetReputationEntityRequest =
  struct
    type nonrec t =
      {
      reputationEntityReference: ReputationEntityReference.t
        [@ocaml.doc
          "The unique identifier for the reputation entity. For resource-type entities, this is the Amazon Resource Name (ARN) of the resource."];
      reputationEntityType: ReputationEntityType.t
        [@ocaml.doc
          "The type of reputation entity. Currently, only RESOURCE type entities are supported."]}
    let context_ = "GetReputationEntityRequest"
    let make ~reputationEntityReference =
      fun ~reputationEntityType ->
        fun () -> { reputationEntityReference; reputationEntityType }
    let to_value x =
      structure_to_value
        [("ReputationEntityReference",
           (Some
              (ReputationEntityReference.to_value x.reputationEntityReference)));
        ("ReputationEntityType",
          (Some (ReputationEntityType.to_value x.reputationEntityType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reputationEntityType =
        ReputationEntityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReputationEntityType") in
      let reputationEntityReference =
        ReputationEntityReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ReputationEntityReference") in
      make ~reputationEntityType ~reputationEntityReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reputationEntityType =
        field_map_exn json__ "ReputationEntityType"
          ReputationEntityType.of_json in
      let reputationEntityReference =
        field_map_exn json__ "ReputationEntityReference"
          ReputationEntityReference.of_json in
      make ~reputationEntityType ~reputationEntityReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to retrieve information about a specific reputation entity."]
module GetMultiRegionEndpointResponse =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t option
        [@ocaml.doc
          "The name of the multi-region endpoint (global-endpoint)."];
      endpointId: EndpointId.t option
        [@ocaml.doc "The ID of the multi-region endpoint (global-endpoint)."];
      routes: Routes.t option
        [@ocaml.doc
          "Contains routes information for the multi-region endpoint (global-endpoint)."];
      status: Status.t option
        [@ocaml.doc
          "The status of the multi-region endpoint (global-endpoint). CREATING \226\128\147 The resource is being provisioned. READY \226\128\147 The resource is ready to use. FAILED \226\128\147 The resource failed to be provisioned. DELETING \226\128\147 The resource is being deleted as requested."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time stamp of when the multi-region endpoint (global-endpoint) was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time stamp of when the multi-region endpoint (global-endpoint) was last updated."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?endpointName =
      fun ?endpointId ->
        fun ?routes ->
          fun ?status ->
            fun ?createdTimestamp ->
              fun ?lastUpdatedTimestamp ->
                fun () ->
                  {
                    endpointName;
                    endpointId;
                    routes;
                    status;
                    createdTimestamp;
                    lastUpdatedTimestamp
                  }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("EndpointName",
           (Option.map x.endpointName ~f:EndpointName.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value));
        ("Routes", (Option.map x.routes ~f:Routes.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let routes =
        (Option.map ~f:Routes.of_xml) (Xml.child xml_arg0 "Routes") in
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let endpointName =
        (Option.map ~f:EndpointName.of_xml)
          (Xml.child xml_arg0 "EndpointName") in
      make ?lastUpdatedTimestamp ?createdTimestamp ?status ?routes
        ?endpointId ?endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let routes = field_map json__ "Routes" Routes.of_json in
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let endpointName = field_map json__ "EndpointName" EndpointName.of_json in
      make ?lastUpdatedTimestamp ?createdTimestamp ?status ?routes
        ?endpointId ?endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module GetMultiRegionEndpointRequest =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t
        [@ocaml.doc
          "The name of the multi-region endpoint (global-endpoint)."]}
    let context_ = "GetMultiRegionEndpointRequest"
    let make ~endpointName = fun () -> { endpointName }
    let to_value x =
      structure_to_value
        [("EndpointName", (Some (EndpointName.to_value x.endpointName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointName =
        EndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointName") in
      make ~endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointName =
        field_map_exn json__ "EndpointName" EndpointName.of_json in
      make ~endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to display the multi-region endpoint (global-endpoint)."]
module GetMessageInsightsResponse =
  struct
    type nonrec t =
      {
      messageId: OutboundMessageId.t option
        [@ocaml.doc "A unique identifier for the message."];
      fromEmailAddress: InsightsEmailAddress.t option
        [@ocaml.doc "The from address used to send the message."];
      subject: EmailSubject.t option
        [@ocaml.doc "The subject line of the message."];
      emailTags: MessageTagList.t option
        [@ocaml.doc
          "A list of tags, in the form of name/value pairs, that were applied to the email you sent, along with Amazon SES Auto-Tags."];
      insights: EmailInsightsList.t option
        [@ocaml.doc "A set of insights associated with the message."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId =
      fun ?fromEmailAddress ->
        fun ?subject ->
          fun ?emailTags ->
            fun ?insights ->
              fun () ->
                { messageId; fromEmailAddress; subject; emailTags; insights }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("MessageId",
           (Option.map x.messageId ~f:OutboundMessageId.to_value));
        ("FromEmailAddress",
          (Option.map x.fromEmailAddress ~f:InsightsEmailAddress.to_value));
        ("Subject", (Option.map x.subject ~f:EmailSubject.to_value));
        ("EmailTags", (Option.map x.emailTags ~f:MessageTagList.to_value));
        ("Insights", (Option.map x.insights ~f:EmailInsightsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let insights =
        (Option.map ~f:EmailInsightsList.of_xml)
          (Xml.child xml_arg0 "Insights") in
      let emailTags =
        (Option.map ~f:MessageTagList.of_xml)
          (Xml.child xml_arg0 "EmailTags") in
      let subject =
        (Option.map ~f:EmailSubject.of_xml) (Xml.child xml_arg0 "Subject") in
      let fromEmailAddress =
        (Option.map ~f:InsightsEmailAddress.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      let messageId =
        (Option.map ~f:OutboundMessageId.of_xml)
          (Xml.child xml_arg0 "MessageId") in
      make ?insights ?emailTags ?subject ?fromEmailAddress ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let insights = field_map json__ "Insights" EmailInsightsList.of_json in
      let emailTags = field_map json__ "EmailTags" MessageTagList.of_json in
      let subject = field_map json__ "Subject" EmailSubject.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" InsightsEmailAddress.of_json in
      let messageId = field_map json__ "MessageId" OutboundMessageId.of_json in
      make ?insights ?emailTags ?subject ?fromEmailAddress ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a message."]
module GetMessageInsightsRequest =
  struct
    type nonrec t =
      {
      messageId: OutboundMessageId.t
        [@ocaml.doc
          "A MessageId is a unique identifier for a message, and is returned when sending emails through Amazon SES."]}
    let context_ = "GetMessageInsightsRequest"
    let make ~messageId = fun () -> { messageId }
    let to_value x =
      structure_to_value
        [("MessageId", (Some (OutboundMessageId.to_value x.messageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        OutboundMessageId.of_xml
          (Xml.child_exn ~context:context_ 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_exn json__ "MessageId" OutboundMessageId.of_json in
      make ~messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to return information about a message."]
module GetImportJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "A string that represents the import job ID."];
      importDestination: ImportDestination.t option
        [@ocaml.doc "The destination of the import job."];
      importDataSource: ImportDataSource.t option
        [@ocaml.doc "The data source of the import job."];
      failureInfo: FailureInfo.t option
        [@ocaml.doc "The failure details about an import job."];
      jobStatus: JobStatus.t option
        [@ocaml.doc "The status of the import job."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The time stamp of when the import job was created."];
      completedTimestamp: Timestamp.t option
        [@ocaml.doc "The time stamp of when the import job was completed."];
      processedRecordsCount: ProcessedRecordsCount.t option
        [@ocaml.doc "The current number of records processed."];
      failedRecordsCount: FailedRecordsCount.t option
        [@ocaml.doc
          "The number of records that failed processing because of invalid input or other reasons."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?importDestination ->
        fun ?importDataSource ->
          fun ?failureInfo ->
            fun ?jobStatus ->
              fun ?createdTimestamp ->
                fun ?completedTimestamp ->
                  fun ?processedRecordsCount ->
                    fun ?failedRecordsCount ->
                      fun () ->
                        {
                          jobId;
                          importDestination;
                          importDataSource;
                          failureInfo;
                          jobStatus;
                          createdTimestamp;
                          completedTimestamp;
                          processedRecordsCount;
                          failedRecordsCount
                        }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("ImportDestination",
          (Option.map x.importDestination ~f:ImportDestination.to_value));
        ("ImportDataSource",
          (Option.map x.importDataSource ~f:ImportDataSource.to_value));
        ("FailureInfo", (Option.map x.failureInfo ~f:FailureInfo.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("CompletedTimestamp",
          (Option.map x.completedTimestamp ~f:Timestamp.to_value));
        ("ProcessedRecordsCount",
          (Option.map x.processedRecordsCount
             ~f:ProcessedRecordsCount.to_value));
        ("FailedRecordsCount",
          (Option.map x.failedRecordsCount ~f:FailedRecordsCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedRecordsCount =
        (Option.map ~f:FailedRecordsCount.of_xml)
          (Xml.child xml_arg0 "FailedRecordsCount") in
      let processedRecordsCount =
        (Option.map ~f:ProcessedRecordsCount.of_xml)
          (Xml.child xml_arg0 "ProcessedRecordsCount") in
      let completedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CompletedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let failureInfo =
        (Option.map ~f:FailureInfo.of_xml) (Xml.child xml_arg0 "FailureInfo") in
      let importDataSource =
        (Option.map ~f:ImportDataSource.of_xml)
          (Xml.child xml_arg0 "ImportDataSource") in
      let importDestination =
        (Option.map ~f:ImportDestination.of_xml)
          (Xml.child xml_arg0 "ImportDestination") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?failedRecordsCount ?processedRecordsCount ?completedTimestamp
        ?createdTimestamp ?jobStatus ?failureInfo ?importDataSource
        ?importDestination ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedRecordsCount =
        field_map json__ "FailedRecordsCount" FailedRecordsCount.of_json in
      let processedRecordsCount =
        field_map json__ "ProcessedRecordsCount"
          ProcessedRecordsCount.of_json in
      let completedTimestamp =
        field_map json__ "CompletedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let failureInfo = field_map json__ "FailureInfo" FailureInfo.of_json in
      let importDataSource =
        field_map json__ "ImportDataSource" ImportDataSource.of_json in
      let importDestination =
        field_map json__ "ImportDestination" ImportDestination.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?failedRecordsCount ?processedRecordsCount ?completedTimestamp
        ?createdTimestamp ?jobStatus ?failureInfo ?importDataSource
        ?importDestination ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module GetImportJobRequest =
  struct
    type nonrec t = {
      jobId: JobId.t [@ocaml.doc "The ID of the import job."]}
    let context_ = "GetImportJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request for information about an import job using the import job ID."]
module GetExportJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The export job ID."];
      exportSourceType: ExportSourceType.t option
        [@ocaml.doc "The type of source of the export job."];
      jobStatus: JobStatus.t option
        [@ocaml.doc "The status of the export job."];
      exportDestination: ExportDestination.t option
        [@ocaml.doc "The destination of the export job."];
      exportDataSource: ExportDataSource.t option
        [@ocaml.doc "The data source of the export job."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of when the export job was created."];
      completedTimestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of when the export job was completed."];
      failureInfo: FailureInfo.t option
        [@ocaml.doc "The failure details about an export job."];
      statistics: ExportStatistics.t option
        [@ocaml.doc "The statistics about the export job."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?exportSourceType ->
        fun ?jobStatus ->
          fun ?exportDestination ->
            fun ?exportDataSource ->
              fun ?createdTimestamp ->
                fun ?completedTimestamp ->
                  fun ?failureInfo ->
                    fun ?statistics ->
                      fun () ->
                        {
                          jobId;
                          exportSourceType;
                          jobStatus;
                          exportDestination;
                          exportDataSource;
                          createdTimestamp;
                          completedTimestamp;
                          failureInfo;
                          statistics
                        }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("ExportSourceType",
          (Option.map x.exportSourceType ~f:ExportSourceType.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("ExportDestination",
          (Option.map x.exportDestination ~f:ExportDestination.to_value));
        ("ExportDataSource",
          (Option.map x.exportDataSource ~f:ExportDataSource.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("CompletedTimestamp",
          (Option.map x.completedTimestamp ~f:Timestamp.to_value));
        ("FailureInfo", (Option.map x.failureInfo ~f:FailureInfo.to_value));
        ("Statistics",
          (Option.map x.statistics ~f:ExportStatistics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statistics =
        (Option.map ~f:ExportStatistics.of_xml)
          (Xml.child xml_arg0 "Statistics") in
      let failureInfo =
        (Option.map ~f:FailureInfo.of_xml) (Xml.child xml_arg0 "FailureInfo") in
      let completedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CompletedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let exportDataSource =
        (Option.map ~f:ExportDataSource.of_xml)
          (Xml.child xml_arg0 "ExportDataSource") in
      let exportDestination =
        (Option.map ~f:ExportDestination.of_xml)
          (Xml.child xml_arg0 "ExportDestination") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let exportSourceType =
        (Option.map ~f:ExportSourceType.of_xml)
          (Xml.child xml_arg0 "ExportSourceType") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?statistics ?failureInfo ?completedTimestamp ?createdTimestamp
        ?exportDataSource ?exportDestination ?jobStatus ?exportSourceType
        ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statistics = field_map json__ "Statistics" ExportStatistics.of_json in
      let failureInfo = field_map json__ "FailureInfo" FailureInfo.of_json in
      let completedTimestamp =
        field_map json__ "CompletedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let exportDataSource =
        field_map json__ "ExportDataSource" ExportDataSource.of_json in
      let exportDestination =
        field_map json__ "ExportDestination" ExportDestination.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let exportSourceType =
        field_map json__ "ExportSourceType" ExportSourceType.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?statistics ?failureInfo ?completedTimestamp ?createdTimestamp
        ?exportDataSource ?exportDestination ?jobStatus ?exportSourceType
        ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module GetExportJobRequest =
  struct
    type nonrec t = {
      jobId: JobId.t [@ocaml.doc "The export job ID."]}
    let context_ = "GetExportJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to retrieve information about an export job using the export job ID."]
module GetEmailTemplateResponse =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t option
        [@ocaml.doc "The name of the template."];
      templateContent: EmailTemplateContent.t option
        [@ocaml.doc
          "The content of the email template, composed of a subject line, an HTML part, and a text-only part."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) that are associated with the email template."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templateName =
      fun ?templateContent ->
        fun ?tags -> fun () -> { templateName; templateContent; tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("TemplateName",
           (Option.map x.templateName ~f:EmailTemplateName.to_value));
        ("TemplateContent",
          (Option.map x.templateContent ~f:EmailTemplateContent.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let templateContent =
        (Option.map ~f:EmailTemplateContent.of_xml)
          (Xml.child xml_arg0 "TemplateContent") in
      let templateName =
        (Option.map ~f:EmailTemplateName.of_xml)
          (Xml.child xml_arg0 "TemplateName") in
      make ?tags ?templateContent ?templateName ()
    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
      let templateContent =
        field_map json__ "TemplateContent" EmailTemplateContent.of_json in
      let templateName =
        field_map json__ "TemplateName" EmailTemplateName.of_json in
      make ?tags ?templateContent ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following element is returned by the service."]
module GetEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc "The name of the template."]}
    let context_ = "GetEmailTemplateRequest"
    let make ~templateName = fun () -> { templateName }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to display the template object (which includes the subject line, HTML part and text part) for the template you specify."]
module GetEmailIdentityResponse =
  struct
    type nonrec t =
      {
      identityType: IdentityType.t option
        [@ocaml.doc
          "The email identity type. Note: the MANAGED_DOMAIN identity type is not supported."];
      feedbackForwardingStatus: Enabled.t option
        [@ocaml.doc
          "The feedback forwarding configuration for the identity. If the value is true, you receive email notifications when bounce or complaint events occur. These notifications are sent to the address that you specified in the Return-Path header of the original email. You're required to have a method of tracking bounces and complaints. If you haven't set up another mechanism for receiving bounce or complaint notifications (for example, by setting up an event destination), you receive an email notification when these events occur (even if this setting is disabled)."];
      verifiedForSendingStatus: Enabled.t option
        [@ocaml.doc
          "Specifies whether or not the identity is verified. You can only send email from verified email addresses or domains. For more information about verifying identities, see the Amazon Pinpoint User Guide."];
      dkimAttributes: DkimAttributes.t option
        [@ocaml.doc
          "An object that contains information about the DKIM attributes for the identity."];
      mailFromAttributes: MailFromAttributes.t option
        [@ocaml.doc
          "An object that contains information about the Mail-From attributes for the email identity."];
      policies: PolicyMap.t option
        [@ocaml.doc "A map of policy names to policies."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) that are associated with the email identity."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "The configuration set used by default when sending from this identity."];
      verificationStatus: VerificationStatus.t option
        [@ocaml.doc
          "The verification status of the identity. The status can be one of the following: PENDING \226\128\147 The verification process was initiated, but Amazon SES hasn't yet been able to verify the identity. SUCCESS \226\128\147 The verification process completed successfully. FAILED \226\128\147 The verification process failed. TEMPORARY_FAILURE \226\128\147 A temporary issue is preventing Amazon SES from determining the verification status of the identity. NOT_STARTED \226\128\147 The verification process hasn't been initiated for the identity."];
      verificationInfo: VerificationInfo.t option
        [@ocaml.doc
          "An object that contains additional information about the verification status for the identity."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityType =
      fun ?feedbackForwardingStatus ->
        fun ?verifiedForSendingStatus ->
          fun ?dkimAttributes ->
            fun ?mailFromAttributes ->
              fun ?policies ->
                fun ?tags ->
                  fun ?configurationSetName ->
                    fun ?verificationStatus ->
                      fun ?verificationInfo ->
                        fun () ->
                          {
                            identityType;
                            feedbackForwardingStatus;
                            verifiedForSendingStatus;
                            dkimAttributes;
                            mailFromAttributes;
                            policies;
                            tags;
                            configurationSetName;
                            verificationStatus;
                            verificationInfo
                          }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("IdentityType",
           (Option.map x.identityType ~f:IdentityType.to_value));
        ("FeedbackForwardingStatus",
          (Option.map x.feedbackForwardingStatus ~f:Enabled.to_value));
        ("VerifiedForSendingStatus",
          (Option.map x.verifiedForSendingStatus ~f:Enabled.to_value));
        ("DkimAttributes",
          (Option.map x.dkimAttributes ~f:DkimAttributes.to_value));
        ("MailFromAttributes",
          (Option.map x.mailFromAttributes ~f:MailFromAttributes.to_value));
        ("Policies", (Option.map x.policies ~f:PolicyMap.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("VerificationStatus",
          (Option.map x.verificationStatus ~f:VerificationStatus.to_value));
        ("VerificationInfo",
          (Option.map x.verificationInfo ~f:VerificationInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationInfo =
        (Option.map ~f:VerificationInfo.of_xml)
          (Xml.child xml_arg0 "VerificationInfo") in
      let verificationStatus =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "VerificationStatus") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let policies =
        (Option.map ~f:PolicyMap.of_xml) (Xml.child xml_arg0 "Policies") in
      let mailFromAttributes =
        (Option.map ~f:MailFromAttributes.of_xml)
          (Xml.child xml_arg0 "MailFromAttributes") in
      let dkimAttributes =
        (Option.map ~f:DkimAttributes.of_xml)
          (Xml.child xml_arg0 "DkimAttributes") in
      let verifiedForSendingStatus =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "VerifiedForSendingStatus") in
      let feedbackForwardingStatus =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "FeedbackForwardingStatus") in
      let identityType =
        (Option.map ~f:IdentityType.of_xml)
          (Xml.child xml_arg0 "IdentityType") in
      make ?verificationInfo ?verificationStatus ?configurationSetName ?tags
        ?policies ?mailFromAttributes ?dkimAttributes
        ?verifiedForSendingStatus ?feedbackForwardingStatus ?identityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationInfo =
        field_map json__ "VerificationInfo" VerificationInfo.of_json in
      let verificationStatus =
        field_map json__ "VerificationStatus" VerificationStatus.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let policies = field_map json__ "Policies" PolicyMap.of_json in
      let mailFromAttributes =
        field_map json__ "MailFromAttributes" MailFromAttributes.of_json in
      let dkimAttributes =
        field_map json__ "DkimAttributes" DkimAttributes.of_json in
      let verifiedForSendingStatus =
        field_map json__ "VerifiedForSendingStatus" Enabled.of_json in
      let feedbackForwardingStatus =
        field_map json__ "FeedbackForwardingStatus" Enabled.of_json in
      let identityType = field_map json__ "IdentityType" IdentityType.of_json in
      make ?verificationInfo ?verificationStatus ?configurationSetName ?tags
        ?policies ?mailFromAttributes ?dkimAttributes
        ?verifiedForSendingStatus ?feedbackForwardingStatus ?identityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about an email identity."]
module GetEmailIdentityRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."]}
    let context_ = "GetEmailIdentityRequest"
    let make ~emailIdentity = fun () -> { emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to return details about an email identity."]
module GetEmailIdentityPoliciesResponse =
  struct
    type nonrec t =
      {
      policies: PolicyMap.t option
        [@ocaml.doc "A map of policy names to policies."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policies = fun () -> { policies }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("Policies", (Option.map x.policies ~f:PolicyMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policies =
        (Option.map ~f:PolicyMap.of_xml) (Xml.child xml_arg0 "Policies") in
      make ?policies ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policies = field_map json__ "Policies" PolicyMap.of_json in
      make ?policies ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Identity policies associated with email identity."]
module GetEmailIdentityPoliciesRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."]}
    let context_ = "GetEmailIdentityPoliciesRequest"
    let make ~emailIdentity = fun () -> { emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to return the policies of an email identity."]
module GetEmailAddressInsightsResponse =
  struct
    type nonrec t =
      {
      mailboxValidation: MailboxValidation.t option
        [@ocaml.doc "Detailed validation results for the email address."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mailboxValidation = fun () -> { mailboxValidation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("MailboxValidation",
           (Option.map x.mailboxValidation ~f:MailboxValidation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mailboxValidation =
        (Option.map ~f:MailboxValidation.of_xml)
          (Xml.child xml_arg0 "MailboxValidation") in
      make ?mailboxValidation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mailboxValidation =
        field_map json__ "MailboxValidation" MailboxValidation.of_json in
      make ?mailboxValidation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Validation insights about an email address."]
module GetEmailAddressInsightsRequest =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t
        [@ocaml.doc "The email address to analyze for validation insights."]}
    let context_ = "GetEmailAddressInsightsRequest"
    let make ~emailAddress = fun () -> { emailAddress }
    let to_value x =
      structure_to_value
        [("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      make ~emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      make ~emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to return validation insights about an email address."]
module GetDomainStatisticsReportResponse =
  struct
    type nonrec t =
      {
      overallVolume: OverallVolume.t option
        [@ocaml.doc
          "An object that contains deliverability metrics for the domain that you specified. The data in this object is a summary of all of the data that was collected from the StartDate to the EndDate."];
      dailyVolumes: DailyVolumes.t option
        [@ocaml.doc
          "An object that contains deliverability metrics for the domain that you specified. This object contains data for each day, starting on the StartDate and ending on the EndDate."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?overallVolume =
      fun ?dailyVolumes -> fun () -> { overallVolume; dailyVolumes }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("OverallVolume",
           (Option.map x.overallVolume ~f:OverallVolume.to_value));
        ("DailyVolumes",
          (Option.map x.dailyVolumes ~f:DailyVolumes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dailyVolumes =
        (Option.map ~f:DailyVolumes.of_xml)
          (Xml.child xml_arg0 "DailyVolumes") in
      let overallVolume =
        (Option.map ~f:OverallVolume.of_xml)
          (Xml.child xml_arg0 "OverallVolume") in
      make ?dailyVolumes ?overallVolume ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dailyVolumes = field_map json__ "DailyVolumes" DailyVolumes.of_json in
      let overallVolume =
        field_map json__ "OverallVolume" OverallVolume.of_json in
      make ?dailyVolumes ?overallVolume ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that includes statistics that are related to the domain that you specified."]
module GetDomainStatisticsReportRequest =
  struct
    type nonrec t =
      {
      domain: Identity.t
        [@ocaml.doc
          "The domain that you want to obtain deliverability metrics for."];
      startDate: Timestamp.t
        [@ocaml.doc
          "The first day (in Unix time) that you want to obtain domain deliverability metrics for."];
      endDate: Timestamp.t
        [@ocaml.doc
          "The last day (in Unix time) that you want to obtain domain deliverability metrics for. The EndDate that you specify has to be less than or equal to 30 days after the StartDate."]}
    let context_ = "GetDomainStatisticsReportRequest"
    let make ~domain =
      fun ~startDate ->
        fun ~endDate -> fun () -> { domain; startDate; endDate }
    let to_value x =
      structure_to_value
        [("Domain", (Some (Identity.to_value x.domain)));
        ("StartDate", (Some (Timestamp.to_value x.startDate)));
        ("EndDate", (Some (Timestamp.to_value x.endDate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndDate") in
      let startDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartDate") in
      let domain =
        Identity.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Domain") in
      make ~endDate ~startDate ~domain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map_exn json__ "EndDate" Timestamp.of_json in
      let startDate = field_map_exn json__ "StartDate" Timestamp.of_json in
      let domain = field_map_exn json__ "Domain" Identity.of_json in
      make ~endDate ~startDate ~domain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to obtain deliverability metrics for a domain."]
module GetDomainDeliverabilityCampaignResponse =
  struct
    type nonrec t =
      {
      domainDeliverabilityCampaign: DomainDeliverabilityCampaign.t option
        [@ocaml.doc
          "An object that contains the deliverability data for the campaign."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainDeliverabilityCampaign =
      fun () -> { domainDeliverabilityCampaign }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DomainDeliverabilityCampaign",
           (Option.map x.domainDeliverabilityCampaign
              ~f:DomainDeliverabilityCampaign.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainDeliverabilityCampaign =
        (Option.map ~f:DomainDeliverabilityCampaign.of_xml)
          (Xml.child xml_arg0 "DomainDeliverabilityCampaign") in
      make ?domainDeliverabilityCampaign ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainDeliverabilityCampaign =
        field_map json__ "DomainDeliverabilityCampaign"
          DomainDeliverabilityCampaign.of_json in
      make ?domainDeliverabilityCampaign ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains all the deliverability data for a specific campaign. This data is available for a campaign only if the campaign sent email by using a domain that the Deliverability dashboard is enabled for."]
module GetDomainDeliverabilityCampaignRequest =
  struct
    type nonrec t =
      {
      campaignId: CampaignId.t
        [@ocaml.doc
          "The unique identifier for the campaign. The Deliverability dashboard automatically generates and assigns this identifier to a campaign."]}
    let context_ = "GetDomainDeliverabilityCampaignRequest"
    let make ~campaignId = fun () -> { campaignId }
    let to_value x =
      structure_to_value
        [("CampaignId", (Some (CampaignId.to_value x.campaignId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let campaignId =
        CampaignId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CampaignId") in
      make ~campaignId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let campaignId = field_map_exn json__ "CampaignId" CampaignId.of_json in
      make ~campaignId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve all the deliverability data for a specific campaign. This data is available for a campaign only if the campaign sent email by using a domain that the Deliverability dashboard is enabled for (PutDeliverabilityDashboardOption operation)."]
module GetDeliverabilityTestReportResponse =
  struct
    type nonrec t =
      {
      deliverabilityTestReport: DeliverabilityTestReport.t option
        [@ocaml.doc
          "An object that contains the results of the predictive inbox placement test."];
      overallPlacement: PlacementStatistics.t option
        [@ocaml.doc
          "An object that specifies how many test messages that were sent during the predictive inbox placement test were delivered to recipients' inboxes, how many were sent to recipients' spam folders, and how many weren't delivered."];
      ispPlacements: IspPlacements.t option
        [@ocaml.doc
          "An object that describes how the test email was handled by several email providers, including Gmail, Hotmail, Yahoo, AOL, and others."];
      message: MessageContent.t option
        [@ocaml.doc
          "An object that contains the message that you sent when you performed this predictive inbox placement test."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) that are associated with the predictive inbox placement test."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deliverabilityTestReport =
      fun ?overallPlacement ->
        fun ?ispPlacements ->
          fun ?message ->
            fun ?tags ->
              fun () ->
                {
                  deliverabilityTestReport;
                  overallPlacement;
                  ispPlacements;
                  message;
                  tags
                }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DeliverabilityTestReport",
           (Option.map x.deliverabilityTestReport
              ~f:DeliverabilityTestReport.to_value));
        ("OverallPlacement",
          (Option.map x.overallPlacement ~f:PlacementStatistics.to_value));
        ("IspPlacements",
          (Option.map x.ispPlacements ~f:IspPlacements.to_value));
        ("Message", (Option.map x.message ~f:MessageContent.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let message =
        (Option.map ~f:MessageContent.of_xml) (Xml.child xml_arg0 "Message") in
      let ispPlacements =
        (Option.map ~f:IspPlacements.of_xml)
          (Xml.child xml_arg0 "IspPlacements") in
      let overallPlacement =
        (Option.map ~f:PlacementStatistics.of_xml)
          (Xml.child xml_arg0 "OverallPlacement") in
      let deliverabilityTestReport =
        (Option.map ~f:DeliverabilityTestReport.of_xml)
          (Xml.child xml_arg0 "DeliverabilityTestReport") in
      make ?tags ?message ?ispPlacements ?overallPlacement
        ?deliverabilityTestReport ()
    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
      let message = field_map json__ "Message" MessageContent.of_json in
      let ispPlacements =
        field_map json__ "IspPlacements" IspPlacements.of_json in
      let overallPlacement =
        field_map json__ "OverallPlacement" PlacementStatistics.of_json in
      let deliverabilityTestReport =
        field_map json__ "DeliverabilityTestReport"
          DeliverabilityTestReport.of_json in
      make ?tags ?message ?ispPlacements ?overallPlacement
        ?deliverabilityTestReport ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The results of the predictive inbox placement test."]
module GetDeliverabilityTestReportRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc
          "A unique string that identifies the predictive inbox placement test."]}
    let context_ = "GetDeliverabilityTestReportRequest"
    let make ~reportId = fun () -> { reportId }
    let to_value x =
      structure_to_value
        [("ReportId", (Some (ReportId.to_value x.reportId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ReportId") in
      make ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportId = field_map_exn json__ "ReportId" ReportId.of_json in
      make ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to retrieve the results of a predictive inbox placement test."]
module GetDeliverabilityDashboardOptionsResponse =
  struct
    type nonrec t =
      {
      dashboardEnabled: Enabled.t option
        [@ocaml.doc
          "Specifies whether the Deliverability dashboard is enabled. If this value is true, the dashboard is enabled."];
      subscriptionExpiryDate: Timestamp.t option
        [@ocaml.doc
          "The date when your current subscription to the Deliverability dashboard is scheduled to expire, if your subscription is scheduled to expire at the end of the current calendar month. This value is null if you have an active subscription that isn\226\128\153t due to expire at the end of the month."];
      accountStatus: DeliverabilityDashboardAccountStatus.t option
        [@ocaml.doc
          "The current status of your Deliverability dashboard subscription. If this value is PENDING_EXPIRATION, your subscription is scheduled to expire at the end of the current calendar month."];
      activeSubscribedDomains: DomainDeliverabilityTrackingOptions.t option
        [@ocaml.doc
          "An array of objects, one for each verified domain that you use to send email and currently has an active Deliverability dashboard subscription that isn\226\128\153t scheduled to expire at the end of the current calendar month."];
      pendingExpirationSubscribedDomains:
        DomainDeliverabilityTrackingOptions.t option
        [@ocaml.doc
          "An array of objects, one for each verified domain that you use to send email and currently has an active Deliverability dashboard subscription that's scheduled to expire at the end of the current calendar month."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dashboardEnabled =
      fun ?subscriptionExpiryDate ->
        fun ?accountStatus ->
          fun ?activeSubscribedDomains ->
            fun ?pendingExpirationSubscribedDomains ->
              fun () ->
                {
                  dashboardEnabled;
                  subscriptionExpiryDate;
                  accountStatus;
                  activeSubscribedDomains;
                  pendingExpirationSubscribedDomains
                }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.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 to_value x =
      structure_to_value
        [("DashboardEnabled",
           (Option.map x.dashboardEnabled ~f:Enabled.to_value));
        ("SubscriptionExpiryDate",
          (Option.map x.subscriptionExpiryDate ~f:Timestamp.to_value));
        ("AccountStatus",
          (Option.map x.accountStatus
             ~f:DeliverabilityDashboardAccountStatus.to_value));
        ("ActiveSubscribedDomains",
          (Option.map x.activeSubscribedDomains
             ~f:DomainDeliverabilityTrackingOptions.to_value));
        ("PendingExpirationSubscribedDomains",
          (Option.map x.pendingExpirationSubscribedDomains
             ~f:DomainDeliverabilityTrackingOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingExpirationSubscribedDomains =
        (Option.map ~f:DomainDeliverabilityTrackingOptions.of_xml)
          (Xml.child xml_arg0 "PendingExpirationSubscribedDomains") in
      let activeSubscribedDomains =
        (Option.map ~f:DomainDeliverabilityTrackingOptions.of_xml)
          (Xml.child xml_arg0 "ActiveSubscribedDomains") in
      let accountStatus =
        (Option.map ~f:DeliverabilityDashboardAccountStatus.of_xml)
          (Xml.child xml_arg0 "AccountStatus") in
      let subscriptionExpiryDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubscriptionExpiryDate") in
      let dashboardEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "DashboardEnabled") in
      make ?pendingExpirationSubscribedDomains ?activeSubscribedDomains
        ?accountStatus ?subscriptionExpiryDate ?dashboardEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingExpirationSubscribedDomains =
        field_map json__ "PendingExpirationSubscribedDomains"
          DomainDeliverabilityTrackingOptions.of_json in
      let activeSubscribedDomains =
        field_map json__ "ActiveSubscribedDomains"
          DomainDeliverabilityTrackingOptions.of_json in
      let accountStatus =
        field_map json__ "AccountStatus"
          DeliverabilityDashboardAccountStatus.of_json in
      let subscriptionExpiryDate =
        field_map json__ "SubscriptionExpiryDate" Timestamp.of_json in
      let dashboardEnabled =
        field_map json__ "DashboardEnabled" Enabled.of_json in
      make ?pendingExpirationSubscribedDomains ?activeSubscribedDomains
        ?accountStatus ?subscriptionExpiryDate ?dashboardEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that shows the status of the Deliverability dashboard."]
module GetDeliverabilityDashboardOptionsRequest =
  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
       "Retrieve information about the status of the Deliverability dashboard for your Amazon Web Services account. When the Deliverability dashboard is enabled, you gain access to reputation, deliverability, and other metrics for your domains. You also gain the ability to perform predictive inbox placement tests. When you use the Deliverability dashboard, you pay a monthly subscription charge, in addition to any other fees that you accrue by using Amazon SES and other Amazon Web Services services. For more information about the features and cost of a Deliverability dashboard subscription, see Amazon Pinpoint Pricing."]
module GetDedicatedIpsResponse =
  struct
    type nonrec t =
      {
      dedicatedIps: DedicatedIpList.t option
        [@ocaml.doc
          "A list of dedicated IP addresses that are associated with your Amazon Web Services account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates that there are additional dedicated IP addresses to list. To view additional addresses, issue another request to GetDedicatedIps, passing this token in the NextToken parameter."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dedicatedIps =
      fun ?nextToken -> fun () -> { dedicatedIps; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DedicatedIps",
           (Option.map x.dedicatedIps ~f:DedicatedIpList.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
      let dedicatedIps =
        (Option.map ~f:DedicatedIpList.of_xml)
          (Xml.child xml_arg0 "DedicatedIps") in
      make ?nextToken ?dedicatedIps ()
    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 dedicatedIps =
        field_map json__ "DedicatedIps" DedicatedIpList.of_json in
      make ?nextToken ?dedicatedIps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the dedicated IP addresses that are associated with your Amazon Web Services account."]
module GetDedicatedIpsRequest =
  struct
    type nonrec t =
      {
      poolName: PoolName.t option
        [@ocaml.doc
          "The name of the IP pool that the dedicated IP address is associated with."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token returned from a previous call to GetDedicatedIps to indicate the position of the dedicated IP pool in the list of IP pools."];
      pageSize: MaxItems.t option
        [@ocaml.doc
          "The number of results to show in a single call to GetDedicatedIpsRequest. If the number of results is larger than the number you specified in this parameter, then the response includes a NextToken element, which you can use to obtain additional results."]}
    let make ?poolName =
      fun ?nextToken ->
        fun ?pageSize -> fun () -> { poolName; nextToken; pageSize }
    let to_value x =
      structure_to_value
        [("PoolName", (Option.map x.poolName ~f:PoolName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("PageSize", (Option.map x.pageSize ~f:MaxItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageSize =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "PageSize") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let poolName =
        (Option.map ~f:PoolName.of_xml) (Xml.child xml_arg0 "PoolName") in
      make ?pageSize ?nextToken ?poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageSize = field_map json__ "PageSize" MaxItems.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let poolName = field_map json__ "PoolName" PoolName.of_json in
      make ?pageSize ?nextToken ?poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain more information about dedicated IP pools."]
module GetDedicatedIpResponse =
  struct
    type nonrec t =
      {
      dedicatedIp: DedicatedIp.t option
        [@ocaml.doc
          "An object that contains information about a dedicated IP address."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dedicatedIp = fun () -> { dedicatedIp }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DedicatedIp", (Option.map x.dedicatedIp ~f:DedicatedIp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dedicatedIp =
        (Option.map ~f:DedicatedIp.of_xml) (Xml.child xml_arg0 "DedicatedIp") in
      make ?dedicatedIp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dedicatedIp = field_map json__ "DedicatedIp" DedicatedIp.of_json in
      make ?dedicatedIp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a dedicated IP address."]
module GetDedicatedIpRequest =
  struct
    type nonrec t =
      {
      ip: Ip.t
        [@ocaml.doc
          "The IP address that you want to obtain more information about. The value you specify has to be a dedicated IP address that's assocaited with your Amazon Web Services account."]}
    let context_ = "GetDedicatedIpRequest"
    let make ~ip = fun () -> { ip }
    let to_value x = structure_to_value [("IP", (Some (Ip.to_value x.ip)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ip = Ip.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IP") in
      make ~ip ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ip = field_map_exn json__ "Ip" Ip.of_json in make ~ip ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain more information about a dedicated IP address."]
module GetDedicatedIpPoolResponse =
  struct
    type nonrec t =
      {
      dedicatedIpPool: DedicatedIpPool.t option
        [@ocaml.doc
          "An object that contains information about a dedicated IP pool."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dedicatedIpPool = fun () -> { dedicatedIpPool }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DedicatedIpPool",
           (Option.map x.dedicatedIpPool ~f:DedicatedIpPool.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dedicatedIpPool =
        (Option.map ~f:DedicatedIpPool.of_xml)
          (Xml.child xml_arg0 "DedicatedIpPool") in
      make ?dedicatedIpPool ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dedicatedIpPool =
        field_map json__ "DedicatedIpPool" DedicatedIpPool.of_json in
      make ?dedicatedIpPool ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following element is returned by the service."]
module GetDedicatedIpPoolRequest =
  struct
    type nonrec t =
      {
      poolName: PoolName.t
        [@ocaml.doc "The name of the dedicated IP pool to retrieve."]}
    let context_ = "GetDedicatedIpPoolRequest"
    let make ~poolName = fun () -> { poolName }
    let to_value x =
      structure_to_value
        [("PoolName", (Some (PoolName.to_value x.poolName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolName =
        PoolName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolName") in
      make ~poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolName = field_map_exn json__ "PoolName" PoolName.of_json in
      make ~poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain more information about a dedicated IP pool."]
module GetCustomVerificationEmailTemplateResponse =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t option
        [@ocaml.doc "The name of the custom verification email template."];
      fromEmailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address that the custom verification email is sent from."];
      templateSubject: EmailTemplateSubject.t option
        [@ocaml.doc "The subject line of the custom verification email."];
      templateContent: TemplateContent.t option
        [@ocaml.doc "The content of the custom verification email."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) that are associated with the custom verification email template."];
      successRedirectionURL: SuccessRedirectionURL.t option
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is successfully verified."];
      failureRedirectionURL: FailureRedirectionURL.t option
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is not successfully verified."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templateName =
      fun ?fromEmailAddress ->
        fun ?templateSubject ->
          fun ?templateContent ->
            fun ?tags ->
              fun ?successRedirectionURL ->
                fun ?failureRedirectionURL ->
                  fun () ->
                    {
                      templateName;
                      fromEmailAddress;
                      templateSubject;
                      templateContent;
                      tags;
                      successRedirectionURL;
                      failureRedirectionURL
                    }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("TemplateName",
           (Option.map x.templateName ~f:EmailTemplateName.to_value));
        ("FromEmailAddress",
          (Option.map x.fromEmailAddress ~f:EmailAddress.to_value));
        ("TemplateSubject",
          (Option.map x.templateSubject ~f:EmailTemplateSubject.to_value));
        ("TemplateContent",
          (Option.map x.templateContent ~f:TemplateContent.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SuccessRedirectionURL",
          (Option.map x.successRedirectionURL
             ~f:SuccessRedirectionURL.to_value));
        ("FailureRedirectionURL",
          (Option.map x.failureRedirectionURL
             ~f:FailureRedirectionURL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureRedirectionURL =
        (Option.map ~f:FailureRedirectionURL.of_xml)
          (Xml.child xml_arg0 "FailureRedirectionURL") in
      let successRedirectionURL =
        (Option.map ~f:SuccessRedirectionURL.of_xml)
          (Xml.child xml_arg0 "SuccessRedirectionURL") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let templateContent =
        (Option.map ~f:TemplateContent.of_xml)
          (Xml.child xml_arg0 "TemplateContent") in
      let templateSubject =
        (Option.map ~f:EmailTemplateSubject.of_xml)
          (Xml.child xml_arg0 "TemplateSubject") in
      let fromEmailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "FromEmailAddress") in
      let templateName =
        (Option.map ~f:EmailTemplateName.of_xml)
          (Xml.child xml_arg0 "TemplateName") in
      make ?failureRedirectionURL ?successRedirectionURL ?tags
        ?templateContent ?templateSubject ?fromEmailAddress ?templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureRedirectionURL =
        field_map json__ "FailureRedirectionURL"
          FailureRedirectionURL.of_json in
      let successRedirectionURL =
        field_map json__ "SuccessRedirectionURL"
          SuccessRedirectionURL.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let templateContent =
        field_map json__ "TemplateContent" TemplateContent.of_json in
      let templateSubject =
        field_map json__ "TemplateSubject" EmailTemplateSubject.of_json in
      let fromEmailAddress =
        field_map json__ "FromEmailAddress" EmailAddress.of_json in
      let templateName =
        field_map json__ "TemplateName" EmailTemplateName.of_json in
      make ?failureRedirectionURL ?successRedirectionURL ?tags
        ?templateContent ?templateSubject ?fromEmailAddress ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The following elements are returned by the service."]
module GetCustomVerificationEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc
          "The name of the custom verification email template that you want to retrieve."]}
    let context_ = "GetCustomVerificationEmailTemplateRequest"
    let make ~templateName = fun () -> { templateName }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to retrieve an existing custom verification email template."]
module GetContactResponse =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t option
        [@ocaml.doc
          "The name of the contact list to which the contact belongs."];
      emailAddress: EmailAddress.t option
        [@ocaml.doc "The contact's email address."];
      topicPreferences: TopicPreferenceList.t option
        [@ocaml.doc
          "The contact's preference for being opted-in to or opted-out of a topic.>"];
      topicDefaultPreferences: TopicPreferenceList.t option
        [@ocaml.doc "The default topic preferences applied to the contact."];
      unsubscribeAll: UnsubscribeAll.t option
        [@ocaml.doc
          "A boolean value status noting if the contact is unsubscribed from all contact list topics."];
      attributesData: AttributesData.t option
        [@ocaml.doc "The attribute data attached to a contact."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "A timestamp noting when the contact was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "A timestamp noting the last time the contact's information was updated."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactListName =
      fun ?emailAddress ->
        fun ?topicPreferences ->
          fun ?topicDefaultPreferences ->
            fun ?unsubscribeAll ->
              fun ?attributesData ->
                fun ?createdTimestamp ->
                  fun ?lastUpdatedTimestamp ->
                    fun () ->
                      {
                        contactListName;
                        emailAddress;
                        topicPreferences;
                        topicDefaultPreferences;
                        unsubscribeAll;
                        attributesData;
                        createdTimestamp;
                        lastUpdatedTimestamp
                      }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ContactListName",
           (Option.map x.contactListName ~f:ContactListName.to_value));
        ("EmailAddress",
          (Option.map x.emailAddress ~f:EmailAddress.to_value));
        ("TopicPreferences",
          (Option.map x.topicPreferences ~f:TopicPreferenceList.to_value));
        ("TopicDefaultPreferences",
          (Option.map x.topicDefaultPreferences
             ~f:TopicPreferenceList.to_value));
        ("UnsubscribeAll",
          (Option.map x.unsubscribeAll ~f:UnsubscribeAll.to_value));
        ("AttributesData",
          (Option.map x.attributesData ~f:AttributesData.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let attributesData =
        (Option.map ~f:AttributesData.of_xml)
          (Xml.child xml_arg0 "AttributesData") in
      let unsubscribeAll =
        (Option.map ~f:UnsubscribeAll.of_xml)
          (Xml.child xml_arg0 "UnsubscribeAll") in
      let topicDefaultPreferences =
        (Option.map ~f:TopicPreferenceList.of_xml)
          (Xml.child xml_arg0 "TopicDefaultPreferences") in
      let topicPreferences =
        (Option.map ~f:TopicPreferenceList.of_xml)
          (Xml.child xml_arg0 "TopicPreferences") in
      let emailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      let contactListName =
        (Option.map ~f:ContactListName.of_xml)
          (Xml.child xml_arg0 "ContactListName") in
      make ?lastUpdatedTimestamp ?createdTimestamp ?attributesData
        ?unsubscribeAll ?topicDefaultPreferences ?topicPreferences
        ?emailAddress ?contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let attributesData =
        field_map json__ "AttributesData" AttributesData.of_json in
      let unsubscribeAll =
        field_map json__ "UnsubscribeAll" UnsubscribeAll.of_json in
      let topicDefaultPreferences =
        field_map json__ "TopicDefaultPreferences"
          TopicPreferenceList.of_json in
      let topicPreferences =
        field_map json__ "TopicPreferences" TopicPreferenceList.of_json in
      let emailAddress = field_map json__ "EmailAddress" EmailAddress.of_json in
      let contactListName =
        field_map json__ "ContactListName" ContactListName.of_json in
      make ?lastUpdatedTimestamp ?createdTimestamp ?attributesData
        ?unsubscribeAll ?topicDefaultPreferences ?topicPreferences
        ?emailAddress ?contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a contact from a contact list."]
module GetContactRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc
          "The name of the contact list to which the contact belongs."];
      emailAddress: EmailAddress.t
        [@ocaml.doc "The contact's email address."]}
    let context_ = "GetContactRequest"
    let make ~contactListName =
      fun ~emailAddress -> fun () -> { contactListName; emailAddress }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ~emailAddress ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ~emailAddress ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a contact from a contact list."]
module GetContactListResponse =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t option
        [@ocaml.doc "The name of the contact list."];
      topics: Topics.t option
        [@ocaml.doc
          "An interest group, theme, or label within a list. A contact list can have multiple topics."];
      description: Description.t option
        [@ocaml.doc "A description of what the contact list is about."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "A timestamp noting when the contact list was created."];
      lastUpdatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "A timestamp noting the last time the contact list was updated."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with a contact list."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactListName =
      fun ?topics ->
        fun ?description ->
          fun ?createdTimestamp ->
            fun ?lastUpdatedTimestamp ->
              fun ?tags ->
                fun () ->
                  {
                    contactListName;
                    topics;
                    description;
                    createdTimestamp;
                    lastUpdatedTimestamp;
                    tags
                  }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ContactListName",
           (Option.map x.contactListName ~f:ContactListName.to_value));
        ("Topics", (Option.map x.topics ~f:Topics.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("LastUpdatedTimestamp",
          (Option.map x.lastUpdatedTimestamp ~f:Timestamp.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let lastUpdatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let topics =
        (Option.map ~f:Topics.of_xml) (Xml.child xml_arg0 "Topics") in
      let contactListName =
        (Option.map ~f:ContactListName.of_xml)
          (Xml.child xml_arg0 "ContactListName") in
      make ?tags ?lastUpdatedTimestamp ?createdTimestamp ?description ?topics
        ?contactListName ()
    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
      let lastUpdatedTimestamp =
        field_map json__ "LastUpdatedTimestamp" Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let topics = field_map json__ "Topics" Topics.of_json in
      let contactListName =
        field_map json__ "ContactListName" ContactListName.of_json in
      make ?tags ?lastUpdatedTimestamp ?createdTimestamp ?description ?topics
        ?contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns contact list metadata. It does not return any information about the contacts present in the list."]
module GetContactListRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."]}
    let context_ = "GetContactListRequest"
    let make ~contactListName = fun () -> { contactListName }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns contact list metadata. It does not return any information about the contacts present in the list."]
module GetConfigurationSetResponse =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set."];
      trackingOptions: TrackingOptions.t option
        [@ocaml.doc
          "An object that defines the open and click tracking options for emails that you send using the configuration set."];
      deliveryOptions: DeliveryOptions.t option
        [@ocaml.doc
          "An object that defines the dedicated IP pool that is used to send emails that you send using the configuration set."];
      reputationOptions: ReputationOptions.t option
        [@ocaml.doc
          "An object that defines whether or not Amazon SES collects reputation metrics for the emails that you send that use the configuration set."];
      sendingOptions: SendingOptions.t option
        [@ocaml.doc
          "An object that defines whether or not Amazon SES can send email that you send using the configuration set."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) that are associated with the configuration set."];
      suppressionOptions: SuppressionOptions.t option
        [@ocaml.doc
          "An object that contains information about the suppression list preferences for your account."];
      vdmOptions: VdmOptions.t option
        [@ocaml.doc
          "An object that contains information about the VDM preferences for your configuration set."];
      archivingOptions: ArchivingOptions.t option
        [@ocaml.doc
          "An object that defines the MailManager archive where sent emails are archived that you send using the configuration set."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetName =
      fun ?trackingOptions ->
        fun ?deliveryOptions ->
          fun ?reputationOptions ->
            fun ?sendingOptions ->
              fun ?tags ->
                fun ?suppressionOptions ->
                  fun ?vdmOptions ->
                    fun ?archivingOptions ->
                      fun () ->
                        {
                          configurationSetName;
                          trackingOptions;
                          deliveryOptions;
                          reputationOptions;
                          sendingOptions;
                          tags;
                          suppressionOptions;
                          vdmOptions;
                          archivingOptions
                        }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("ConfigurationSetName",
           (Option.map x.configurationSetName
              ~f:ConfigurationSetName.to_value));
        ("TrackingOptions",
          (Option.map x.trackingOptions ~f:TrackingOptions.to_value));
        ("DeliveryOptions",
          (Option.map x.deliveryOptions ~f:DeliveryOptions.to_value));
        ("ReputationOptions",
          (Option.map x.reputationOptions ~f:ReputationOptions.to_value));
        ("SendingOptions",
          (Option.map x.sendingOptions ~f:SendingOptions.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SuppressionOptions",
          (Option.map x.suppressionOptions ~f:SuppressionOptions.to_value));
        ("VdmOptions", (Option.map x.vdmOptions ~f:VdmOptions.to_value));
        ("ArchivingOptions",
          (Option.map x.archivingOptions ~f:ArchivingOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archivingOptions =
        (Option.map ~f:ArchivingOptions.of_xml)
          (Xml.child xml_arg0 "ArchivingOptions") in
      let vdmOptions =
        (Option.map ~f:VdmOptions.of_xml) (Xml.child xml_arg0 "VdmOptions") in
      let suppressionOptions =
        (Option.map ~f:SuppressionOptions.of_xml)
          (Xml.child xml_arg0 "SuppressionOptions") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let sendingOptions =
        (Option.map ~f:SendingOptions.of_xml)
          (Xml.child xml_arg0 "SendingOptions") in
      let reputationOptions =
        (Option.map ~f:ReputationOptions.of_xml)
          (Xml.child xml_arg0 "ReputationOptions") in
      let deliveryOptions =
        (Option.map ~f:DeliveryOptions.of_xml)
          (Xml.child xml_arg0 "DeliveryOptions") in
      let trackingOptions =
        (Option.map ~f:TrackingOptions.of_xml)
          (Xml.child xml_arg0 "TrackingOptions") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      make ?archivingOptions ?vdmOptions ?suppressionOptions ?tags
        ?sendingOptions ?reputationOptions ?deliveryOptions ?trackingOptions
        ?configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archivingOptions =
        field_map json__ "ArchivingOptions" ArchivingOptions.of_json in
      let vdmOptions = field_map json__ "VdmOptions" VdmOptions.of_json in
      let suppressionOptions =
        field_map json__ "SuppressionOptions" SuppressionOptions.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let sendingOptions =
        field_map json__ "SendingOptions" SendingOptions.of_json in
      let reputationOptions =
        field_map json__ "ReputationOptions" ReputationOptions.of_json in
      let deliveryOptions =
        field_map json__ "DeliveryOptions" DeliveryOptions.of_json in
      let trackingOptions =
        field_map json__ "TrackingOptions" TrackingOptions.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      make ?archivingOptions ?vdmOptions ?suppressionOptions ?tags
        ?sendingOptions ?reputationOptions ?deliveryOptions ?trackingOptions
        ?configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a configuration set."]
module GetConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name of the configuration set."]}
    let context_ = "GetConfigurationSetRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetName.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"
          ConfigurationSetName.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain information about a configuration set."]
module GetConfigurationSetEventDestinationsResponse =
  struct
    type nonrec t =
      {
      eventDestinations: EventDestinations.t option
        [@ocaml.doc
          "An array that includes all of the events destinations that have been configured for the configuration set."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "Information about an event destination for a configuration set."]
module GetConfigurationSetEventDestinationsRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set that contains the event destination."]}
    let context_ = "GetConfigurationSetEventDestinationsRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetName.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"
          ConfigurationSetName.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to obtain information about the event destinations for a configuration set."]
module GetBlacklistReportsResponse =
  struct
    type nonrec t =
      {
      blacklistReport: BlacklistReport.t option
        [@ocaml.doc
          "An object that contains information about a blacklist that one of your dedicated IP addresses appears on."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?blacklistReport = fun () -> { blacklistReport }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("BlacklistReport",
           (Option.map x.blacklistReport ~f:BlacklistReport.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blacklistReport =
        (Option.map ~f:BlacklistReport.of_xml)
          (Xml.child xml_arg0 "BlacklistReport") in
      make ?blacklistReport ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blacklistReport =
        field_map json__ "BlacklistReport" BlacklistReport.of_json in
      make ?blacklistReport ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains information about blacklist events."]
module GetBlacklistReportsRequest =
  struct
    type nonrec t =
      {
      blacklistItemNames: BlacklistItemNames.t
        [@ocaml.doc
          "A list of IP addresses that you want to retrieve blacklist information about. You can only specify the dedicated IP addresses that you use to send email using Amazon SES or Amazon Pinpoint."]}
    let context_ = "GetBlacklistReportsRequest"
    let make ~blacklistItemNames = fun () -> { blacklistItemNames }
    let to_value x =
      structure_to_value
        [("BlacklistItemNames",
           (Some (BlacklistItemNames.to_value x.blacklistItemNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blacklistItemNames =
        BlacklistItemNames.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BlacklistItemNames") in
      make ~blacklistItemNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blacklistItemNames =
        field_map_exn json__ "BlacklistItemNames" BlacklistItemNames.of_json in
      make ~blacklistItemNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to retrieve a list of the blacklists that your dedicated IP addresses appear on."]
module GetAccountResponse =
  struct
    type nonrec t =
      {
      dedicatedIpAutoWarmupEnabled: Enabled.t option
        [@ocaml.doc
          "Indicates whether or not the automatic warm-up feature is enabled for dedicated IP addresses that are associated with your account."];
      enforcementStatus: GeneralEnforcementStatus.t option
        [@ocaml.doc
          "The reputation status of your Amazon SES account. The status can be one of the following: HEALTHY \226\128\147 There are no reputation-related issues that currently impact your account. PROBATION \226\128\147 We've identified potential issues with your Amazon SES account. We're placing your account under review while you work on correcting these issues. SHUTDOWN \226\128\147 Your account's ability to send email is currently paused because of an issue with the email sent from your account. When you correct the issue, you can contact us and request that your account's ability to send email is resumed."];
      productionAccessEnabled: Enabled.t option
        [@ocaml.doc
          "Indicates whether or not your account has production access in the current Amazon Web Services Region. If the value is false, then your account is in the sandbox. When your account is in the sandbox, you can only send email to verified identities. If the value is true, then your account has production access. When your account has production access, you can send email to any address. The sending quota and maximum sending rate for your account vary based on your specific use case."];
      sendQuota: SendQuota.t option
        [@ocaml.doc
          "An object that contains information about the per-day and per-second sending limits for your Amazon SES account in the current Amazon Web Services Region."];
      sendingEnabled: Enabled.t option
        [@ocaml.doc
          "Indicates whether or not email sending is enabled for your Amazon SES account in the current Amazon Web Services Region."];
      suppressionAttributes: SuppressionAttributes.t option
        [@ocaml.doc
          "An object that contains information about the email address suppression preferences for your account in the current Amazon Web Services Region."];
      details: AccountDetails.t option
        [@ocaml.doc "An object that defines your account details."];
      vdmAttributes: VdmAttributes.t option
        [@ocaml.doc
          "The VDM attributes that apply to your Amazon SES account."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dedicatedIpAutoWarmupEnabled =
      fun ?enforcementStatus ->
        fun ?productionAccessEnabled ->
          fun ?sendQuota ->
            fun ?sendingEnabled ->
              fun ?suppressionAttributes ->
                fun ?details ->
                  fun ?vdmAttributes ->
                    fun () ->
                      {
                        dedicatedIpAutoWarmupEnabled;
                        enforcementStatus;
                        productionAccessEnabled;
                        sendQuota;
                        sendingEnabled;
                        suppressionAttributes;
                        details;
                        vdmAttributes
                      }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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
        [("DedicatedIpAutoWarmupEnabled",
           (Option.map x.dedicatedIpAutoWarmupEnabled ~f:Enabled.to_value));
        ("EnforcementStatus",
          (Option.map x.enforcementStatus
             ~f:GeneralEnforcementStatus.to_value));
        ("ProductionAccessEnabled",
          (Option.map x.productionAccessEnabled ~f:Enabled.to_value));
        ("SendQuota", (Option.map x.sendQuota ~f:SendQuota.to_value));
        ("SendingEnabled", (Option.map x.sendingEnabled ~f:Enabled.to_value));
        ("SuppressionAttributes",
          (Option.map x.suppressionAttributes
             ~f:SuppressionAttributes.to_value));
        ("Details", (Option.map x.details ~f:AccountDetails.to_value));
        ("VdmAttributes",
          (Option.map x.vdmAttributes ~f:VdmAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vdmAttributes =
        (Option.map ~f:VdmAttributes.of_xml)
          (Xml.child xml_arg0 "VdmAttributes") in
      let details =
        (Option.map ~f:AccountDetails.of_xml) (Xml.child xml_arg0 "Details") in
      let suppressionAttributes =
        (Option.map ~f:SuppressionAttributes.of_xml)
          (Xml.child xml_arg0 "SuppressionAttributes") in
      let sendingEnabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "SendingEnabled") in
      let sendQuota =
        (Option.map ~f:SendQuota.of_xml) (Xml.child xml_arg0 "SendQuota") in
      let productionAccessEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "ProductionAccessEnabled") in
      let enforcementStatus =
        (Option.map ~f:GeneralEnforcementStatus.of_xml)
          (Xml.child xml_arg0 "EnforcementStatus") in
      let dedicatedIpAutoWarmupEnabled =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "DedicatedIpAutoWarmupEnabled") in
      make ?vdmAttributes ?details ?suppressionAttributes ?sendingEnabled
        ?sendQuota ?productionAccessEnabled ?enforcementStatus
        ?dedicatedIpAutoWarmupEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vdmAttributes =
        field_map json__ "VdmAttributes" VdmAttributes.of_json in
      let details = field_map json__ "Details" AccountDetails.of_json in
      let suppressionAttributes =
        field_map json__ "SuppressionAttributes"
          SuppressionAttributes.of_json in
      let sendingEnabled = field_map json__ "SendingEnabled" Enabled.of_json in
      let sendQuota = field_map json__ "SendQuota" SendQuota.of_json in
      let productionAccessEnabled =
        field_map json__ "ProductionAccessEnabled" Enabled.of_json in
      let enforcementStatus =
        field_map json__ "EnforcementStatus" GeneralEnforcementStatus.of_json in
      let dedicatedIpAutoWarmupEnabled =
        field_map json__ "DedicatedIpAutoWarmupEnabled" Enabled.of_json in
      make ?vdmAttributes ?details ?suppressionAttributes ?sendingEnabled
        ?sendQuota ?productionAccessEnabled ?enforcementStatus
        ?dedicatedIpAutoWarmupEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of details about the email-sending capabilities of your Amazon SES account in the current Amazon Web Services Region."]
module GetAccountRequest =
  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
       "A request to obtain information about the email-sending capabilities of your Amazon SES account."]
module DeleteTenantResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module DeleteTenantResourceAssociationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module DeleteTenantResourceAssociationRequest =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t
        [@ocaml.doc
          "The name of the tenant to remove the resource association from."];
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to remove from the tenant association."]}
    let context_ = "DeleteTenantResourceAssociationRequest"
    let make ~tenantName =
      fun ~resourceArn -> fun () -> { tenantName; resourceArn }
    let to_value x =
      structure_to_value
        [("TenantName", (Some (TenantName.to_value x.tenantName)));
        ("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
      let tenantName =
        TenantName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TenantName") in
      make ~resourceArn ~tenantName ()
    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
      let tenantName = field_map_exn json__ "TenantName" TenantName.of_json in
      make ~resourceArn ~tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to delete an association between a tenant and a resource."]
module DeleteTenantRequest =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t
        [@ocaml.doc "The name of the tenant to delete."]}
    let context_ = "DeleteTenantRequest"
    let make ~tenantName = fun () -> { tenantName }
    let to_value x =
      structure_to_value
        [("TenantName", (Some (TenantName.to_value x.tenantName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenantName =
        TenantName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TenantName") in
      make ~tenantName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenantName = field_map_exn json__ "TenantName" TenantName.of_json in
      make ~tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a request to delete a tenant."]
module DeleteSuppressedDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteSuppressedDestinationRequest =
  struct
    type nonrec t =
      {
      emailAddress: EmailAddress.t
        [@ocaml.doc
          "The suppressed email destination to remove from the account suppression list."]}
    let context_ = "DeleteSuppressedDestinationRequest"
    let make ~emailAddress = fun () -> { emailAddress }
    let to_value x =
      structure_to_value
        [("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      make ~emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      make ~emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to remove an email address from the suppression list for your account."]
module DeleteMultiRegionEndpointResponse =
  struct
    type nonrec t =
      {
      status: Status.t option
        [@ocaml.doc
          "A status of the multi-region endpoint (global-endpoint) right after the delete request. CREATING \226\128\147 The resource is being provisioned. READY \226\128\147 The resource is ready to use. FAILED \226\128\147 The resource failed to be provisioned. DELETING \226\128\147 The resource is being deleted as requested."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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
        [("Status", (Option.map x.status ~f:Status.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" Status.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteMultiRegionEndpointRequest =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t
        [@ocaml.doc
          "The name of the multi-region endpoint (global-endpoint) to be deleted."]}
    let context_ = "DeleteMultiRegionEndpointRequest"
    let make ~endpointName = fun () -> { endpointName }
    let to_value x =
      structure_to_value
        [("EndpointName", (Some (EndpointName.to_value x.endpointName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointName =
        EndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointName") in
      make ~endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointName =
        field_map_exn json__ "EndpointName" EndpointName.of_json in
      make ~endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to delete a multi-region endpoint (global-endpoint)."]
module DeleteEmailTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module DeleteEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc "The name of the template to be deleted."]}
    let context_ = "DeleteEmailTemplateRequest"
    let make ~templateName = fun () -> { templateName }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to delete an email template. For more information, see the Amazon SES Developer Guide."]
module DeleteEmailIdentityResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteEmailIdentityRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t
        [@ocaml.doc
          "The identity (that is, the email address or domain) to delete."]}
    let context_ = "DeleteEmailIdentityRequest"
    let make ~emailIdentity = fun () -> { emailIdentity }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to delete an existing email identity. When you delete an identity, you lose the ability to send email from that identity. You can restore your ability to send email by completing the verification process for the identity again."]
module DeleteEmailIdentityPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteEmailIdentityPolicyRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."];
      policyName: PolicyName.t
        [@ocaml.doc
          "The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores."]}
    let context_ = "DeleteEmailIdentityPolicyRequest"
    let make ~emailIdentity =
      fun ~policyName -> fun () -> { emailIdentity; policyName }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("PolicyName", (Some (PolicyName.to_value x.policyName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyName =
        PolicyName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyName") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ~policyName ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyName = field_map_exn json__ "PolicyName" PolicyName.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ~policyName ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to delete a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the Amazon SES Developer Guide."]
module DeleteDedicatedIpPoolResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteDedicatedIpPoolRequest =
  struct
    type nonrec t =
      {
      poolName: PoolName.t
        [@ocaml.doc
          "The name of the dedicated IP pool that you want to delete."]}
    let context_ = "DeleteDedicatedIpPoolRequest"
    let make ~poolName = fun () -> { poolName }
    let to_value x =
      structure_to_value
        [("PoolName", (Some (PoolName.to_value x.poolName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolName =
        PoolName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolName") in
      make ~poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolName = field_map_exn json__ "PoolName" PoolName.of_json in
      make ~poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to delete a dedicated IP pool."]
module DeleteCustomVerificationEmailTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module DeleteCustomVerificationEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc
          "The name of the custom verification email template that you want to delete."]}
    let context_ = "DeleteCustomVerificationEmailTemplateRequest"
    let make ~templateName = fun () -> { templateName }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to delete an existing custom verification email template."]
module DeleteContactResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 "Removes a contact from a contact list."]
module DeleteContactRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc
          "The name of the contact list from which the contact should be removed."];
      emailAddress: EmailAddress.t
        [@ocaml.doc "The contact's email address."]}
    let context_ = "DeleteContactRequest"
    let make ~contactListName =
      fun ~emailAddress -> fun () -> { contactListName; emailAddress }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ~emailAddress ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ~emailAddress ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a contact from a contact list."]
module DeleteContactListResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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
       "Deletes a contact list and all of the contacts on that list."]
module DeleteContactListRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."]}
    let context_ = "DeleteContactListRequest"
    let make ~contactListName = fun () -> { contactListName }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a contact list and all of the contacts on that list."]
module DeleteConfigurationSetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name of the configuration set."]}
    let context_ = "DeleteConfigurationSetRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetName.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"
          ConfigurationSetName.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to delete a configuration set."]
module DeleteConfigurationSetEventDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module DeleteConfigurationSetEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set that contains the event destination to delete."];
      eventDestinationName: EventDestinationName.t
        [@ocaml.doc "The name of the event destination to delete."]}
    let context_ = "DeleteConfigurationSetEventDestinationRequest"
    let make ~configurationSetName =
      fun ~eventDestinationName ->
        fun () -> { configurationSetName; eventDestinationName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("EventDestinationName",
          (Some (EventDestinationName.to_value x.eventDestinationName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestinationName =
        EventDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let configurationSetName =
        ConfigurationSetName.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"
          EventDestinationName.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ~eventDestinationName ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to delete an event destination from a configuration set."]
module CreateTenantResponse =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t option [@ocaml.doc "The name of the tenant."];
      tenantId: TenantId.t option
        [@ocaml.doc "A unique identifier for the tenant."];
      tenantArn: AmazonResourceName.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the tenant."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc "The date and time when the tenant was created."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) associated with the tenant."];
      sendingStatus: SendingStatus.t option
        [@ocaml.doc "The status of email sending capability for the tenant."]}
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tenantName =
      fun ?tenantId ->
        fun ?tenantArn ->
          fun ?createdTimestamp ->
            fun ?tags ->
              fun ?sendingStatus ->
                fun () ->
                  {
                    tenantName;
                    tenantId;
                    tenantArn;
                    createdTimestamp;
                    tags;
                    sendingStatus
                  }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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 to_value x =
      structure_to_value
        [("TenantName", (Option.map x.tenantName ~f:TenantName.to_value));
        ("TenantId", (Option.map x.tenantId ~f:TenantId.to_value));
        ("TenantArn",
          (Option.map x.tenantArn ~f:AmazonResourceName.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SendingStatus",
          (Option.map x.sendingStatus ~f:SendingStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sendingStatus =
        (Option.map ~f:SendingStatus.of_xml)
          (Xml.child xml_arg0 "SendingStatus") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let tenantArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "TenantArn") in
      let tenantId =
        (Option.map ~f:TenantId.of_xml) (Xml.child xml_arg0 "TenantId") in
      let tenantName =
        (Option.map ~f:TenantName.of_xml) (Xml.child xml_arg0 "TenantName") in
      make ?sendingStatus ?tags ?createdTimestamp ?tenantArn ?tenantId
        ?tenantName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sendingStatus =
        field_map json__ "SendingStatus" SendingStatus.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let tenantArn = field_map json__ "TenantArn" AmazonResourceName.of_json in
      let tenantId = field_map json__ "TenantId" TenantId.of_json in
      let tenantName = field_map json__ "TenantName" TenantName.of_json in
      make ?sendingStatus ?tags ?createdTimestamp ?tenantArn ?tenantId
        ?tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a newly created tenant."]
module CreateTenantResourceAssociationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module CreateTenantResourceAssociationRequest =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t
        [@ocaml.doc "The name of the tenant to associate the resource with."];
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to associate with the tenant."]}
    let context_ = "CreateTenantResourceAssociationRequest"
    let make ~tenantName =
      fun ~resourceArn -> fun () -> { tenantName; resourceArn }
    let to_value x =
      structure_to_value
        [("TenantName", (Some (TenantName.to_value x.tenantName)));
        ("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
      let tenantName =
        TenantName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TenantName") in
      make ~resourceArn ~tenantName ()
    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
      let tenantName = field_map_exn json__ "TenantName" TenantName.of_json in
      make ~resourceArn ~tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to associate a resource with a tenant. Resources can be email identities, configuration sets, or email templates. When you associate a resource with a tenant, you can use that resource when sending emails on behalf of that tenant."]
module CreateTenantRequest =
  struct
    type nonrec t =
      {
      tenantName: TenantName.t
        [@ocaml.doc
          "The name of the tenant to create. The name can contain up to 64 alphanumeric characters, including letters, numbers, hyphens (-) and underscores (_) only."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) to associate with the tenant"]}
    let context_ = "CreateTenantRequest"
    let make ?tags = fun ~tenantName -> fun () -> { tags; tenantName }
    let to_value x =
      structure_to_value
        [("TenantName", (Some (TenantName.to_value x.tenantName)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let tenantName =
        TenantName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TenantName") in
      make ?tags ~tenantName ()
    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
      let tenantName = field_map_exn json__ "TenantName" TenantName.of_json in
      make ?tags ~tenantName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create a tenant. Tenants are logical containers that group related SES resources together. Each tenant can have its own set of resources like email identities, configuration sets, and templates, along with reputation metrics and sending status. This helps isolate and manage email sending for different customers or business units within your Amazon SES API v2 account."]
module CreateMultiRegionEndpointResponse =
  struct
    type nonrec t =
      {
      status: Status.t option
        [@ocaml.doc
          "A status of the multi-region endpoint (global-endpoint) right after the create request. CREATING \226\128\147 The resource is being provisioned. READY \226\128\147 The resource is ready to use. FAILED \226\128\147 The resource failed to be provisioned. DELETING \226\128\147 The resource is being deleted as requested."];
      endpointId: EndpointId.t option
        [@ocaml.doc "The ID of the multi-region endpoint (global-endpoint)."]}
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun ?endpointId -> fun () -> { status; endpointId }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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)
      | "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))]
      | `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 to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:Status.to_value));
        ("EndpointId", (Option.map x.endpointId ~f:EndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointId =
        (Option.map ~f:EndpointId.of_xml) (Xml.child xml_arg0 "EndpointId") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      make ?endpointId ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointId = field_map json__ "EndpointId" EndpointId.of_json in
      let status = field_map json__ "Status" Status.of_json in
      make ?endpointId ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateMultiRegionEndpointRequest =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t
        [@ocaml.doc
          "The name of the multi-region endpoint (global-endpoint)."];
      details: Details.t
        [@ocaml.doc
          "Contains details of a multi-region endpoint (global-endpoint) being created."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) to associate with the multi-region endpoint (global-endpoint)."]}
    let context_ = "CreateMultiRegionEndpointRequest"
    let make ?tags =
      fun ~endpointName ->
        fun ~details -> fun () -> { tags; endpointName; details }
    let to_value x =
      structure_to_value
        [("EndpointName", (Some (EndpointName.to_value x.endpointName)));
        ("Details", (Some (Details.to_value x.details)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let details =
        Details.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Details") in
      let endpointName =
        EndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointName") in
      make ?tags ~details ~endpointName ()
    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
      let details = field_map_exn json__ "Details" Details.of_json in
      let endpointName =
        field_map_exn json__ "EndpointName" EndpointName.of_json in
      make ?tags ~details ~endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create a multi-region endpoint (global-endpoint)."]
module CreateImportJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "A string that represents the import job ID."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun () -> { jobId }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.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 to_value x =
      structure_to_value [("JobId", (Option.map x.jobId ~f:JobId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map json__ "JobId" JobId.of_json in make ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateImportJobRequest =
  struct
    type nonrec t =
      {
      importDestination: ImportDestination.t
        [@ocaml.doc "The destination for the import job."];
      importDataSource: ImportDataSource.t
        [@ocaml.doc "The data source for the import job."]}
    let context_ = "CreateImportJobRequest"
    let make ~importDestination =
      fun ~importDataSource ->
        fun () -> { importDestination; importDataSource }
    let to_value x =
      structure_to_value
        [("ImportDestination",
           (Some (ImportDestination.to_value x.importDestination)));
        ("ImportDataSource",
          (Some (ImportDataSource.to_value x.importDataSource)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let importDataSource =
        ImportDataSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImportDataSource") in
      let importDestination =
        ImportDestination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ImportDestination") in
      make ~importDataSource ~importDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let importDataSource =
        field_map_exn json__ "ImportDataSource" ImportDataSource.of_json in
      let importDestination =
        field_map_exn json__ "ImportDestination" ImportDestination.of_json in
      make ~importDataSource ~importDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create an import job from a data source for a data destination."]
module CreateExportJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "A string that represents the export job ID."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun () -> { jobId }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.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
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.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 to_value x =
      structure_to_value [("JobId", (Option.map x.jobId ~f:JobId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map json__ "JobId" JobId.of_json in make ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateExportJobRequest =
  struct
    type nonrec t =
      {
      exportDataSource: ExportDataSource.t
        [@ocaml.doc "The data source for the export job."];
      exportDestination: ExportDestination.t
        [@ocaml.doc "The destination for the export job."]}
    let context_ = "CreateExportJobRequest"
    let make ~exportDataSource =
      fun ~exportDestination ->
        fun () -> { exportDataSource; exportDestination }
    let to_value x =
      structure_to_value
        [("ExportDataSource",
           (Some (ExportDataSource.to_value x.exportDataSource)));
        ("ExportDestination",
          (Some (ExportDestination.to_value x.exportDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportDestination =
        ExportDestination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExportDestination") in
      let exportDataSource =
        ExportDataSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExportDataSource") in
      make ~exportDestination ~exportDataSource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportDestination =
        field_map_exn json__ "ExportDestination" ExportDestination.of_json in
      let exportDataSource =
        field_map_exn json__ "ExportDataSource" ExportDataSource.of_json in
      make ~exportDestination ~exportDataSource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create an export job from a data source to a data destination."]
module CreateEmailTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module CreateEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc "The name of the template."];
      templateContent: EmailTemplateContent.t
        [@ocaml.doc
          "The content of the email template, composed of a subject line, an HTML part, and a text-only part."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) to associate with the email template."]}
    let context_ = "CreateEmailTemplateRequest"
    let make ?tags =
      fun ~templateName ->
        fun ~templateContent ->
          fun () -> { tags; templateName; templateContent }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)));
        ("TemplateContent",
          (Some (EmailTemplateContent.to_value x.templateContent)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let templateContent =
        EmailTemplateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateContent") in
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ?tags ~templateContent ~templateName ()
    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
      let templateContent =
        field_map_exn json__ "TemplateContent" EmailTemplateContent.of_json in
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ?tags ~templateContent ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create an email template. For more information, see the Amazon SES Developer Guide."]
module CreateEmailIdentityResponse =
  struct
    type nonrec t =
      {
      identityType: IdentityType.t option
        [@ocaml.doc
          "The email identity type. Note: the MANAGED_DOMAIN identity type is not supported."];
      verifiedForSendingStatus: Enabled.t option
        [@ocaml.doc
          "Specifies whether or not the identity is verified. You can only send email from verified email addresses or domains. For more information about verifying identities, see the Amazon Pinpoint User Guide."];
      dkimAttributes: DkimAttributes.t option
        [@ocaml.doc
          "An object that contains information about the DKIM attributes for the identity."]}
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityType =
      fun ?verifiedForSendingStatus ->
        fun ?dkimAttributes ->
          fun () ->
            { identityType; verifiedForSendingStatus; dkimAttributes }
    let error_of_json name json =
      match name with
      | "AlreadyExistsException" ->
          `AlreadyExistsException (AlreadyExistsException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 to_value x =
      structure_to_value
        [("IdentityType",
           (Option.map x.identityType ~f:IdentityType.to_value));
        ("VerifiedForSendingStatus",
          (Option.map x.verifiedForSendingStatus ~f:Enabled.to_value));
        ("DkimAttributes",
          (Option.map x.dkimAttributes ~f:DkimAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dkimAttributes =
        (Option.map ~f:DkimAttributes.of_xml)
          (Xml.child xml_arg0 "DkimAttributes") in
      let verifiedForSendingStatus =
        (Option.map ~f:Enabled.of_xml)
          (Xml.child xml_arg0 "VerifiedForSendingStatus") in
      let identityType =
        (Option.map ~f:IdentityType.of_xml)
          (Xml.child xml_arg0 "IdentityType") in
      make ?dkimAttributes ?verifiedForSendingStatus ?identityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dkimAttributes =
        field_map json__ "DkimAttributes" DkimAttributes.of_json in
      let verifiedForSendingStatus =
        field_map json__ "VerifiedForSendingStatus" Enabled.of_json in
      let identityType = field_map json__ "IdentityType" IdentityType.of_json in
      make ?dkimAttributes ?verifiedForSendingStatus ?identityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the email identity is a domain, this object contains information about the DKIM verification status for the domain. If the email identity is an email address, this object is empty."]
module CreateEmailIdentityRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t
        [@ocaml.doc "The email address or domain to verify."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) to associate with the email identity."];
      dkimSigningAttributes: DkimSigningAttributes.t option
        [@ocaml.doc
          "If your request includes this object, Amazon SES configures the identity to use Bring Your Own DKIM (BYODKIM) for DKIM authentication purposes, or, configures the key length to be used for Easy DKIM. You can only specify this object if the email identity is a domain, as opposed to an address."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "The configuration set to use by default when sending from this identity. Note that any configuration set defined in the email sending request takes precedence."]}
    let context_ = "CreateEmailIdentityRequest"
    let make ?tags =
      fun ?dkimSigningAttributes ->
        fun ?configurationSetName ->
          fun ~emailIdentity ->
            fun () ->
              {
                tags;
                dkimSigningAttributes;
                configurationSetName;
                emailIdentity
              }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DkimSigningAttributes",
          (Option.map x.dkimSigningAttributes
             ~f:DkimSigningAttributes.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let dkimSigningAttributes =
        (Option.map ~f:DkimSigningAttributes.of_xml)
          (Xml.child xml_arg0 "DkimSigningAttributes") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ?configurationSetName ?dkimSigningAttributes ?tags ~emailIdentity
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let dkimSigningAttributes =
        field_map json__ "DkimSigningAttributes"
          DkimSigningAttributes.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ?configurationSetName ?dkimSigningAttributes ?tags ~emailIdentity
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to begin the verification process for an email identity (an email address or domain)."]
module CreateEmailIdentityPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateEmailIdentityPolicyRequest =
  struct
    type nonrec t =
      {
      emailIdentity: Identity.t [@ocaml.doc "The email identity."];
      policyName: PolicyName.t
        [@ocaml.doc
          "The name of the policy. The policy name cannot exceed 64 characters and can only include alphanumeric characters, dashes, and underscores."];
      policy: Policy.t
        [@ocaml.doc
          "The text of the policy in JSON format. The policy cannot exceed 4 KB. For information about the syntax of sending authorization policies, see the Amazon SES Developer Guide."]}
    let context_ = "CreateEmailIdentityPolicyRequest"
    let make ~emailIdentity =
      fun ~policyName ->
        fun ~policy -> fun () -> { emailIdentity; policyName; policy }
    let to_value x =
      structure_to_value
        [("EmailIdentity", (Some (Identity.to_value x.emailIdentity)));
        ("PolicyName", (Some (PolicyName.to_value x.policyName)));
        ("Policy", (Some (Policy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let policyName =
        PolicyName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyName") in
      let emailIdentity =
        Identity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailIdentity") in
      make ~policy ~policyName ~emailIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let policyName = field_map_exn json__ "PolicyName" PolicyName.of_json in
      let emailIdentity =
        field_map_exn json__ "EmailIdentity" Identity.of_json in
      make ~policy ~policyName ~emailIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create a sending authorization policy for an identity. Sending authorization is an Amazon SES feature that enables you to authorize other senders to use your identities. For information, see the Amazon SES Developer Guide."]
module CreateDeliverabilityTestReportResponse =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option
        [@ocaml.doc
          "A unique string that identifies the predictive inbox placement test."];
      deliverabilityTestStatus: DeliverabilityTestStatus.t option
        [@ocaml.doc
          "The status of the predictive inbox placement test. If the status is IN_PROGRESS, then the predictive inbox placement test is currently running. Predictive inbox placement tests are usually complete within 24 hours of creating the test. If the status is COMPLETE, then the test is finished, and you can use the GetDeliverabilityTestReport to view the results of the test."]}
    type nonrec error =
      [ `AccountSuspendedException of AccountSuspendedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `MailFromDomainNotVerifiedException of
          MailFromDomainNotVerifiedException.t 
      | `MessageRejected of MessageRejected.t 
      | `NotFoundException of NotFoundException.t 
      | `SendingPausedException of SendingPausedException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId =
      fun ?deliverabilityTestStatus ->
        fun () -> { reportId; deliverabilityTestStatus }
    let error_of_json name json =
      match name with
      | "AccountSuspendedException" ->
          `AccountSuspendedException (AccountSuspendedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_json json)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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
      | "AccountSuspendedException" ->
          `AccountSuspendedException (AccountSuspendedException.of_xml xml)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "MailFromDomainNotVerifiedException" ->
          `MailFromDomainNotVerifiedException
            (MailFromDomainNotVerifiedException.of_xml xml)
      | "MessageRejected" -> `MessageRejected (MessageRejected.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "SendingPausedException" ->
          `SendingPausedException (SendingPausedException.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
      | `AccountSuspendedException e ->
          `Assoc
            [("error", (`String "AccountSuspendedException"));
            ("details", (AccountSuspendedException.to_json e))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `MailFromDomainNotVerifiedException e ->
          `Assoc
            [("error", (`String "MailFromDomainNotVerifiedException"));
            ("details", (MailFromDomainNotVerifiedException.to_json e))]
      | `MessageRejected e ->
          `Assoc
            [("error", (`String "MessageRejected"));
            ("details", (MessageRejected.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `SendingPausedException e ->
          `Assoc
            [("error", (`String "SendingPausedException"));
            ("details", (SendingPausedException.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
        [("ReportId", (Option.map x.reportId ~f:ReportId.to_value));
        ("DeliverabilityTestStatus",
          (Option.map x.deliverabilityTestStatus
             ~f:DeliverabilityTestStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliverabilityTestStatus =
        (Option.map ~f:DeliverabilityTestStatus.of_xml)
          (Xml.child xml_arg0 "DeliverabilityTestStatus") in
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "ReportId") in
      make ?deliverabilityTestStatus ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliverabilityTestStatus =
        field_map json__ "DeliverabilityTestStatus"
          DeliverabilityTestStatus.of_json in
      let reportId = field_map json__ "ReportId" ReportId.of_json in
      make ?deliverabilityTestStatus ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the predictive inbox placement test that you created."]
module CreateDeliverabilityTestReportRequest =
  struct
    type nonrec t =
      {
      reportName: ReportName.t option
        [@ocaml.doc
          "A unique name that helps you to identify the predictive inbox placement test when you retrieve the results."];
      fromEmailAddress: EmailAddress.t
        [@ocaml.doc
          "The email address that the predictive inbox placement test email was sent from."];
      content: EmailContent.t
        [@ocaml.doc
          "The HTML body of the message that you sent when you performed the predictive inbox placement test."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) that you want to associate with the predictive inbox placement test."]}
    let context_ = "CreateDeliverabilityTestReportRequest"
    let make ?reportName =
      fun ?tags ->
        fun ~fromEmailAddress ->
          fun ~content ->
            fun () -> { reportName; tags; fromEmailAddress; content }
    let to_value x =
      structure_to_value
        [("ReportName", (Option.map x.reportName ~f:ReportName.to_value));
        ("FromEmailAddress",
          (Some (EmailAddress.to_value x.fromEmailAddress)));
        ("Content", (Some (EmailContent.to_value x.content)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let content =
        EmailContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Content") in
      let fromEmailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FromEmailAddress") in
      let reportName =
        (Option.map ~f:ReportName.of_xml) (Xml.child xml_arg0 "ReportName") in
      make ?tags ~content ~fromEmailAddress ?reportName ()
    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
      let content = field_map_exn json__ "Content" EmailContent.of_json in
      let fromEmailAddress =
        field_map_exn json__ "FromEmailAddress" EmailAddress.of_json in
      let reportName = field_map json__ "ReportName" ReportName.of_json in
      make ?tags ~content ~fromEmailAddress ?reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to perform a predictive inbox placement test. Predictive inbox placement tests can help you predict how your messages will be handled by various email providers around the world. When you perform a predictive inbox placement test, you provide a sample message that contains the content that you plan to send to your customers. We send that message to special email addresses spread across several major email providers around the world. The test takes about 24 hours to complete. When the test is complete, you can use the GetDeliverabilityTestReport operation to view the results of the test."]
module CreateDedicatedIpPoolResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateDedicatedIpPoolRequest =
  struct
    type nonrec t =
      {
      poolName: PoolName.t [@ocaml.doc "The name of the dedicated IP pool."];
      tags: TagList.t option
        [@ocaml.doc
          "An object that defines the tags (keys and values) that you want to associate with the pool."];
      scalingMode: ScalingMode.t option
        [@ocaml.doc "The type of scaling mode."]}
    let context_ = "CreateDedicatedIpPoolRequest"
    let make ?tags =
      fun ?scalingMode ->
        fun ~poolName -> fun () -> { tags; scalingMode; poolName }
    let to_value x =
      structure_to_value
        [("PoolName", (Some (PoolName.to_value x.poolName)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ScalingMode", (Option.map x.scalingMode ~f:ScalingMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scalingMode =
        (Option.map ~f:ScalingMode.of_xml) (Xml.child xml_arg0 "ScalingMode") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let poolName =
        PoolName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolName") in
      make ?scalingMode ?tags ~poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scalingMode = field_map json__ "ScalingMode" ScalingMode.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let poolName = field_map_exn json__ "PoolName" PoolName.of_json in
      make ?scalingMode ?tags ~poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to create a new dedicated IP pool."]
module CreateCustomVerificationEmailTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module CreateCustomVerificationEmailTemplateRequest =
  struct
    type nonrec t =
      {
      templateName: EmailTemplateName.t
        [@ocaml.doc "The name of the custom verification email template."];
      fromEmailAddress: EmailAddress.t
        [@ocaml.doc
          "The email address that the custom verification email is sent from."];
      templateSubject: EmailTemplateSubject.t
        [@ocaml.doc "The subject line of the custom verification email."];
      templateContent: TemplateContent.t
        [@ocaml.doc
          "The content of the custom verification email. The total size of the email must be less than 10 MB. The message body may contain HTML, with some limitations. For more information, see Custom verification email frequently asked questions in the Amazon SES Developer Guide."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) to associate with the custom verification email template."];
      successRedirectionURL: SuccessRedirectionURL.t
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is successfully verified."];
      failureRedirectionURL: FailureRedirectionURL.t
        [@ocaml.doc
          "The URL that the recipient of the verification email is sent to if his or her address is not successfully verified."]}
    let context_ = "CreateCustomVerificationEmailTemplateRequest"
    let make ?tags =
      fun ~templateName ->
        fun ~fromEmailAddress ->
          fun ~templateSubject ->
            fun ~templateContent ->
              fun ~successRedirectionURL ->
                fun ~failureRedirectionURL ->
                  fun () ->
                    {
                      tags;
                      templateName;
                      fromEmailAddress;
                      templateSubject;
                      templateContent;
                      successRedirectionURL;
                      failureRedirectionURL
                    }
    let to_value x =
      structure_to_value
        [("TemplateName", (Some (EmailTemplateName.to_value x.templateName)));
        ("FromEmailAddress",
          (Some (EmailAddress.to_value x.fromEmailAddress)));
        ("TemplateSubject",
          (Some (EmailTemplateSubject.to_value x.templateSubject)));
        ("TemplateContent",
          (Some (TemplateContent.to_value x.templateContent)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SuccessRedirectionURL",
          (Some (SuccessRedirectionURL.to_value x.successRedirectionURL)));
        ("FailureRedirectionURL",
          (Some (FailureRedirectionURL.to_value x.failureRedirectionURL)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureRedirectionURL =
        FailureRedirectionURL.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FailureRedirectionURL") in
      let successRedirectionURL =
        SuccessRedirectionURL.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SuccessRedirectionURL") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let templateContent =
        TemplateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateContent") in
      let templateSubject =
        EmailTemplateSubject.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateSubject") in
      let fromEmailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FromEmailAddress") in
      let templateName =
        EmailTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateName") in
      make ~failureRedirectionURL ~successRedirectionURL ?tags
        ~templateContent ~templateSubject ~fromEmailAddress ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureRedirectionURL =
        field_map_exn json__ "FailureRedirectionURL"
          FailureRedirectionURL.of_json in
      let successRedirectionURL =
        field_map_exn json__ "SuccessRedirectionURL"
          SuccessRedirectionURL.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let templateContent =
        field_map_exn json__ "TemplateContent" TemplateContent.of_json in
      let templateSubject =
        field_map_exn json__ "TemplateSubject" EmailTemplateSubject.of_json in
      let fromEmailAddress =
        field_map_exn json__ "FromEmailAddress" EmailAddress.of_json in
      let templateName =
        field_map_exn json__ "TemplateName" EmailTemplateName.of_json in
      make ~failureRedirectionURL ~successRedirectionURL ?tags
        ~templateContent ~templateSubject ~fromEmailAddress ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to create a custom verification email template."]
module CreateContactResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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
       "Creates a contact, which is an end-user who is receiving the email, and adds them to a contact list."]
module CreateContactRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc
          "The name of the contact list to which the contact should be added."];
      emailAddress: EmailAddress.t
        [@ocaml.doc "The contact's email address."];
      topicPreferences: TopicPreferenceList.t option
        [@ocaml.doc
          "The contact's preferences for being opted-in to or opted-out of topics."];
      unsubscribeAll: UnsubscribeAll.t option
        [@ocaml.doc
          "A boolean value status noting if the contact is unsubscribed from all contact list topics."];
      attributesData: AttributesData.t option
        [@ocaml.doc "The attribute data attached to a contact."]}
    let context_ = "CreateContactRequest"
    let make ?topicPreferences =
      fun ?unsubscribeAll ->
        fun ?attributesData ->
          fun ~contactListName ->
            fun ~emailAddress ->
              fun () ->
                {
                  topicPreferences;
                  unsubscribeAll;
                  attributesData;
                  contactListName;
                  emailAddress
                }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("EmailAddress", (Some (EmailAddress.to_value x.emailAddress)));
        ("TopicPreferences",
          (Option.map x.topicPreferences ~f:TopicPreferenceList.to_value));
        ("UnsubscribeAll",
          (Option.map x.unsubscribeAll ~f:UnsubscribeAll.to_value));
        ("AttributesData",
          (Option.map x.attributesData ~f:AttributesData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributesData =
        (Option.map ~f:AttributesData.of_xml)
          (Xml.child xml_arg0 "AttributesData") in
      let unsubscribeAll =
        (Option.map ~f:UnsubscribeAll.of_xml)
          (Xml.child xml_arg0 "UnsubscribeAll") in
      let topicPreferences =
        (Option.map ~f:TopicPreferenceList.of_xml)
          (Xml.child xml_arg0 "TopicPreferences") in
      let emailAddress =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailAddress") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ?attributesData ?unsubscribeAll ?topicPreferences ~emailAddress
        ~contactListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributesData =
        field_map json__ "AttributesData" AttributesData.of_json in
      let unsubscribeAll =
        field_map json__ "UnsubscribeAll" UnsubscribeAll.of_json in
      let topicPreferences =
        field_map json__ "TopicPreferences" TopicPreferenceList.of_json in
      let emailAddress =
        field_map_exn json__ "EmailAddress" EmailAddress.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ?attributesData ?unsubscribeAll ?topicPreferences ~emailAddress
        ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a contact, which is an end-user who is receiving the email, and adds them to a contact list."]
module CreateContactListResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 "Creates a contact list."]
module CreateContactListRequest =
  struct
    type nonrec t =
      {
      contactListName: ContactListName.t
        [@ocaml.doc "The name of the contact list."];
      topics: Topics.t option
        [@ocaml.doc
          "An interest group, theme, or label within a list. A contact list can have multiple topics."];
      description: Description.t option
        [@ocaml.doc "A description of what the contact list is about."];
      tags: TagList.t option
        [@ocaml.doc "The tags associated with a contact list."]}
    let context_ = "CreateContactListRequest"
    let make ?topics =
      fun ?description ->
        fun ?tags ->
          fun ~contactListName ->
            fun () -> { topics; description; tags; contactListName }
    let to_value x =
      structure_to_value
        [("ContactListName",
           (Some (ContactListName.to_value x.contactListName)));
        ("Topics", (Option.map x.topics ~f:Topics.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let topics =
        (Option.map ~f:Topics.of_xml) (Xml.child xml_arg0 "Topics") in
      let contactListName =
        ContactListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactListName") in
      make ?tags ?description ?topics ~contactListName ()
    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
      let description = field_map json__ "Description" Description.of_json in
      let topics = field_map json__ "Topics" Topics.of_json in
      let contactListName =
        field_map_exn json__ "ContactListName" ContactListName.of_json in
      make ?tags ?description ?topics ~contactListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a contact list."]
module CreateConfigurationSetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.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))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc
          "The name of the configuration set. The name can contain up to 64 alphanumeric characters, including letters, numbers, hyphens (-) and underscores (_) only."];
      trackingOptions: TrackingOptions.t option
        [@ocaml.doc
          "An object that defines the open and click tracking options for emails that you send using the configuration set."];
      deliveryOptions: DeliveryOptions.t option
        [@ocaml.doc
          "An object that defines the dedicated IP pool that is used to send emails that you send using the configuration set."];
      reputationOptions: ReputationOptions.t option
        [@ocaml.doc
          "An object that defines whether or not Amazon SES collects reputation metrics for the emails that you send that use the configuration set."];
      sendingOptions: SendingOptions.t option
        [@ocaml.doc
          "An object that defines whether or not Amazon SES can send email that you send using the configuration set."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of objects that define the tags (keys and values) to associate with the configuration set."];
      suppressionOptions: SuppressionOptions.t option ;
      vdmOptions: VdmOptions.t option
        [@ocaml.doc
          "An object that defines the VDM options for emails that you send using the configuration set."];
      archivingOptions: ArchivingOptions.t option
        [@ocaml.doc
          "An object that defines the MailManager archiving options for emails that you send using the configuration set."]}
    let context_ = "CreateConfigurationSetRequest"
    let make ?trackingOptions =
      fun ?deliveryOptions ->
        fun ?reputationOptions ->
          fun ?sendingOptions ->
            fun ?tags ->
              fun ?suppressionOptions ->
                fun ?vdmOptions ->
                  fun ?archivingOptions ->
                    fun ~configurationSetName ->
                      fun () ->
                        {
                          trackingOptions;
                          deliveryOptions;
                          reputationOptions;
                          sendingOptions;
                          tags;
                          suppressionOptions;
                          vdmOptions;
                          archivingOptions;
                          configurationSetName
                        }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("TrackingOptions",
          (Option.map x.trackingOptions ~f:TrackingOptions.to_value));
        ("DeliveryOptions",
          (Option.map x.deliveryOptions ~f:DeliveryOptions.to_value));
        ("ReputationOptions",
          (Option.map x.reputationOptions ~f:ReputationOptions.to_value));
        ("SendingOptions",
          (Option.map x.sendingOptions ~f:SendingOptions.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("SuppressionOptions",
          (Option.map x.suppressionOptions ~f:SuppressionOptions.to_value));
        ("VdmOptions", (Option.map x.vdmOptions ~f:VdmOptions.to_value));
        ("ArchivingOptions",
          (Option.map x.archivingOptions ~f:ArchivingOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archivingOptions =
        (Option.map ~f:ArchivingOptions.of_xml)
          (Xml.child xml_arg0 "ArchivingOptions") in
      let vdmOptions =
        (Option.map ~f:VdmOptions.of_xml) (Xml.child xml_arg0 "VdmOptions") in
      let suppressionOptions =
        (Option.map ~f:SuppressionOptions.of_xml)
          (Xml.child xml_arg0 "SuppressionOptions") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let sendingOptions =
        (Option.map ~f:SendingOptions.of_xml)
          (Xml.child xml_arg0 "SendingOptions") in
      let reputationOptions =
        (Option.map ~f:ReputationOptions.of_xml)
          (Xml.child xml_arg0 "ReputationOptions") in
      let deliveryOptions =
        (Option.map ~f:DeliveryOptions.of_xml)
          (Xml.child xml_arg0 "DeliveryOptions") in
      let trackingOptions =
        (Option.map ~f:TrackingOptions.of_xml)
          (Xml.child xml_arg0 "TrackingOptions") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?archivingOptions ?vdmOptions ?suppressionOptions ?tags
        ?sendingOptions ?reputationOptions ?deliveryOptions ?trackingOptions
        ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archivingOptions =
        field_map json__ "ArchivingOptions" ArchivingOptions.of_json in
      let vdmOptions = field_map json__ "VdmOptions" VdmOptions.of_json in
      let suppressionOptions =
        field_map json__ "SuppressionOptions" SuppressionOptions.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let sendingOptions =
        field_map json__ "SendingOptions" SendingOptions.of_json in
      let reputationOptions =
        field_map json__ "ReputationOptions" ReputationOptions.of_json in
      let deliveryOptions =
        field_map json__ "DeliveryOptions" DeliveryOptions.of_json in
      let trackingOptions =
        field_map json__ "TrackingOptions" TrackingOptions.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?archivingOptions ?vdmOptions ?suppressionOptions ?tags
        ?sendingOptions ?reputationOptions ?deliveryOptions ?trackingOptions
        ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to create a configuration set."]
module CreateConfigurationSetEventDestinationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AlreadyExistsException of AlreadyExistsException.t 
      | `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CreateConfigurationSetEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name of the configuration set ."];
      eventDestinationName: EventDestinationName.t
        [@ocaml.doc
          "A name that identifies the event destination within the configuration set."];
      eventDestination: EventDestinationDefinition.t
        [@ocaml.doc "An object that defines the event destination."]}
    let context_ = "CreateConfigurationSetEventDestinationRequest"
    let make ~configurationSetName =
      fun ~eventDestinationName ->
        fun ~eventDestination ->
          fun () ->
            { configurationSetName; eventDestinationName; eventDestination }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("EventDestinationName",
          (Some (EventDestinationName.to_value x.eventDestinationName)));
        ("EventDestination",
          (Some (EventDestinationDefinition.to_value x.eventDestination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestination =
        EventDestinationDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestination") in
      let eventDestinationName =
        EventDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~eventDestination ~eventDestinationName ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestination =
        field_map_exn json__ "EventDestination"
          EventDestinationDefinition.of_json in
      let eventDestinationName =
        field_map_exn json__ "EventDestinationName"
          EventDestinationName.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ~eventDestination ~eventDestinationName ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to add an event destination to a configuration set."]
module CancelExportJobResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.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)
      | "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)
      | "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))]
      | `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 HTTP 200 response if the request succeeds, or an error message if the request fails."]
module CancelExportJobRequest =
  struct
    type nonrec t = {
      jobId: JobId.t [@ocaml.doc "The export job ID."]}
    let context_ = "CancelExportJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a request to cancel an export job using the export job ID."]
module BatchGetMetricDataResponse =
  struct
    type nonrec t =
      {
      results: MetricDataResultList.t option
        [@ocaml.doc "A list of successfully retrieved MetricDataResult."];
      errors: MetricDataErrorList.t option
        [@ocaml.doc
          "A list of MetricDataError encountered while processing your metric data batch request."]}
    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 ?results = fun ?errors -> fun () -> { results; errors }
    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
        [("Results", (Option.map x.results ~f:MetricDataResultList.to_value));
        ("Errors", (Option.map x.errors ~f:MetricDataErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:MetricDataErrorList.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let results =
        (Option.map ~f:MetricDataResultList.of_xml)
          (Xml.child xml_arg0 "Results") in
      make ?errors ?results ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "Errors" MetricDataErrorList.of_json in
      let results = field_map json__ "Results" MetricDataResultList.of_json in
      make ?errors ?results ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the result of processing your metric data batch request"]
module BatchGetMetricDataRequest =
  struct
    type nonrec t =
      {
      queries: BatchGetMetricDataQueries.t
        [@ocaml.doc "A list of queries for metrics to be retrieved."]}
    let context_ = "BatchGetMetricDataRequest"
    let make ~queries = fun () -> { queries }
    let to_value x =
      structure_to_value
        [("Queries", (Some (BatchGetMetricDataQueries.to_value x.queries)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queries =
        BatchGetMetricDataQueries.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Queries") in
      make ~queries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queries =
        field_map_exn json__ "Queries" BatchGetMetricDataQueries.of_json in
      make ~queries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a request to retrieve a batch of metric data."]