Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.pinpoint_sms_voice_v2
let apiVersion = "2022-03-31"
let endpointPrefix = "sms-voice"
let serviceFullName = "Amazon Pinpoint SMS Voice V2"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "PinpointSMSVoiceV2"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module IamRoleArn =
  struct
    type nonrec t = string
    let context_ = "IamRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IamRoleArn" j
    let to_json = simple_to_json to_value
  end
module LogGroupArn =
  struct
    type nonrec t = string
    let context_ = "LogGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LogGroupArn" j
    let to_json = simple_to_json to_value
  end
module EventType =
  struct
    type nonrec t =
      | ALL 
      | TEXT_ALL 
      | TEXT_SENT 
      | TEXT_PENDING 
      | TEXT_QUEUED 
      | TEXT_SUCCESSFUL 
      | TEXT_DELIVERED 
      | TEXT_INVALID 
      | TEXT_INVALID_MESSAGE 
      | TEXT_UNREACHABLE 
      | TEXT_CARRIER_UNREACHABLE 
      | TEXT_BLOCKED 
      | TEXT_CARRIER_BLOCKED 
      | TEXT_SPAM 
      | TEXT_UNKNOWN 
      | TEXT_TTL_EXPIRED 
      | TEXT_PROTECT_BLOCKED 
      | VOICE_ALL 
      | VOICE_INITIATED 
      | VOICE_RINGING 
      | VOICE_ANSWERED 
      | VOICE_COMPLETED 
      | VOICE_BUSY 
      | VOICE_NO_ANSWER 
      | VOICE_FAILED 
      | VOICE_TTL_EXPIRED 
      | MEDIA_ALL 
      | MEDIA_PENDING 
      | MEDIA_QUEUED 
      | MEDIA_SUCCESSFUL 
      | MEDIA_DELIVERED 
      | MEDIA_INVALID 
      | MEDIA_INVALID_MESSAGE 
      | MEDIA_UNREACHABLE 
      | MEDIA_CARRIER_UNREACHABLE 
      | MEDIA_BLOCKED 
      | MEDIA_CARRIER_BLOCKED 
      | MEDIA_SPAM 
      | MEDIA_UNKNOWN 
      | MEDIA_TTL_EXPIRED 
      | MEDIA_FILE_INACCESSIBLE 
      | MEDIA_FILE_TYPE_UNSUPPORTED 
      | MEDIA_FILE_SIZE_EXCEEDED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | TEXT_ALL -> "TEXT_ALL"
      | TEXT_SENT -> "TEXT_SENT"
      | TEXT_PENDING -> "TEXT_PENDING"
      | TEXT_QUEUED -> "TEXT_QUEUED"
      | TEXT_SUCCESSFUL -> "TEXT_SUCCESSFUL"
      | TEXT_DELIVERED -> "TEXT_DELIVERED"
      | TEXT_INVALID -> "TEXT_INVALID"
      | TEXT_INVALID_MESSAGE -> "TEXT_INVALID_MESSAGE"
      | TEXT_UNREACHABLE -> "TEXT_UNREACHABLE"
      | TEXT_CARRIER_UNREACHABLE -> "TEXT_CARRIER_UNREACHABLE"
      | TEXT_BLOCKED -> "TEXT_BLOCKED"
      | TEXT_CARRIER_BLOCKED -> "TEXT_CARRIER_BLOCKED"
      | TEXT_SPAM -> "TEXT_SPAM"
      | TEXT_UNKNOWN -> "TEXT_UNKNOWN"
      | TEXT_TTL_EXPIRED -> "TEXT_TTL_EXPIRED"
      | TEXT_PROTECT_BLOCKED -> "TEXT_PROTECT_BLOCKED"
      | VOICE_ALL -> "VOICE_ALL"
      | VOICE_INITIATED -> "VOICE_INITIATED"
      | VOICE_RINGING -> "VOICE_RINGING"
      | VOICE_ANSWERED -> "VOICE_ANSWERED"
      | VOICE_COMPLETED -> "VOICE_COMPLETED"
      | VOICE_BUSY -> "VOICE_BUSY"
      | VOICE_NO_ANSWER -> "VOICE_NO_ANSWER"
      | VOICE_FAILED -> "VOICE_FAILED"
      | VOICE_TTL_EXPIRED -> "VOICE_TTL_EXPIRED"
      | MEDIA_ALL -> "MEDIA_ALL"
      | MEDIA_PENDING -> "MEDIA_PENDING"
      | MEDIA_QUEUED -> "MEDIA_QUEUED"
      | MEDIA_SUCCESSFUL -> "MEDIA_SUCCESSFUL"
      | MEDIA_DELIVERED -> "MEDIA_DELIVERED"
      | MEDIA_INVALID -> "MEDIA_INVALID"
      | MEDIA_INVALID_MESSAGE -> "MEDIA_INVALID_MESSAGE"
      | MEDIA_UNREACHABLE -> "MEDIA_UNREACHABLE"
      | MEDIA_CARRIER_UNREACHABLE -> "MEDIA_CARRIER_UNREACHABLE"
      | MEDIA_BLOCKED -> "MEDIA_BLOCKED"
      | MEDIA_CARRIER_BLOCKED -> "MEDIA_CARRIER_BLOCKED"
      | MEDIA_SPAM -> "MEDIA_SPAM"
      | MEDIA_UNKNOWN -> "MEDIA_UNKNOWN"
      | MEDIA_TTL_EXPIRED -> "MEDIA_TTL_EXPIRED"
      | MEDIA_FILE_INACCESSIBLE -> "MEDIA_FILE_INACCESSIBLE"
      | MEDIA_FILE_TYPE_UNSUPPORTED -> "MEDIA_FILE_TYPE_UNSUPPORTED"
      | MEDIA_FILE_SIZE_EXCEEDED -> "MEDIA_FILE_SIZE_EXCEEDED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "TEXT_ALL" -> TEXT_ALL
      | "TEXT_SENT" -> TEXT_SENT
      | "TEXT_PENDING" -> TEXT_PENDING
      | "TEXT_QUEUED" -> TEXT_QUEUED
      | "TEXT_SUCCESSFUL" -> TEXT_SUCCESSFUL
      | "TEXT_DELIVERED" -> TEXT_DELIVERED
      | "TEXT_INVALID" -> TEXT_INVALID
      | "TEXT_INVALID_MESSAGE" -> TEXT_INVALID_MESSAGE
      | "TEXT_UNREACHABLE" -> TEXT_UNREACHABLE
      | "TEXT_CARRIER_UNREACHABLE" -> TEXT_CARRIER_UNREACHABLE
      | "TEXT_BLOCKED" -> TEXT_BLOCKED
      | "TEXT_CARRIER_BLOCKED" -> TEXT_CARRIER_BLOCKED
      | "TEXT_SPAM" -> TEXT_SPAM
      | "TEXT_UNKNOWN" -> TEXT_UNKNOWN
      | "TEXT_TTL_EXPIRED" -> TEXT_TTL_EXPIRED
      | "TEXT_PROTECT_BLOCKED" -> TEXT_PROTECT_BLOCKED
      | "VOICE_ALL" -> VOICE_ALL
      | "VOICE_INITIATED" -> VOICE_INITIATED
      | "VOICE_RINGING" -> VOICE_RINGING
      | "VOICE_ANSWERED" -> VOICE_ANSWERED
      | "VOICE_COMPLETED" -> VOICE_COMPLETED
      | "VOICE_BUSY" -> VOICE_BUSY
      | "VOICE_NO_ANSWER" -> VOICE_NO_ANSWER
      | "VOICE_FAILED" -> VOICE_FAILED
      | "VOICE_TTL_EXPIRED" -> VOICE_TTL_EXPIRED
      | "MEDIA_ALL" -> MEDIA_ALL
      | "MEDIA_PENDING" -> MEDIA_PENDING
      | "MEDIA_QUEUED" -> MEDIA_QUEUED
      | "MEDIA_SUCCESSFUL" -> MEDIA_SUCCESSFUL
      | "MEDIA_DELIVERED" -> MEDIA_DELIVERED
      | "MEDIA_INVALID" -> MEDIA_INVALID
      | "MEDIA_INVALID_MESSAGE" -> MEDIA_INVALID_MESSAGE
      | "MEDIA_UNREACHABLE" -> MEDIA_UNREACHABLE
      | "MEDIA_CARRIER_UNREACHABLE" -> MEDIA_CARRIER_UNREACHABLE
      | "MEDIA_BLOCKED" -> MEDIA_BLOCKED
      | "MEDIA_CARRIER_BLOCKED" -> MEDIA_CARRIER_BLOCKED
      | "MEDIA_SPAM" -> MEDIA_SPAM
      | "MEDIA_UNKNOWN" -> MEDIA_UNKNOWN
      | "MEDIA_TTL_EXPIRED" -> MEDIA_TTL_EXPIRED
      | "MEDIA_FILE_INACCESSIBLE" -> MEDIA_FILE_INACCESSIBLE
      | "MEDIA_FILE_TYPE_UNSUPPORTED" -> MEDIA_FILE_TYPE_UNSUPPORTED
      | "MEDIA_FILE_SIZE_EXCEEDED" -> MEDIA_FILE_SIZE_EXCEEDED
      | 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 DeliveryStreamArn =
  struct
    type nonrec t = string
    let context_ = "DeliveryStreamArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeliveryStreamArn" j
    let to_json = simple_to_json to_value
  end
module SnsTopicArn =
  struct
    type nonrec t = string
    let context_ = "SnsTopicArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnsTopicArn" j
    let to_json = simple_to_json to_value
  end
module IsoCountryCode =
  struct
    type nonrec t = string
    let context_ = "IsoCountryCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Z]{2}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IsoCountryCode" j
    let to_json = simple_to_json to_value
  end
module RegistrationAssociationBehavior =
  struct
    type nonrec t =
      | ASSOCIATE_BEFORE_SUBMIT 
      | ASSOCIATE_ON_APPROVAL 
      | ASSOCIATE_AFTER_COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATE_BEFORE_SUBMIT -> "ASSOCIATE_BEFORE_SUBMIT"
      | ASSOCIATE_ON_APPROVAL -> "ASSOCIATE_ON_APPROVAL"
      | ASSOCIATE_AFTER_COMPLETE -> "ASSOCIATE_AFTER_COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATE_BEFORE_SUBMIT" -> ASSOCIATE_BEFORE_SUBMIT
      | "ASSOCIATE_ON_APPROVAL" -> ASSOCIATE_ON_APPROVAL
      | "ASSOCIATE_AFTER_COMPLETE" -> ASSOCIATE_AFTER_COMPLETE
      | 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 RegistrationAssociationBehavior"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationAssociationBehavior" j)
    let to_json = simple_to_json to_value
  end
module RegistrationDisassociationBehavior =
  struct
    type nonrec t =
      | DISASSOCIATE_ALL_CLOSES_REGISTRATION 
      | DISASSOCIATE_ALL_ALLOWS_DELETE_REGISTRATION 
      | DELETE_REGISTRATION_DISASSOCIATES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISASSOCIATE_ALL_CLOSES_REGISTRATION ->
          "DISASSOCIATE_ALL_CLOSES_REGISTRATION"
      | DISASSOCIATE_ALL_ALLOWS_DELETE_REGISTRATION ->
          "DISASSOCIATE_ALL_ALLOWS_DELETE_REGISTRATION"
      | DELETE_REGISTRATION_DISASSOCIATES ->
          "DELETE_REGISTRATION_DISASSOCIATES"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISASSOCIATE_ALL_CLOSES_REGISTRATION" ->
          DISASSOCIATE_ALL_CLOSES_REGISTRATION
      | "DISASSOCIATE_ALL_ALLOWS_DELETE_REGISTRATION" ->
          DISASSOCIATE_ALL_ALLOWS_DELETE_REGISTRATION
      | "DELETE_REGISTRATION_DISASSOCIATES" ->
          DELETE_REGISTRATION_DISASSOCIATES
      | 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 RegistrationDisassociationBehavior"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationDisassociationBehavior" j)
    let to_json = simple_to_json to_value
  end
module SelectOptionDescription =
  struct
    type nonrec t =
      {
      option: String_.t option [@ocaml.doc "The value of the option."];
      title: String_.t option [@ocaml.doc "The title of the select option."];
      description: String_.t option
        [@ocaml.doc "A description of the option meaning."]}
    let make ?option =
      fun ?title ->
        fun ?description -> fun () -> { option; title; description }
    let to_value x =
      structure_to_value
        [("Option", (Option.map x.option ~f:String_.to_value));
        ("Title", (Option.map x.title ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Title") in
      let option =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Option") in
      make ?description ?title ?option ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" String_.of_json in
      let title = field_map json__ "Title" String_.of_json in
      let option = field_map json__ "Option" String_.of_json in
      make ?description ?title ?option ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A description of each select option."]
module CarrierStatus =
  struct
    type nonrec t =
      | PENDING 
      | ACTIVE 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACTIVE -> "ACTIVE"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACTIVE" -> ACTIVE
      | "REJECTED" -> REJECTED
      | 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 CarrierStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CarrierStatus" j)
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module PrimitiveBoolean =
  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 TemplateVariableSource =
  struct
    type nonrec t =
      | CUSTOMER 
      | SYSTEM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOMER -> "CUSTOMER"
      | SYSTEM -> "SYSTEM"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOMER" -> CUSTOMER
      | "SYSTEM" -> SYSTEM
      | 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 TemplateVariableSource" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TemplateVariableSource" j)
    let to_json = simple_to_json to_value
  end
module TemplateVariableType =
  struct
    type nonrec t =
      | STRING 
      | INTEGER 
      | BOOLEAN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STRING -> "STRING"
      | INTEGER -> "INTEGER"
      | BOOLEAN -> "BOOLEAN"
      | Non_static_id s -> s
    let of_string =
      function
      | "STRING" -> STRING
      | "INTEGER" -> INTEGER
      | "BOOLEAN" -> BOOLEAN
      | 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 TemplateVariableType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TemplateVariableType" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module CloudWatchLogsDestination =
  struct
    type nonrec t =
      {
      iamRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Identity and Access Management role that is able to write event data to an Amazon CloudWatch destination."];
      logGroupArn: LogGroupArn.t
        [@ocaml.doc
          "The name of the Amazon CloudWatch log group that you want to record events in."]}
    let context_ = "CloudWatchLogsDestination"
    let make ~iamRoleArn =
      fun ~logGroupArn -> fun () -> { iamRoleArn; logGroupArn }
    let to_value x =
      structure_to_value
        [("IamRoleArn", (Some (IamRoleArn.to_value x.iamRoleArn)));
        ("LogGroupArn", (Some (LogGroupArn.to_value x.logGroupArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupArn =
        LogGroupArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogGroupArn") in
      let iamRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IamRoleArn") in
      make ~logGroupArn ~iamRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupArn =
        field_map_exn json__ "LogGroupArn" LogGroupArn.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" IamRoleArn.of_json in
      make ~logGroupArn ~iamRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the destination configuration to use when publishing message sending events."]
module EventDestinationName =
  struct
    type nonrec t = string
    let context_ = "EventDestinationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_-]+")));
        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
module EventTypeList =
  struct
    type nonrec t = EventType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:43) >>= (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: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:"EventTypeList" ~of_json:EventType.of_json j
    let to_json v = composed_to_json to_value v
  end
module KinesisFirehoseDestination =
  struct
    type nonrec t =
      {
      iamRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The ARN of an Identity and Access Management role that is able to write event data to an Amazon Data Firehose destination."];
      deliveryStreamArn: DeliveryStreamArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the delivery stream."]}
    let context_ = "KinesisFirehoseDestination"
    let make ~iamRoleArn =
      fun ~deliveryStreamArn -> fun () -> { iamRoleArn; deliveryStreamArn }
    let to_value x =
      structure_to_value
        [("IamRoleArn", (Some (IamRoleArn.to_value x.iamRoleArn)));
        ("DeliveryStreamArn",
          (Some (DeliveryStreamArn.to_value x.deliveryStreamArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliveryStreamArn =
        DeliveryStreamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeliveryStreamArn") in
      let iamRoleArn =
        IamRoleArn.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" DeliveryStreamArn.of_json in
      let iamRoleArn = field_map_exn json__ "IamRoleArn" IamRoleArn.of_json in
      make ~deliveryStreamArn ~iamRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the delivery stream Amazon Resource Name (ARN), and the ARN of the Identity and Access Management (IAM) role associated with a Firehose event destination. Event destinations, such as Firehose, are associated with configuration sets, which enable you to publish message sending events."]
module SnsDestination =
  struct
    type nonrec t =
      {
      topicArn: SnsTopicArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon SNS topic that you want to publish events to."]}
    let context_ = "SnsDestination"
    let make ~topicArn = fun () -> { topicArn }
    let to_value x =
      structure_to_value
        [("TopicArn", (Some (SnsTopicArn.to_value x.topicArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicArn =
        SnsTopicArn.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" SnsTopicArn.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 events. You can use Amazon SNS to send notification when certain events occur."]
module FilterValue =
  struct
    type nonrec t = string
    let context_ = "FilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[/\\.:A-Za-z0-9+_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FilterValue" j
    let to_json = simple_to_json to_value
  end
module NumberCapability =
  struct
    type nonrec t =
      | SMS 
      | VOICE 
      | MMS 
      | RCS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SMS -> "SMS"
      | VOICE -> "VOICE"
      | MMS -> "MMS"
      | RCS -> "RCS"
      | Non_static_id s -> s
    let of_string =
      function
      | "SMS" -> SMS
      | "VOICE" -> VOICE
      | "MMS" -> MMS
      | "RCS" -> RCS
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration NumberCapability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NumberCapability" j)
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationTier =
  struct
    type nonrec t =
      | BASIC 
      | ADVANCED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASIC -> "BASIC"
      | ADVANCED -> "ADVANCED"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASIC" -> BASIC
      | "ADVANCED" -> ADVANCED
      | 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 NotifyConfigurationTier" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotifyConfigurationTier" j)
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationUseCase =
  struct
    type nonrec t =
      | CODE_VERIFICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CODE_VERIFICATION -> "CODE_VERIFICATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "CODE_VERIFICATION" -> CODE_VERIFICATION
      | 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 NotifyConfigurationUseCase"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotifyConfigurationUseCase" j)
    let to_json = simple_to_json to_value
  end
module MessageType =
  struct
    type nonrec t =
      | TRANSACTIONAL 
      | PROMOTIONAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TRANSACTIONAL -> "TRANSACTIONAL"
      | PROMOTIONAL -> "PROMOTIONAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "TRANSACTIONAL" -> TRANSACTIONAL
      | "PROMOTIONAL" -> PROMOTIONAL
      | 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 MessageType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MessageType" j)
    let to_json = simple_to_json to_value
  end
module RegistrationDeniedReasonInformation =
  struct
    type nonrec t =
      {
      reason: String_.t option
        [@ocaml.doc "The reason a registration was rejected."];
      shortDescription: String_.t option
        [@ocaml.doc "A short description of the rejection reason."];
      longDescription: String_.t option
        [@ocaml.doc "A long description of the rejection reason."];
      documentationTitle: String_.t option
        [@ocaml.doc "The title of the document."];
      documentationLink: String_.t option
        [@ocaml.doc "The link to the document."]}
    let make ?reason =
      fun ?shortDescription ->
        fun ?longDescription ->
          fun ?documentationTitle ->
            fun ?documentationLink ->
              fun () ->
                {
                  reason;
                  shortDescription;
                  longDescription;
                  documentationTitle;
                  documentationLink
                }
    let to_value x =
      structure_to_value
        [("Reason", (Option.map x.reason ~f:String_.to_value));
        ("ShortDescription",
          (Option.map x.shortDescription ~f:String_.to_value));
        ("LongDescription",
          (Option.map x.longDescription ~f:String_.to_value));
        ("DocumentationTitle",
          (Option.map x.documentationTitle ~f:String_.to_value));
        ("DocumentationLink",
          (Option.map x.documentationLink ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentationLink =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationLink") in
      let documentationTitle =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationTitle") in
      let longDescription =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LongDescription") in
      let shortDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ShortDescription") in
      let reason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Reason") in
      make ?documentationLink ?documentationTitle ?longDescription
        ?shortDescription ?reason ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentationLink =
        field_map json__ "DocumentationLink" String_.of_json in
      let documentationTitle =
        field_map json__ "DocumentationTitle" String_.of_json in
      let longDescription =
        field_map json__ "LongDescription" String_.of_json in
      let shortDescription =
        field_map json__ "ShortDescription" String_.of_json in
      let reason = field_map json__ "Reason" String_.of_json in
      make ?documentationLink ?documentationTitle ?longDescription
        ?shortDescription ?reason ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the reason a registration was rejected."]
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 SupportedAssociation =
  struct
    type nonrec t =
      {
      resourceType: String_.t option
        [@ocaml.doc
          "Defines the behavior of when an origination identity and registration can be associated with each other."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      associationBehavior: RegistrationAssociationBehavior.t option
        [@ocaml.doc
          "The association behavior. ASSOCIATE_BEFORE_SUBMIT The origination identity has to be supplied when creating a registration. ASSOCIATE_ON_APPROVAL This applies to all sender ID registrations. The sender ID will be automatically provisioned once the registration is approved. ASSOCIATE_AFTER_COMPLETE This applies to phone number registrations when you must complete a registration first, then associate one or more phone numbers later. For example 10DLC campaigns and long codes."];
      disassociationBehavior: RegistrationDisassociationBehavior.t option
        [@ocaml.doc
          "The disassociation behavior. DISASSOCIATE_ALL_CLOSES_REGISTRATION All origination identities must be disassociated from the registration before the registration can be closed. DISASSOCIATE_ALL_ALLOWS_DELETE_REGISTRATION All origination identities must be disassociated from the registration before the registration can be deleted. DELETE_REGISTRATION_DISASSOCIATES The registration can be deleted and all origination identities will be disasscoiated."]}
    let make ?resourceType =
      fun ?isoCountryCode ->
        fun ?associationBehavior ->
          fun ?disassociationBehavior ->
            fun () ->
              {
                resourceType;
                isoCountryCode;
                associationBehavior;
                disassociationBehavior
              }
    let to_value x =
      structure_to_value
        [("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("AssociationBehavior",
          (Option.map x.associationBehavior
             ~f:RegistrationAssociationBehavior.to_value));
        ("DisassociationBehavior",
          (Option.map x.disassociationBehavior
             ~f:RegistrationDisassociationBehavior.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disassociationBehavior =
        (Option.map ~f:RegistrationDisassociationBehavior.of_xml)
          (Xml.child xml_arg0 "DisassociationBehavior") in
      let associationBehavior =
        (Option.map ~f:RegistrationAssociationBehavior.of_xml)
          (Xml.child xml_arg0 "AssociationBehavior") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      make ?disassociationBehavior ?associationBehavior ?isoCountryCode
        ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disassociationBehavior =
        field_map json__ "DisassociationBehavior"
          RegistrationDisassociationBehavior.of_json in
      let associationBehavior =
        field_map json__ "AssociationBehavior"
          RegistrationAssociationBehavior.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      make ?disassociationBehavior ?associationBehavior ?isoCountryCode
        ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The processing rules for when a registration can be associated with an origination identity and disassociated from an origination identity."]
module SelectChoice =
  struct
    type nonrec t = string
    let context_ = "SelectChoice"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SelectChoice" j
    let to_json = simple_to_json to_value
  end
module SelectOptionDescriptionsList =
  struct
    type nonrec t = SelectOptionDescription.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:SelectOptionDescription.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:SelectOptionDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"SelectOptionDescriptionsList"
        ~of_json:SelectOptionDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module TestingAgentStatus =
  struct
    type nonrec t =
      | CREATED 
      | PENDING 
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | PENDING -> "PENDING"
      | ACTIVE -> "ACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "PENDING" -> PENDING
      | "ACTIVE" -> ACTIVE
      | 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 TestingAgentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TestingAgentStatus" j)
    let to_json = simple_to_json to_value
  end
module CarrierStatusInformation =
  struct
    type nonrec t =
      {
      carrierName: String_.t option [@ocaml.doc "The name of the carrier."];
      status: CarrierStatus.t option
        [@ocaml.doc "The launch status for this carrier."]}
    let make ?carrierName = fun ?status -> fun () -> { carrierName; status }
    let to_value x =
      structure_to_value
        [("CarrierName", (Option.map x.carrierName ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:CarrierStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CarrierStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let carrierName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CarrierName") in
      make ?status ?carrierName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" CarrierStatus.of_json in
      let carrierName = field_map json__ "CarrierName" String_.of_json in
      make ?status ?carrierName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains carrier-level launch status details for an RCS agent within a country."]
module TemplateVariableMetadata =
  struct
    type nonrec t =
      {
      type_: TemplateVariableType.t option
        [@ocaml.doc "The type of the variable."];
      required: PrimitiveBoolean.t option
        [@ocaml.doc "Whether the variable is required."];
      description: String_.t option
        [@ocaml.doc "A description of the variable."];
      maxLength: Integer.t option
        [@ocaml.doc "The maximum length for string variables."];
      minValue: Integer.t option
        [@ocaml.doc "The minimum value for numeric variables."];
      maxValue: Integer.t option
        [@ocaml.doc "The maximum value for numeric variables."];
      defaultValue: String_.t option
        [@ocaml.doc "The default value for the variable."];
      pattern: String_.t option
        [@ocaml.doc "The regex pattern the variable value must match."];
      sample: String_.t option
        [@ocaml.doc "A sample value for the variable."];
      source: TemplateVariableSource.t option
        [@ocaml.doc "The source of the variable, either CUSTOMER or SYSTEM."]}
    let make ?type_ =
      fun ?required ->
        fun ?description ->
          fun ?maxLength ->
            fun ?minValue ->
              fun ?maxValue ->
                fun ?defaultValue ->
                  fun ?pattern ->
                    fun ?sample ->
                      fun ?source ->
                        fun () ->
                          {
                            type_;
                            required;
                            description;
                            maxLength;
                            minValue;
                            maxValue;
                            defaultValue;
                            pattern;
                            sample;
                            source
                          }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:TemplateVariableType.to_value));
        ("Required", (Option.map x.required ~f:PrimitiveBoolean.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("MaxLength", (Option.map x.maxLength ~f:Integer.to_value));
        ("MinValue", (Option.map x.minValue ~f:Integer.to_value));
        ("MaxValue", (Option.map x.maxValue ~f:Integer.to_value));
        ("DefaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("Pattern", (Option.map x.pattern ~f:String_.to_value));
        ("Sample", (Option.map x.sample ~f:String_.to_value));
        ("Source", (Option.map x.source ~f:TemplateVariableSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let source =
        (Option.map ~f:TemplateVariableSource.of_xml)
          (Xml.child xml_arg0 "Source") in
      let sample =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Sample") in
      let pattern =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Pattern") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DefaultValue") in
      let maxValue =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MaxValue") in
      let minValue =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MinValue") in
      let maxLength =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MaxLength") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let required =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Required") in
      let type_ =
        (Option.map ~f:TemplateVariableType.of_xml)
          (Xml.child xml_arg0 "Type") in
      make ?source ?sample ?pattern ?defaultValue ?maxValue ?minValue
        ?maxLength ?description ?required ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let source = field_map json__ "Source" TemplateVariableSource.of_json in
      let sample = field_map json__ "Sample" String_.of_json in
      let pattern = field_map json__ "Pattern" String_.of_json in
      let defaultValue = field_map json__ "DefaultValue" String_.of_json in
      let maxValue = field_map json__ "MaxValue" Integer.of_json in
      let minValue = field_map json__ "MinValue" Integer.of_json in
      let maxLength = field_map json__ "MaxLength" Integer.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let required = field_map json__ "Required" PrimitiveBoolean.of_json in
      let type_ = field_map json__ "Type" TemplateVariableType.of_json in
      make ?source ?sample ?pattern ?defaultValue ?maxValue ?minValue
        ?maxLength ?description ?required ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains metadata about a template variable."]
module VoiceId =
  struct
    type nonrec t =
      | AMY 
      | ASTRID 
      | BIANCA 
      | BRIAN 
      | CAMILA 
      | CARLA 
      | CARMEN 
      | CELINE 
      | CHANTAL 
      | CONCHITA 
      | CRISTIANO 
      | DORA 
      | EMMA 
      | ENRIQUE 
      | EWA 
      | FILIZ 
      | GERAINT 
      | GIORGIO 
      | GWYNETH 
      | HANS 
      | INES 
      | IVY 
      | JACEK 
      | JAN 
      | JOANNA 
      | JOEY 
      | JUSTIN 
      | KARL 
      | KENDRA 
      | KIMBERLY 
      | LEA 
      | LIV 
      | LOTTE 
      | LUCIA 
      | LUPE 
      | MADS 
      | MAJA 
      | MARLENE 
      | MATHIEU 
      | MATTHEW 
      | MAXIM 
      | MIA 
      | MIGUEL 
      | MIZUKI 
      | NAJA 
      | NICOLE 
      | PENELOPE 
      | RAVEENA 
      | RICARDO 
      | RUBEN 
      | RUSSELL 
      | SALLI 
      | SEOYEON 
      | TAKUMI 
      | TATYANA 
      | VICKI 
      | VITORIA 
      | ZEINA 
      | ZHIYU 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AMY -> "AMY"
      | ASTRID -> "ASTRID"
      | BIANCA -> "BIANCA"
      | BRIAN -> "BRIAN"
      | CAMILA -> "CAMILA"
      | CARLA -> "CARLA"
      | CARMEN -> "CARMEN"
      | CELINE -> "CELINE"
      | CHANTAL -> "CHANTAL"
      | CONCHITA -> "CONCHITA"
      | CRISTIANO -> "CRISTIANO"
      | DORA -> "DORA"
      | EMMA -> "EMMA"
      | ENRIQUE -> "ENRIQUE"
      | EWA -> "EWA"
      | FILIZ -> "FILIZ"
      | GERAINT -> "GERAINT"
      | GIORGIO -> "GIORGIO"
      | GWYNETH -> "GWYNETH"
      | HANS -> "HANS"
      | INES -> "INES"
      | IVY -> "IVY"
      | JACEK -> "JACEK"
      | JAN -> "JAN"
      | JOANNA -> "JOANNA"
      | JOEY -> "JOEY"
      | JUSTIN -> "JUSTIN"
      | KARL -> "KARL"
      | KENDRA -> "KENDRA"
      | KIMBERLY -> "KIMBERLY"
      | LEA -> "LEA"
      | LIV -> "LIV"
      | LOTTE -> "LOTTE"
      | LUCIA -> "LUCIA"
      | LUPE -> "LUPE"
      | MADS -> "MADS"
      | MAJA -> "MAJA"
      | MARLENE -> "MARLENE"
      | MATHIEU -> "MATHIEU"
      | MATTHEW -> "MATTHEW"
      | MAXIM -> "MAXIM"
      | MIA -> "MIA"
      | MIGUEL -> "MIGUEL"
      | MIZUKI -> "MIZUKI"
      | NAJA -> "NAJA"
      | NICOLE -> "NICOLE"
      | PENELOPE -> "PENELOPE"
      | RAVEENA -> "RAVEENA"
      | RICARDO -> "RICARDO"
      | RUBEN -> "RUBEN"
      | RUSSELL -> "RUSSELL"
      | SALLI -> "SALLI"
      | SEOYEON -> "SEOYEON"
      | TAKUMI -> "TAKUMI"
      | TATYANA -> "TATYANA"
      | VICKI -> "VICKI"
      | VITORIA -> "VITORIA"
      | ZEINA -> "ZEINA"
      | ZHIYU -> "ZHIYU"
      | Non_static_id s -> s
    let of_string =
      function
      | "AMY" -> AMY
      | "ASTRID" -> ASTRID
      | "BIANCA" -> BIANCA
      | "BRIAN" -> BRIAN
      | "CAMILA" -> CAMILA
      | "CARLA" -> CARLA
      | "CARMEN" -> CARMEN
      | "CELINE" -> CELINE
      | "CHANTAL" -> CHANTAL
      | "CONCHITA" -> CONCHITA
      | "CRISTIANO" -> CRISTIANO
      | "DORA" -> DORA
      | "EMMA" -> EMMA
      | "ENRIQUE" -> ENRIQUE
      | "EWA" -> EWA
      | "FILIZ" -> FILIZ
      | "GERAINT" -> GERAINT
      | "GIORGIO" -> GIORGIO
      | "GWYNETH" -> GWYNETH
      | "HANS" -> HANS
      | "INES" -> INES
      | "IVY" -> IVY
      | "JACEK" -> JACEK
      | "JAN" -> JAN
      | "JOANNA" -> JOANNA
      | "JOEY" -> JOEY
      | "JUSTIN" -> JUSTIN
      | "KARL" -> KARL
      | "KENDRA" -> KENDRA
      | "KIMBERLY" -> KIMBERLY
      | "LEA" -> LEA
      | "LIV" -> LIV
      | "LOTTE" -> LOTTE
      | "LUCIA" -> LUCIA
      | "LUPE" -> LUPE
      | "MADS" -> MADS
      | "MAJA" -> MAJA
      | "MARLENE" -> MARLENE
      | "MATHIEU" -> MATHIEU
      | "MATTHEW" -> MATTHEW
      | "MAXIM" -> MAXIM
      | "MIA" -> MIA
      | "MIGUEL" -> MIGUEL
      | "MIZUKI" -> MIZUKI
      | "NAJA" -> NAJA
      | "NICOLE" -> NICOLE
      | "PENELOPE" -> PENELOPE
      | "RAVEENA" -> RAVEENA
      | "RICARDO" -> RICARDO
      | "RUBEN" -> RUBEN
      | "RUSSELL" -> RUSSELL
      | "SALLI" -> SALLI
      | "SEOYEON" -> SEOYEON
      | "TAKUMI" -> TAKUMI
      | "TATYANA" -> TATYANA
      | "VICKI" -> VICKI
      | "VITORIA" -> VITORIA
      | "ZEINA" -> ZEINA
      | "ZHIYU" -> ZHIYU
      | 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 VoiceId" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VoiceId" j)
    let to_json = simple_to_json to_value
  end
module EventDestination =
  struct
    type nonrec t =
      {
      eventDestinationName: EventDestinationName.t option
        [@ocaml.doc "The name of the EventDestination."];
      enabled: Boolean.t option
        [@ocaml.doc "When set to true events will be logged."];
      matchingEventTypes: EventTypeList.t option
        [@ocaml.doc
          "An array of event types that determine which events to log. The TEXT_SENT event type is not supported."];
      cloudWatchLogsDestination: CloudWatchLogsDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination that sends logging events to Amazon CloudWatch logs."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination for logging to Amazon Data Firehose."];
      snsDestination: SnsDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination that sends logging events to Amazon SNS."]}
    let make ?eventDestinationName =
      fun ?enabled ->
        fun ?matchingEventTypes ->
          fun ?cloudWatchLogsDestination ->
            fun ?kinesisFirehoseDestination ->
              fun ?snsDestination ->
                fun () ->
                  {
                    eventDestinationName;
                    enabled;
                    matchingEventTypes;
                    cloudWatchLogsDestination;
                    kinesisFirehoseDestination;
                    snsDestination
                  }
    let to_value x =
      structure_to_value
        [("EventDestinationName",
           (Option.map x.eventDestinationName
              ~f:EventDestinationName.to_value));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("MatchingEventTypes",
          (Option.map x.matchingEventTypes ~f:EventTypeList.to_value));
        ("CloudWatchLogsDestination",
          (Option.map x.cloudWatchLogsDestination
             ~f:CloudWatchLogsDestination.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let cloudWatchLogsDestination =
        (Option.map ~f:CloudWatchLogsDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsDestination") in
      let matchingEventTypes =
        (Option.map ~f:EventTypeList.of_xml)
          (Xml.child xml_arg0 "MatchingEventTypes") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let eventDestinationName =
        (Option.map ~f:EventDestinationName.of_xml)
          (Xml.child xml_arg0 "EventDestinationName") in
      make ?snsDestination ?kinesisFirehoseDestination
        ?cloudWatchLogsDestination ?matchingEventTypes ?enabled
        ?eventDestinationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let cloudWatchLogsDestination =
        field_map json__ "CloudWatchLogsDestination"
          CloudWatchLogsDestination.of_json in
      let matchingEventTypes =
        field_map json__ "MatchingEventTypes" EventTypeList.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let eventDestinationName =
        field_map json__ "EventDestinationName" EventDestinationName.of_json in
      make ?snsDestination ?kinesisFirehoseDestination
        ?cloudWatchLogsDestination ?matchingEventTypes ?enabled
        ?eventDestinationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an event destination. Event destinations are associated with configuration sets, which enable you to publish message sending events to CloudWatch, Firehose, or Amazon SNS."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the field."];
      message: String_.t option
        [@ocaml.doc
          "The message associated with the validation exception with information to help determine its cause."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The field associated with the validation exception."]
module ProtectStatus =
  struct
    type nonrec t =
      | ALLOW 
      | BLOCK 
      | MONITOR 
      | FILTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALLOW -> "ALLOW"
      | BLOCK -> "BLOCK"
      | MONITOR -> "MONITOR"
      | FILTER -> "FILTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALLOW" -> ALLOW
      | "BLOCK" -> BLOCK
      | "MONITOR" -> MONITOR
      | "FILTER" -> FILTER
      | 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 ProtectStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProtectStatus" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:".+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module PhoneNumber =
  struct
    type nonrec t = string
    let context_ = "PhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"\\+?[1-9][0-9]{1,18}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PhoneNumber" j
    let to_json = simple_to_json to_value
  end
module FilterValueList =
  struct
    type nonrec t = FilterValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:FilterValue.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:FilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterValueList" ~of_json:FilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationAssociationFilterName =
  struct
    type nonrec t =
      | Resource_type 
      | Iso_country_code 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Resource_type -> "resource-type"
      | Iso_country_code -> "iso-country-code"
      | Non_static_id s -> s
    let of_string =
      function
      | "resource-type" -> Resource_type
      | "iso-country-code" -> Iso_country_code
      | 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 RegistrationAssociationFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationAssociationFilterName" j)
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationRuleOverrideAction =
  struct
    type nonrec t =
      | ALLOW 
      | BLOCK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALLOW -> "ALLOW" | BLOCK -> "BLOCK" | Non_static_id s -> s
    let of_string =
      function | "ALLOW" -> ALLOW | "BLOCK" -> BLOCK | 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 ProtectConfigurationRuleOverrideAction"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ProtectConfigurationRuleOverrideAction" j)
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationRuleSetNumberOverrideFilterName =
  struct
    type nonrec t =
      | Iso_country_code 
      | Destination_phone_number_begins_with 
      | Action 
      | Expires_before 
      | Expires_after 
      | Created_before 
      | Created_after 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Iso_country_code -> "iso-country-code"
      | Destination_phone_number_begins_with ->
          "destination-phone-number-begins-with"
      | Action -> "action"
      | Expires_before -> "expires-before"
      | Expires_after -> "expires-after"
      | Created_before -> "created-before"
      | Created_after -> "created-after"
      | Non_static_id s -> s
    let of_string =
      function
      | "iso-country-code" -> Iso_country_code
      | "destination-phone-number-begins-with" ->
          Destination_phone_number_begins_with
      | "action" -> Action
      | "expires-before" -> Expires_before
      | "expires-after" -> Expires_after
      | "created-before" -> Created_before
      | "created-after" -> Created_after
      | 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 ProtectConfigurationRuleSetNumberOverrideFilterName"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json
           ~kind:"ProtectConfigurationRuleSetNumberOverrideFilterName" j)
    let to_json = simple_to_json to_value
  end
module NumberCapabilityList =
  struct
    type nonrec t = NumberCapability.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:NumberCapability.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:NumberCapability.of_xml)
    let of_json j =
      list_of_json ~kind:"NumberCapabilityList"
        ~of_json:NumberCapability.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolOriginationIdentitiesFilterName =
  struct
    type nonrec t =
      | Iso_country_code 
      | Number_capability 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Iso_country_code -> "iso-country-code"
      | Number_capability -> "number-capability"
      | Non_static_id s -> s
    let of_string =
      function
      | "iso-country-code" -> Iso_country_code
      | "number-capability" -> Number_capability
      | 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 PoolOriginationIdentitiesFilterName" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"PoolOriginationIdentitiesFilterName" j)
    let to_json = simple_to_json to_value
  end
module NotifyEnabledChannelsList =
  struct
    type nonrec t = NumberCapability.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:NumberCapability.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:NumberCapability.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyEnabledChannelsList"
        ~of_json:NumberCapability.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyTierList =
  struct
    type nonrec t = NotifyConfigurationTier.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_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:NotifyConfigurationTier.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:NotifyConfigurationTier.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyTierList"
        ~of_json:NotifyConfigurationTier.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyUseCaseList =
  struct
    type nonrec t = NotifyConfigurationUseCase.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:NotifyConfigurationUseCase.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:NotifyConfigurationUseCase.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyUseCaseList"
        ~of_json:NotifyConfigurationUseCase.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerificationStatus =
  struct
    type nonrec t =
      | PENDING 
      | VERIFIED 
      | UNSUPPORTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | VERIFIED -> "VERIFIED"
      | UNSUPPORTED -> "UNSUPPORTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "VERIFIED" -> VERIFIED
      | "UNSUPPORTED" -> UNSUPPORTED
      | 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 VerifiedDestinationNumberFilterName =
  struct
    type nonrec t =
      | Status 
      | Rcs_agent_id 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Status -> "status"
      | Rcs_agent_id -> "rcs-agent-id"
      | Non_static_id s -> s
    let of_string =
      function
      | "status" -> Status
      | "rcs-agent-id" -> Rcs_agent_id
      | 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 VerifiedDestinationNumberFilterName" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"VerifiedDestinationNumberFilterName" j)
    let to_json = simple_to_json to_value
  end
module PrimitiveLong =
  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 SpendLimitName =
  struct
    type nonrec t =
      | TEXT_MESSAGE_MONTHLY_SPEND_LIMIT 
      | VOICE_MESSAGE_MONTHLY_SPEND_LIMIT 
      | MEDIA_MESSAGE_MONTHLY_SPEND_LIMIT 
      | NOTIFY_MESSAGE_MONTHLY_SPEND_LIMIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TEXT_MESSAGE_MONTHLY_SPEND_LIMIT ->
          "TEXT_MESSAGE_MONTHLY_SPEND_LIMIT"
      | VOICE_MESSAGE_MONTHLY_SPEND_LIMIT ->
          "VOICE_MESSAGE_MONTHLY_SPEND_LIMIT"
      | MEDIA_MESSAGE_MONTHLY_SPEND_LIMIT ->
          "MEDIA_MESSAGE_MONTHLY_SPEND_LIMIT"
      | NOTIFY_MESSAGE_MONTHLY_SPEND_LIMIT ->
          "NOTIFY_MESSAGE_MONTHLY_SPEND_LIMIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "TEXT_MESSAGE_MONTHLY_SPEND_LIMIT" ->
          TEXT_MESSAGE_MONTHLY_SPEND_LIMIT
      | "VOICE_MESSAGE_MONTHLY_SPEND_LIMIT" ->
          VOICE_MESSAGE_MONTHLY_SPEND_LIMIT
      | "MEDIA_MESSAGE_MONTHLY_SPEND_LIMIT" ->
          MEDIA_MESSAGE_MONTHLY_SPEND_LIMIT
      | "NOTIFY_MESSAGE_MONTHLY_SPEND_LIMIT" ->
          NOTIFY_MESSAGE_MONTHLY_SPEND_LIMIT
      | 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 SpendLimitName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SpendLimitName" j)
    let to_json = simple_to_json to_value
  end
module MessageTypeList =
  struct
    type nonrec t = MessageType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:MessageType.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:MessageType.of_xml)
    let of_json j =
      list_of_json ~kind:"MessageTypeList" ~of_json:MessageType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SenderId =
  struct
    type nonrec t = string
    let context_ = "SenderId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:11) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SenderId" j
    let to_json = simple_to_json to_value
  end
module SenderIdFilterName =
  struct
    type nonrec t =
      | Sender_id 
      | Iso_country_code 
      | Message_type 
      | Deletion_protection_enabled 
      | Registered 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Sender_id -> "sender-id"
      | Iso_country_code -> "iso-country-code"
      | Message_type -> "message-type"
      | Deletion_protection_enabled -> "deletion-protection-enabled"
      | Registered -> "registered"
      | Non_static_id s -> s
    let of_string =
      function
      | "sender-id" -> Sender_id
      | "iso-country-code" -> Iso_country_code
      | "message-type" -> Message_type
      | "deletion-protection-enabled" -> Deletion_protection_enabled
      | "registered" -> Registered
      | 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 SenderIdFilterName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SenderIdFilterName" j)
    let to_json = simple_to_json to_value
  end
module SenderIdOrArn =
  struct
    type nonrec t = string
    let context_ = "SenderIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SenderIdOrArn" j
    let to_json = simple_to_json to_value
  end
module RegistrationStatus =
  struct
    type nonrec t =
      | CREATED 
      | SUBMITTED 
      | AWS_REVIEWING 
      | REVIEWING 
      | REQUIRES_AUTHENTICATION 
      | PROVISIONING 
      | COMPLETE 
      | REQUIRES_UPDATES 
      | CLOSED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | SUBMITTED -> "SUBMITTED"
      | AWS_REVIEWING -> "AWS_REVIEWING"
      | REVIEWING -> "REVIEWING"
      | REQUIRES_AUTHENTICATION -> "REQUIRES_AUTHENTICATION"
      | PROVISIONING -> "PROVISIONING"
      | COMPLETE -> "COMPLETE"
      | REQUIRES_UPDATES -> "REQUIRES_UPDATES"
      | CLOSED -> "CLOSED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "SUBMITTED" -> SUBMITTED
      | "AWS_REVIEWING" -> AWS_REVIEWING
      | "REVIEWING" -> REVIEWING
      | "REQUIRES_AUTHENTICATION" -> REQUIRES_AUTHENTICATION
      | "PROVISIONING" -> PROVISIONING
      | "COMPLETE" -> COMPLETE
      | "REQUIRES_UPDATES" -> REQUIRES_UPDATES
      | "CLOSED" -> CLOSED
      | "DELETED" -> DELETED
      | 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 RegistrationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegistrationStatus" j)
    let to_json = simple_to_json to_value
  end
module RegistrationType =
  struct
    type nonrec t = string
    let context_ = "RegistrationType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_]+")));
        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:"RegistrationType" j
    let to_json = simple_to_json to_value
  end
module RegistrationVersionNumber =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:100000L) >>=
             (fun () -> check_int64_min i ~min:1L));
        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 StringMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationFilterName =
  struct
    type nonrec t =
      | Registration_type 
      | Registration_status 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Registration_type -> "registration-type"
      | Registration_status -> "registration-status"
      | Non_static_id s -> s
    let of_string =
      function
      | "registration-type" -> Registration_type
      | "registration-status" -> Registration_status
      | 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 RegistrationFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationFilterName" j)
    let to_json = simple_to_json to_value
  end
module RegistrationDeniedReasonInformationList =
  struct
    type nonrec t = RegistrationDeniedReasonInformation.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:RegistrationDeniedReasonInformation.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:RegistrationDeniedReasonInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationDeniedReasonInformationList"
        ~of_json:RegistrationDeniedReasonInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationVersionStatus =
  struct
    type nonrec t =
      | DRAFT 
      | SUBMITTED 
      | AWS_REVIEWING 
      | REVIEWING 
      | REQUIRES_AUTHENTICATION 
      | APPROVED 
      | DISCARDED 
      | DENIED 
      | REVOKED 
      | ARCHIVED 
      | REQUIRES_OFFLINE_REVIEW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRAFT -> "DRAFT"
      | SUBMITTED -> "SUBMITTED"
      | AWS_REVIEWING -> "AWS_REVIEWING"
      | REVIEWING -> "REVIEWING"
      | REQUIRES_AUTHENTICATION -> "REQUIRES_AUTHENTICATION"
      | APPROVED -> "APPROVED"
      | DISCARDED -> "DISCARDED"
      | DENIED -> "DENIED"
      | REVOKED -> "REVOKED"
      | ARCHIVED -> "ARCHIVED"
      | REQUIRES_OFFLINE_REVIEW -> "REQUIRES_OFFLINE_REVIEW"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRAFT" -> DRAFT
      | "SUBMITTED" -> SUBMITTED
      | "AWS_REVIEWING" -> AWS_REVIEWING
      | "REVIEWING" -> REVIEWING
      | "REQUIRES_AUTHENTICATION" -> REQUIRES_AUTHENTICATION
      | "APPROVED" -> APPROVED
      | "DISCARDED" -> DISCARDED
      | "DENIED" -> DENIED
      | "REVOKED" -> REVOKED
      | "ARCHIVED" -> ARCHIVED
      | "REQUIRES_OFFLINE_REVIEW" -> REQUIRES_OFFLINE_REVIEW
      | 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 RegistrationVersionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationVersionStatus" j)
    let to_json = simple_to_json to_value
  end
module RegistrationVersionStatusHistory =
  struct
    type nonrec t =
      {
      draftTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the draft state, in UNIX epoch time format."];
      submittedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the submitted state, in UNIX epoch time format."];
      awsReviewingTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the AWS reviewing state, in UNIX epoch time format."];
      reviewingTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the reviewing state, in UNIX epoch time format."];
      requiresAuthenticationTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the requires authentication state, in UNIX epoch time format."];
      approvedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the approved state, in UNIX epoch time format."];
      discardedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the discarded state, in UNIX epoch time format."];
      deniedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the denied state, in UNIX epoch time format."];
      revokedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the revoked state, in UNIX epoch time format."];
      archivedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was in the archived state, in UNIX epoch time format."]}
    let make ?draftTimestamp =
      fun ?submittedTimestamp ->
        fun ?awsReviewingTimestamp ->
          fun ?reviewingTimestamp ->
            fun ?requiresAuthenticationTimestamp ->
              fun ?approvedTimestamp ->
                fun ?discardedTimestamp ->
                  fun ?deniedTimestamp ->
                    fun ?revokedTimestamp ->
                      fun ?archivedTimestamp ->
                        fun () ->
                          {
                            draftTimestamp;
                            submittedTimestamp;
                            awsReviewingTimestamp;
                            reviewingTimestamp;
                            requiresAuthenticationTimestamp;
                            approvedTimestamp;
                            discardedTimestamp;
                            deniedTimestamp;
                            revokedTimestamp;
                            archivedTimestamp
                          }
    let to_value x =
      structure_to_value
        [("DraftTimestamp",
           (Option.map x.draftTimestamp ~f:Timestamp.to_value));
        ("SubmittedTimestamp",
          (Option.map x.submittedTimestamp ~f:Timestamp.to_value));
        ("AwsReviewingTimestamp",
          (Option.map x.awsReviewingTimestamp ~f:Timestamp.to_value));
        ("ReviewingTimestamp",
          (Option.map x.reviewingTimestamp ~f:Timestamp.to_value));
        ("RequiresAuthenticationTimestamp",
          (Option.map x.requiresAuthenticationTimestamp ~f:Timestamp.to_value));
        ("ApprovedTimestamp",
          (Option.map x.approvedTimestamp ~f:Timestamp.to_value));
        ("DiscardedTimestamp",
          (Option.map x.discardedTimestamp ~f:Timestamp.to_value));
        ("DeniedTimestamp",
          (Option.map x.deniedTimestamp ~f:Timestamp.to_value));
        ("RevokedTimestamp",
          (Option.map x.revokedTimestamp ~f:Timestamp.to_value));
        ("ArchivedTimestamp",
          (Option.map x.archivedTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let archivedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ArchivedTimestamp") in
      let revokedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "RevokedTimestamp") in
      let deniedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DeniedTimestamp") in
      let discardedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DiscardedTimestamp") in
      let approvedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ApprovedTimestamp") in
      let requiresAuthenticationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "RequiresAuthenticationTimestamp") in
      let reviewingTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ReviewingTimestamp") in
      let awsReviewingTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "AwsReviewingTimestamp") in
      let submittedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubmittedTimestamp") in
      let draftTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "DraftTimestamp") in
      make ?archivedTimestamp ?revokedTimestamp ?deniedTimestamp
        ?discardedTimestamp ?approvedTimestamp
        ?requiresAuthenticationTimestamp ?reviewingTimestamp
        ?awsReviewingTimestamp ?submittedTimestamp ?draftTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let archivedTimestamp =
        field_map json__ "ArchivedTimestamp" Timestamp.of_json in
      let revokedTimestamp =
        field_map json__ "RevokedTimestamp" Timestamp.of_json in
      let deniedTimestamp =
        field_map json__ "DeniedTimestamp" Timestamp.of_json in
      let discardedTimestamp =
        field_map json__ "DiscardedTimestamp" Timestamp.of_json in
      let approvedTimestamp =
        field_map json__ "ApprovedTimestamp" Timestamp.of_json in
      let requiresAuthenticationTimestamp =
        field_map json__ "RequiresAuthenticationTimestamp" Timestamp.of_json in
      let reviewingTimestamp =
        field_map json__ "ReviewingTimestamp" Timestamp.of_json in
      let awsReviewingTimestamp =
        field_map json__ "AwsReviewingTimestamp" Timestamp.of_json in
      let submittedTimestamp =
        field_map json__ "SubmittedTimestamp" Timestamp.of_json in
      let draftTimestamp =
        field_map json__ "DraftTimestamp" Timestamp.of_json in
      make ?archivedTimestamp ?revokedTimestamp ?deniedTimestamp
        ?discardedTimestamp ?approvedTimestamp
        ?requiresAuthenticationTimestamp ?reviewingTimestamp
        ?awsReviewingTimestamp ?submittedTimestamp ?draftTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The RegistrationVersionStatusHistory object contains the time stamps for when the reservations status changes."]
module RegistrationVersionFilterName =
  struct
    type nonrec t =
      | Registration_version_status 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Registration_version_status -> "registration-version-status"
      | Non_static_id s -> s
    let of_string =
      function
      | "registration-version-status" -> Registration_version_status
      | 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 RegistrationVersionFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationVersionFilterName" j)
    let to_json = simple_to_json to_value
  end
module RegistrationTypeDisplayHints =
  struct
    type nonrec t =
      {
      title: String_.t option [@ocaml.doc "The title of the display hint."];
      shortDescription: String_.t option
        [@ocaml.doc "A short description of the display hint."];
      longDescription: String_.t option
        [@ocaml.doc "A full description of the display hint."];
      documentationTitle: String_.t option
        [@ocaml.doc
          "The title of the document the display hint is associated with."];
      documentationLink: String_.t option
        [@ocaml.doc
          "The link to the document the display hint is associated with."]}
    let make ?title =
      fun ?shortDescription ->
        fun ?longDescription ->
          fun ?documentationTitle ->
            fun ?documentationLink ->
              fun () ->
                {
                  title;
                  shortDescription;
                  longDescription;
                  documentationTitle;
                  documentationLink
                }
    let to_value x =
      structure_to_value
        [("Title", (Option.map x.title ~f:String_.to_value));
        ("ShortDescription",
          (Option.map x.shortDescription ~f:String_.to_value));
        ("LongDescription",
          (Option.map x.longDescription ~f:String_.to_value));
        ("DocumentationTitle",
          (Option.map x.documentationTitle ~f:String_.to_value));
        ("DocumentationLink",
          (Option.map x.documentationLink ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentationLink =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationLink") in
      let documentationTitle =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationTitle") in
      let longDescription =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LongDescription") in
      let shortDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ShortDescription") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Title") in
      make ?documentationLink ?documentationTitle ?longDescription
        ?shortDescription ?title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentationLink =
        field_map json__ "DocumentationLink" String_.of_json in
      let documentationTitle =
        field_map json__ "DocumentationTitle" String_.of_json in
      let longDescription =
        field_map json__ "LongDescription" String_.of_json in
      let shortDescription =
        field_map json__ "ShortDescription" String_.of_json in
      let title = field_map json__ "Title" String_.of_json in
      make ?documentationLink ?documentationTitle ?longDescription
        ?shortDescription ?title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides help information on the registration type."]
module SupportedAssociationList =
  struct
    type nonrec t = SupportedAssociation.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:SupportedAssociation.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:SupportedAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedAssociationList"
        ~of_json:SupportedAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationTypeFilterName =
  struct
    type nonrec t =
      | Supported_association_resource_type 
      | Supported_association_iso_country_code 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Supported_association_resource_type ->
          "supported-association-resource-type"
      | Supported_association_iso_country_code ->
          "supported-association-iso-country-code"
      | Non_static_id s -> s
    let of_string =
      function
      | "supported-association-resource-type" ->
          Supported_association_resource_type
      | "supported-association-iso-country-code" ->
          Supported_association_iso_country_code
      | 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 RegistrationTypeFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationTypeFilterName" j)
    let to_json = simple_to_json to_value
  end
module RegistrationSectionDisplayHints =
  struct
    type nonrec t =
      {
      title: String_.t option [@ocaml.doc "The title of the display hint."];
      shortDescription: String_.t option
        [@ocaml.doc "A short description of the display hint."];
      longDescription: String_.t option
        [@ocaml.doc "A full description of the display hint."];
      documentationTitle: String_.t option
        [@ocaml.doc
          "The title of the document the display hint is associated with."];
      documentationLink: String_.t option
        [@ocaml.doc
          "The link to the document the display hint is associated with."]}
    let make ?title =
      fun ?shortDescription ->
        fun ?longDescription ->
          fun ?documentationTitle ->
            fun ?documentationLink ->
              fun () ->
                {
                  title;
                  shortDescription;
                  longDescription;
                  documentationTitle;
                  documentationLink
                }
    let to_value x =
      structure_to_value
        [("Title", (Option.map x.title ~f:String_.to_value));
        ("ShortDescription",
          (Option.map x.shortDescription ~f:String_.to_value));
        ("LongDescription",
          (Option.map x.longDescription ~f:String_.to_value));
        ("DocumentationTitle",
          (Option.map x.documentationTitle ~f:String_.to_value));
        ("DocumentationLink",
          (Option.map x.documentationLink ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentationLink =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationLink") in
      let documentationTitle =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationTitle") in
      let longDescription =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LongDescription") in
      let shortDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ShortDescription") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Title") in
      make ?documentationLink ?documentationTitle ?longDescription
        ?shortDescription ?title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentationLink =
        field_map json__ "DocumentationLink" String_.of_json in
      let documentationTitle =
        field_map json__ "DocumentationTitle" String_.of_json in
      let longDescription =
        field_map json__ "LongDescription" String_.of_json in
      let shortDescription =
        field_map json__ "ShortDescription" String_.of_json in
      let title = field_map json__ "Title" String_.of_json in
      make ?documentationLink ?documentationTitle ?longDescription
        ?shortDescription ?title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides help information on the registration section."]
module SectionPath =
  struct
    type nonrec t = string
    let context_ = "SectionPath"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SectionPath" j
    let to_json = simple_to_json to_value
  end
module FieldPath =
  struct
    type nonrec t = string
    let context_ = "FieldPath"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_\\.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FieldPath" j
    let to_json = simple_to_json to_value
  end
module RegistrationAttachmentIdOrArn =
  struct
    type nonrec t = string
    let context_ = "RegistrationAttachmentIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegistrationAttachmentIdOrArn" j
    let to_json = simple_to_json to_value
  end
module SelectChoiceList =
  struct
    type nonrec t = SelectChoice.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:SelectChoice.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:SelectChoice.of_xml)
    let of_json j =
      list_of_json ~kind:"SelectChoiceList" ~of_json:SelectChoice.of_json j
    let to_json v = composed_to_json to_value v
  end
module TextValue =
  struct
    type nonrec t = string
    let context_ = "TextValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"TextValue" j
    let to_json = simple_to_json to_value
  end
module FieldRequirement =
  struct
    type nonrec t =
      | REQUIRED 
      | CONDITIONAL 
      | OPTIONAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUIRED -> "REQUIRED"
      | CONDITIONAL -> "CONDITIONAL"
      | OPTIONAL -> "OPTIONAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUIRED" -> REQUIRED
      | "CONDITIONAL" -> CONDITIONAL
      | "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 FieldRequirement" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FieldRequirement" j)
    let to_json = simple_to_json to_value
  end
module FieldType =
  struct
    type nonrec t =
      | SELECT 
      | TEXT 
      | ATTACHMENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SELECT -> "SELECT"
      | TEXT -> "TEXT"
      | ATTACHMENT -> "ATTACHMENT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SELECT" -> SELECT
      | "TEXT" -> TEXT
      | "ATTACHMENT" -> ATTACHMENT
      | 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 FieldType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FieldType" j)
    let to_json = simple_to_json to_value
  end
module RegistrationFieldDisplayHints =
  struct
    type nonrec t =
      {
      title: String_.t option [@ocaml.doc "The title of the display hint."];
      shortDescription: String_.t option
        [@ocaml.doc "A short description of the display hint."];
      longDescription: String_.t option
        [@ocaml.doc "A full description of the display hint."];
      documentationTitle: String_.t option
        [@ocaml.doc
          "The title of the document the display hint is associated with."];
      documentationLink: String_.t option
        [@ocaml.doc
          "The link to the document the display hint is associated with."];
      selectOptionDescriptions: SelectOptionDescriptionsList.t option
        [@ocaml.doc "An array of SelectOptionDescription objects."];
      textValidationDescription: String_.t option
        [@ocaml.doc "The validation rules for the text field."];
      exampleTextValue: String_.t option
        [@ocaml.doc
          "Example text of what the value of a field should contain."]}
    let make ?title =
      fun ?shortDescription ->
        fun ?longDescription ->
          fun ?documentationTitle ->
            fun ?documentationLink ->
              fun ?selectOptionDescriptions ->
                fun ?textValidationDescription ->
                  fun ?exampleTextValue ->
                    fun () ->
                      {
                        title;
                        shortDescription;
                        longDescription;
                        documentationTitle;
                        documentationLink;
                        selectOptionDescriptions;
                        textValidationDescription;
                        exampleTextValue
                      }
    let to_value x =
      structure_to_value
        [("Title", (Option.map x.title ~f:String_.to_value));
        ("ShortDescription",
          (Option.map x.shortDescription ~f:String_.to_value));
        ("LongDescription",
          (Option.map x.longDescription ~f:String_.to_value));
        ("DocumentationTitle",
          (Option.map x.documentationTitle ~f:String_.to_value));
        ("DocumentationLink",
          (Option.map x.documentationLink ~f:String_.to_value));
        ("SelectOptionDescriptions",
          (Option.map x.selectOptionDescriptions
             ~f:SelectOptionDescriptionsList.to_value));
        ("TextValidationDescription",
          (Option.map x.textValidationDescription ~f:String_.to_value));
        ("ExampleTextValue",
          (Option.map x.exampleTextValue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exampleTextValue =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ExampleTextValue") in
      let textValidationDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "TextValidationDescription") in
      let selectOptionDescriptions =
        (Option.map ~f:SelectOptionDescriptionsList.of_xml)
          (Xml.child xml_arg0 "SelectOptionDescriptions") in
      let documentationLink =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationLink") in
      let documentationTitle =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DocumentationTitle") in
      let longDescription =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LongDescription") in
      let shortDescription =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ShortDescription") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Title") in
      make ?exampleTextValue ?textValidationDescription
        ?selectOptionDescriptions ?documentationLink ?documentationTitle
        ?longDescription ?shortDescription ?title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exampleTextValue =
        field_map json__ "ExampleTextValue" String_.of_json in
      let textValidationDescription =
        field_map json__ "TextValidationDescription" String_.of_json in
      let selectOptionDescriptions =
        field_map json__ "SelectOptionDescriptions"
          SelectOptionDescriptionsList.of_json in
      let documentationLink =
        field_map json__ "DocumentationLink" String_.of_json in
      let documentationTitle =
        field_map json__ "DocumentationTitle" String_.of_json in
      let longDescription =
        field_map json__ "LongDescription" String_.of_json in
      let shortDescription =
        field_map json__ "ShortDescription" String_.of_json in
      let title = field_map json__ "Title" String_.of_json in
      make ?exampleTextValue ?textValidationDescription
        ?selectOptionDescriptions ?documentationLink ?documentationTitle
        ?longDescription ?shortDescription ?title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides help information on the registration field."]
module SelectValidation =
  struct
    type nonrec t =
      {
      minChoices: Integer.t option
        [@ocaml.doc "The minimum number of choices for the select."];
      maxChoices: Integer.t option
        [@ocaml.doc "The maximum number of choices for the select."];
      options: StringList.t option
        [@ocaml.doc
          "An array of strings for the possible selection options."]}
    let make ?minChoices =
      fun ?maxChoices ->
        fun ?options -> fun () -> { minChoices; maxChoices; options }
    let to_value x =
      structure_to_value
        [("MinChoices", (Option.map x.minChoices ~f:Integer.to_value));
        ("MaxChoices", (Option.map x.maxChoices ~f:Integer.to_value));
        ("Options", (Option.map x.options ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "Options") in
      let maxChoices =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MaxChoices") in
      let minChoices =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MinChoices") in
      make ?options ?maxChoices ?minChoices ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "Options" StringList.of_json in
      let maxChoices = field_map json__ "MaxChoices" Integer.of_json in
      let minChoices = field_map json__ "MinChoices" Integer.of_json in
      make ?options ?maxChoices ?minChoices ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Validation rules for a select field."]
module TextValidation =
  struct
    type nonrec t =
      {
      minLength: Integer.t option
        [@ocaml.doc "The minimum number of characters for the text field."];
      maxLength: Integer.t option
        [@ocaml.doc "The maximum number of characters for the text field."];
      pattern: String_.t option
        [@ocaml.doc
          "The regular expression used to validate the text field."]}
    let make ?minLength =
      fun ?maxLength ->
        fun ?pattern -> fun () -> { minLength; maxLength; pattern }
    let to_value x =
      structure_to_value
        [("MinLength", (Option.map x.minLength ~f:Integer.to_value));
        ("MaxLength", (Option.map x.maxLength ~f:Integer.to_value));
        ("Pattern", (Option.map x.pattern ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pattern =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Pattern") in
      let maxLength =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MaxLength") in
      let minLength =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MinLength") in
      make ?pattern ?maxLength ?minLength ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pattern = field_map json__ "Pattern" String_.of_json in
      let maxLength = field_map json__ "MaxLength" Integer.of_json in
      let minLength = field_map json__ "MinLength" Integer.of_json in
      make ?pattern ?maxLength ?minLength ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Validation rules for a text field."]
module AttachmentStatus =
  struct
    type nonrec t =
      | UPLOAD_IN_PROGRESS 
      | UPLOAD_COMPLETE 
      | UPLOAD_FAILED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UPLOAD_IN_PROGRESS -> "UPLOAD_IN_PROGRESS"
      | UPLOAD_COMPLETE -> "UPLOAD_COMPLETE"
      | UPLOAD_FAILED -> "UPLOAD_FAILED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "UPLOAD_IN_PROGRESS" -> UPLOAD_IN_PROGRESS
      | "UPLOAD_COMPLETE" -> UPLOAD_COMPLETE
      | "UPLOAD_FAILED" -> UPLOAD_FAILED
      | "DELETED" -> DELETED
      | 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 AttachmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachmentStatus" j)
    let to_json = simple_to_json to_value
  end
module AttachmentUploadErrorReason =
  struct
    type nonrec t =
      | INTERNAL_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | INTERNAL_ERROR -> "INTERNAL_ERROR" | Non_static_id s -> s
    let of_string =
      function | "INTERNAL_ERROR" -> INTERNAL_ERROR | 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 AttachmentUploadErrorReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AttachmentUploadErrorReason" j)
    let to_json = simple_to_json to_value
  end
module RegistrationAttachmentFilterName =
  struct
    type nonrec t =
      | Attachment_status 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Attachment_status -> "attachment-status"
      | Non_static_id s -> s
    let of_string =
      function
      | "attachment-status" -> Attachment_status
      | 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 RegistrationAttachmentFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RegistrationAttachmentFilterName" j)
    let to_json = simple_to_json to_value
  end
module OptOutListName =
  struct
    type nonrec t = string
    let context_ = "OptOutListName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_-]+")));
        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:"OptOutListName" j
    let to_json = simple_to_json to_value
  end
module RcsAgentStatus =
  struct
    type nonrec t =
      | CREATED 
      | PENDING 
      | TESTING 
      | PARTIAL 
      | ACTIVE 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | PENDING -> "PENDING"
      | TESTING -> "TESTING"
      | PARTIAL -> "PARTIAL"
      | ACTIVE -> "ACTIVE"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "PENDING" -> PENDING
      | "TESTING" -> TESTING
      | "PARTIAL" -> PARTIAL
      | "ACTIVE" -> ACTIVE
      | "DELETED" -> DELETED
      | 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 RcsAgentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RcsAgentStatus" j)
    let to_json = simple_to_json to_value
  end
module TestingAgentInformation =
  struct
    type nonrec t =
      {
      status: TestingAgentStatus.t option
        [@ocaml.doc "The current status of the testing agent."];
      testingAgentId: String_.t option
        [@ocaml.doc "The unique identifier for the testing agent."];
      registrationId: String_.t option
        [@ocaml.doc
          "The unique identifier of the registration associated with the testing agent."]}
    let make ?status =
      fun ?testingAgentId ->
        fun ?registrationId ->
          fun () -> { status; testingAgentId; registrationId }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:TestingAgentStatus.to_value));
        ("TestingAgentId", (Option.map x.testingAgentId ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let testingAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TestingAgentId") in
      let status =
        (Option.map ~f:TestingAgentStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?registrationId ?testingAgentId ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let testingAgentId = field_map json__ "TestingAgentId" String_.of_json in
      let status = field_map json__ "Status" TestingAgentStatus.of_json in
      make ?registrationId ?testingAgentId ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about the testing agent associated with an RCS agent."]
module TwoWayChannelArn =
  struct
    type nonrec t = string
    let context_ = "TwoWayChannelArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TwoWayChannelArn" j
    let to_json = simple_to_json to_value
  end
module RcsAgentFilterName =
  struct
    type nonrec t =
      | Status 
      | Two_way_enabled 
      | Self_managed_opt_outs_enabled 
      | Opt_out_list_name 
      | Deletion_protection_enabled 
      | Two_way_channel_arn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Status -> "status"
      | Two_way_enabled -> "two-way-enabled"
      | Self_managed_opt_outs_enabled -> "self-managed-opt-outs-enabled"
      | Opt_out_list_name -> "opt-out-list-name"
      | Deletion_protection_enabled -> "deletion-protection-enabled"
      | Two_way_channel_arn -> "two-way-channel-arn"
      | Non_static_id s -> s
    let of_string =
      function
      | "status" -> Status
      | "two-way-enabled" -> Two_way_enabled
      | "self-managed-opt-outs-enabled" -> Self_managed_opt_outs_enabled
      | "opt-out-list-name" -> Opt_out_list_name
      | "deletion-protection-enabled" -> Deletion_protection_enabled
      | "two-way-channel-arn" -> Two_way_channel_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 RcsAgentFilterName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RcsAgentFilterName" j)
    let to_json = simple_to_json to_value
  end
module CarrierStatusInformationList =
  struct
    type nonrec t = CarrierStatusInformation.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:CarrierStatusInformation.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:CarrierStatusInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"CarrierStatusInformationList"
        ~of_json:CarrierStatusInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module CountryLaunchStatus =
  struct
    type nonrec t =
      | CREATED 
      | PENDING 
      | PARTIAL 
      | ACTIVE 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | PENDING -> "PENDING"
      | PARTIAL -> "PARTIAL"
      | ACTIVE -> "ACTIVE"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "PENDING" -> PENDING
      | "PARTIAL" -> PARTIAL
      | "ACTIVE" -> ACTIVE
      | "REJECTED" -> REJECTED
      | 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 CountryLaunchStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CountryLaunchStatus" j)
    let to_json = simple_to_json to_value
  end
module CountryLaunchStatusFilterName =
  struct
    type nonrec t =
      | Country_launch_status 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Country_launch_status -> "country-launch-status"
      | Non_static_id s -> s
    let of_string =
      function
      | "country-launch-status" -> Country_launch_status
      | 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 CountryLaunchStatusFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CountryLaunchStatusFilterName" j)
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "ProtectConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"arn:\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProtectConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationId =
  struct
    type nonrec t = string
    let context_ = "ProtectConfigurationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_-]+")));
        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:"ProtectConfigurationId" j
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationFilterName =
  struct
    type nonrec t =
      | Account_default 
      | Deletion_protection_enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Account_default -> "account-default"
      | Deletion_protection_enabled -> "deletion-protection-enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "account-default" -> Account_default
      | "deletion-protection-enabled" -> Deletion_protection_enabled
      | 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 ProtectConfigurationFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ProtectConfigurationFilterName" j)
    let to_json = simple_to_json to_value
  end
module PoolStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "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 PoolStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PoolStatus" j)
    let to_json = simple_to_json to_value
  end
module PoolFilterName =
  struct
    type nonrec t =
      | Status 
      | Message_type 
      | Two_way_enabled 
      | Self_managed_opt_outs_enabled 
      | Opt_out_list_name 
      | Shared_routes_enabled 
      | Deletion_protection_enabled 
      | Two_way_channel_arn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Status -> "status"
      | Message_type -> "message-type"
      | Two_way_enabled -> "two-way-enabled"
      | Self_managed_opt_outs_enabled -> "self-managed-opt-outs-enabled"
      | Opt_out_list_name -> "opt-out-list-name"
      | Shared_routes_enabled -> "shared-routes-enabled"
      | Deletion_protection_enabled -> "deletion-protection-enabled"
      | Two_way_channel_arn -> "two-way-channel-arn"
      | Non_static_id s -> s
    let of_string =
      function
      | "status" -> Status
      | "message-type" -> Message_type
      | "two-way-enabled" -> Two_way_enabled
      | "self-managed-opt-outs-enabled" -> Self_managed_opt_outs_enabled
      | "opt-out-list-name" -> Opt_out_list_name
      | "shared-routes-enabled" -> Shared_routes_enabled
      | "deletion-protection-enabled" -> Deletion_protection_enabled
      | "two-way-channel-arn" -> Two_way_channel_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 PoolFilterName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PoolFilterName" j)
    let to_json = simple_to_json to_value
  end
module NumberStatus =
  struct
    type nonrec t =
      | PENDING 
      | ACTIVE 
      | ASSOCIATING 
      | DISASSOCIATING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACTIVE -> "ACTIVE"
      | ASSOCIATING -> "ASSOCIATING"
      | DISASSOCIATING -> "DISASSOCIATING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACTIVE" -> ACTIVE
      | "ASSOCIATING" -> ASSOCIATING
      | "DISASSOCIATING" -> DISASSOCIATING
      | "DELETED" -> DELETED
      | 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 NumberStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NumberStatus" j)
    let to_json = simple_to_json to_value
  end
module NumberType =
  struct
    type nonrec t =
      | SHORT_CODE 
      | LONG_CODE 
      | TOLL_FREE 
      | TEN_DLC 
      | SIMULATOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SHORT_CODE -> "SHORT_CODE"
      | LONG_CODE -> "LONG_CODE"
      | TOLL_FREE -> "TOLL_FREE"
      | TEN_DLC -> "TEN_DLC"
      | SIMULATOR -> "SIMULATOR"
      | Non_static_id s -> s
    let of_string =
      function
      | "SHORT_CODE" -> SHORT_CODE
      | "LONG_CODE" -> LONG_CODE
      | "TOLL_FREE" -> TOLL_FREE
      | "TEN_DLC" -> TEN_DLC
      | "SIMULATOR" -> SIMULATOR
      | 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 NumberType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NumberType" j)
    let to_json = simple_to_json to_value
  end
module PhoneNumberFilterName =
  struct
    type nonrec t =
      | Status 
      | Iso_country_code 
      | Message_type 
      | Number_capability 
      | Number_type 
      | Two_way_enabled 
      | Self_managed_opt_outs_enabled 
      | Opt_out_list_name 
      | Deletion_protection_enabled 
      | Two_way_channel_arn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Status -> "status"
      | Iso_country_code -> "iso-country-code"
      | Message_type -> "message-type"
      | Number_capability -> "number-capability"
      | Number_type -> "number-type"
      | Two_way_enabled -> "two-way-enabled"
      | Self_managed_opt_outs_enabled -> "self-managed-opt-outs-enabled"
      | Opt_out_list_name -> "opt-out-list-name"
      | Deletion_protection_enabled -> "deletion-protection-enabled"
      | Two_way_channel_arn -> "two-way-channel-arn"
      | Non_static_id s -> s
    let of_string =
      function
      | "status" -> Status
      | "iso-country-code" -> Iso_country_code
      | "message-type" -> Message_type
      | "number-capability" -> Number_capability
      | "number-type" -> Number_type
      | "two-way-enabled" -> Two_way_enabled
      | "self-managed-opt-outs-enabled" -> Self_managed_opt_outs_enabled
      | "opt-out-list-name" -> Opt_out_list_name
      | "deletion-protection-enabled" -> Deletion_protection_enabled
      | "two-way-channel-arn" -> Two_way_channel_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 PhoneNumberFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberFilterName" j)
    let to_json = simple_to_json to_value
  end
module OptedOutFilterName =
  struct
    type nonrec t =
      | End_user_opted_out 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | End_user_opted_out -> "end-user-opted-out"
      | Non_static_id s -> s
    let of_string =
      function
      | "end-user-opted-out" -> End_user_opted_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 OptedOutFilterName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OptedOutFilterName" j)
    let to_json = simple_to_json to_value
  end
module IsoCountryCodeList =
  struct
    type nonrec t = IsoCountryCode.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:300) >>=
             (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:IsoCountryCode.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:IsoCountryCode.of_xml)
    let of_json j =
      list_of_json ~kind:"IsoCountryCodeList" ~of_json:IsoCountryCode.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module NotifyConfigurationTierList =
  struct
    type nonrec t = NotifyConfigurationTier.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_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:NotifyConfigurationTier.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:NotifyConfigurationTier.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyConfigurationTierList"
        ~of_json:NotifyConfigurationTier.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyLanguageCode =
  struct
    type nonrec t = string
    let context_ = "NotifyLanguageCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:5) >>=
                  (fun () -> check_pattern i ~pattern:"[a-z]{2}(-[A-Z]{2})?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NotifyLanguageCode" j
    let to_json = simple_to_json to_value
  end
module NotifyTemplateId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Template identifier for notify templates. In UpdateNotifyConfiguration, pass UNSET_DEFAULT_TEMPLATE to clear the default template. The UNSET_DEFAULT_TEMPLATE value is only accepted by UpdateNotifyConfiguration."]
    let context_ = "NotifyTemplateId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([A-Za-z0-9_-]*|UNSET_DEFAULT_TEMPLATE)")));
        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:"NotifyTemplateId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Template identifier for notify templates. In UpdateNotifyConfiguration, pass UNSET_DEFAULT_TEMPLATE to clear the default template. The UNSET_DEFAULT_TEMPLATE value is only accepted by UpdateNotifyConfiguration."]
module NotifyTemplateStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | 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 NotifyTemplateStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NotifyTemplateStatus" j)
    let to_json = simple_to_json to_value
  end
module NotifyTemplateType =
  struct
    type nonrec t =
      | OTP_VERIFICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OTP_VERIFICATION -> "OTP_VERIFICATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "OTP_VERIFICATION" -> OTP_VERIFICATION
      | 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 NotifyTemplateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NotifyTemplateType" j)
    let to_json = simple_to_json to_value
  end
module NotifyTemplateVersion =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 NotifyTemplateVersion" 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 TemplateContent =
  struct
    type nonrec t = string
    let context_ = "TemplateContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (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:"TemplateContent" j
    let to_json = simple_to_json to_value
  end
module TemplateVariablesMap =
  struct
    type nonrec t = (String_.t * TemplateVariableMetadata.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types String TemplateVariableMetadata"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x ->
                       (TemplateVariableMetadata.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:TemplateVariableMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module VoiceIdList =
  struct
    type nonrec t = VoiceId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:60) >>= (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:VoiceId.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:VoiceId.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceIdList" ~of_json:VoiceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyTemplateFilterName =
  struct
    type nonrec t =
      | Template_type 
      | Channels 
      | Tier_access 
      | Supported_countries 
      | Language_code 
      | Supported_voice_ids 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Template_type -> "template-type"
      | Channels -> "channels"
      | Tier_access -> "tier-access"
      | Supported_countries -> "supported-countries"
      | Language_code -> "language-code"
      | Supported_voice_ids -> "supported-voice-ids"
      | Non_static_id s -> s
    let of_string =
      function
      | "template-type" -> Template_type
      | "channels" -> Channels
      | "tier-access" -> Tier_access
      | "supported-countries" -> Supported_countries
      | "language-code" -> Language_code
      | "supported-voice-ids" -> Supported_voice_ids
      | 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 NotifyTemplateFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotifyTemplateFilterName" j)
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "NotifyConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"arn:\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NotifyConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationDisplayName =
  struct
    type nonrec t = string
    let context_ = "NotifyConfigurationDisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_ -]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NotifyConfigurationDisplayName" j
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationId =
  struct
    type nonrec t = string
    let context_ = "NotifyConfigurationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_-]+")));
        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:"NotifyConfigurationId" j
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationStatus =
  struct
    type nonrec t =
      | PENDING 
      | ACTIVE 
      | REJECTED 
      | REQUIRES_VERIFICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACTIVE -> "ACTIVE"
      | REJECTED -> "REJECTED"
      | REQUIRES_VERIFICATION -> "REQUIRES_VERIFICATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACTIVE" -> ACTIVE
      | "REJECTED" -> REJECTED
      | "REQUIRES_VERIFICATION" -> REQUIRES_VERIFICATION
      | 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 NotifyConfigurationStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotifyConfigurationStatus" j)
    let to_json = simple_to_json to_value
  end
module TierUpgradeStatus =
  struct
    type nonrec t =
      | BASIC 
      | PENDING_UPGRADE 
      | ADVANCED 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASIC -> "BASIC"
      | PENDING_UPGRADE -> "PENDING_UPGRADE"
      | ADVANCED -> "ADVANCED"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASIC" -> BASIC
      | "PENDING_UPGRADE" -> PENDING_UPGRADE
      | "ADVANCED" -> ADVANCED
      | "REJECTED" -> REJECTED
      | 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 TierUpgradeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TierUpgradeStatus" j)
    let to_json = simple_to_json to_value
  end
module NotifyConfigurationFilterName =
  struct
    type nonrec t =
      | Display_name 
      | Enabled_countries 
      | Enabled_channels 
      | Default_template 
      | Default_pool 
      | Use_case 
      | Status 
      | Deletion_protection_enabled 
      | Tier_upgrade_status 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Display_name -> "display-name"
      | Enabled_countries -> "enabled-countries"
      | Enabled_channels -> "enabled-channels"
      | Default_template -> "default-template"
      | Default_pool -> "default-pool"
      | Use_case -> "use-case"
      | Status -> "status"
      | Deletion_protection_enabled -> "deletion-protection-enabled"
      | Tier_upgrade_status -> "tier-upgrade-status"
      | Non_static_id s -> s
    let of_string =
      function
      | "display-name" -> Display_name
      | "enabled-countries" -> Enabled_countries
      | "enabled-channels" -> Enabled_channels
      | "default-template" -> Default_template
      | "default-pool" -> Default_pool
      | "use-case" -> Use_case
      | "status" -> Status
      | "deletion-protection-enabled" -> Deletion_protection_enabled
      | "tier-upgrade-status" -> Tier_upgrade_status
      | 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 NotifyConfigurationFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotifyConfigurationFilterName" j)
    let to_json = simple_to_json to_value
  end
module Keyword =
  struct
    type nonrec t = string
    let context_ = "Keyword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"[ \\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Keyword" j
    let to_json = simple_to_json to_value
  end
module KeywordAction =
  struct
    type nonrec t =
      | AUTOMATIC_RESPONSE 
      | OPT_OUT 
      | OPT_IN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUTOMATIC_RESPONSE -> "AUTOMATIC_RESPONSE"
      | OPT_OUT -> "OPT_OUT"
      | OPT_IN -> "OPT_IN"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUTOMATIC_RESPONSE" -> AUTOMATIC_RESPONSE
      | "OPT_OUT" -> OPT_OUT
      | "OPT_IN" -> OPT_IN
      | 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 KeywordAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeywordAction" j)
    let to_json = simple_to_json to_value
  end
module KeywordMessage =
  struct
    type nonrec t = string
    let context_ = "KeywordMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:"(?!\\s*$)[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KeywordMessage" j
    let to_json = simple_to_json to_value
  end
module KeywordFilterName =
  struct
    type nonrec t =
      | Keyword_action 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Keyword_action -> "keyword-action" | Non_static_id s -> s
    let of_string =
      function | "keyword-action" -> Keyword_action | 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 KeywordFilterName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeywordFilterName" j)
    let to_json = simple_to_json to_value
  end
module ConfigurationSetName =
  struct
    type nonrec t = string
    let context_ = "ConfigurationSetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_-]+")));
        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
module EventDestinationList =
  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:"EventDestinationList"
        ~of_json:EventDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtectConfigurationIdOrArn =
  struct
    type nonrec t = string
    let context_ = "ProtectConfigurationIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProtectConfigurationIdOrArn" j
    let to_json = simple_to_json to_value
  end
module ConfigurationSetFilterName =
  struct
    type nonrec t =
      | Event_destination_name 
      | Matching_event_types 
      | Default_message_type 
      | Default_sender_id 
      | Default_message_feedback_enabled 
      | Protect_configuration_id 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Event_destination_name -> "event-destination-name"
      | Matching_event_types -> "matching-event-types"
      | Default_message_type -> "default-message-type"
      | Default_sender_id -> "default-sender-id"
      | Default_message_feedback_enabled ->
          "default-message-feedback-enabled"
      | Protect_configuration_id -> "protect-configuration-id"
      | Non_static_id s -> s
    let of_string =
      function
      | "event-destination-name" -> Event_destination_name
      | "matching-event-types" -> Matching_event_types
      | "default-message-type" -> Default_message_type
      | "default-sender-id" -> Default_sender_id
      | "default-message-feedback-enabled" ->
          Default_message_feedback_enabled
      | "protect-configuration-id" -> Protect_configuration_id
      | 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 ConfigurationSetFilterName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConfigurationSetFilterName" j)
    let to_json = simple_to_json to_value
  end
module AccountLimitName =
  struct
    type nonrec t =
      | PHONE_NUMBERS 
      | POOLS 
      | CONFIGURATION_SETS 
      | OPT_OUT_LISTS 
      | SENDER_IDS 
      | REGISTRATIONS 
      | REGISTRATION_ATTACHMENTS 
      | VERIFIED_DESTINATION_NUMBERS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PHONE_NUMBERS -> "PHONE_NUMBERS"
      | POOLS -> "POOLS"
      | CONFIGURATION_SETS -> "CONFIGURATION_SETS"
      | OPT_OUT_LISTS -> "OPT_OUT_LISTS"
      | SENDER_IDS -> "SENDER_IDS"
      | REGISTRATIONS -> "REGISTRATIONS"
      | REGISTRATION_ATTACHMENTS -> "REGISTRATION_ATTACHMENTS"
      | VERIFIED_DESTINATION_NUMBERS -> "VERIFIED_DESTINATION_NUMBERS"
      | Non_static_id s -> s
    let of_string =
      function
      | "PHONE_NUMBERS" -> PHONE_NUMBERS
      | "POOLS" -> POOLS
      | "CONFIGURATION_SETS" -> CONFIGURATION_SETS
      | "OPT_OUT_LISTS" -> OPT_OUT_LISTS
      | "SENDER_IDS" -> SENDER_IDS
      | "REGISTRATIONS" -> REGISTRATIONS
      | "REGISTRATION_ATTACHMENTS" -> REGISTRATION_ATTACHMENTS
      | "VERIFIED_DESTINATION_NUMBERS" -> VERIFIED_DESTINATION_NUMBERS
      | 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 AccountLimitName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountLimitName" j)
    let to_json = simple_to_json to_value
  end
module AccountAttributeName =
  struct
    type nonrec t =
      | ACCOUNT_TIER 
      | DEFAULT_PROTECT_CONFIGURATION_ID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCOUNT_TIER -> "ACCOUNT_TIER"
      | DEFAULT_PROTECT_CONFIGURATION_ID ->
          "DEFAULT_PROTECT_CONFIGURATION_ID"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCOUNT_TIER" -> ACCOUNT_TIER
      | "DEFAULT_PROTECT_CONFIGURATION_ID" ->
          DEFAULT_PROTECT_CONFIGURATION_ID
      | 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 AccountAttributeName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountAttributeName" j)
    let to_json = simple_to_json to_value
  end
module AccessDeniedExceptionReason =
  struct
    type nonrec t =
      | INSUFFICIENT_ACCOUNT_REPUTATION 
      | ACCOUNT_DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INSUFFICIENT_ACCOUNT_REPUTATION -> "INSUFFICIENT_ACCOUNT_REPUTATION"
      | ACCOUNT_DISABLED -> "ACCOUNT_DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "INSUFFICIENT_ACCOUNT_REPUTATION" -> INSUFFICIENT_ACCOUNT_REPUTATION
      | "ACCOUNT_DISABLED" -> ACCOUNT_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 AccessDeniedExceptionReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AccessDeniedExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ConflictExceptionReason =
  struct
    type nonrec t =
      | CREATE_REGISTRATION_VERSION_NOT_ALLOWED 
      | DELETION_PROTECTION_ENABLED 
      | DESTINATION_PHONE_NUMBER_NOT_VERIFIED 
      | DESTINATION_PHONE_NUMBER_OPTED_OUT 
      | DISASSOCIATE_REGISTRATION_NOT_ALLOWED 
      | DISCARD_REGISTRATION_VERSION_NOT_ALLOWED 
      | EDIT_REGISTRATION_FIELD_VALUES_NOT_ALLOWED 
      | EVENT_DESTINATION_MISMATCH 
      | KEYWORD_MISMATCH 
      | LAST_PHONE_NUMBER 
      | NUMBER_CAPABILITIES_MISMATCH 
      | MESSAGE_TYPE_MISMATCH 
      | NO_ORIGINATION_IDENTITIES_FOUND 
      | OPT_OUT_LIST_MISMATCH 
      | PHONE_NUMBER_ASSOCIATED_TO_POOL 
      | PHONE_NUMBER_ASSOCIATED_TO_REGISTRATION 
      | PHONE_NUMBER_NOT_ASSOCIATED_TO_POOL 
      | PHONE_NUMBER_NOT_IN_REGISTRATION_REGION 
      | REGISTRATION_ALREADY_SUBMITTED 
      | REGISTRATION_NOT_COMPLETE 
      | RESOURCE_ALREADY_ASSOCIATED 
      | SENDER_ID_ASSOCIATED_TO_POOL 
      | RCS_AGENT_ASSOCIATED_TO_POOL 
      | POOL_ASSOCIATED_TO_NOTIFY_CONFIGURATION 
      | RESOURCE_ALREADY_EXISTS 
      | RESOURCE_DELETION_NOT_ALLOWED 
      | RESOURCE_MODIFICATION_NOT_ALLOWED 
      | RESOURCE_NOT_ACTIVE 
      | RESOURCE_NOT_EMPTY 
      | SELF_MANAGED_OPT_OUTS_MISMATCH 
      | SUBMIT_REGISTRATION_VERSION_NOT_ALLOWED 
      | TWO_WAY_CONFIG_MISMATCH 
      | VERIFICATION_CODE_EXPIRED 
      | VERIFICATION_ALREADY_COMPLETE 
      | PROTECT_CONFIGURATION_IS_ACCOUNT_DEFAULT 
      | PROTECT_CONFIGURATION_ASSOCIATED_WITH_CONFIGURATION_SET 
      | PROTECT_CONFIGURATION_NOT_ASSOCIATED_WITH_CONFIGURATION_SET 
      | DESTINATION_COUNTRY_BLOCKED_BY_PROTECT_CONFIGURATION 
      | DESTINATION_PHONE_NUMBER_BLOCKED_BY_PROTECT_NUMBER_OVERRIDE 
      | RCS_AGENT_ALREADY_ASSOCIATED_TO_REGISTRATION_TYPE 
      | NOTIFY_CONFIGURATION_NOT_ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_REGISTRATION_VERSION_NOT_ALLOWED ->
          "CREATE_REGISTRATION_VERSION_NOT_ALLOWED"
      | DELETION_PROTECTION_ENABLED -> "DELETION_PROTECTION_ENABLED"
      | DESTINATION_PHONE_NUMBER_NOT_VERIFIED ->
          "DESTINATION_PHONE_NUMBER_NOT_VERIFIED"
      | DESTINATION_PHONE_NUMBER_OPTED_OUT ->
          "DESTINATION_PHONE_NUMBER_OPTED_OUT"
      | DISASSOCIATE_REGISTRATION_NOT_ALLOWED ->
          "DISASSOCIATE_REGISTRATION_NOT_ALLOWED"
      | DISCARD_REGISTRATION_VERSION_NOT_ALLOWED ->
          "DISCARD_REGISTRATION_VERSION_NOT_ALLOWED"
      | EDIT_REGISTRATION_FIELD_VALUES_NOT_ALLOWED ->
          "EDIT_REGISTRATION_FIELD_VALUES_NOT_ALLOWED"
      | EVENT_DESTINATION_MISMATCH -> "EVENT_DESTINATION_MISMATCH"
      | KEYWORD_MISMATCH -> "KEYWORD_MISMATCH"
      | LAST_PHONE_NUMBER -> "LAST_PHONE_NUMBER"
      | NUMBER_CAPABILITIES_MISMATCH -> "NUMBER_CAPABILITIES_MISMATCH"
      | MESSAGE_TYPE_MISMATCH -> "MESSAGE_TYPE_MISMATCH"
      | NO_ORIGINATION_IDENTITIES_FOUND -> "NO_ORIGINATION_IDENTITIES_FOUND"
      | OPT_OUT_LIST_MISMATCH -> "OPT_OUT_LIST_MISMATCH"
      | PHONE_NUMBER_ASSOCIATED_TO_POOL -> "PHONE_NUMBER_ASSOCIATED_TO_POOL"
      | PHONE_NUMBER_ASSOCIATED_TO_REGISTRATION ->
          "PHONE_NUMBER_ASSOCIATED_TO_REGISTRATION"
      | PHONE_NUMBER_NOT_ASSOCIATED_TO_POOL ->
          "PHONE_NUMBER_NOT_ASSOCIATED_TO_POOL"
      | PHONE_NUMBER_NOT_IN_REGISTRATION_REGION ->
          "PHONE_NUMBER_NOT_IN_REGISTRATION_REGION"
      | REGISTRATION_ALREADY_SUBMITTED -> "REGISTRATION_ALREADY_SUBMITTED"
      | REGISTRATION_NOT_COMPLETE -> "REGISTRATION_NOT_COMPLETE"
      | RESOURCE_ALREADY_ASSOCIATED -> "RESOURCE_ALREADY_ASSOCIATED"
      | SENDER_ID_ASSOCIATED_TO_POOL -> "SENDER_ID_ASSOCIATED_TO_POOL"
      | RCS_AGENT_ASSOCIATED_TO_POOL -> "RCS_AGENT_ASSOCIATED_TO_POOL"
      | POOL_ASSOCIATED_TO_NOTIFY_CONFIGURATION ->
          "POOL_ASSOCIATED_TO_NOTIFY_CONFIGURATION"
      | RESOURCE_ALREADY_EXISTS -> "RESOURCE_ALREADY_EXISTS"
      | RESOURCE_DELETION_NOT_ALLOWED -> "RESOURCE_DELETION_NOT_ALLOWED"
      | RESOURCE_MODIFICATION_NOT_ALLOWED ->
          "RESOURCE_MODIFICATION_NOT_ALLOWED"
      | RESOURCE_NOT_ACTIVE -> "RESOURCE_NOT_ACTIVE"
      | RESOURCE_NOT_EMPTY -> "RESOURCE_NOT_EMPTY"
      | SELF_MANAGED_OPT_OUTS_MISMATCH -> "SELF_MANAGED_OPT_OUTS_MISMATCH"
      | SUBMIT_REGISTRATION_VERSION_NOT_ALLOWED ->
          "SUBMIT_REGISTRATION_VERSION_NOT_ALLOWED"
      | TWO_WAY_CONFIG_MISMATCH -> "TWO_WAY_CONFIG_MISMATCH"
      | VERIFICATION_CODE_EXPIRED -> "VERIFICATION_CODE_EXPIRED"
      | VERIFICATION_ALREADY_COMPLETE -> "VERIFICATION_ALREADY_COMPLETE"
      | PROTECT_CONFIGURATION_IS_ACCOUNT_DEFAULT ->
          "PROTECT_CONFIGURATION_IS_ACCOUNT_DEFAULT"
      | PROTECT_CONFIGURATION_ASSOCIATED_WITH_CONFIGURATION_SET ->
          "PROTECT_CONFIGURATION_ASSOCIATED_WITH_CONFIGURATION_SET"
      | PROTECT_CONFIGURATION_NOT_ASSOCIATED_WITH_CONFIGURATION_SET ->
          "PROTECT_CONFIGURATION_NOT_ASSOCIATED_WITH_CONFIGURATION_SET"
      | DESTINATION_COUNTRY_BLOCKED_BY_PROTECT_CONFIGURATION ->
          "DESTINATION_COUNTRY_BLOCKED_BY_PROTECT_CONFIGURATION"
      | DESTINATION_PHONE_NUMBER_BLOCKED_BY_PROTECT_NUMBER_OVERRIDE ->
          "DESTINATION_PHONE_NUMBER_BLOCKED_BY_PROTECT_NUMBER_OVERRIDE"
      | RCS_AGENT_ALREADY_ASSOCIATED_TO_REGISTRATION_TYPE ->
          "RCS_AGENT_ALREADY_ASSOCIATED_TO_REGISTRATION_TYPE"
      | NOTIFY_CONFIGURATION_NOT_ACTIVE -> "NOTIFY_CONFIGURATION_NOT_ACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_REGISTRATION_VERSION_NOT_ALLOWED" ->
          CREATE_REGISTRATION_VERSION_NOT_ALLOWED
      | "DELETION_PROTECTION_ENABLED" -> DELETION_PROTECTION_ENABLED
      | "DESTINATION_PHONE_NUMBER_NOT_VERIFIED" ->
          DESTINATION_PHONE_NUMBER_NOT_VERIFIED
      | "DESTINATION_PHONE_NUMBER_OPTED_OUT" ->
          DESTINATION_PHONE_NUMBER_OPTED_OUT
      | "DISASSOCIATE_REGISTRATION_NOT_ALLOWED" ->
          DISASSOCIATE_REGISTRATION_NOT_ALLOWED
      | "DISCARD_REGISTRATION_VERSION_NOT_ALLOWED" ->
          DISCARD_REGISTRATION_VERSION_NOT_ALLOWED
      | "EDIT_REGISTRATION_FIELD_VALUES_NOT_ALLOWED" ->
          EDIT_REGISTRATION_FIELD_VALUES_NOT_ALLOWED
      | "EVENT_DESTINATION_MISMATCH" -> EVENT_DESTINATION_MISMATCH
      | "KEYWORD_MISMATCH" -> KEYWORD_MISMATCH
      | "LAST_PHONE_NUMBER" -> LAST_PHONE_NUMBER
      | "NUMBER_CAPABILITIES_MISMATCH" -> NUMBER_CAPABILITIES_MISMATCH
      | "MESSAGE_TYPE_MISMATCH" -> MESSAGE_TYPE_MISMATCH
      | "NO_ORIGINATION_IDENTITIES_FOUND" -> NO_ORIGINATION_IDENTITIES_FOUND
      | "OPT_OUT_LIST_MISMATCH" -> OPT_OUT_LIST_MISMATCH
      | "PHONE_NUMBER_ASSOCIATED_TO_POOL" -> PHONE_NUMBER_ASSOCIATED_TO_POOL
      | "PHONE_NUMBER_ASSOCIATED_TO_REGISTRATION" ->
          PHONE_NUMBER_ASSOCIATED_TO_REGISTRATION
      | "PHONE_NUMBER_NOT_ASSOCIATED_TO_POOL" ->
          PHONE_NUMBER_NOT_ASSOCIATED_TO_POOL
      | "PHONE_NUMBER_NOT_IN_REGISTRATION_REGION" ->
          PHONE_NUMBER_NOT_IN_REGISTRATION_REGION
      | "REGISTRATION_ALREADY_SUBMITTED" -> REGISTRATION_ALREADY_SUBMITTED
      | "REGISTRATION_NOT_COMPLETE" -> REGISTRATION_NOT_COMPLETE
      | "RESOURCE_ALREADY_ASSOCIATED" -> RESOURCE_ALREADY_ASSOCIATED
      | "SENDER_ID_ASSOCIATED_TO_POOL" -> SENDER_ID_ASSOCIATED_TO_POOL
      | "RCS_AGENT_ASSOCIATED_TO_POOL" -> RCS_AGENT_ASSOCIATED_TO_POOL
      | "POOL_ASSOCIATED_TO_NOTIFY_CONFIGURATION" ->
          POOL_ASSOCIATED_TO_NOTIFY_CONFIGURATION
      | "RESOURCE_ALREADY_EXISTS" -> RESOURCE_ALREADY_EXISTS
      | "RESOURCE_DELETION_NOT_ALLOWED" -> RESOURCE_DELETION_NOT_ALLOWED
      | "RESOURCE_MODIFICATION_NOT_ALLOWED" ->
          RESOURCE_MODIFICATION_NOT_ALLOWED
      | "RESOURCE_NOT_ACTIVE" -> RESOURCE_NOT_ACTIVE
      | "RESOURCE_NOT_EMPTY" -> RESOURCE_NOT_EMPTY
      | "SELF_MANAGED_OPT_OUTS_MISMATCH" -> SELF_MANAGED_OPT_OUTS_MISMATCH
      | "SUBMIT_REGISTRATION_VERSION_NOT_ALLOWED" ->
          SUBMIT_REGISTRATION_VERSION_NOT_ALLOWED
      | "TWO_WAY_CONFIG_MISMATCH" -> TWO_WAY_CONFIG_MISMATCH
      | "VERIFICATION_CODE_EXPIRED" -> VERIFICATION_CODE_EXPIRED
      | "VERIFICATION_ALREADY_COMPLETE" -> VERIFICATION_ALREADY_COMPLETE
      | "PROTECT_CONFIGURATION_IS_ACCOUNT_DEFAULT" ->
          PROTECT_CONFIGURATION_IS_ACCOUNT_DEFAULT
      | "PROTECT_CONFIGURATION_ASSOCIATED_WITH_CONFIGURATION_SET" ->
          PROTECT_CONFIGURATION_ASSOCIATED_WITH_CONFIGURATION_SET
      | "PROTECT_CONFIGURATION_NOT_ASSOCIATED_WITH_CONFIGURATION_SET" ->
          PROTECT_CONFIGURATION_NOT_ASSOCIATED_WITH_CONFIGURATION_SET
      | "DESTINATION_COUNTRY_BLOCKED_BY_PROTECT_CONFIGURATION" ->
          DESTINATION_COUNTRY_BLOCKED_BY_PROTECT_CONFIGURATION
      | "DESTINATION_PHONE_NUMBER_BLOCKED_BY_PROTECT_NUMBER_OVERRIDE" ->
          DESTINATION_PHONE_NUMBER_BLOCKED_BY_PROTECT_NUMBER_OVERRIDE
      | "RCS_AGENT_ALREADY_ASSOCIATED_TO_REGISTRATION_TYPE" ->
          RCS_AGENT_ALREADY_ASSOCIATED_TO_REGISTRATION_TYPE
      | "NOTIFY_CONFIGURATION_NOT_ACTIVE" -> NOTIFY_CONFIGURATION_NOT_ACTIVE
      | 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 ConflictExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConflictExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t =
      | Account 
      | Phone_number 
      | Sender_id 
      | Pool 
      | Configuration_set 
      | Opt_out_list 
      | Event_destination 
      | Keyword 
      | Opted_out_number 
      | Registration 
      | Registration_attachment 
      | Verified_destination_number 
      | Protect_configuration 
      | Notify_configuration 
      | Notify_template 
      | Message_template 
      | Policy 
      | Message 
      | Rcs_agent 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Account -> "account"
      | Phone_number -> "phone-number"
      | Sender_id -> "sender-id"
      | Pool -> "pool"
      | Configuration_set -> "configuration-set"
      | Opt_out_list -> "opt-out-list"
      | Event_destination -> "event-destination"
      | Keyword -> "keyword"
      | Opted_out_number -> "opted-out-number"
      | Registration -> "registration"
      | Registration_attachment -> "registration-attachment"
      | Verified_destination_number -> "verified-destination-number"
      | Protect_configuration -> "protect-configuration"
      | Notify_configuration -> "notify-configuration"
      | Notify_template -> "notify-template"
      | Message_template -> "message-template"
      | Policy -> "policy"
      | Message -> "message"
      | Rcs_agent -> "rcs-agent"
      | Non_static_id s -> s
    let of_string =
      function
      | "account" -> Account
      | "phone-number" -> Phone_number
      | "sender-id" -> Sender_id
      | "pool" -> Pool
      | "configuration-set" -> Configuration_set
      | "opt-out-list" -> Opt_out_list
      | "event-destination" -> Event_destination
      | "keyword" -> Keyword
      | "opted-out-number" -> Opted_out_number
      | "registration" -> Registration
      | "registration-attachment" -> Registration_attachment
      | "verified-destination-number" -> Verified_destination_number
      | "protect-configuration" -> Protect_configuration
      | "notify-configuration" -> Notify_configuration
      | "notify-template" -> Notify_template
      | "message-template" -> Message_template
      | "policy" -> Policy
      | "message" -> Message
      | "rcs-agent" -> Rcs_agent
      | 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 ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | CANNOT_ADD_OPTED_OUT_NUMBER 
      | CANNOT_PARSE 
      | CHANNEL_NOT_ENABLED 
      | COUNTRY_CODE_MISMATCH 
      | COUNTRY_NOT_ENABLED 
      | DESTINATION_COUNTRY_BLOCKED 
      | FIELD_VALIDATION_FAILED 
      | ATTACHMENT_TYPE_NOT_SUPPORTED 
      | INTERNATIONAL_SENDING_NOT_SUPPORTED 
      | INVALID_ARN 
      | INVALID_FILTER_VALUES 
      | INVALID_IDENTITY_FOR_DESTINATION_COUNTRY 
      | INVALID_NEXT_TOKEN 
      | INVALID_PARAMETER 
      | INVALID_REQUEST 
      | INVALID_REGISTRATION_ASSOCIATION 
      | MAXIMUM_SIZE_EXCEEDED 
      | MEDIA_TYPE_NOT_SUPPORTED 
      | MISSING_PARAMETER 
      | PARAMETERS_CANNOT_BE_USED_TOGETHER 
      | PHONE_NUMBER_CANNOT_BE_OPTED_IN 
      | PHONE_NUMBER_CANNOT_BE_RELEASED 
      | PRICE_OVER_THRESHOLD 
      | RESOURCE_NOT_ACCESSIBLE 
      | REQUESTED_SPEND_LIMIT_HIGHER_THAN_SERVICE_LIMIT 
      | SENDER_ID_NOT_REGISTERED 
      | SENDER_ID_NOT_SUPPORTED 
      | SENDER_ID_REQUIRES_REGISTRATION 
      | TWO_WAY_TOPIC_NOT_PRESENT 
      | TWO_WAY_NOT_ENABLED 
      | TWO_WAY_NOT_SUPPORTED_IN_COUNTRY 
      | TWO_WAY_NOT_SUPPORTED_IN_REGION 
      | TWO_WAY_CHANNEL_NOT_PRESENT 
      | UNKNOWN_REGISTRATION_FIELD 
      | UNKNOWN_REGISTRATION_SECTION 
      | UNKNOWN_REGISTRATION_TYPE 
      | UNKNOWN_REGISTRATION_VERSION 
      | UNKNOWN_OPERATION 
      | REGISTRATION_FIELD_CANNOT_BE_DELETED 
      | VERIFICATION_CODE_MISMATCH 
      | VOICE_CAPABILITY_NOT_AVAILABLE 
      | UNSPECIFIED_PARAMETER_NOT_SUPPORTED 
      | OTHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CANNOT_ADD_OPTED_OUT_NUMBER -> "CANNOT_ADD_OPTED_OUT_NUMBER"
      | CANNOT_PARSE -> "CANNOT_PARSE"
      | CHANNEL_NOT_ENABLED -> "CHANNEL_NOT_ENABLED"
      | COUNTRY_CODE_MISMATCH -> "COUNTRY_CODE_MISMATCH"
      | COUNTRY_NOT_ENABLED -> "COUNTRY_NOT_ENABLED"
      | DESTINATION_COUNTRY_BLOCKED -> "DESTINATION_COUNTRY_BLOCKED"
      | FIELD_VALIDATION_FAILED -> "FIELD_VALIDATION_FAILED"
      | ATTACHMENT_TYPE_NOT_SUPPORTED -> "ATTACHMENT_TYPE_NOT_SUPPORTED"
      | INTERNATIONAL_SENDING_NOT_SUPPORTED ->
          "INTERNATIONAL_SENDING_NOT_SUPPORTED"
      | INVALID_ARN -> "INVALID_ARN"
      | INVALID_FILTER_VALUES -> "INVALID_FILTER_VALUES"
      | INVALID_IDENTITY_FOR_DESTINATION_COUNTRY ->
          "INVALID_IDENTITY_FOR_DESTINATION_COUNTRY"
      | INVALID_NEXT_TOKEN -> "INVALID_NEXT_TOKEN"
      | INVALID_PARAMETER -> "INVALID_PARAMETER"
      | INVALID_REQUEST -> "INVALID_REQUEST"
      | INVALID_REGISTRATION_ASSOCIATION ->
          "INVALID_REGISTRATION_ASSOCIATION"
      | MAXIMUM_SIZE_EXCEEDED -> "MAXIMUM_SIZE_EXCEEDED"
      | MEDIA_TYPE_NOT_SUPPORTED -> "MEDIA_TYPE_NOT_SUPPORTED"
      | MISSING_PARAMETER -> "MISSING_PARAMETER"
      | PARAMETERS_CANNOT_BE_USED_TOGETHER ->
          "PARAMETERS_CANNOT_BE_USED_TOGETHER"
      | PHONE_NUMBER_CANNOT_BE_OPTED_IN -> "PHONE_NUMBER_CANNOT_BE_OPTED_IN"
      | PHONE_NUMBER_CANNOT_BE_RELEASED -> "PHONE_NUMBER_CANNOT_BE_RELEASED"
      | PRICE_OVER_THRESHOLD -> "PRICE_OVER_THRESHOLD"
      | RESOURCE_NOT_ACCESSIBLE -> "RESOURCE_NOT_ACCESSIBLE"
      | REQUESTED_SPEND_LIMIT_HIGHER_THAN_SERVICE_LIMIT ->
          "REQUESTED_SPEND_LIMIT_HIGHER_THAN_SERVICE_LIMIT"
      | SENDER_ID_NOT_REGISTERED -> "SENDER_ID_NOT_REGISTERED"
      | SENDER_ID_NOT_SUPPORTED -> "SENDER_ID_NOT_SUPPORTED"
      | SENDER_ID_REQUIRES_REGISTRATION -> "SENDER_ID_REQUIRES_REGISTRATION"
      | TWO_WAY_TOPIC_NOT_PRESENT -> "TWO_WAY_TOPIC_NOT_PRESENT"
      | TWO_WAY_NOT_ENABLED -> "TWO_WAY_NOT_ENABLED"
      | TWO_WAY_NOT_SUPPORTED_IN_COUNTRY ->
          "TWO_WAY_NOT_SUPPORTED_IN_COUNTRY"
      | TWO_WAY_NOT_SUPPORTED_IN_REGION -> "TWO_WAY_NOT_SUPPORTED_IN_REGION"
      | TWO_WAY_CHANNEL_NOT_PRESENT -> "TWO_WAY_CHANNEL_NOT_PRESENT"
      | UNKNOWN_REGISTRATION_FIELD -> "UNKNOWN_REGISTRATION_FIELD"
      | UNKNOWN_REGISTRATION_SECTION -> "UNKNOWN_REGISTRATION_SECTION"
      | UNKNOWN_REGISTRATION_TYPE -> "UNKNOWN_REGISTRATION_TYPE"
      | UNKNOWN_REGISTRATION_VERSION -> "UNKNOWN_REGISTRATION_VERSION"
      | UNKNOWN_OPERATION -> "UNKNOWN_OPERATION"
      | REGISTRATION_FIELD_CANNOT_BE_DELETED ->
          "REGISTRATION_FIELD_CANNOT_BE_DELETED"
      | VERIFICATION_CODE_MISMATCH -> "VERIFICATION_CODE_MISMATCH"
      | VOICE_CAPABILITY_NOT_AVAILABLE -> "VOICE_CAPABILITY_NOT_AVAILABLE"
      | UNSPECIFIED_PARAMETER_NOT_SUPPORTED ->
          "UNSPECIFIED_PARAMETER_NOT_SUPPORTED"
      | OTHER -> "OTHER"
      | Non_static_id s -> s
    let of_string =
      function
      | "CANNOT_ADD_OPTED_OUT_NUMBER" -> CANNOT_ADD_OPTED_OUT_NUMBER
      | "CANNOT_PARSE" -> CANNOT_PARSE
      | "CHANNEL_NOT_ENABLED" -> CHANNEL_NOT_ENABLED
      | "COUNTRY_CODE_MISMATCH" -> COUNTRY_CODE_MISMATCH
      | "COUNTRY_NOT_ENABLED" -> COUNTRY_NOT_ENABLED
      | "DESTINATION_COUNTRY_BLOCKED" -> DESTINATION_COUNTRY_BLOCKED
      | "FIELD_VALIDATION_FAILED" -> FIELD_VALIDATION_FAILED
      | "ATTACHMENT_TYPE_NOT_SUPPORTED" -> ATTACHMENT_TYPE_NOT_SUPPORTED
      | "INTERNATIONAL_SENDING_NOT_SUPPORTED" ->
          INTERNATIONAL_SENDING_NOT_SUPPORTED
      | "INVALID_ARN" -> INVALID_ARN
      | "INVALID_FILTER_VALUES" -> INVALID_FILTER_VALUES
      | "INVALID_IDENTITY_FOR_DESTINATION_COUNTRY" ->
          INVALID_IDENTITY_FOR_DESTINATION_COUNTRY
      | "INVALID_NEXT_TOKEN" -> INVALID_NEXT_TOKEN
      | "INVALID_PARAMETER" -> INVALID_PARAMETER
      | "INVALID_REQUEST" -> INVALID_REQUEST
      | "INVALID_REGISTRATION_ASSOCIATION" ->
          INVALID_REGISTRATION_ASSOCIATION
      | "MAXIMUM_SIZE_EXCEEDED" -> MAXIMUM_SIZE_EXCEEDED
      | "MEDIA_TYPE_NOT_SUPPORTED" -> MEDIA_TYPE_NOT_SUPPORTED
      | "MISSING_PARAMETER" -> MISSING_PARAMETER
      | "PARAMETERS_CANNOT_BE_USED_TOGETHER" ->
          PARAMETERS_CANNOT_BE_USED_TOGETHER
      | "PHONE_NUMBER_CANNOT_BE_OPTED_IN" -> PHONE_NUMBER_CANNOT_BE_OPTED_IN
      | "PHONE_NUMBER_CANNOT_BE_RELEASED" -> PHONE_NUMBER_CANNOT_BE_RELEASED
      | "PRICE_OVER_THRESHOLD" -> PRICE_OVER_THRESHOLD
      | "RESOURCE_NOT_ACCESSIBLE" -> RESOURCE_NOT_ACCESSIBLE
      | "REQUESTED_SPEND_LIMIT_HIGHER_THAN_SERVICE_LIMIT" ->
          REQUESTED_SPEND_LIMIT_HIGHER_THAN_SERVICE_LIMIT
      | "SENDER_ID_NOT_REGISTERED" -> SENDER_ID_NOT_REGISTERED
      | "SENDER_ID_NOT_SUPPORTED" -> SENDER_ID_NOT_SUPPORTED
      | "SENDER_ID_REQUIRES_REGISTRATION" -> SENDER_ID_REQUIRES_REGISTRATION
      | "TWO_WAY_TOPIC_NOT_PRESENT" -> TWO_WAY_TOPIC_NOT_PRESENT
      | "TWO_WAY_NOT_ENABLED" -> TWO_WAY_NOT_ENABLED
      | "TWO_WAY_NOT_SUPPORTED_IN_COUNTRY" ->
          TWO_WAY_NOT_SUPPORTED_IN_COUNTRY
      | "TWO_WAY_NOT_SUPPORTED_IN_REGION" -> TWO_WAY_NOT_SUPPORTED_IN_REGION
      | "TWO_WAY_CHANNEL_NOT_PRESENT" -> TWO_WAY_CHANNEL_NOT_PRESENT
      | "UNKNOWN_REGISTRATION_FIELD" -> UNKNOWN_REGISTRATION_FIELD
      | "UNKNOWN_REGISTRATION_SECTION" -> UNKNOWN_REGISTRATION_SECTION
      | "UNKNOWN_REGISTRATION_TYPE" -> UNKNOWN_REGISTRATION_TYPE
      | "UNKNOWN_REGISTRATION_VERSION" -> UNKNOWN_REGISTRATION_VERSION
      | "UNKNOWN_OPERATION" -> UNKNOWN_OPERATION
      | "REGISTRATION_FIELD_CANNOT_BE_DELETED" ->
          REGISTRATION_FIELD_CANNOT_BE_DELETED
      | "VERIFICATION_CODE_MISMATCH" -> VERIFICATION_CODE_MISMATCH
      | "VOICE_CAPABILITY_NOT_AVAILABLE" -> VOICE_CAPABILITY_NOT_AVAILABLE
      | "UNSPECIFIED_PARAMETER_NOT_SUPPORTED" ->
          UNSPECIFIED_PARAMETER_NOT_SUPPORTED
      | "OTHER" -> OTHER
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationCountryRuleSetInformation =
  struct
    type nonrec t =
      {
      protectStatus: ProtectStatus.t
        [@ocaml.doc "The types of protection that can be used."]}
    let context_ = "ProtectConfigurationCountryRuleSetInformation"
    let make ~protectStatus = fun () -> { protectStatus }
    let to_value x =
      structure_to_value
        [("ProtectStatus", (Some (ProtectStatus.to_value x.protectStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protectStatus =
        ProtectStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectStatus") in
      make ~protectStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protectStatus =
        field_map_exn json__ "ProtectStatus" ProtectStatus.of_json in
      make ~protectStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The types of statuses that can be used."]
module ServiceQuotaExceededExceptionReason =
  struct
    type nonrec t =
      | ASSOCIATIONS_PER_REGISTRATION 
      | CONFIGURATION_SETS_PER_ACCOUNT 
      | DAILY_DESTINATION_CALL_LIMIT 
      | DAILY_NOTIFY_TIER_MESSAGE_LIMIT 
      | EVENT_DESTINATIONS_PER_CONFIGURATION_SET 
      | KEYWORDS_PER_PHONE_NUMBER 
      | KEYWORDS_PER_POOL 
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_MEDIA 
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_NOTIFY 
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_TEXT 
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_VOICE 
      | NOTIFY_CONFIGURATIONS_PER_ACCOUNT 
      | OPT_OUT_LISTS_PER_ACCOUNT 
      | ORIGINATION_IDENTITIES_PER_POOL 
      | PHONE_NUMBERS_PER_ACCOUNT 
      | PHONE_NUMBERS_PER_REGISTRATION 
      | POOLS_PER_ACCOUNT 
      | RCS_AGENTS_PER_ACCOUNT 
      | REGISTRATION_ATTACHMENTS_CREATED_PER_DAY 
      | REGISTRATION_ATTACHMENTS_PER_ACCOUNT 
      | REGISTRATION_VERSIONS_CREATED_PER_DAY 
      | REGISTRATIONS_PER_ACCOUNT 
      | SENDER_IDS_PER_ACCOUNT 
      | TAGS_PER_RESOURCE 
      | VERIFIED_DESTINATION_NUMBERS_PER_ACCOUNT 
      | VERIFICATION_ATTEMPTS_PER_DAY 
      | PROTECT_CONFIGURATIONS_PER_ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATIONS_PER_REGISTRATION -> "ASSOCIATIONS_PER_REGISTRATION"
      | CONFIGURATION_SETS_PER_ACCOUNT -> "CONFIGURATION_SETS_PER_ACCOUNT"
      | DAILY_DESTINATION_CALL_LIMIT -> "DAILY_DESTINATION_CALL_LIMIT"
      | DAILY_NOTIFY_TIER_MESSAGE_LIMIT -> "DAILY_NOTIFY_TIER_MESSAGE_LIMIT"
      | EVENT_DESTINATIONS_PER_CONFIGURATION_SET ->
          "EVENT_DESTINATIONS_PER_CONFIGURATION_SET"
      | KEYWORDS_PER_PHONE_NUMBER -> "KEYWORDS_PER_PHONE_NUMBER"
      | KEYWORDS_PER_POOL -> "KEYWORDS_PER_POOL"
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_MEDIA ->
          "MONTHLY_SPEND_LIMIT_REACHED_FOR_MEDIA"
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_NOTIFY ->
          "MONTHLY_SPEND_LIMIT_REACHED_FOR_NOTIFY"
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_TEXT ->
          "MONTHLY_SPEND_LIMIT_REACHED_FOR_TEXT"
      | MONTHLY_SPEND_LIMIT_REACHED_FOR_VOICE ->
          "MONTHLY_SPEND_LIMIT_REACHED_FOR_VOICE"
      | NOTIFY_CONFIGURATIONS_PER_ACCOUNT ->
          "NOTIFY_CONFIGURATIONS_PER_ACCOUNT"
      | OPT_OUT_LISTS_PER_ACCOUNT -> "OPT_OUT_LISTS_PER_ACCOUNT"
      | ORIGINATION_IDENTITIES_PER_POOL -> "ORIGINATION_IDENTITIES_PER_POOL"
      | PHONE_NUMBERS_PER_ACCOUNT -> "PHONE_NUMBERS_PER_ACCOUNT"
      | PHONE_NUMBERS_PER_REGISTRATION -> "PHONE_NUMBERS_PER_REGISTRATION"
      | POOLS_PER_ACCOUNT -> "POOLS_PER_ACCOUNT"
      | RCS_AGENTS_PER_ACCOUNT -> "RCS_AGENTS_PER_ACCOUNT"
      | REGISTRATION_ATTACHMENTS_CREATED_PER_DAY ->
          "REGISTRATION_ATTACHMENTS_CREATED_PER_DAY"
      | REGISTRATION_ATTACHMENTS_PER_ACCOUNT ->
          "REGISTRATION_ATTACHMENTS_PER_ACCOUNT"
      | REGISTRATION_VERSIONS_CREATED_PER_DAY ->
          "REGISTRATION_VERSIONS_CREATED_PER_DAY"
      | REGISTRATIONS_PER_ACCOUNT -> "REGISTRATIONS_PER_ACCOUNT"
      | SENDER_IDS_PER_ACCOUNT -> "SENDER_IDS_PER_ACCOUNT"
      | TAGS_PER_RESOURCE -> "TAGS_PER_RESOURCE"
      | VERIFIED_DESTINATION_NUMBERS_PER_ACCOUNT ->
          "VERIFIED_DESTINATION_NUMBERS_PER_ACCOUNT"
      | VERIFICATION_ATTEMPTS_PER_DAY -> "VERIFICATION_ATTEMPTS_PER_DAY"
      | PROTECT_CONFIGURATIONS_PER_ACCOUNT ->
          "PROTECT_CONFIGURATIONS_PER_ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATIONS_PER_REGISTRATION" -> ASSOCIATIONS_PER_REGISTRATION
      | "CONFIGURATION_SETS_PER_ACCOUNT" -> CONFIGURATION_SETS_PER_ACCOUNT
      | "DAILY_DESTINATION_CALL_LIMIT" -> DAILY_DESTINATION_CALL_LIMIT
      | "DAILY_NOTIFY_TIER_MESSAGE_LIMIT" -> DAILY_NOTIFY_TIER_MESSAGE_LIMIT
      | "EVENT_DESTINATIONS_PER_CONFIGURATION_SET" ->
          EVENT_DESTINATIONS_PER_CONFIGURATION_SET
      | "KEYWORDS_PER_PHONE_NUMBER" -> KEYWORDS_PER_PHONE_NUMBER
      | "KEYWORDS_PER_POOL" -> KEYWORDS_PER_POOL
      | "MONTHLY_SPEND_LIMIT_REACHED_FOR_MEDIA" ->
          MONTHLY_SPEND_LIMIT_REACHED_FOR_MEDIA
      | "MONTHLY_SPEND_LIMIT_REACHED_FOR_NOTIFY" ->
          MONTHLY_SPEND_LIMIT_REACHED_FOR_NOTIFY
      | "MONTHLY_SPEND_LIMIT_REACHED_FOR_TEXT" ->
          MONTHLY_SPEND_LIMIT_REACHED_FOR_TEXT
      | "MONTHLY_SPEND_LIMIT_REACHED_FOR_VOICE" ->
          MONTHLY_SPEND_LIMIT_REACHED_FOR_VOICE
      | "NOTIFY_CONFIGURATIONS_PER_ACCOUNT" ->
          NOTIFY_CONFIGURATIONS_PER_ACCOUNT
      | "OPT_OUT_LISTS_PER_ACCOUNT" -> OPT_OUT_LISTS_PER_ACCOUNT
      | "ORIGINATION_IDENTITIES_PER_POOL" -> ORIGINATION_IDENTITIES_PER_POOL
      | "PHONE_NUMBERS_PER_ACCOUNT" -> PHONE_NUMBERS_PER_ACCOUNT
      | "PHONE_NUMBERS_PER_REGISTRATION" -> PHONE_NUMBERS_PER_REGISTRATION
      | "POOLS_PER_ACCOUNT" -> POOLS_PER_ACCOUNT
      | "RCS_AGENTS_PER_ACCOUNT" -> RCS_AGENTS_PER_ACCOUNT
      | "REGISTRATION_ATTACHMENTS_CREATED_PER_DAY" ->
          REGISTRATION_ATTACHMENTS_CREATED_PER_DAY
      | "REGISTRATION_ATTACHMENTS_PER_ACCOUNT" ->
          REGISTRATION_ATTACHMENTS_PER_ACCOUNT
      | "REGISTRATION_VERSIONS_CREATED_PER_DAY" ->
          REGISTRATION_VERSIONS_CREATED_PER_DAY
      | "REGISTRATIONS_PER_ACCOUNT" -> REGISTRATIONS_PER_ACCOUNT
      | "SENDER_IDS_PER_ACCOUNT" -> SENDER_IDS_PER_ACCOUNT
      | "TAGS_PER_RESOURCE" -> TAGS_PER_RESOURCE
      | "VERIFIED_DESTINATION_NUMBERS_PER_ACCOUNT" ->
          VERIFIED_DESTINATION_NUMBERS_PER_ACCOUNT
      | "VERIFICATION_ATTEMPTS_PER_DAY" -> VERIFICATION_ATTEMPTS_PER_DAY
      | "PROTECT_CONFIGURATIONS_PER_ACCOUNT" ->
          PROTECT_CONFIGURATIONS_PER_ACCOUNT
      | 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 ServiceQuotaExceededExceptionReason" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ServiceQuotaExceededExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key identifier, or name, of the tag."];
      value: TagValue.t
        [@ocaml.doc "The string value associated with the key of the tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The list of tags to be added to the specified topic."]
module ContextKey =
  struct
    type nonrec t = string
    let context_ = "ContextKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        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:"ContextKey" j
    let to_json = simple_to_json to_value
  end
module ContextValue =
  struct
    type nonrec t = string
    let context_ = "ContextValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:800) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?!\\s)^[\\s\\S]+(?<!\\s)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ContextValue" j
    let to_json = simple_to_json to_value
  end
module DestinationCountryParameterKey =
  struct
    type nonrec t =
      | IN_TEMPLATE_ID 
      | IN_ENTITY_ID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_TEMPLATE_ID -> "IN_TEMPLATE_ID"
      | IN_ENTITY_ID -> "IN_ENTITY_ID"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_TEMPLATE_ID" -> IN_TEMPLATE_ID
      | "IN_ENTITY_ID" -> IN_ENTITY_ID
      | 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 DestinationCountryParameterKey"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DestinationCountryParameterKey" j)
    let to_json = simple_to_json to_value
  end
module DestinationCountryParameterValue =
  struct
    type nonrec t = string
    let context_ = "DestinationCountryParameterValue"
    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:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DestinationCountryParameterValue" j
    let to_json = simple_to_json to_value
  end
module TemplateVariableName =
  struct
    type nonrec t = string
    let context_ = "TemplateVariableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_]+")));
        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:"TemplateVariableName" j
    let to_json = simple_to_json to_value
  end
module TemplateVariableValue =
  struct
    type nonrec t = string
    let context_ = "TemplateVariableValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"TemplateVariableValue" j
    let to_json = simple_to_json to_value
  end
module MediaUrlValue =
  struct
    type nonrec t = string
    let context_ = "MediaUrlValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"s3://([a-z0-9\\.-]{3,63})/(.+)")));
        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:"MediaUrlValue" j
    let to_json = simple_to_json to_value
  end
module RegistrationAssociationMetadata =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the origination identity that is associated with the registration."];
      resourceId: String_.t option
        [@ocaml.doc
          "The unique identifier for the origination identity. For example this could be a PhoneNumberId or SenderId."];
      resourceType: String_.t option
        [@ocaml.doc "The origination identity type."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The phone number associated with the registration in E.164 format."]}
    let make ?resourceArn =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?isoCountryCode ->
            fun ?phoneNumber ->
              fun () ->
                {
                  resourceArn;
                  resourceId;
                  resourceType;
                  isoCountryCode;
                  phoneNumber
                }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?phoneNumber ?isoCountryCode ?resourceType ?resourceId
        ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      make ?phoneNumber ?isoCountryCode ?resourceType ?resourceId
        ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Metadata for the origination identity that is associated with the registration."]
module RegistrationAssociationFilter =
  struct
    type nonrec t =
      {
      name: RegistrationAssociationFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter for."]}
    let context_ = "RegistrationAssociationFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (RegistrationAssociationFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        RegistrationAssociationFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" RegistrationAssociationFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering registrations that meets a specified criteria."]
module ProtectConfigurationRuleSetNumberOverride =
  struct
    type nonrec t =
      {
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc "The destination phone number in E.164 format."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the rule was created, in UNIX epoch time format."];
      action: ProtectConfigurationRuleOverrideAction.t option
        [@ocaml.doc
          "The action for the rule to perform of either blocking or allowing messages to the destination phone number."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      expirationTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time the rule will expire at. If ExpirationTimestamp is not set then the rule will not expire."]}
    let make ?destinationPhoneNumber =
      fun ?createdTimestamp ->
        fun ?action ->
          fun ?isoCountryCode ->
            fun ?expirationTimestamp ->
              fun () ->
                {
                  destinationPhoneNumber;
                  createdTimestamp;
                  action;
                  isoCountryCode;
                  expirationTimestamp
                }
    let to_value x =
      structure_to_value
        [("DestinationPhoneNumber",
           (Option.map x.destinationPhoneNumber ~f:PhoneNumber.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("Action",
          (Option.map x.action
             ~f:ProtectConfigurationRuleOverrideAction.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("ExpirationTimestamp",
          (Option.map x.expirationTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTimestamp") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let action =
        (Option.map ~f:ProtectConfigurationRuleOverrideAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      make ?expirationTimestamp ?isoCountryCode ?action ?createdTimestamp
        ?destinationPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTimestamp =
        field_map json__ "ExpirationTimestamp" Timestamp.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let action =
        field_map json__ "Action"
          ProtectConfigurationRuleOverrideAction.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      make ?expirationTimestamp ?isoCountryCode ?action ?createdTimestamp
        ?destinationPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides details on phone number rule overrides for a protect configuration."]
module ProtectConfigurationRuleSetNumberOverrideFilterItem =
  struct
    type nonrec t =
      {
      name: ProtectConfigurationRuleSetNumberOverrideFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "ProtectConfigurationRuleSetNumberOverrideFilterItem"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name",
           (Some
              (ProtectConfigurationRuleSetNumberOverrideFilterName.to_value
                 x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        ProtectConfigurationRuleSetNumberOverrideFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name"
          ProtectConfigurationRuleSetNumberOverrideFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a protect configuration rule set number override that meets a specified criteria."]
module OriginationIdentityMetadata =
  struct
    type nonrec t =
      {
      originationIdentityArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with the origination identity."];
      originationIdentity: String_.t option
        [@ocaml.doc "The unique identifier of the origination identity."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region. This field is optional and may not be present for origination identity types that are not country-specific, such as RCS agents."];
      numberCapabilities: NumberCapabilityList.t option
        [@ocaml.doc
          "Describes if the origination identity can be used for text messages, voice calls or both."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number in E.164 format."]}
    let make ?originationIdentityArn =
      fun ?originationIdentity ->
        fun ?isoCountryCode ->
          fun ?numberCapabilities ->
            fun ?phoneNumber ->
              fun () ->
                {
                  originationIdentityArn;
                  originationIdentity;
                  isoCountryCode;
                  numberCapabilities;
                  phoneNumber
                }
    let to_value x =
      structure_to_value
        [("OriginationIdentityArn",
           (Option.map x.originationIdentityArn ~f:String_.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity ~f:String_.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("NumberCapabilities",
          (Option.map x.numberCapabilities ~f:NumberCapabilityList.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let numberCapabilities =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "NumberCapabilities") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let originationIdentity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let originationIdentityArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentityArn") in
      make ?phoneNumber ?numberCapabilities ?isoCountryCode
        ?originationIdentity ?originationIdentityArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let numberCapabilities =
        field_map json__ "NumberCapabilities" NumberCapabilityList.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity" String_.of_json in
      let originationIdentityArn =
        field_map json__ "OriginationIdentityArn" String_.of_json in
      make ?phoneNumber ?numberCapabilities ?isoCountryCode
        ?originationIdentity ?originationIdentityArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata for an origination identity associated with a pool."]
module PoolOriginationIdentitiesFilter =
  struct
    type nonrec t =
      {
      name: PoolOriginationIdentitiesFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "PoolOriginationIdentitiesFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name",
           (Some (PoolOriginationIdentitiesFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        PoolOriginationIdentitiesFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name"
          PoolOriginationIdentitiesFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about origination identities associated with a pool that meets a specified criteria."]
module NotifyCountryInformation =
  struct
    type nonrec t =
      {
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      countryName: String_.t option [@ocaml.doc "The name of the country."];
      supportedChannels: NotifyEnabledChannelsList.t option
        [@ocaml.doc
          "An array of supported channels for the country. Supported values include SMS and VOICE."];
      supportedUseCases: NotifyUseCaseList.t option
        [@ocaml.doc "An array of supported use cases for the country."];
      supportedTiers: NotifyTierList.t option
        [@ocaml.doc "An array of supported tiers for the country."];
      customerOwnedIdentityRequired: PrimitiveBoolean.t option
        [@ocaml.doc
          "Whether a customer-owned identity is required to send notify messages to this country."]}
    let make ?isoCountryCode =
      fun ?countryName ->
        fun ?supportedChannels ->
          fun ?supportedUseCases ->
            fun ?supportedTiers ->
              fun ?customerOwnedIdentityRequired ->
                fun () ->
                  {
                    isoCountryCode;
                    countryName;
                    supportedChannels;
                    supportedUseCases;
                    supportedTiers;
                    customerOwnedIdentityRequired
                  }
    let to_value x =
      structure_to_value
        [("IsoCountryCode",
           (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("CountryName", (Option.map x.countryName ~f:String_.to_value));
        ("SupportedChannels",
          (Option.map x.supportedChannels
             ~f:NotifyEnabledChannelsList.to_value));
        ("SupportedUseCases",
          (Option.map x.supportedUseCases ~f:NotifyUseCaseList.to_value));
        ("SupportedTiers",
          (Option.map x.supportedTiers ~f:NotifyTierList.to_value));
        ("CustomerOwnedIdentityRequired",
          (Option.map x.customerOwnedIdentityRequired
             ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerOwnedIdentityRequired =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "CustomerOwnedIdentityRequired") in
      let supportedTiers =
        (Option.map ~f:NotifyTierList.of_xml)
          (Xml.child xml_arg0 "SupportedTiers") in
      let supportedUseCases =
        (Option.map ~f:NotifyUseCaseList.of_xml)
          (Xml.child xml_arg0 "SupportedUseCases") in
      let supportedChannels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "SupportedChannels") in
      let countryName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CountryName") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      make ?customerOwnedIdentityRequired ?supportedTiers ?supportedUseCases
        ?supportedChannels ?countryName ?isoCountryCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerOwnedIdentityRequired =
        field_map json__ "CustomerOwnedIdentityRequired"
          PrimitiveBoolean.of_json in
      let supportedTiers =
        field_map json__ "SupportedTiers" NotifyTierList.of_json in
      let supportedUseCases =
        field_map json__ "SupportedUseCases" NotifyUseCaseList.of_json in
      let supportedChannels =
        field_map json__ "SupportedChannels"
          NotifyEnabledChannelsList.of_json in
      let countryName = field_map json__ "CountryName" String_.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      make ?customerOwnedIdentityRequired ?supportedTiers ?supportedUseCases
        ?supportedChannels ?countryName ?isoCountryCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a country that supports notify messaging."]
module VerifiedDestinationNumberInformation =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the verified destination phone number."];
      verifiedDestinationNumberId: String_.t option
        [@ocaml.doc
          "The unique identifier for the verified destination phone number."];
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The verified destination phone number, in E.164 format."];
      status: VerificationStatus.t option
        [@ocaml.doc
          "The status of the verified destination phone number. PENDING: The phone number hasn't been verified yet. VERIFIED: The phone number is verified and can receive messages."];
      rcsAgentId: String_.t option
        [@ocaml.doc
          "The unique identifier of the RCS agent associated with the verified destination number."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the destination phone number was created, in UNIX epoch time format."]}
    let make ?verifiedDestinationNumberArn =
      fun ?verifiedDestinationNumberId ->
        fun ?destinationPhoneNumber ->
          fun ?status ->
            fun ?rcsAgentId ->
              fun ?createdTimestamp ->
                fun () ->
                  {
                    verifiedDestinationNumberArn;
                    verifiedDestinationNumberId;
                    destinationPhoneNumber;
                    status;
                    rcsAgentId;
                    createdTimestamp
                  }
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberArn",
           (Option.map x.verifiedDestinationNumberArn ~f:String_.to_value));
        ("VerifiedDestinationNumberId",
          (Option.map x.verifiedDestinationNumberId ~f:String_.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:VerificationStatus.to_value));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.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 rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      let status =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let verifiedDestinationNumberId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberId") in
      let verifiedDestinationNumberArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberArn") in
      make ?createdTimestamp ?rcsAgentId ?status ?destinationPhoneNumber
        ?verifiedDestinationNumberId ?verifiedDestinationNumberArn ()
    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 rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      let status = field_map json__ "Status" VerificationStatus.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let verifiedDestinationNumberId =
        field_map json__ "VerifiedDestinationNumberId" String_.of_json in
      let verifiedDestinationNumberArn =
        field_map json__ "VerifiedDestinationNumberArn" String_.of_json in
      make ?createdTimestamp ?rcsAgentId ?status ?destinationPhoneNumber
        ?verifiedDestinationNumberId ?verifiedDestinationNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about the requested verified destintion phone number."]
module VerifiedDestinationNumberFilter =
  struct
    type nonrec t =
      {
      name: VerifiedDestinationNumberFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter on."]}
    let context_ = "VerifiedDestinationNumberFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name",
           (Some (VerifiedDestinationNumberFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        VerifiedDestinationNumberFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name"
          VerifiedDestinationNumberFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering verified destination phone numbers that meets a specified criteria."]
module VerifiedDestinationNumberIdOrArn =
  struct
    type nonrec t = string
    let context_ = "VerifiedDestinationNumberIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VerifiedDestinationNumberIdOrArn" j
    let to_json = simple_to_json to_value
  end
module SpendLimit =
  struct
    type nonrec t =
      {
      name: SpendLimitName.t option
        [@ocaml.doc "The name for the SpendLimit."];
      enforcedLimit: PrimitiveLong.t option
        [@ocaml.doc
          "The maximum amount of money, in US dollars, that you want to be able to spend sending messages each month. This value has to be less than or equal to the amount in MaxLimit. To use this custom limit, Overridden must be set to true."];
      maxLimit: PrimitiveLong.t option
        [@ocaml.doc
          "The maximum amount of money that you are able to spend to send messages each month, in US dollars."];
      overridden: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to True, the value that has been specified in the EnforcedLimit is used to determine the maximum amount in US dollars that can be spent to send messages each month, in US dollars."]}
    let make ?name =
      fun ?enforcedLimit ->
        fun ?maxLimit ->
          fun ?overridden ->
            fun () -> { name; enforcedLimit; maxLimit; overridden }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:SpendLimitName.to_value));
        ("EnforcedLimit",
          (Option.map x.enforcedLimit ~f:PrimitiveLong.to_value));
        ("MaxLimit", (Option.map x.maxLimit ~f:PrimitiveLong.to_value));
        ("Overridden",
          (Option.map x.overridden ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overridden =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Overridden") in
      let maxLimit =
        (Option.map ~f:PrimitiveLong.of_xml) (Xml.child xml_arg0 "MaxLimit") in
      let enforcedLimit =
        (Option.map ~f:PrimitiveLong.of_xml)
          (Xml.child xml_arg0 "EnforcedLimit") in
      let name =
        (Option.map ~f:SpendLimitName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?overridden ?maxLimit ?enforcedLimit ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overridden = field_map json__ "Overridden" PrimitiveBoolean.of_json in
      let maxLimit = field_map json__ "MaxLimit" PrimitiveLong.of_json in
      let enforcedLimit =
        field_map json__ "EnforcedLimit" PrimitiveLong.of_json in
      let name = field_map json__ "Name" SpendLimitName.of_json in
      make ?overridden ?maxLimit ?enforcedLimit ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current monthly spend limits for sending voice and text messages. For more information on increasing your monthly spend limit, see Requesting a spending quota increase in the End User Messaging SMS User Guide."]
module SenderIdInformation =
  struct
    type nonrec t =
      {
      senderIdArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with the SenderId."];
      senderId: SenderId.t option
        [@ocaml.doc
          "The alphanumeric sender ID in a specific country that you'd like to describe."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageTypes: MessageTypeList.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc "The monthly leasing price, in US dollars."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the sender ID can't be deleted."];
      registered: PrimitiveBoolean.t option
        [@ocaml.doc "True if the sender ID is registered."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."]}
    let make ?senderIdArn =
      fun ?senderId ->
        fun ?isoCountryCode ->
          fun ?messageTypes ->
            fun ?monthlyLeasingPrice ->
              fun ?deletionProtectionEnabled ->
                fun ?registered ->
                  fun ?registrationId ->
                    fun () ->
                      {
                        senderIdArn;
                        senderId;
                        isoCountryCode;
                        messageTypes;
                        monthlyLeasingPrice;
                        deletionProtectionEnabled;
                        registered;
                        registrationId
                      }
    let to_value x =
      structure_to_value
        [("SenderIdArn", (Option.map x.senderIdArn ~f:String_.to_value));
        ("SenderId", (Option.map x.senderId ~f:SenderId.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageTypes",
          (Option.map x.messageTypes ~f:MessageTypeList.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("Registered",
          (Option.map x.registered ~f:PrimitiveBoolean.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registered =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Registered") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let messageTypes =
        (Option.map ~f:MessageTypeList.of_xml)
          (Xml.child xml_arg0 "MessageTypes") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let senderId =
        (Option.map ~f:SenderId.of_xml) (Xml.child xml_arg0 "SenderId") in
      let senderIdArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SenderIdArn") in
      make ?registrationId ?registered ?deletionProtectionEnabled
        ?monthlyLeasingPrice ?messageTypes ?isoCountryCode ?senderId
        ?senderIdArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registered = field_map json__ "Registered" PrimitiveBoolean.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let messageTypes =
        field_map json__ "MessageTypes" MessageTypeList.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map json__ "SenderId" SenderId.of_json in
      let senderIdArn = field_map json__ "SenderIdArn" String_.of_json in
      make ?registrationId ?registered ?deletionProtectionEnabled
        ?monthlyLeasingPrice ?messageTypes ?isoCountryCode ?senderId
        ?senderIdArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for all SenderIds in an Amazon Web Services account."]
module SenderIdFilter =
  struct
    type nonrec t =
      {
      name: SenderIdFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter for."]}
    let context_ = "SenderIdFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (SenderIdFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        SenderIdFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" SenderIdFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a sender ID that meets a specified criteria."]
module SenderIdAndCountry =
  struct
    type nonrec t =
      {
      senderId: SenderIdOrArn.t
        [@ocaml.doc "The unique identifier of the sender."];
      isoCountryCode: IsoCountryCode.t
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."]}
    let context_ = "SenderIdAndCountry"
    let make ~senderId =
      fun ~isoCountryCode -> fun () -> { senderId; isoCountryCode }
    let to_value x =
      structure_to_value
        [("SenderId", (Some (SenderIdOrArn.to_value x.senderId)));
        ("IsoCountryCode", (Some (IsoCountryCode.to_value x.isoCountryCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isoCountryCode =
        IsoCountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsoCountryCode") in
      let senderId =
        SenderIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SenderId") in
      make ~isoCountryCode ~senderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isoCountryCode =
        field_map_exn json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map_exn json__ "SenderId" SenderIdOrArn.of_json in
      make ~isoCountryCode ~senderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The alphanumeric sender ID in a specific country that you want to describe. For more information on sender IDs see Requesting sender IDs in the End User Messaging SMS User Guide."]
module RegistrationInformation =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      registrationStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The status of the registration. CLOSED: The phone number or sender ID has been deleted and you must also delete the registration for the number. CREATED: Your registration is created but not submitted. COMPLETE: Your registration has been approved and your origination identity has been created. DELETED: The registration has been deleted. PROVISIONING: Your registration has been approved and your origination identity is being created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REQUIRES_UPDATES: You must fix your registration and resubmit it. REVIEWING: Your registration has been accepted and is being reviewed. SUBMITTED: Your registration has been submitted and is awaiting review."];
      currentVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The current version number of the registration."];
      approvedVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc
          "The version number of the registration that was approved."];
      latestDeniedVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc
          "The latest version number of the registration that was denied."];
      additionalAttributes: StringMap.t option
        [@ocaml.doc
          "Metadata about a given registration which is specific to that registration type."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was created, in UNIX epoch time format."]}
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?registrationType ->
          fun ?registrationStatus ->
            fun ?currentVersionNumber ->
              fun ?approvedVersionNumber ->
                fun ?latestDeniedVersionNumber ->
                  fun ?additionalAttributes ->
                    fun ?createdTimestamp ->
                      fun () ->
                        {
                          registrationArn;
                          registrationId;
                          registrationType;
                          registrationStatus;
                          currentVersionNumber;
                          approvedVersionNumber;
                          latestDeniedVersionNumber;
                          additionalAttributes;
                          createdTimestamp
                        }
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("RegistrationType",
          (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("RegistrationStatus",
          (Option.map x.registrationStatus ~f:RegistrationStatus.to_value));
        ("CurrentVersionNumber",
          (Option.map x.currentVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("ApprovedVersionNumber",
          (Option.map x.approvedVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("LatestDeniedVersionNumber",
          (Option.map x.latestDeniedVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("AdditionalAttributes",
          (Option.map x.additionalAttributes ~f:StringMap.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 additionalAttributes =
        (Option.map ~f:StringMap.of_xml)
          (Xml.child xml_arg0 "AdditionalAttributes") in
      let latestDeniedVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "LatestDeniedVersionNumber") in
      let approvedVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "ApprovedVersionNumber") in
      let currentVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "CurrentVersionNumber") in
      let registrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationStatus") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?createdTimestamp ?additionalAttributes ?latestDeniedVersionNumber
        ?approvedVersionNumber ?currentVersionNumber ?registrationStatus
        ?registrationType ?registrationId ?registrationArn ()
    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 additionalAttributes =
        field_map json__ "AdditionalAttributes" StringMap.of_json in
      let latestDeniedVersionNumber =
        field_map json__ "LatestDeniedVersionNumber"
          RegistrationVersionNumber.of_json in
      let approvedVersionNumber =
        field_map json__ "ApprovedVersionNumber"
          RegistrationVersionNumber.of_json in
      let currentVersionNumber =
        field_map json__ "CurrentVersionNumber"
          RegistrationVersionNumber.of_json in
      let registrationStatus =
        field_map json__ "RegistrationStatus" RegistrationStatus.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?createdTimestamp ?additionalAttributes ?latestDeniedVersionNumber
        ?approvedVersionNumber ?currentVersionNumber ?registrationStatus
        ?registrationType ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides information about the requested registration."]
module RegistrationFilter =
  struct
    type nonrec t =
      {
      name: RegistrationFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter on."]}
    let context_ = "RegistrationFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (RegistrationFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        RegistrationFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" RegistrationFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering registrations that meets a specified criteria."]
module RegistrationIdOrArn =
  struct
    type nonrec t = string
    let context_ = "RegistrationIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegistrationIdOrArn" j
    let to_json = simple_to_json to_value
  end
module RegistrationVersionInformation =
  struct
    type nonrec t =
      {
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The version number of the registration."];
      registrationVersionStatus: RegistrationVersionStatus.t option
        [@ocaml.doc
          "The status of the registration. APPROVED: Your registration has been approved. ARCHIVED: Your previously approved registration version moves into this status when a more recently submitted version is approved. DENIED: You must fix your registration and resubmit it. DISCARDED: You've abandon this version of their registration to start over with a new version. DRAFT: The initial status of a registration version after it\226\128\153s created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REVIEWING: Your registration has been accepted and is being reviewed. REVOKED: Your previously approved registration has been revoked. SUBMITTED: Your registration has been submitted."];
      registrationVersionStatusHistory:
        RegistrationVersionStatusHistory.t option
        [@ocaml.doc
          "The RegistrationVersionStatusHistory object contains the time stamps for when the reservations status changes."];
      deniedReasons: RegistrationDeniedReasonInformationList.t option
        [@ocaml.doc
          "An array of RegistrationDeniedReasonInformation objects."];
      feedback: String_.t option
        [@ocaml.doc
          "Generative AI feedback information provided during the registration review process. This includes comments, suggestions, or additional requirements."]}
    let make ?versionNumber =
      fun ?registrationVersionStatus ->
        fun ?registrationVersionStatusHistory ->
          fun ?deniedReasons ->
            fun ?feedback ->
              fun () ->
                {
                  versionNumber;
                  registrationVersionStatus;
                  registrationVersionStatusHistory;
                  deniedReasons;
                  feedback
                }
    let to_value x =
      structure_to_value
        [("VersionNumber",
           (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("RegistrationVersionStatus",
          (Option.map x.registrationVersionStatus
             ~f:RegistrationVersionStatus.to_value));
        ("RegistrationVersionStatusHistory",
          (Option.map x.registrationVersionStatusHistory
             ~f:RegistrationVersionStatusHistory.to_value));
        ("DeniedReasons",
          (Option.map x.deniedReasons
             ~f:RegistrationDeniedReasonInformationList.to_value));
        ("Feedback", (Option.map x.feedback ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let feedback =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Feedback") in
      let deniedReasons =
        (Option.map ~f:RegistrationDeniedReasonInformationList.of_xml)
          (Xml.child xml_arg0 "DeniedReasons") in
      let registrationVersionStatusHistory =
        (Option.map ~f:RegistrationVersionStatusHistory.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatusHistory") in
      let registrationVersionStatus =
        (Option.map ~f:RegistrationVersionStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatus") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      make ?feedback ?deniedReasons ?registrationVersionStatusHistory
        ?registrationVersionStatus ?versionNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let feedback = field_map json__ "Feedback" String_.of_json in
      let deniedReasons =
        field_map json__ "DeniedReasons"
          RegistrationDeniedReasonInformationList.of_json in
      let registrationVersionStatusHistory =
        field_map json__ "RegistrationVersionStatusHistory"
          RegistrationVersionStatusHistory.of_json in
      let registrationVersionStatus =
        field_map json__ "RegistrationVersionStatus"
          RegistrationVersionStatus.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      make ?feedback ?deniedReasons ?registrationVersionStatusHistory
        ?registrationVersionStatus ?versionNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about the specified version of the registration."]
module RegistrationVersionFilter =
  struct
    type nonrec t =
      {
      name: RegistrationVersionFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter on."]}
    let context_ = "RegistrationVersionFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (RegistrationVersionFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        RegistrationVersionFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" RegistrationVersionFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering registration versions that meets a specified criteria."]
module RegistrationTypeDefinition =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      supportedAssociations: SupportedAssociationList.t option
        [@ocaml.doc
          "The supported association behavior for the registration type."];
      displayHints: RegistrationTypeDisplayHints.t option
        [@ocaml.doc "Provides help information on the registration."]}
    let make ?registrationType =
      fun ?supportedAssociations ->
        fun ?displayHints ->
          fun () -> { registrationType; supportedAssociations; displayHints }
    let to_value x =
      structure_to_value
        [("RegistrationType",
           (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("SupportedAssociations",
          (Option.map x.supportedAssociations
             ~f:SupportedAssociationList.to_value));
        ("DisplayHints",
          (Option.map x.displayHints ~f:RegistrationTypeDisplayHints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayHints =
        (Option.map ~f:RegistrationTypeDisplayHints.of_xml)
          (Xml.child xml_arg0 "DisplayHints") in
      let supportedAssociations =
        (Option.map ~f:SupportedAssociationList.of_xml)
          (Xml.child xml_arg0 "SupportedAssociations") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      make ?displayHints ?supportedAssociations ?registrationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayHints =
        field_map json__ "DisplayHints" RegistrationTypeDisplayHints.of_json in
      let supportedAssociations =
        field_map json__ "SupportedAssociations"
          SupportedAssociationList.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      make ?displayHints ?supportedAssociations ?registrationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides information on the supported registration type."]
module RegistrationTypeFilter =
  struct
    type nonrec t =
      {
      name: RegistrationTypeFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter on."]}
    let context_ = "RegistrationTypeFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (RegistrationTypeFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        RegistrationTypeFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" RegistrationTypeFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering registration types that meets a specified criteria."]
module RegistrationSectionDefinition =
  struct
    type nonrec t =
      {
      sectionPath: SectionPath.t option
        [@ocaml.doc "The path to the section of the registration."];
      displayHints: RegistrationSectionDisplayHints.t option
        [@ocaml.doc "The path to the section of the registration."]}
    let make ?sectionPath =
      fun ?displayHints -> fun () -> { sectionPath; displayHints }
    let to_value x =
      structure_to_value
        [("SectionPath", (Option.map x.sectionPath ~f:SectionPath.to_value));
        ("DisplayHints",
          (Option.map x.displayHints
             ~f:RegistrationSectionDisplayHints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayHints =
        (Option.map ~f:RegistrationSectionDisplayHints.of_xml)
          (Xml.child xml_arg0 "DisplayHints") in
      let sectionPath =
        (Option.map ~f:SectionPath.of_xml) (Xml.child xml_arg0 "SectionPath") in
      make ?displayHints ?sectionPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayHints =
        field_map json__ "DisplayHints"
          RegistrationSectionDisplayHints.of_json in
      let sectionPath = field_map json__ "SectionPath" SectionPath.of_json in
      make ?displayHints ?sectionPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information on the specified section definition."]
module RegistrationFieldValueInformation =
  struct
    type nonrec t =
      {
      fieldPath: FieldPath.t option
        [@ocaml.doc
          "The path to the registration form field. You can use DescribeRegistrationFieldDefinitions for a list of FieldPaths."];
      selectChoices: SelectChoiceList.t option
        [@ocaml.doc "An array of values for the form field."];
      textValue: TextValue.t option
        [@ocaml.doc "The text data for a free form field."];
      registrationAttachmentId: RegistrationAttachmentIdOrArn.t option
        [@ocaml.doc "The unique identifier for the registration attachment."];
      deniedReason: String_.t option
        [@ocaml.doc "A description of why the registration was denied."];
      feedback: String_.t option
        [@ocaml.doc
          "Generative AI feedback information provided for this specific field during the registration review process. This may include validation errors, suggestions for improvement, or additional requirements."]}
    let make ?fieldPath =
      fun ?selectChoices ->
        fun ?textValue ->
          fun ?registrationAttachmentId ->
            fun ?deniedReason ->
              fun ?feedback ->
                fun () ->
                  {
                    fieldPath;
                    selectChoices;
                    textValue;
                    registrationAttachmentId;
                    deniedReason;
                    feedback
                  }
    let to_value x =
      structure_to_value
        [("FieldPath", (Option.map x.fieldPath ~f:FieldPath.to_value));
        ("SelectChoices",
          (Option.map x.selectChoices ~f:SelectChoiceList.to_value));
        ("TextValue", (Option.map x.textValue ~f:TextValue.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId
             ~f:RegistrationAttachmentIdOrArn.to_value));
        ("DeniedReason", (Option.map x.deniedReason ~f:String_.to_value));
        ("Feedback", (Option.map x.feedback ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let feedback =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Feedback") in
      let deniedReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DeniedReason") in
      let registrationAttachmentId =
        (Option.map ~f:RegistrationAttachmentIdOrArn.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let textValue =
        (Option.map ~f:TextValue.of_xml) (Xml.child xml_arg0 "TextValue") in
      let selectChoices =
        (Option.map ~f:SelectChoiceList.of_xml)
          (Xml.child xml_arg0 "SelectChoices") in
      let fieldPath =
        (Option.map ~f:FieldPath.of_xml) (Xml.child xml_arg0 "FieldPath") in
      make ?feedback ?deniedReason ?registrationAttachmentId ?textValue
        ?selectChoices ?fieldPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let feedback = field_map json__ "Feedback" String_.of_json in
      let deniedReason = field_map json__ "DeniedReason" String_.of_json in
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId"
          RegistrationAttachmentIdOrArn.of_json in
      let textValue = field_map json__ "TextValue" TextValue.of_json in
      let selectChoices =
        field_map json__ "SelectChoices" SelectChoiceList.of_json in
      let fieldPath = field_map json__ "FieldPath" FieldPath.of_json in
      make ?feedback ?deniedReason ?registrationAttachmentId ?textValue
        ?selectChoices ?fieldPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the values of the specified field."]
module RegistrationFieldDefinition =
  struct
    type nonrec t =
      {
      sectionPath: SectionPath.t option
        [@ocaml.doc "The section path of the field."];
      fieldPath: FieldPath.t option
        [@ocaml.doc
          "The path to the registration form field. You can use DescribeRegistrationFieldDefinitions for a list of FieldPaths."];
      fieldType: FieldType.t option [@ocaml.doc "The type of field."];
      fieldRequirement: FieldRequirement.t option
        [@ocaml.doc
          "Specifies if the field for the registration form is required, conditional or optional."];
      selectValidation: SelectValidation.t option
        [@ocaml.doc "The validation rules for a select field."];
      textValidation: TextValidation.t option
        [@ocaml.doc "The validation rules for a text field."];
      displayHints: RegistrationFieldDisplayHints.t option
        [@ocaml.doc
          "An array of RegistrationFieldDisplayHints objects for the field."]}
    let make ?sectionPath =
      fun ?fieldPath ->
        fun ?fieldType ->
          fun ?fieldRequirement ->
            fun ?selectValidation ->
              fun ?textValidation ->
                fun ?displayHints ->
                  fun () ->
                    {
                      sectionPath;
                      fieldPath;
                      fieldType;
                      fieldRequirement;
                      selectValidation;
                      textValidation;
                      displayHints
                    }
    let to_value x =
      structure_to_value
        [("SectionPath", (Option.map x.sectionPath ~f:SectionPath.to_value));
        ("FieldPath", (Option.map x.fieldPath ~f:FieldPath.to_value));
        ("FieldType", (Option.map x.fieldType ~f:FieldType.to_value));
        ("FieldRequirement",
          (Option.map x.fieldRequirement ~f:FieldRequirement.to_value));
        ("SelectValidation",
          (Option.map x.selectValidation ~f:SelectValidation.to_value));
        ("TextValidation",
          (Option.map x.textValidation ~f:TextValidation.to_value));
        ("DisplayHints",
          (Option.map x.displayHints
             ~f:RegistrationFieldDisplayHints.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayHints =
        (Option.map ~f:RegistrationFieldDisplayHints.of_xml)
          (Xml.child xml_arg0 "DisplayHints") in
      let textValidation =
        (Option.map ~f:TextValidation.of_xml)
          (Xml.child xml_arg0 "TextValidation") in
      let selectValidation =
        (Option.map ~f:SelectValidation.of_xml)
          (Xml.child xml_arg0 "SelectValidation") in
      let fieldRequirement =
        (Option.map ~f:FieldRequirement.of_xml)
          (Xml.child xml_arg0 "FieldRequirement") in
      let fieldType =
        (Option.map ~f:FieldType.of_xml) (Xml.child xml_arg0 "FieldType") in
      let fieldPath =
        (Option.map ~f:FieldPath.of_xml) (Xml.child xml_arg0 "FieldPath") in
      let sectionPath =
        (Option.map ~f:SectionPath.of_xml) (Xml.child xml_arg0 "SectionPath") in
      make ?displayHints ?textValidation ?selectValidation ?fieldRequirement
        ?fieldType ?fieldPath ?sectionPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayHints =
        field_map json__ "DisplayHints" RegistrationFieldDisplayHints.of_json in
      let textValidation =
        field_map json__ "TextValidation" TextValidation.of_json in
      let selectValidation =
        field_map json__ "SelectValidation" SelectValidation.of_json in
      let fieldRequirement =
        field_map json__ "FieldRequirement" FieldRequirement.of_json in
      let fieldType = field_map json__ "FieldType" FieldType.of_json in
      let fieldPath = field_map json__ "FieldPath" FieldPath.of_json in
      let sectionPath = field_map json__ "SectionPath" SectionPath.of_json in
      make ?displayHints ?textValidation ?selectValidation ?fieldRequirement
        ?fieldType ?fieldPath ?sectionPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides a description of the specified field."]
module RegistrationAttachmentsInformation =
  struct
    type nonrec t =
      {
      registrationAttachmentArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the registration attachment."];
      registrationAttachmentId: String_.t option
        [@ocaml.doc "The unique identifier for the registration attachment."];
      attachmentStatus: AttachmentStatus.t option
        [@ocaml.doc
          "The status of the registration attachment. UPLOAD_IN_PROGRESS The attachment is being uploaded. UPLOAD_COMPLETE The attachment has been uploaded. UPLOAD_FAILED The attachment failed to uploaded. DELETED The attachment has been deleted.."];
      attachmentUploadErrorReason: AttachmentUploadErrorReason.t option
        [@ocaml.doc
          "A description of why the upload didn't successfully complete."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration attachment was created, in UNIX epoch time format."];
      attachmentUrl: String_.t option
        [@ocaml.doc
          "The URL to the document that's associated with the registration attachment."]}
    let make ?registrationAttachmentArn =
      fun ?registrationAttachmentId ->
        fun ?attachmentStatus ->
          fun ?attachmentUploadErrorReason ->
            fun ?createdTimestamp ->
              fun ?attachmentUrl ->
                fun () ->
                  {
                    registrationAttachmentArn;
                    registrationAttachmentId;
                    attachmentStatus;
                    attachmentUploadErrorReason;
                    createdTimestamp;
                    attachmentUrl
                  }
    let to_value x =
      structure_to_value
        [("RegistrationAttachmentArn",
           (Option.map x.registrationAttachmentArn ~f:String_.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId ~f:String_.to_value));
        ("AttachmentStatus",
          (Option.map x.attachmentStatus ~f:AttachmentStatus.to_value));
        ("AttachmentUploadErrorReason",
          (Option.map x.attachmentUploadErrorReason
             ~f:AttachmentUploadErrorReason.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("AttachmentUrl", (Option.map x.attachmentUrl ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AttachmentUrl") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let attachmentUploadErrorReason =
        (Option.map ~f:AttachmentUploadErrorReason.of_xml)
          (Xml.child xml_arg0 "AttachmentUploadErrorReason") in
      let attachmentStatus =
        (Option.map ~f:AttachmentStatus.of_xml)
          (Xml.child xml_arg0 "AttachmentStatus") in
      let registrationAttachmentId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let registrationAttachmentArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentArn") in
      make ?attachmentUrl ?createdTimestamp ?attachmentUploadErrorReason
        ?attachmentStatus ?registrationAttachmentId
        ?registrationAttachmentArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentUrl = field_map json__ "AttachmentUrl" String_.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let attachmentUploadErrorReason =
        field_map json__ "AttachmentUploadErrorReason"
          AttachmentUploadErrorReason.of_json in
      let attachmentStatus =
        field_map json__ "AttachmentStatus" AttachmentStatus.of_json in
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId" String_.of_json in
      let registrationAttachmentArn =
        field_map json__ "RegistrationAttachmentArn" String_.of_json in
      make ?attachmentUrl ?createdTimestamp ?attachmentUploadErrorReason
        ?attachmentStatus ?registrationAttachmentId
        ?registrationAttachmentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information on the specified registration attachments."]
module RegistrationAttachmentFilter =
  struct
    type nonrec t =
      {
      name: RegistrationAttachmentFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter on."]}
    let context_ = "RegistrationAttachmentFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (RegistrationAttachmentFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        RegistrationAttachmentFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" RegistrationAttachmentFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering registration attachments that meets a specified criteria."]
module RcsAgentInformation =
  struct
    type nonrec t =
      {
      rcsAgentArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the RCS agent."];
      rcsAgentId: String_.t option
        [@ocaml.doc "The unique identifier for the RCS agent."];
      status: RcsAgentStatus.t option
        [@ocaml.doc "The current status of the RCS agent."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the RCS agent was created, in UNIX epoch time format."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc "When set to true the RCS agent can't be deleted."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList associated with the RCS agent."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true you can receive incoming text messages from your end recipients using the TwoWayChannelArn."];
      poolId: String_.t option
        [@ocaml.doc
          "The unique identifier of the pool associated with the RCS agent."];
      testingAgent: TestingAgentInformation.t option
        [@ocaml.doc
          "The testing agent information associated with the RCS agent."]}
    let make ?rcsAgentArn =
      fun ?rcsAgentId ->
        fun ?status ->
          fun ?createdTimestamp ->
            fun ?deletionProtectionEnabled ->
              fun ?optOutListName ->
                fun ?selfManagedOptOutsEnabled ->
                  fun ?twoWayChannelArn ->
                    fun ?twoWayChannelRole ->
                      fun ?twoWayEnabled ->
                        fun ?poolId ->
                          fun ?testingAgent ->
                            fun () ->
                              {
                                rcsAgentArn;
                                rcsAgentId;
                                status;
                                createdTimestamp;
                                deletionProtectionEnabled;
                                optOutListName;
                                selfManagedOptOutsEnabled;
                                twoWayChannelArn;
                                twoWayChannelRole;
                                twoWayEnabled;
                                poolId;
                                testingAgent
                              }
    let to_value x =
      structure_to_value
        [("RcsAgentArn", (Option.map x.rcsAgentArn ~f:String_.to_value));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:RcsAgentStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("TestingAgent",
          (Option.map x.testingAgent ~f:TestingAgentInformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let testingAgent =
        (Option.map ~f:TestingAgentInformation.of_xml)
          (Xml.child xml_arg0 "TestingAgent") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let status =
        (Option.map ~f:RcsAgentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      let rcsAgentArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentArn") in
      make ?testingAgent ?poolId ?twoWayEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?selfManagedOptOutsEnabled ?optOutListName
        ?deletionProtectionEnabled ?createdTimestamp ?status ?rcsAgentId
        ?rcsAgentArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let testingAgent =
        field_map json__ "TestingAgent" TestingAgentInformation.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let status = field_map json__ "Status" RcsAgentStatus.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      let rcsAgentArn = field_map json__ "RcsAgentArn" String_.of_json in
      make ?testingAgent ?poolId ?twoWayEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?selfManagedOptOutsEnabled ?optOutListName
        ?deletionProtectionEnabled ?createdTimestamp ?status ?rcsAgentId
        ?rcsAgentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for an RCS agent in an Amazon Web Services account."]
module RcsAgentFilter =
  struct
    type nonrec t =
      {
      name: RcsAgentFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "RcsAgentFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (RcsAgentFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        RcsAgentFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" RcsAgentFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for an RCS agent that meets a specified criteria."]
module RcsAgentIdOrArn =
  struct
    type nonrec t = string
    let context_ = "RcsAgentIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RcsAgentIdOrArn" j
    let to_json = simple_to_json to_value
  end
module CountryLaunchStatusInformation =
  struct
    type nonrec t =
      {
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      status: CountryLaunchStatus.t option
        [@ocaml.doc "The launch status for this country."];
      rcsPlatformId: String_.t option
        [@ocaml.doc "The RCS platform identifier for this country."];
      registrationId: String_.t option
        [@ocaml.doc
          "The unique identifier of the registration associated with this country launch."];
      carrierStatus: CarrierStatusInformationList.t option
        [@ocaml.doc
          "An array of CarrierStatusInformation objects containing carrier-level launch status details."]}
    let make ?isoCountryCode =
      fun ?status ->
        fun ?rcsPlatformId ->
          fun ?registrationId ->
            fun ?carrierStatus ->
              fun () ->
                {
                  isoCountryCode;
                  status;
                  rcsPlatformId;
                  registrationId;
                  carrierStatus
                }
    let to_value x =
      structure_to_value
        [("IsoCountryCode",
           (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("Status", (Option.map x.status ~f:CountryLaunchStatus.to_value));
        ("RcsPlatformId", (Option.map x.rcsPlatformId ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("CarrierStatus",
          (Option.map x.carrierStatus
             ~f:CarrierStatusInformationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let carrierStatus =
        (Option.map ~f:CarrierStatusInformationList.of_xml)
          (Xml.child xml_arg0 "CarrierStatus") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let rcsPlatformId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsPlatformId") in
      let status =
        (Option.map ~f:CountryLaunchStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      make ?carrierStatus ?registrationId ?rcsPlatformId ?status
        ?isoCountryCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let carrierStatus =
        field_map json__ "CarrierStatus" CarrierStatusInformationList.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let rcsPlatformId = field_map json__ "RcsPlatformId" String_.of_json in
      let status = field_map json__ "Status" CountryLaunchStatus.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      make ?carrierStatus ?registrationId ?rcsPlatformId ?status
        ?isoCountryCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains per-country launch status details for an RCS agent."]
module CountryLaunchStatusFilter =
  struct
    type nonrec t =
      {
      name: CountryLaunchStatusFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "CountryLaunchStatusFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (CountryLaunchStatusFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        CountryLaunchStatusFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" CountryLaunchStatusFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a country launch status that meets a specified criteria."]
module ProtectConfigurationInformation =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the protect configuration was created, in UNIX epoch time format."];
      accountDefault: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is true if the protect configuration is set as your account default protect configuration."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "The status of deletion protection for the protect configuration. When set to true deletion protection is enabled. By default this is set to false."]}
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?createdTimestamp ->
          fun ?accountDefault ->
            fun ?deletionProtectionEnabled ->
              fun () ->
                {
                  protectConfigurationArn;
                  protectConfigurationId;
                  createdTimestamp;
                  accountDefault;
                  deletionProtectionEnabled
                }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("AccountDefault",
          (Option.map x.accountDefault ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let accountDefault =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "AccountDefault") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let accountDefault =
        field_map json__ "AccountDefault" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information on the specified protect configuration."]
module ProtectConfigurationFilter =
  struct
    type nonrec t =
      {
      name: ProtectConfigurationFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter for."]}
    let context_ = "ProtectConfigurationFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (ProtectConfigurationFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        ProtectConfigurationFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" ProtectConfigurationFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter definition for filtering protect configurations that meet a specified criteria."]
module PoolInformation =
  struct
    type nonrec t =
      {
      poolArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the pool."];
      poolId: String_.t option
        [@ocaml.doc "The unique identifier for the pool."];
      status: PoolStatus.t option
        [@ocaml.doc "The current status of the pool."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true you can receive incoming text messages from your end recipients using the TwoWayChannelArn."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to false, an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests. For more information see Self-managed opt-outs"];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the OptOutList associated with the pool."];
      sharedRoutesEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "Allows you to enable shared routes on your pool. By default, this is set to False. If you set this value to True, your messages are sent using phone numbers or sender IDs (depending on the country) that are shared with other users. In some countries, such as the United States, senders aren't allowed to use shared routes and must use a dedicated phone number or short code."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc "When set to true the pool can't be deleted."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the pool was created, in UNIX epoch time format."]}
    let make ?poolArn =
      fun ?poolId ->
        fun ?status ->
          fun ?messageType ->
            fun ?twoWayEnabled ->
              fun ?twoWayChannelArn ->
                fun ?twoWayChannelRole ->
                  fun ?selfManagedOptOutsEnabled ->
                    fun ?optOutListName ->
                      fun ?sharedRoutesEnabled ->
                        fun ?deletionProtectionEnabled ->
                          fun ?createdTimestamp ->
                            fun () ->
                              {
                                poolArn;
                                poolId;
                                status;
                                messageType;
                                twoWayEnabled;
                                twoWayChannelArn;
                                twoWayChannelRole;
                                selfManagedOptOutsEnabled;
                                optOutListName;
                                sharedRoutesEnabled;
                                deletionProtectionEnabled;
                                createdTimestamp
                              }
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:PoolStatus.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SharedRoutesEnabled",
          (Option.map x.sharedRoutesEnabled ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.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 deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let sharedRoutesEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SharedRoutesEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let status =
        (Option.map ~f:PoolStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?createdTimestamp ?deletionProtectionEnabled ?sharedRoutesEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?messageType ?status ?poolId
        ?poolArn ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let sharedRoutesEnabled =
        field_map json__ "SharedRoutesEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let status = field_map json__ "Status" PoolStatus.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?createdTimestamp ?deletionProtectionEnabled ?sharedRoutesEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?messageType ?status ?poolId
        ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a pool in an Amazon Web Services account."]
module PoolFilter =
  struct
    type nonrec t =
      {
      name: PoolFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "PoolFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (PoolFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        PoolFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" PoolFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a pool that meets a specified criteria."]
module PoolIdOrArn =
  struct
    type nonrec t = string
    let context_ = "PoolIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PoolIdOrArn" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberInformation =
  struct
    type nonrec t =
      {
      phoneNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with the phone number."];
      phoneNumberId: String_.t option
        [@ocaml.doc "The unique identifier for the phone number."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number in E.164 format."];
      status: NumberStatus.t option
        [@ocaml.doc "The current status of the phone number."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      numberCapabilities: NumberCapabilityList.t option
        [@ocaml.doc
          "Describes if the origination identity can be used for text messages, voice calls or both."];
      numberType: NumberType.t option
        [@ocaml.doc "The type of phone number."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc "The price, in US dollars, to lease the phone number."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients using the TwoWayChannelArn."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out request. For more information see Self-managed opt-outs"];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList associated with the phone number."];
      internationalSendingEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true the international sending of phone number is Enabled."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc "When set to true the phone number can't be deleted."];
      poolId: String_.t option
        [@ocaml.doc
          "The unique identifier of the pool associated with the phone number."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the phone number was created, in UNIX epoch time format."]}
    let make ?phoneNumberArn =
      fun ?phoneNumberId ->
        fun ?phoneNumber ->
          fun ?status ->
            fun ?isoCountryCode ->
              fun ?messageType ->
                fun ?numberCapabilities ->
                  fun ?numberType ->
                    fun ?monthlyLeasingPrice ->
                      fun ?twoWayEnabled ->
                        fun ?twoWayChannelArn ->
                          fun ?twoWayChannelRole ->
                            fun ?selfManagedOptOutsEnabled ->
                              fun ?optOutListName ->
                                fun ?internationalSendingEnabled ->
                                  fun ?deletionProtectionEnabled ->
                                    fun ?poolId ->
                                      fun ?registrationId ->
                                        fun ?createdTimestamp ->
                                          fun () ->
                                            {
                                              phoneNumberArn;
                                              phoneNumberId;
                                              phoneNumber;
                                              status;
                                              isoCountryCode;
                                              messageType;
                                              numberCapabilities;
                                              numberType;
                                              monthlyLeasingPrice;
                                              twoWayEnabled;
                                              twoWayChannelArn;
                                              twoWayChannelRole;
                                              selfManagedOptOutsEnabled;
                                              optOutListName;
                                              internationalSendingEnabled;
                                              deletionProtectionEnabled;
                                              poolId;
                                              registrationId;
                                              createdTimestamp
                                            }
    let to_value x =
      structure_to_value
        [("PhoneNumberArn",
           (Option.map x.phoneNumberArn ~f:String_.to_value));
        ("PhoneNumberId", (Option.map x.phoneNumberId ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:NumberStatus.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("NumberCapabilities",
          (Option.map x.numberCapabilities ~f:NumberCapabilityList.to_value));
        ("NumberType", (Option.map x.numberType ~f:NumberType.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("InternationalSendingEnabled",
          (Option.map x.internationalSendingEnabled
             ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.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 registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let internationalSendingEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "InternationalSendingEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let numberType =
        (Option.map ~f:NumberType.of_xml) (Xml.child xml_arg0 "NumberType") in
      let numberCapabilities =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "NumberCapabilities") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let status =
        (Option.map ~f:NumberStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let phoneNumberId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberId") in
      let phoneNumberArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberArn") in
      make ?createdTimestamp ?registrationId ?poolId
        ?deletionProtectionEnabled ?internationalSendingEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?monthlyLeasingPrice ?numberType
        ?numberCapabilities ?messageType ?isoCountryCode ?status ?phoneNumber
        ?phoneNumberId ?phoneNumberArn ()
    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 registrationId = field_map json__ "RegistrationId" String_.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let internationalSendingEnabled =
        field_map json__ "InternationalSendingEnabled"
          PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let numberType = field_map json__ "NumberType" NumberType.of_json in
      let numberCapabilities =
        field_map json__ "NumberCapabilities" NumberCapabilityList.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let status = field_map json__ "Status" NumberStatus.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let phoneNumberId = field_map json__ "PhoneNumberId" String_.of_json in
      let phoneNumberArn = field_map json__ "PhoneNumberArn" String_.of_json in
      make ?createdTimestamp ?registrationId ?poolId
        ?deletionProtectionEnabled ?internationalSendingEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?monthlyLeasingPrice ?numberType
        ?numberCapabilities ?messageType ?isoCountryCode ?status ?phoneNumber
        ?phoneNumberId ?phoneNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a phone number, in E.164 format, in an Amazon Web Services account."]
module PhoneNumberFilter =
  struct
    type nonrec t =
      {
      name: PhoneNumberFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "PhoneNumberFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (PhoneNumberFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        PhoneNumberFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" PhoneNumberFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a phone number that meets a specified criteria."]
module PhoneNumberIdOrArn =
  struct
    type nonrec t = string
    let context_ = "PhoneNumberIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PhoneNumberIdOrArn" j
    let to_json = simple_to_json to_value
  end
module OptedOutNumberInformation =
  struct
    type nonrec t =
      {
      optedOutNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number that is opted out."];
      optedOutTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time that the op tout occurred, in UNIX epoch time format."];
      endUserOptedOut: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is set to true if it was the end recipient that opted out."]}
    let make ?optedOutNumber =
      fun ?optedOutTimestamp ->
        fun ?endUserOptedOut ->
          fun () -> { optedOutNumber; optedOutTimestamp; endUserOptedOut }
    let to_value x =
      structure_to_value
        [("OptedOutNumber",
           (Option.map x.optedOutNumber ~f:PhoneNumber.to_value));
        ("OptedOutTimestamp",
          (Option.map x.optedOutTimestamp ~f:Timestamp.to_value));
        ("EndUserOptedOut",
          (Option.map x.endUserOptedOut ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endUserOptedOut =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "EndUserOptedOut") in
      let optedOutTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "OptedOutTimestamp") in
      let optedOutNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "OptedOutNumber") in
      make ?endUserOptedOut ?optedOutTimestamp ?optedOutNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endUserOptedOut =
        field_map json__ "EndUserOptedOut" PrimitiveBoolean.of_json in
      let optedOutTimestamp =
        field_map json__ "OptedOutTimestamp" Timestamp.of_json in
      let optedOutNumber =
        field_map json__ "OptedOutNumber" PhoneNumber.of_json in
      make ?endUserOptedOut ?optedOutTimestamp ?optedOutNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for an opted out number in an Amazon Web Services account."]
module OptedOutFilter =
  struct
    type nonrec t =
      {
      name: OptedOutFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t
        [@ocaml.doc "An array of values to filter for."]}
    let context_ = "OptedOutFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (OptedOutFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        OptedOutFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" OptedOutFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for opted out numbers that meet a specified criteria."]
module OptOutListInformation =
  struct
    type nonrec t =
      {
      optOutListArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the OptOutList."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the OptOutList."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the OutOutList was created, in UNIX epoch time format."]}
    let make ?optOutListArn =
      fun ?optOutListName ->
        fun ?createdTimestamp ->
          fun () -> { optOutListArn; optOutListName; createdTimestamp }
    let to_value x =
      structure_to_value
        [("OptOutListArn", (Option.map x.optOutListArn ~f:String_.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.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 optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let optOutListArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptOutListArn") in
      make ?createdTimestamp ?optOutListName ?optOutListArn ()
    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 optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let optOutListArn = field_map json__ "OptOutListArn" String_.of_json in
      make ?createdTimestamp ?optOutListName ?optOutListArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for all OptOutList in an Amazon Web Services account."]
module OptOutListNameOrArn =
  struct
    type nonrec t = string
    let context_ = "OptOutListNameOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OptOutListNameOrArn" j
    let to_json = simple_to_json to_value
  end
module NotifyTemplateInformation =
  struct
    type nonrec t =
      {
      templateId: NotifyTemplateId.t option
        [@ocaml.doc "The unique identifier for the template."];
      version: NotifyTemplateVersion.t option
        [@ocaml.doc "The version of the template."];
      templateType: NotifyTemplateType.t option
        [@ocaml.doc "The type of the template."];
      channels: NumberCapabilityList.t option
        [@ocaml.doc
          "The channels for the template. Supported values are SMS and VOICE."];
      tierAccess: NotifyConfigurationTierList.t option
        [@ocaml.doc "The tier access level for the template."];
      status: NotifyTemplateStatus.t option
        [@ocaml.doc "The current status of the template."];
      supportedCountries: IsoCountryCodeList.t option
        [@ocaml.doc "An array of supported country codes for the template."];
      languageCode: NotifyLanguageCode.t option
        [@ocaml.doc "The language code for the template."];
      content: TemplateContent.t option
        [@ocaml.doc "The content of the template."];
      variables: TemplateVariablesMap.t option
        [@ocaml.doc
          "An array of template variable metadata for the template."];
      supportedVoiceIds: VoiceIdList.t option
        [@ocaml.doc "An array of supported voice IDs for voice templates."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the notify template was created, in UNIX epoch time format."]}
    let make ?templateId =
      fun ?version ->
        fun ?templateType ->
          fun ?channels ->
            fun ?tierAccess ->
              fun ?status ->
                fun ?supportedCountries ->
                  fun ?languageCode ->
                    fun ?content ->
                      fun ?variables ->
                        fun ?supportedVoiceIds ->
                          fun ?createdTimestamp ->
                            fun () ->
                              {
                                templateId;
                                version;
                                templateType;
                                channels;
                                tierAccess;
                                status;
                                supportedCountries;
                                languageCode;
                                content;
                                variables;
                                supportedVoiceIds;
                                createdTimestamp
                              }
    let to_value x =
      structure_to_value
        [("TemplateId",
           (Option.map x.templateId ~f:NotifyTemplateId.to_value));
        ("Version", (Option.map x.version ~f:NotifyTemplateVersion.to_value));
        ("TemplateType",
          (Option.map x.templateType ~f:NotifyTemplateType.to_value));
        ("Channels",
          (Option.map x.channels ~f:NumberCapabilityList.to_value));
        ("TierAccess",
          (Option.map x.tierAccess ~f:NotifyConfigurationTierList.to_value));
        ("Status", (Option.map x.status ~f:NotifyTemplateStatus.to_value));
        ("SupportedCountries",
          (Option.map x.supportedCountries ~f:IsoCountryCodeList.to_value));
        ("LanguageCode",
          (Option.map x.languageCode ~f:NotifyLanguageCode.to_value));
        ("Content", (Option.map x.content ~f:TemplateContent.to_value));
        ("Variables",
          (Option.map x.variables ~f:TemplateVariablesMap.to_value));
        ("SupportedVoiceIds",
          (Option.map x.supportedVoiceIds ~f:VoiceIdList.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 supportedVoiceIds =
        (Option.map ~f:VoiceIdList.of_xml)
          (Xml.child xml_arg0 "SupportedVoiceIds") in
      let variables =
        (Option.map ~f:TemplateVariablesMap.of_xml)
          (Xml.child xml_arg0 "Variables") in
      let content =
        (Option.map ~f:TemplateContent.of_xml) (Xml.child xml_arg0 "Content") in
      let languageCode =
        (Option.map ~f:NotifyLanguageCode.of_xml)
          (Xml.child xml_arg0 "LanguageCode") in
      let supportedCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "SupportedCountries") in
      let status =
        (Option.map ~f:NotifyTemplateStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let tierAccess =
        (Option.map ~f:NotifyConfigurationTierList.of_xml)
          (Xml.child xml_arg0 "TierAccess") in
      let channels =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "Channels") in
      let templateType =
        (Option.map ~f:NotifyTemplateType.of_xml)
          (Xml.child xml_arg0 "TemplateType") in
      let version =
        (Option.map ~f:NotifyTemplateVersion.of_xml)
          (Xml.child xml_arg0 "Version") in
      let templateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "TemplateId") in
      make ?createdTimestamp ?supportedVoiceIds ?variables ?content
        ?languageCode ?supportedCountries ?status ?tierAccess ?channels
        ?templateType ?version ?templateId ()
    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 supportedVoiceIds =
        field_map json__ "SupportedVoiceIds" VoiceIdList.of_json in
      let variables =
        field_map json__ "Variables" TemplateVariablesMap.of_json in
      let content = field_map json__ "Content" TemplateContent.of_json in
      let languageCode =
        field_map json__ "LanguageCode" NotifyLanguageCode.of_json in
      let supportedCountries =
        field_map json__ "SupportedCountries" IsoCountryCodeList.of_json in
      let status = field_map json__ "Status" NotifyTemplateStatus.of_json in
      let tierAccess =
        field_map json__ "TierAccess" NotifyConfigurationTierList.of_json in
      let channels = field_map json__ "Channels" NumberCapabilityList.of_json in
      let templateType =
        field_map json__ "TemplateType" NotifyTemplateType.of_json in
      let version = field_map json__ "Version" NotifyTemplateVersion.of_json in
      let templateId = field_map json__ "TemplateId" NotifyTemplateId.of_json in
      make ?createdTimestamp ?supportedVoiceIds ?variables ?content
        ?languageCode ?supportedCountries ?status ?tierAccess ?channels
        ?templateType ?version ?templateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a system-managed notify template in an Amazon Web Services account."]
module NotifyTemplateFilter =
  struct
    type nonrec t =
      {
      name: NotifyTemplateFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "NotifyTemplateFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (NotifyTemplateFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        NotifyTemplateFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" NotifyTemplateFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for notify templates that meet a specified criteria."]
module NotifyConfigurationInformation =
  struct
    type nonrec t =
      {
      notifyConfigurationArn: NotifyConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the notify configuration."];
      notifyConfigurationId: NotifyConfigurationId.t option
        [@ocaml.doc "The unique identifier for the notify configuration."];
      displayName: NotifyConfigurationDisplayName.t option
        [@ocaml.doc
          "The display name associated with the notify configuration."];
      useCase: NotifyConfigurationUseCase.t option
        [@ocaml.doc "The use case for the notify configuration."];
      defaultTemplateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The default template identifier associated with the notify configuration."];
      poolId: String_.t option
        [@ocaml.doc
          "The identifier of the pool associated with the notify configuration."];
      enabledCountries: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, that are enabled for the notify configuration."];
      enabledChannels: NotifyEnabledChannelsList.t option
        [@ocaml.doc
          "An array of channels enabled for the notify configuration. Supported values include SMS and VOICE."];
      tier: NotifyConfigurationTier.t option
        [@ocaml.doc "The tier of the notify configuration."];
      tierUpgradeStatus: TierUpgradeStatus.t option
        [@ocaml.doc "The tier upgrade status of the notify configuration."];
      status: NotifyConfigurationStatus.t option
        [@ocaml.doc "The current status of the notify configuration."];
      rejectionReason: String_.t option
        [@ocaml.doc
          "The reason the notify configuration was rejected, if applicable."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the notify configuration was created, in UNIX epoch time format."]}
    let make ?notifyConfigurationArn =
      fun ?notifyConfigurationId ->
        fun ?displayName ->
          fun ?useCase ->
            fun ?defaultTemplateId ->
              fun ?poolId ->
                fun ?enabledCountries ->
                  fun ?enabledChannels ->
                    fun ?tier ->
                      fun ?tierUpgradeStatus ->
                        fun ?status ->
                          fun ?rejectionReason ->
                            fun ?deletionProtectionEnabled ->
                              fun ?createdTimestamp ->
                                fun () ->
                                  {
                                    notifyConfigurationArn;
                                    notifyConfigurationId;
                                    displayName;
                                    useCase;
                                    defaultTemplateId;
                                    poolId;
                                    enabledCountries;
                                    enabledChannels;
                                    tier;
                                    tierUpgradeStatus;
                                    status;
                                    rejectionReason;
                                    deletionProtectionEnabled;
                                    createdTimestamp
                                  }
    let to_value x =
      structure_to_value
        [("NotifyConfigurationArn",
           (Option.map x.notifyConfigurationArn
              ~f:NotifyConfigurationArn.to_value));
        ("NotifyConfigurationId",
          (Option.map x.notifyConfigurationId
             ~f:NotifyConfigurationId.to_value));
        ("DisplayName",
          (Option.map x.displayName
             ~f:NotifyConfigurationDisplayName.to_value));
        ("UseCase",
          (Option.map x.useCase ~f:NotifyConfigurationUseCase.to_value));
        ("DefaultTemplateId",
          (Option.map x.defaultTemplateId ~f:NotifyTemplateId.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("EnabledCountries",
          (Option.map x.enabledCountries ~f:IsoCountryCodeList.to_value));
        ("EnabledChannels",
          (Option.map x.enabledChannels ~f:NotifyEnabledChannelsList.to_value));
        ("Tier", (Option.map x.tier ~f:NotifyConfigurationTier.to_value));
        ("TierUpgradeStatus",
          (Option.map x.tierUpgradeStatus ~f:TierUpgradeStatus.to_value));
        ("Status",
          (Option.map x.status ~f:NotifyConfigurationStatus.to_value));
        ("RejectionReason",
          (Option.map x.rejectionReason ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.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 deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let rejectionReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RejectionReason") in
      let status =
        (Option.map ~f:NotifyConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let tierUpgradeStatus =
        (Option.map ~f:TierUpgradeStatus.of_xml)
          (Xml.child xml_arg0 "TierUpgradeStatus") in
      let tier =
        (Option.map ~f:NotifyConfigurationTier.of_xml)
          (Xml.child xml_arg0 "Tier") in
      let enabledChannels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "EnabledChannels") in
      let enabledCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "EnabledCountries") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let defaultTemplateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "DefaultTemplateId") in
      let useCase =
        (Option.map ~f:NotifyConfigurationUseCase.of_xml)
          (Xml.child xml_arg0 "UseCase") in
      let displayName =
        (Option.map ~f:NotifyConfigurationDisplayName.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let notifyConfigurationId =
        (Option.map ~f:NotifyConfigurationId.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationId") in
      let notifyConfigurationArn =
        (Option.map ~f:NotifyConfigurationArn.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationArn") in
      make ?createdTimestamp ?deletionProtectionEnabled ?rejectionReason
        ?status ?tierUpgradeStatus ?tier ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let rejectionReason =
        field_map json__ "RejectionReason" String_.of_json in
      let status =
        field_map json__ "Status" NotifyConfigurationStatus.of_json in
      let tierUpgradeStatus =
        field_map json__ "TierUpgradeStatus" TierUpgradeStatus.of_json in
      let tier = field_map json__ "Tier" NotifyConfigurationTier.of_json in
      let enabledChannels =
        field_map json__ "EnabledChannels" NotifyEnabledChannelsList.of_json in
      let enabledCountries =
        field_map json__ "EnabledCountries" IsoCountryCodeList.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let defaultTemplateId =
        field_map json__ "DefaultTemplateId" NotifyTemplateId.of_json in
      let useCase =
        field_map json__ "UseCase" NotifyConfigurationUseCase.of_json in
      let displayName =
        field_map json__ "DisplayName" NotifyConfigurationDisplayName.of_json in
      let notifyConfigurationId =
        field_map json__ "NotifyConfigurationId"
          NotifyConfigurationId.of_json in
      let notifyConfigurationArn =
        field_map json__ "NotifyConfigurationArn"
          NotifyConfigurationArn.of_json in
      make ?createdTimestamp ?deletionProtectionEnabled ?rejectionReason
        ?status ?tierUpgradeStatus ?tier ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for a notify configuration in an Amazon Web Services account."]
module NotifyConfigurationFilter =
  struct
    type nonrec t =
      {
      name: NotifyConfigurationFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "NotifyConfigurationFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (NotifyConfigurationFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        NotifyConfigurationFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" NotifyConfigurationFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for notify configurations that meet a specified criteria."]
module NotifyConfigurationIdOrArn =
  struct
    type nonrec t = string
    let context_ = "NotifyConfigurationIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NotifyConfigurationIdOrArn" j
    let to_json = simple_to_json to_value
  end
module KeywordInformation =
  struct
    type nonrec t =
      {
      keyword: Keyword.t option [@ocaml.doc "The keyword as a string."];
      keywordMessage: KeywordMessage.t option
        [@ocaml.doc "A custom message that can be used with the keyword."];
      keywordAction: KeywordAction.t option
        [@ocaml.doc "The action to perform for the keyword."]}
    let make ?keyword =
      fun ?keywordMessage ->
        fun ?keywordAction ->
          fun () -> { keyword; keywordMessage; keywordAction }
    let to_value x =
      structure_to_value
        [("Keyword", (Option.map x.keyword ~f:Keyword.to_value));
        ("KeywordMessage",
          (Option.map x.keywordMessage ~f:KeywordMessage.to_value));
        ("KeywordAction",
          (Option.map x.keywordAction ~f:KeywordAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keywordAction =
        (Option.map ~f:KeywordAction.of_xml)
          (Xml.child xml_arg0 "KeywordAction") in
      let keywordMessage =
        (Option.map ~f:KeywordMessage.of_xml)
          (Xml.child xml_arg0 "KeywordMessage") in
      let keyword =
        (Option.map ~f:Keyword.of_xml) (Xml.child xml_arg0 "Keyword") in
      make ?keywordAction ?keywordMessage ?keyword ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keywordAction =
        field_map json__ "KeywordAction" KeywordAction.of_json in
      let keywordMessage =
        field_map json__ "KeywordMessage" KeywordMessage.of_json in
      let keyword = field_map json__ "Keyword" Keyword.of_json in
      make ?keywordAction ?keywordMessage ?keyword ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The information for all keywords in a pool."]
module KeywordFilter =
  struct
    type nonrec t =
      {
      name: KeywordFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "KeywordFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (KeywordFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        KeywordFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name = field_map_exn json__ "Name" KeywordFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for keywords that meet a specified criteria."]
module ConfigurationSetInformation =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc "The Resource Name (ARN) of the ConfigurationSet."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the ConfigurationSet."];
      eventDestinations: EventDestinationList.t option
        [@ocaml.doc
          "An array of EventDestination objects that describe any events to log and where to log them."];
      defaultMessageType: MessageType.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      defaultSenderId: SenderId.t option
        [@ocaml.doc "The default sender ID used by the ConfigurationSet."];
      defaultMessageFeedbackEnabled: Boolean.t option
        [@ocaml.doc "True if message feedback is enabled."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the ConfigurationSet was created, in UNIX epoch time format."];
      protectConfigurationId: ProtectConfigurationIdOrArn.t option
        [@ocaml.doc "The unique identifier for the protect configuration."]}
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?eventDestinations ->
          fun ?defaultMessageType ->
            fun ?defaultSenderId ->
              fun ?defaultMessageFeedbackEnabled ->
                fun ?createdTimestamp ->
                  fun ?protectConfigurationId ->
                    fun () ->
                      {
                        configurationSetArn;
                        configurationSetName;
                        eventDestinations;
                        defaultMessageType;
                        defaultSenderId;
                        defaultMessageFeedbackEnabled;
                        createdTimestamp;
                        protectConfigurationId
                      }
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EventDestinations",
          (Option.map x.eventDestinations ~f:EventDestinationList.to_value));
        ("DefaultMessageType",
          (Option.map x.defaultMessageType ~f:MessageType.to_value));
        ("DefaultSenderId",
          (Option.map x.defaultSenderId ~f:SenderId.to_value));
        ("DefaultMessageFeedbackEnabled",
          (Option.map x.defaultMessageFeedbackEnabled ~f:Boolean.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationIdOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationIdOrArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let defaultMessageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DefaultMessageFeedbackEnabled") in
      let defaultSenderId =
        (Option.map ~f:SenderId.of_xml)
          (Xml.child xml_arg0 "DefaultSenderId") in
      let defaultMessageType =
        (Option.map ~f:MessageType.of_xml)
          (Xml.child xml_arg0 "DefaultMessageType") in
      let eventDestinations =
        (Option.map ~f:EventDestinationList.of_xml)
          (Xml.child xml_arg0 "EventDestinations") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?protectConfigurationId ?createdTimestamp
        ?defaultMessageFeedbackEnabled ?defaultSenderId ?defaultMessageType
        ?eventDestinations ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let defaultMessageFeedbackEnabled =
        field_map json__ "DefaultMessageFeedbackEnabled" Boolean.of_json in
      let defaultSenderId =
        field_map json__ "DefaultSenderId" SenderId.of_json in
      let defaultMessageType =
        field_map json__ "DefaultMessageType" MessageType.of_json in
      let eventDestinations =
        field_map json__ "EventDestinations" EventDestinationList.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?protectConfigurationId ?createdTimestamp
        ?defaultMessageFeedbackEnabled ?defaultSenderId ?defaultMessageType
        ?eventDestinations ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information related to a given configuration set in your Amazon Web Services account."]
module ConfigurationSetFilter =
  struct
    type nonrec t =
      {
      name: ConfigurationSetFilterName.t
        [@ocaml.doc "The name of the attribute to filter on."];
      values: FilterValueList.t [@ocaml.doc "An array values to filter for."]}
    let context_ = "ConfigurationSetFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (ConfigurationSetFilterName.to_value x.name)));
        ("Values", (Some (FilterValueList.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        FilterValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        ConfigurationSetFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "Values" FilterValueList.of_json in
      let name =
        field_map_exn json__ "Name" ConfigurationSetFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The information for configuration sets that meet a specified criteria."]
module ConfigurationSetNameOrArn =
  struct
    type nonrec t = string
    let context_ = "ConfigurationSetNameOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConfigurationSetNameOrArn" j
    let to_json = simple_to_json to_value
  end
module AccountLimit =
  struct
    type nonrec t =
      {
      name: AccountLimitName.t option
        [@ocaml.doc
          "The name of the attribute to apply the account limit to."];
      used: PrimitiveLong.t option
        [@ocaml.doc "The current amount that has been spent, in US dollars."];
      max: PrimitiveLong.t option
        [@ocaml.doc
          "The Amazon Web Services set limit for that resource type, in US dollars."]}
    let make ?name = fun ?used -> fun ?max -> fun () -> { name; used; max }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:AccountLimitName.to_value));
        ("Used", (Option.map x.used ~f:PrimitiveLong.to_value));
        ("Max", (Option.map x.max ~f:PrimitiveLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max =
        (Option.map ~f:PrimitiveLong.of_xml) (Xml.child xml_arg0 "Max") in
      let used =
        (Option.map ~f:PrimitiveLong.of_xml) (Xml.child xml_arg0 "Used") in
      let name =
        (Option.map ~f:AccountLimitName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?max ?used ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" PrimitiveLong.of_json in
      let used = field_map json__ "Used" PrimitiveLong.of_json in
      let name = field_map json__ "Name" AccountLimitName.of_json in
      make ?max ?used ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The current resource quotas associated with an Amazon Web Services account."]
module AccountAttribute =
  struct
    type nonrec t =
      {
      name: AccountAttributeName.t option
        [@ocaml.doc "The name of the account attribute."];
      value: String_.t option
        [@ocaml.doc "The value associated with the account attribute name."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:AccountAttributeName.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let name =
        (Option.map ~f:AccountAttributeName.of_xml)
          (Xml.child 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 json__ "Value" String_.of_json in
      let name = field_map json__ "Name" AccountAttributeName.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the attributes associated with a single Amazon Web Services account."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: AccessDeniedExceptionReason.t option
        [@ocaml.doc "The reason for the exception."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:AccessDeniedExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:AccessDeniedExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" AccessDeniedExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because you don't have sufficient permissions to access the resource."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ConflictExceptionReason.t option
        [@ocaml.doc "The reason for the exception."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource that caused the exception."];
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier of the request."]}
    let make ?message =
      fun ?reason ->
        fun ?resourceType ->
          fun ?resourceId ->
            fun () -> { message; reason; resourceType; resourceId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason", (Option.map x.reason ~f:ConflictExceptionReason.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let reason =
        (Option.map ~f:ConflictExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceId ?resourceType ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let reason = field_map json__ "Reason" ConflictExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceId ?resourceType ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request has conflicting operations. This can occur if you're trying to perform more than one operation on the same resource at the same time or it could be that the requested action isn't valid for the current state or configuration of the resource."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      requestId: String_.t option
        [@ocaml.doc "The unique identifier of the request."]}
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("RequestId", (Option.map x.requestId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The API encountered an unexpected error and couldn't complete the request. You might be able to successfully issue the request again in the future."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource that caused the exception."];
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier of the resource."]}
    let make ?message =
      fun ?resourceType ->
        fun ?resourceId -> fun () -> { message; resourceType; resourceId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceId ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceId ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A requested resource couldn't be found."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error that occurred because too many requests were sent during a certain amount of time."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the exception."];
      fields: ValidationExceptionFieldList.t option
        [@ocaml.doc "The field that failed validation."]}
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("Fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "Fields") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "Fields" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "Reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A validation exception for a field."]
module VerificationCode =
  struct
    type nonrec t = string
    let context_ = "VerificationCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VerificationCode" j
    let to_json = simple_to_json to_value
  end
module ProtectConfigurationCountryRuleSet =
  struct
    type nonrec t =
      (IsoCountryCode.t * ProtectConfigurationCountryRuleSetInformation.t)
        list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:300) >>=
             (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 IsoCountryCode ProtectConfigurationCountryRuleSetInformation"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (IsoCountryCode.to_value x) |>
                    (fun x ->
                       (ProtectConfigurationCountryRuleSetInformation.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:IsoCountryCode.of_string
        ~of_json:ProtectConfigurationCountryRuleSetInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyPoolIdOrUnset =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A pool identifier (ID or ARN) or the special value UNSET_DEFAULT_POOL_FOR_NOTIFY. Pass UNSET_DEFAULT_POOL_FOR_NOTIFY to clear the default pool from a NotifyConfiguration. This shape is used exclusively in UpdateNotifyConfigurationRequest."]
    let context_ = "NotifyPoolIdOrUnset"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([A-Za-z0-9_:/-]+|UNSET_DEFAULT_POOL_FOR_NOTIFY)")));
        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:"NotifyPoolIdOrUnset" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A pool identifier (ID or ARN) or the special value UNSET_DEFAULT_POOL_FOR_NOTIFY. Pass UNSET_DEFAULT_POOL_FOR_NOTIFY to clear the default pool from a NotifyConfiguration. This shape is used exclusively in UpdateNotifyConfigurationRequest."]
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:20) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"arn:[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:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ServiceQuotaExceededExceptionReason.t option
        [@ocaml.doc "The reason for the exception."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason
             ~f:ServiceQuotaExceededExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ServiceQuotaExceededExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" ServiceQuotaExceededExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request would cause a service quota to be exceeded."]
module NonEmptyTagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min: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: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:"NonEmptyTagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module MonthlyLimit =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:1000000000L) >>=
             (fun () -> check_int64_min i ~min:0L));
        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 ContextMap =
  struct
    type nonrec t = (ContextKey.t * ContextValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:0));
        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 ->
                            ((ContextKey.of_string chopped),
                              (ContextValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ContextKey.to_value x) |>
                    (fun x -> (ContextValue.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:ContextKey.of_string
        ~of_json:ContextValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxPrice =
  struct
    type nonrec t = string
    let context_ = "MaxPrice"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:8) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[0-9]{0,2}\\.[0-9]{1,5}")));
        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:"MaxPrice" j
    let to_json = simple_to_json to_value
  end
module TimeToLive =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:259200) >>=
             (fun () -> check_int_min i ~min:5));
        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 TimeToLive" 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 VoiceMessageBody =
  struct
    type nonrec t = string
    let context_ = "VoiceMessageBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:6000) >>=
                  (fun () -> check_pattern i ~pattern:"(?!\\s*$)[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VoiceMessageBody" j
    let to_json = simple_to_json to_value
  end
module VoiceMessageBodyTextType =
  struct
    type nonrec t =
      | TEXT 
      | SSML 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TEXT -> "TEXT" | SSML -> "SSML" | Non_static_id s -> s
    let of_string =
      function | "TEXT" -> TEXT | "SSML" -> SSML | 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 VoiceMessageBodyTextType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VoiceMessageBodyTextType" j)
    let to_json = simple_to_json to_value
  end
module VoiceMessageOriginationIdentity =
  struct
    type nonrec t = string
    let context_ = "VoiceMessageOriginationIdentity"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/\\+-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VoiceMessageOriginationIdentity" j
    let to_json = simple_to_json to_value
  end
module DestinationCountryParameters =
  struct
    type nonrec t =
      (DestinationCountryParameterKey.t * DestinationCountryParameterValue.t)
        list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        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 ->
                            ((DestinationCountryParameterKey.of_string
                                chopped),
                              (DestinationCountryParameterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (DestinationCountryParameterKey.to_value x) |>
                    (fun x ->
                       (DestinationCountryParameterValue.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:DestinationCountryParameterKey.of_string
        ~of_json:DestinationCountryParameterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TextMessageBody =
  struct
    type nonrec t = string
    let context_ = "TextMessageBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:"(?!\\s*$)[\\s\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TextMessageBody" j
    let to_json = simple_to_json to_value
  end
module TextMessageOriginationIdentity =
  struct
    type nonrec t = string
    let context_ = "TextMessageOriginationIdentity"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/\\+-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TextMessageOriginationIdentity" j
    let to_json = simple_to_json to_value
  end
module TemplateVariableSubstitutionMap =
  struct
    type nonrec t = (TemplateVariableName.t * TemplateVariableValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        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 ->
                            ((TemplateVariableName.of_string chopped),
                              (TemplateVariableValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TemplateVariableName.to_value x) |>
                    (fun x ->
                       (TemplateVariableValue.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:TemplateVariableName.of_string
        ~of_json:TemplateVariableValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MediaMessageOriginationIdentity =
  struct
    type nonrec t = string
    let context_ = "MediaMessageOriginationIdentity"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/\\+-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MediaMessageOriginationIdentity" j
    let to_json = simple_to_json to_value
  end
module MediaUrlList =
  struct
    type nonrec t = MediaUrlValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:MediaUrlValue.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:MediaUrlValue.of_xml)
    let of_json j =
      list_of_json ~kind:"MediaUrlList" ~of_json:MediaUrlValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module LanguageCode =
  struct
    type nonrec t =
      | DE_DE 
      | EN_GB 
      | EN_US 
      | ES_419 
      | ES_ES 
      | FR_CA 
      | FR_FR 
      | IT_IT 
      | JA_JP 
      | KO_KR 
      | PT_BR 
      | ZH_CN 
      | ZH_TW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DE_DE -> "DE_DE"
      | EN_GB -> "EN_GB"
      | EN_US -> "EN_US"
      | ES_419 -> "ES_419"
      | ES_ES -> "ES_ES"
      | FR_CA -> "FR_CA"
      | FR_FR -> "FR_FR"
      | IT_IT -> "IT_IT"
      | JA_JP -> "JA_JP"
      | KO_KR -> "KO_KR"
      | PT_BR -> "PT_BR"
      | ZH_CN -> "ZH_CN"
      | ZH_TW -> "ZH_TW"
      | Non_static_id s -> s
    let of_string =
      function
      | "DE_DE" -> DE_DE
      | "EN_GB" -> EN_GB
      | "EN_US" -> EN_US
      | "ES_419" -> ES_419
      | "ES_ES" -> ES_ES
      | "FR_CA" -> FR_CA
      | "FR_FR" -> FR_FR
      | "IT_IT" -> IT_IT
      | "JA_JP" -> JA_JP
      | "KO_KR" -> KO_KR
      | "PT_BR" -> PT_BR
      | "ZH_CN" -> ZH_CN
      | "ZH_TW" -> ZH_TW
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration LanguageCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LanguageCode" j)
    let to_json = simple_to_json to_value
  end
module VerificationChannel =
  struct
    type nonrec t =
      | TEXT 
      | VOICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TEXT -> "TEXT" | VOICE -> "VOICE" | Non_static_id s -> s
    let of_string =
      function | "TEXT" -> TEXT | "VOICE" -> VOICE | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VerificationChannel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VerificationChannel" j)
    let to_json = simple_to_json to_value
  end
module VerificationMessageOriginationIdentity =
  struct
    type nonrec t = string
    let context_ = "VerificationMessageOriginationIdentity"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/\\+-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"VerificationMessageOriginationIdentity" j
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    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:"[!-~]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module RequestableNumberType =
  struct
    type nonrec t =
      | LONG_CODE 
      | TOLL_FREE 
      | TEN_DLC 
      | SIMULATOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LONG_CODE -> "LONG_CODE"
      | TOLL_FREE -> "TOLL_FREE"
      | TEN_DLC -> "TEN_DLC"
      | SIMULATOR -> "SIMULATOR"
      | Non_static_id s -> s
    let of_string =
      function
      | "LONG_CODE" -> LONG_CODE
      | "TOLL_FREE" -> TOLL_FREE
      | "TEN_DLC" -> TEN_DLC
      | "SIMULATOR" -> SIMULATOR
      | 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 RequestableNumberType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RequestableNumberType" j)
    let to_json = simple_to_json to_value
  end
module ResourcePolicy =
  struct
    type nonrec t = string
    let context_ = "ResourcePolicy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"ResourcePolicy" j
    let to_json = simple_to_json to_value
  end
module MessageFeedbackStatus =
  struct
    type nonrec t =
      | RECEIVED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RECEIVED -> "RECEIVED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "RECEIVED" -> RECEIVED
      | "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 MessageFeedbackStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MessageFeedbackStatus" j)
    let to_json = simple_to_json to_value
  end
module MessageId =
  struct
    type nonrec t = string
    let context_ = "MessageId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MessageId" j
    let to_json = simple_to_json to_value
  end
module PhoneOrPoolIdOrArn =
  struct
    type nonrec t = string
    let context_ = "PhoneOrPoolIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PhoneOrPoolIdOrArn" j
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".+")));
        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 RegistrationAssociationMetadataList =
  struct
    type nonrec t = RegistrationAssociationMetadata.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:RegistrationAssociationMetadata.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:RegistrationAssociationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationAssociationMetadataList"
        ~of_json:RegistrationAssociationMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module RegistrationAssociationFilterList =
  struct
    type nonrec t = RegistrationAssociationFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:RegistrationAssociationFilter.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:RegistrationAssociationFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationAssociationFilterList"
        ~of_json:RegistrationAssociationFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtectConfigurationRuleSetNumberOverrideList =
  struct
    type nonrec t = ProtectConfigurationRuleSetNumberOverride.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ProtectConfigurationRuleSetNumberOverride.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:ProtectConfigurationRuleSetNumberOverride.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtectConfigurationRuleSetNumberOverrideList"
        ~of_json:ProtectConfigurationRuleSetNumberOverride.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListProtectConfigurationRuleSetNumberOverrideFilter =
  struct
    type nonrec t =
      ProtectConfigurationRuleSetNumberOverrideFilterItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ProtectConfigurationRuleSetNumberOverrideFilterItem.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:ProtectConfigurationRuleSetNumberOverrideFilterItem.of_xml)
    let of_json j =
      list_of_json
        ~kind:"ListProtectConfigurationRuleSetNumberOverrideFilter"
        ~of_json:ProtectConfigurationRuleSetNumberOverrideFilterItem.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module OriginationIdentityMetadataList =
  struct
    type nonrec t = OriginationIdentityMetadata.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:OriginationIdentityMetadata.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:OriginationIdentityMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"OriginationIdentityMetadataList"
        ~of_json:OriginationIdentityMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolOriginationIdentitiesFilterList =
  struct
    type nonrec t = PoolOriginationIdentitiesFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:PoolOriginationIdentitiesFilter.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:PoolOriginationIdentitiesFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"PoolOriginationIdentitiesFilterList"
        ~of_json:PoolOriginationIdentitiesFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyCountryInformationList =
  struct
    type nonrec t = NotifyCountryInformation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:300) >>=
             (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:NotifyCountryInformation.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:NotifyCountryInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyCountryInformationList"
        ~of_json:NotifyCountryInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneOrSenderIdOrArn =
  struct
    type nonrec t = string
    let context_ = "PhoneOrSenderIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PhoneOrSenderIdOrArn" j
    let to_json = simple_to_json to_value
  end
module VerifiedDestinationNumberInformationList =
  struct
    type nonrec t = VerifiedDestinationNumberInformation.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:VerifiedDestinationNumberInformation.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:VerifiedDestinationNumberInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"VerifiedDestinationNumberInformationList"
        ~of_json:VerifiedDestinationNumberInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module DestinationPhoneNumberList =
  struct
    type nonrec t = PhoneNumber.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:PhoneNumber.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"DestinationPhoneNumberList"
        ~of_json:PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerifiedDestinationNumberFilterList =
  struct
    type nonrec t = VerifiedDestinationNumberFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:VerifiedDestinationNumberFilter.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:VerifiedDestinationNumberFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"VerifiedDestinationNumberFilterList"
        ~of_json:VerifiedDestinationNumberFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerifiedDestinationNumberIdList =
  struct
    type nonrec t = VerifiedDestinationNumberIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:VerifiedDestinationNumberIdOrArn.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:VerifiedDestinationNumberIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"VerifiedDestinationNumberIdList"
        ~of_json:VerifiedDestinationNumberIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module SpendLimitList =
  struct
    type nonrec t = SpendLimit.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:SpendLimit.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:SpendLimit.of_xml)
    let of_json j =
      list_of_json ~kind:"SpendLimitList" ~of_json:SpendLimit.of_json j
    let to_json v = composed_to_json to_value v
  end
module SenderIdInformationList =
  struct
    type nonrec t = SenderIdInformation.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:SenderIdInformation.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:SenderIdInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"SenderIdInformationList"
        ~of_json:SenderIdInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Owner =
  struct
    type nonrec t =
      | SELF 
      | SHARED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SELF -> "SELF" | SHARED -> "SHARED" | Non_static_id s -> s
    let of_string =
      function | "SELF" -> SELF | "SHARED" -> SHARED | 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 Owner" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Owner" j)
    let to_json = simple_to_json to_value
  end
module SenderIdFilterList =
  struct
    type nonrec t = SenderIdFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:SenderIdFilter.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:SenderIdFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"SenderIdFilterList" ~of_json:SenderIdFilter.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SenderIdList =
  struct
    type nonrec t = SenderIdAndCountry.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SenderIdAndCountry.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:SenderIdAndCountry.of_xml)
    let of_json j =
      list_of_json ~kind:"SenderIdList" ~of_json:SenderIdAndCountry.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationInformationList =
  struct
    type nonrec t = RegistrationInformation.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:RegistrationInformation.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:RegistrationInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationInformationList"
        ~of_json:RegistrationInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationFilterList =
  struct
    type nonrec t = RegistrationFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:RegistrationFilter.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:RegistrationFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationFilterList"
        ~of_json:RegistrationFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationIdList =
  struct
    type nonrec t = RegistrationIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:RegistrationIdOrArn.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:RegistrationIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationIdList"
        ~of_json:RegistrationIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationVersionInformationList =
  struct
    type nonrec t = RegistrationVersionInformation.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:RegistrationVersionInformation.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:RegistrationVersionInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationVersionInformationList"
        ~of_json:RegistrationVersionInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationVersionFilterList =
  struct
    type nonrec t = RegistrationVersionFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:RegistrationVersionFilter.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:RegistrationVersionFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationVersionFilterList"
        ~of_json:RegistrationVersionFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationVersionNumberList =
  struct
    type nonrec t = RegistrationVersionNumber.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:RegistrationVersionNumber.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:RegistrationVersionNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationVersionNumberList"
        ~of_json:RegistrationVersionNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationTypeDefinitionList =
  struct
    type nonrec t = RegistrationTypeDefinition.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:RegistrationTypeDefinition.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:RegistrationTypeDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationTypeDefinitionList"
        ~of_json:RegistrationTypeDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationTypeFilterList =
  struct
    type nonrec t = RegistrationTypeFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:RegistrationTypeFilter.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:RegistrationTypeFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationTypeFilterList"
        ~of_json:RegistrationTypeFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationTypeList =
  struct
    type nonrec t = RegistrationType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:RegistrationType.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:RegistrationType.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationTypeList"
        ~of_json:RegistrationType.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationSectionDefinitionList =
  struct
    type nonrec t = RegistrationSectionDefinition.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:RegistrationSectionDefinition.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:RegistrationSectionDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationSectionDefinitionList"
        ~of_json:RegistrationSectionDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module SectionPathList =
  struct
    type nonrec t = SectionPath.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SectionPath.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:SectionPath.of_xml)
    let of_json j =
      list_of_json ~kind:"SectionPathList" ~of_json:SectionPath.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationFieldValueInformationList =
  struct
    type nonrec t = RegistrationFieldValueInformation.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:RegistrationFieldValueInformation.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:RegistrationFieldValueInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationFieldValueInformationList"
        ~of_json:RegistrationFieldValueInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldPathList =
  struct
    type nonrec t = FieldPath.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:FieldPath.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:FieldPath.of_xml)
    let of_json j =
      list_of_json ~kind:"FieldPathList" ~of_json:FieldPath.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationFieldDefinitionList =
  struct
    type nonrec t = RegistrationFieldDefinition.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:RegistrationFieldDefinition.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:RegistrationFieldDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationFieldDefinitionList"
        ~of_json:RegistrationFieldDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationAttachmentsInformationList =
  struct
    type nonrec t = RegistrationAttachmentsInformation.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:RegistrationAttachmentsInformation.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:RegistrationAttachmentsInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationAttachmentsInformationList"
        ~of_json:RegistrationAttachmentsInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationAttachmentFilterList =
  struct
    type nonrec t = RegistrationAttachmentFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:RegistrationAttachmentFilter.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:RegistrationAttachmentFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationAttachmentFilterList"
        ~of_json:RegistrationAttachmentFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistrationAttachmentIdList =
  struct
    type nonrec t = RegistrationIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:RegistrationIdOrArn.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:RegistrationIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistrationAttachmentIdList"
        ~of_json:RegistrationIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module RcsAgentInformationList =
  struct
    type nonrec t = RcsAgentInformation.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:RcsAgentInformation.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:RcsAgentInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"RcsAgentInformationList"
        ~of_json:RcsAgentInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module RcsAgentFilterList =
  struct
    type nonrec t = RcsAgentFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:RcsAgentFilter.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:RcsAgentFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"RcsAgentFilterList" ~of_json:RcsAgentFilter.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module RcsAgentIdList =
  struct
    type nonrec t = RcsAgentIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:RcsAgentIdOrArn.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:RcsAgentIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"RcsAgentIdList" ~of_json:RcsAgentIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CountryLaunchStatusInformationList =
  struct
    type nonrec t = CountryLaunchStatusInformation.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:CountryLaunchStatusInformation.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:CountryLaunchStatusInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"CountryLaunchStatusInformationList"
        ~of_json:CountryLaunchStatusInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module CountryLaunchStatusFilterList =
  struct
    type nonrec t = CountryLaunchStatusFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:CountryLaunchStatusFilter.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:CountryLaunchStatusFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"CountryLaunchStatusFilterList"
        ~of_json:CountryLaunchStatusFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtectConfigurationInformationList =
  struct
    type nonrec t = ProtectConfigurationInformation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ProtectConfigurationInformation.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:ProtectConfigurationInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtectConfigurationInformationList"
        ~of_json:ProtectConfigurationInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtectConfigurationFilterList =
  struct
    type nonrec t = ProtectConfigurationFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:ProtectConfigurationFilter.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:ProtectConfigurationFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtectConfigurationFilterList"
        ~of_json:ProtectConfigurationFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProtectConfigurationIdList =
  struct
    type nonrec t = ProtectConfigurationIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:ProtectConfigurationIdOrArn.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:ProtectConfigurationIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtectConfigurationIdList"
        ~of_json:ProtectConfigurationIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolInformationList =
  struct
    type nonrec t = PoolInformation.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:PoolInformation.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:PoolInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"PoolInformationList"
        ~of_json:PoolInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolFilterList =
  struct
    type nonrec t = PoolFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:PoolFilter.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:PoolFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"PoolFilterList" ~of_json:PoolFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolIdList =
  struct
    type nonrec t = PoolIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:PoolIdOrArn.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:PoolIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PoolIdList" ~of_json:PoolIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberInformationList =
  struct
    type nonrec t = PhoneNumberInformation.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumberInformation.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PhoneNumberInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberInformationList"
        ~of_json:PhoneNumberInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberFilterList =
  struct
    type nonrec t = PhoneNumberFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:PhoneNumberFilter.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:PhoneNumberFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberFilterList"
        ~of_json:PhoneNumberFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberIdList =
  struct
    type nonrec t = PhoneNumberIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:PhoneNumberIdOrArn.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:PhoneNumberIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberIdList"
        ~of_json:PhoneNumberIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptedOutNumberInformationList =
  struct
    type nonrec t = OptedOutNumberInformation.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:OptedOutNumberInformation.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:OptedOutNumberInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"OptedOutNumberInformationList"
        ~of_json:OptedOutNumberInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptedOutFilterList =
  struct
    type nonrec t = OptedOutFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:OptedOutFilter.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:OptedOutFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"OptedOutFilterList" ~of_json:OptedOutFilter.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module OptedOutNumberList =
  struct
    type nonrec t = PhoneNumber.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:PhoneNumber.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"OptedOutNumberList" ~of_json:PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptOutListInformationList =
  struct
    type nonrec t = OptOutListInformation.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:OptOutListInformation.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:OptOutListInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"OptOutListInformationList"
        ~of_json:OptOutListInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptOutListNameList =
  struct
    type nonrec t = OptOutListNameOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:OptOutListNameOrArn.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:OptOutListNameOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"OptOutListNameList"
        ~of_json:OptOutListNameOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyTemplateInformationList =
  struct
    type nonrec t = NotifyTemplateInformation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:NotifyTemplateInformation.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:NotifyTemplateInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyTemplateInformationList"
        ~of_json:NotifyTemplateInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyTemplateFilterList =
  struct
    type nonrec t = NotifyTemplateFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:NotifyTemplateFilter.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:NotifyTemplateFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyTemplateFilterList"
        ~of_json:NotifyTemplateFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyTemplateIdList =
  struct
    type nonrec t = NotifyTemplateId.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:NotifyTemplateId.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:NotifyTemplateId.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyTemplateIdList"
        ~of_json:NotifyTemplateId.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyConfigurationInformationList =
  struct
    type nonrec t = NotifyConfigurationInformation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:NotifyConfigurationInformation.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:NotifyConfigurationInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyConfigurationInformationList"
        ~of_json:NotifyConfigurationInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyConfigurationFilterList =
  struct
    type nonrec t = NotifyConfigurationFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:NotifyConfigurationFilter.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:NotifyConfigurationFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyConfigurationFilterList"
        ~of_json:NotifyConfigurationFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotifyConfigurationIdList =
  struct
    type nonrec t = NotifyConfigurationIdOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:NotifyConfigurationIdOrArn.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:NotifyConfigurationIdOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"NotifyConfigurationIdList"
        ~of_json:NotifyConfigurationIdOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module KeywordInformationList =
  struct
    type nonrec t = KeywordInformation.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:KeywordInformation.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:KeywordInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"KeywordInformationList"
        ~of_json:KeywordInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module KeywordFilterList =
  struct
    type nonrec t = KeywordFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:KeywordFilter.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:KeywordFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"KeywordFilterList" ~of_json:KeywordFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module KeywordList =
  struct
    type nonrec t = Keyword.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:Keyword.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:Keyword.of_xml)
    let of_json j =
      list_of_json ~kind:"KeywordList" ~of_json:Keyword.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationSetInformationList =
  struct
    type nonrec t = ConfigurationSetInformation.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:ConfigurationSetInformation.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:ConfigurationSetInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationSetInformationList"
        ~of_json:ConfigurationSetInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationSetFilterList =
  struct
    type nonrec t = ConfigurationSetFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:ConfigurationSetFilter.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:ConfigurationSetFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationSetFilterList"
        ~of_json:ConfigurationSetFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConfigurationSetNameList =
  struct
    type nonrec t = ConfigurationSetNameOrArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:ConfigurationSetNameOrArn.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:ConfigurationSetNameOrArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ConfigurationSetNameList"
        ~of_json:ConfigurationSetNameOrArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountLimitList =
  struct
    type nonrec t = AccountLimit.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:AccountLimit.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:AccountLimit.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountLimitList" ~of_json:AccountLimit.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountAttributeList =
  struct
    type nonrec t = AccountAttribute.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:AccountAttribute.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:AccountAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountAttributeList"
        ~of_json:AccountAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttachmentBody =
  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 AttachmentUrl =
  struct
    type nonrec t = string
    let context_ = "AttachmentUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"\\S+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttachmentUrl" j
    let to_json = simple_to_json to_value
  end
module ResourceIdOrArn =
  struct
    type nonrec t = string
    let context_ = "ResourceIdOrArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceIdOrArn" j
    let to_json = simple_to_json to_value
  end
module DialingCountryCodeType =
  struct
    type nonrec t = string
    let context_ = "DialingCountryCodeType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () -> check_pattern i ~pattern:"[\\d]+")));
        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:"DialingCountryCodeType" j
    let to_json = simple_to_json to_value
  end
module E164PhoneNumberType =
  struct
    type nonrec t = string
    let context_ = "E164PhoneNumberType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"\\+[1-9][0-9]{1,18}")));
        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:"E164PhoneNumberType" j
    let to_json = simple_to_json to_value
  end
module MCCType =
  struct
    type nonrec t = string
    let context_ = "MCCType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () -> check_pattern i ~pattern:"[\\d]+")));
        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:"MCCType" j
    let to_json = simple_to_json to_value
  end
module MNCType =
  struct
    type nonrec t = string
    let context_ = "MNCType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () -> check_pattern i ~pattern:"[\\d]+")));
        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:"MNCType" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberType =
  struct
    type nonrec t =
      | MOBILE 
      | LANDLINE 
      | OTHER 
      | INVALID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MOBILE -> "MOBILE"
      | LANDLINE -> "LANDLINE"
      | OTHER -> "OTHER"
      | INVALID -> "INVALID"
      | Non_static_id s -> s
    let of_string =
      function
      | "MOBILE" -> MOBILE
      | "LANDLINE" -> LANDLINE
      | "OTHER" -> OTHER
      | "INVALID" -> INVALID
      | 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 PhoneNumberType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PhoneNumberType" j)
    let to_json = simple_to_json to_value
  end
module CarrierLookupInputPhoneNumberType =
  struct
    type nonrec t = string
    let context_ = "CarrierLookupInputPhoneNumberType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"\\+[({\\s\\[]?[1-9][0-9(){}\\s\\[\\],.-]{1,38}")));
        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:"CarrierLookupInputPhoneNumberType" j
    let to_json = simple_to_json to_value
  end
module VerifyDestinationNumberResult =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the verified destination phone number."];
      verifiedDestinationNumberId: String_.t option
        [@ocaml.doc
          "The unique identifier for the verified destination phone number."];
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number in E.164 format."];
      status: VerificationStatus.t option
        [@ocaml.doc
          "The status for being able to send messages to the phone number."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the destination phone number was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verifiedDestinationNumberArn =
      fun ?verifiedDestinationNumberId ->
        fun ?destinationPhoneNumber ->
          fun ?status ->
            fun ?createdTimestamp ->
              fun () ->
                {
                  verifiedDestinationNumberArn;
                  verifiedDestinationNumberId;
                  destinationPhoneNumber;
                  status;
                  createdTimestamp
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberArn",
           (Option.map x.verifiedDestinationNumberArn ~f:String_.to_value));
        ("VerifiedDestinationNumberId",
          (Option.map x.verifiedDestinationNumberId ~f:String_.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:VerificationStatus.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 status =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let verifiedDestinationNumberId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberId") in
      let verifiedDestinationNumberArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberArn") in
      make ?createdTimestamp ?status ?destinationPhoneNumber
        ?verifiedDestinationNumberId ?verifiedDestinationNumberArn ()
    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 status = field_map json__ "Status" VerificationStatus.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let verifiedDestinationNumberId =
        field_map json__ "VerifiedDestinationNumberId" String_.of_json in
      let verifiedDestinationNumberArn =
        field_map json__ "VerifiedDestinationNumberArn" String_.of_json in
      make ?createdTimestamp ?status ?destinationPhoneNumber
        ?verifiedDestinationNumberId ?verifiedDestinationNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use the verification code that was received by the verified destination phone number to opt-in the verified destination phone number to receive more messages."]
module VerifyDestinationNumberRequest =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberId: VerifiedDestinationNumberIdOrArn.t
        [@ocaml.doc
          "The unique identifier for the verififed destination phone number."];
      verificationCode: VerificationCode.t
        [@ocaml.doc
          "The verification code that was received by the verified destination phone number."]}
    let context_ = "VerifyDestinationNumberRequest"
    let make ~verifiedDestinationNumberId =
      fun ~verificationCode ->
        fun () -> { verifiedDestinationNumberId; verificationCode }
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberId",
           (Some
              (VerifiedDestinationNumberIdOrArn.to_value
                 x.verifiedDestinationNumberId)));
        ("VerificationCode",
          (Some (VerificationCode.to_value x.verificationCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationCode =
        VerificationCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationCode") in
      let verifiedDestinationNumberId =
        VerifiedDestinationNumberIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "VerifiedDestinationNumberId") in
      make ~verificationCode ~verifiedDestinationNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationCode =
        field_map_exn json__ "VerificationCode" VerificationCode.of_json in
      let verifiedDestinationNumberId =
        field_map_exn json__ "VerifiedDestinationNumberId"
          VerifiedDestinationNumberIdOrArn.of_json in
      make ~verificationCode ~verifiedDestinationNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use the verification code that was received by the verified destination phone number to opt-in the verified destination phone number to receive more messages."]
module UpdateSenderIdResult =
  struct
    type nonrec t =
      {
      senderIdArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with the SenderId."];
      senderId: SenderId.t option
        [@ocaml.doc "The sender ID that was updated."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageTypes: MessageTypeList.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc
          "The monthly price, in US dollars, to lease the sender ID."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the sender ID can't be deleted."];
      registered: PrimitiveBoolean.t option
        [@ocaml.doc "True if the sender ID is registered.."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?senderIdArn =
      fun ?senderId ->
        fun ?isoCountryCode ->
          fun ?messageTypes ->
            fun ?monthlyLeasingPrice ->
              fun ?deletionProtectionEnabled ->
                fun ?registered ->
                  fun ?registrationId ->
                    fun () ->
                      {
                        senderIdArn;
                        senderId;
                        isoCountryCode;
                        messageTypes;
                        monthlyLeasingPrice;
                        deletionProtectionEnabled;
                        registered;
                        registrationId
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SenderIdArn", (Option.map x.senderIdArn ~f:String_.to_value));
        ("SenderId", (Option.map x.senderId ~f:SenderId.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageTypes",
          (Option.map x.messageTypes ~f:MessageTypeList.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("Registered",
          (Option.map x.registered ~f:PrimitiveBoolean.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registered =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Registered") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let messageTypes =
        (Option.map ~f:MessageTypeList.of_xml)
          (Xml.child xml_arg0 "MessageTypes") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let senderId =
        (Option.map ~f:SenderId.of_xml) (Xml.child xml_arg0 "SenderId") in
      let senderIdArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SenderIdArn") in
      make ?registrationId ?registered ?deletionProtectionEnabled
        ?monthlyLeasingPrice ?messageTypes ?isoCountryCode ?senderId
        ?senderIdArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registered = field_map json__ "Registered" PrimitiveBoolean.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let messageTypes =
        field_map json__ "MessageTypes" MessageTypeList.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map json__ "SenderId" SenderId.of_json in
      let senderIdArn = field_map json__ "SenderIdArn" String_.of_json in
      make ?registrationId ?registered ?deletionProtectionEnabled
        ?monthlyLeasingPrice ?messageTypes ?isoCountryCode ?senderId
        ?senderIdArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the configuration of an existing sender ID."]
module UpdateSenderIdRequest =
  struct
    type nonrec t =
      {
      senderId: SenderIdOrArn.t [@ocaml.doc "The sender ID to update."];
      isoCountryCode: IsoCountryCode.t
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the sender ID can't be deleted."]}
    let context_ = "UpdateSenderIdRequest"
    let make ?deletionProtectionEnabled =
      fun ~senderId ->
        fun ~isoCountryCode ->
          fun () -> { deletionProtectionEnabled; senderId; isoCountryCode }
    let to_value x =
      structure_to_value
        [("SenderId", (Some (SenderIdOrArn.to_value x.senderId)));
        ("IsoCountryCode", (Some (IsoCountryCode.to_value x.isoCountryCode)));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let isoCountryCode =
        IsoCountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsoCountryCode") in
      let senderId =
        SenderIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SenderId") in
      make ?deletionProtectionEnabled ~isoCountryCode ~senderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let isoCountryCode =
        field_map_exn json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map_exn json__ "SenderId" SenderIdOrArn.of_json in
      make ?deletionProtectionEnabled ~isoCountryCode ~senderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the configuration of an existing sender ID."]
module UpdateRcsAgentResult =
  struct
    type nonrec t =
      {
      rcsAgentArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated RCS agent."];
      rcsAgentId: String_.t option
        [@ocaml.doc "The unique identifier for the RCS agent."];
      status: RcsAgentStatus.t option
        [@ocaml.doc "The current status of the RCS agent."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the RCS agent was created, in UNIX epoch time format."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList associated with the RCS agent."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rcsAgentArn =
      fun ?rcsAgentId ->
        fun ?status ->
          fun ?createdTimestamp ->
            fun ?deletionProtectionEnabled ->
              fun ?optOutListName ->
                fun ?selfManagedOptOutsEnabled ->
                  fun ?twoWayChannelArn ->
                    fun ?twoWayChannelRole ->
                      fun ?twoWayEnabled ->
                        fun () ->
                          {
                            rcsAgentArn;
                            rcsAgentId;
                            status;
                            createdTimestamp;
                            deletionProtectionEnabled;
                            optOutListName;
                            selfManagedOptOutsEnabled;
                            twoWayChannelArn;
                            twoWayChannelRole;
                            twoWayEnabled
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RcsAgentArn", (Option.map x.rcsAgentArn ~f:String_.to_value));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:RcsAgentStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let status =
        (Option.map ~f:RcsAgentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      let rcsAgentArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentArn") in
      make ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?optOutListName ?deletionProtectionEnabled
        ?createdTimestamp ?status ?rcsAgentId ?rcsAgentArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let status = field_map json__ "Status" RcsAgentStatus.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      let rcsAgentArn = field_map json__ "RcsAgentArn" String_.of_json in
      make ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?optOutListName ?deletionProtectionEnabled
        ?createdTimestamp ?status ?rcsAgentId ?rcsAgentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing RCS agent. You can update the opt-out list, deletion protection, two-way messaging settings, and self-managed opt-outs configuration."]
module UpdateRcsAgentRequest =
  struct
    type nonrec t =
      {
      rcsAgentId: RcsAgentIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the RCS agent to update. You can use either the RcsAgentId or RcsAgentArn."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the RCS agent can't be deleted."];
      optOutListName: OptOutListNameOrArn.t option
        [@ocaml.doc
          "The OptOutList to associate with the RCS agent. Valid values are either OptOutListName or OptOutListArn."];
      selfManagedOptOutsEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      twoWayEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."]}
    let context_ = "UpdateRcsAgentRequest"
    let make ?deletionProtectionEnabled =
      fun ?optOutListName ->
        fun ?selfManagedOptOutsEnabled ->
          fun ?twoWayChannelArn ->
            fun ?twoWayChannelRole ->
              fun ?twoWayEnabled ->
                fun ~rcsAgentId ->
                  fun () ->
                    {
                      deletionProtectionEnabled;
                      optOutListName;
                      selfManagedOptOutsEnabled;
                      twoWayChannelArn;
                      twoWayChannelRole;
                      twoWayEnabled;
                      rcsAgentId
                    }
    let to_value x =
      structure_to_value
        [("RcsAgentId", (Some (RcsAgentIdOrArn.to_value x.rcsAgentId)));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListNameOrArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled ~f:Boolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("TwoWayEnabled", (Option.map x.twoWayEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let twoWayEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "TwoWayEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListNameOrArn.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let rcsAgentId =
        RcsAgentIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RcsAgentId") in
      make ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?optOutListName ?deletionProtectionEnabled
        ~rcsAgentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let twoWayEnabled = field_map json__ "TwoWayEnabled" Boolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" Boolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListNameOrArn.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let rcsAgentId =
        field_map_exn json__ "RcsAgentId" RcsAgentIdOrArn.of_json in
      make ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?optOutListName ?deletionProtectionEnabled
        ~rcsAgentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing RCS agent. You can update the opt-out list, deletion protection, two-way messaging settings, and self-managed opt-outs configuration."]
module UpdateProtectConfigurationResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the protect configuration was created, in UNIX epoch time format."];
      accountDefault: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is true if the protect configuration is set as your account default protect configuration."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "The status of deletion protection for the protect configuration. When set to true deletion protection is enabled. By default this is set to false."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?createdTimestamp ->
          fun ?accountDefault ->
            fun ?deletionProtectionEnabled ->
              fun () ->
                {
                  protectConfigurationArn;
                  protectConfigurationId;
                  createdTimestamp;
                  accountDefault;
                  deletionProtectionEnabled
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("AccountDefault",
          (Option.map x.accountDefault ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let accountDefault =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "AccountDefault") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let accountDefault =
        field_map json__ "AccountDefault" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update the setting for an existing protect configuration."]
module UpdateProtectConfigurationRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."]}
    let context_ = "UpdateProtectConfigurationRequest"
    let make ?deletionProtectionEnabled =
      fun ~protectConfigurationId ->
        fun () -> { deletionProtectionEnabled; protectConfigurationId }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ?deletionProtectionEnabled ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ?deletionProtectionEnabled ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update the setting for an existing protect configuration."]
module UpdateProtectConfigurationCountryRuleSetResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      numberCapability: NumberCapability.t option
        [@ocaml.doc "The number capability that was updated"];
      countryRuleSet: ProtectConfigurationCountryRuleSet.t option
        [@ocaml.doc
          "An array of ProtectConfigurationCountryRuleSetInformation containing the rules for the NumberCapability."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?numberCapability ->
          fun ?countryRuleSet ->
            fun () ->
              {
                protectConfigurationArn;
                protectConfigurationId;
                numberCapability;
                countryRuleSet
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("NumberCapability",
          (Option.map x.numberCapability ~f:NumberCapability.to_value));
        ("CountryRuleSet",
          (Option.map x.countryRuleSet
             ~f:ProtectConfigurationCountryRuleSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let countryRuleSet =
        (Option.map ~f:ProtectConfigurationCountryRuleSet.of_xml)
          (Xml.child xml_arg0 "CountryRuleSet") in
      let numberCapability =
        (Option.map ~f:NumberCapability.of_xml)
          (Xml.child xml_arg0 "NumberCapability") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?countryRuleSet ?numberCapability ?protectConfigurationId
        ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let countryRuleSet =
        field_map json__ "CountryRuleSet"
          ProtectConfigurationCountryRuleSet.of_json in
      let numberCapability =
        field_map json__ "NumberCapability" NumberCapability.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?countryRuleSet ?numberCapability ?protectConfigurationId
        ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update a country rule set to ALLOW, BLOCK, MONITOR, or FILTER messages to be sent to the specified destination counties. You can update one or multiple countries at a time. The updates are only applied to the specified NumberCapability type."]
module UpdateProtectConfigurationCountryRuleSetRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      numberCapability: NumberCapability.t
        [@ocaml.doc
          "The number capability to apply the CountryRuleSetUpdates updates to."];
      countryRuleSetUpdates: ProtectConfigurationCountryRuleSet.t
        [@ocaml.doc
          "A map of ProtectConfigurationCountryRuleSetInformation objects that contain the details for the requested NumberCapability. The Key is the two-letter ISO country code. For a list of supported ISO country codes, see Supported countries and regions (SMS channel) in the End User Messaging SMS User Guide. For example, to set the United States as allowed and Canada as blocked, the CountryRuleSetUpdates would be formatted as: \"CountryRuleSetUpdates\": \\{ \"US\" : \\{ \"ProtectStatus\": \"ALLOW\" \\} \"CA\" : \\{ \"ProtectStatus\": \"BLOCK\" \\} \\}"]}
    let context_ = "UpdateProtectConfigurationCountryRuleSetRequest"
    let make ~protectConfigurationId =
      fun ~numberCapability ->
        fun ~countryRuleSetUpdates ->
          fun () ->
            { protectConfigurationId; numberCapability; countryRuleSetUpdates
            }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("NumberCapability",
          (Some (NumberCapability.to_value x.numberCapability)));
        ("CountryRuleSetUpdates",
          (Some
             (ProtectConfigurationCountryRuleSet.to_value
                x.countryRuleSetUpdates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let countryRuleSetUpdates =
        ProtectConfigurationCountryRuleSet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CountryRuleSetUpdates") in
      let numberCapability =
        NumberCapability.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NumberCapability") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~countryRuleSetUpdates ~numberCapability ~protectConfigurationId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let countryRuleSetUpdates =
        field_map_exn json__ "CountryRuleSetUpdates"
          ProtectConfigurationCountryRuleSet.of_json in
      let numberCapability =
        field_map_exn json__ "NumberCapability" NumberCapability.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~countryRuleSetUpdates ~numberCapability ~protectConfigurationId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update a country rule set to ALLOW, BLOCK, MONITOR, or FILTER messages to be sent to the specified destination counties. You can update one or multiple countries at a time. The updates are only applied to the specified NumberCapability type."]
module UpdatePoolResult =
  struct
    type nonrec t =
      {
      poolArn: String_.t option [@ocaml.doc "The ARN of the pool."];
      poolId: String_.t option
        [@ocaml.doc "The unique identifier of the pool."];
      status: PoolStatus.t option
        [@ocaml.doc "The current status of the pool update request."];
      messageType: MessageType.t option
        [@ocaml.doc "The type of message for the pool to use."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the OptOutList associated with the pool."];
      sharedRoutesEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "Indicates whether shared routes are enabled for the pool."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc "When set to true the pool can't be deleted."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the pool was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolArn =
      fun ?poolId ->
        fun ?status ->
          fun ?messageType ->
            fun ?twoWayEnabled ->
              fun ?twoWayChannelArn ->
                fun ?twoWayChannelRole ->
                  fun ?selfManagedOptOutsEnabled ->
                    fun ?optOutListName ->
                      fun ?sharedRoutesEnabled ->
                        fun ?deletionProtectionEnabled ->
                          fun ?createdTimestamp ->
                            fun () ->
                              {
                                poolArn;
                                poolId;
                                status;
                                messageType;
                                twoWayEnabled;
                                twoWayChannelArn;
                                twoWayChannelRole;
                                selfManagedOptOutsEnabled;
                                optOutListName;
                                sharedRoutesEnabled;
                                deletionProtectionEnabled;
                                createdTimestamp
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:PoolStatus.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SharedRoutesEnabled",
          (Option.map x.sharedRoutesEnabled ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.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 deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let sharedRoutesEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SharedRoutesEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let status =
        (Option.map ~f:PoolStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?createdTimestamp ?deletionProtectionEnabled ?sharedRoutesEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?messageType ?status ?poolId
        ?poolArn ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let sharedRoutesEnabled =
        field_map json__ "SharedRoutesEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let status = field_map json__ "Status" PoolStatus.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?createdTimestamp ?deletionProtectionEnabled ?sharedRoutesEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?messageType ?status ?poolId
        ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing pool. You can update the opt-out list, enable or disable two-way messaging, change the TwoWayChannelArn, enable or disable self-managed opt-outs, enable or disable deletion protection, and enable or disable shared routes."]
module UpdatePoolRequest =
  struct
    type nonrec t =
      {
      poolId: PoolIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the pool to update. Valid values are either the PoolId or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      twoWayEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListNameOrArn.t option
        [@ocaml.doc
          "The OptOutList to associate with the pool. Valid values are either OptOutListName or OptOutListArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      sharedRoutesEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether shared routes are enabled for the pool."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc "When set to true the pool can't be deleted."]}
    let context_ = "UpdatePoolRequest"
    let make ?twoWayEnabled =
      fun ?twoWayChannelArn ->
        fun ?twoWayChannelRole ->
          fun ?selfManagedOptOutsEnabled ->
            fun ?optOutListName ->
              fun ?sharedRoutesEnabled ->
                fun ?deletionProtectionEnabled ->
                  fun ~poolId ->
                    fun () ->
                      {
                        twoWayEnabled;
                        twoWayChannelArn;
                        twoWayChannelRole;
                        selfManagedOptOutsEnabled;
                        optOutListName;
                        sharedRoutesEnabled;
                        deletionProtectionEnabled;
                        poolId
                      }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (PoolIdOrArn.to_value x.poolId)));
        ("TwoWayEnabled", (Option.map x.twoWayEnabled ~f:Boolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled ~f:Boolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListNameOrArn.to_value));
        ("SharedRoutesEnabled",
          (Option.map x.sharedRoutesEnabled ~f:Boolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let sharedRoutesEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SharedRoutesEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListNameOrArn.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "TwoWayEnabled") in
      let poolId =
        PoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ?deletionProtectionEnabled ?sharedRoutesEnabled ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let sharedRoutesEnabled =
        field_map json__ "SharedRoutesEnabled" Boolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListNameOrArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" Boolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled = field_map json__ "TwoWayEnabled" Boolean.of_json in
      let poolId = field_map_exn json__ "PoolId" PoolIdOrArn.of_json in
      make ?deletionProtectionEnabled ?sharedRoutesEnabled ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing pool. You can update the opt-out list, enable or disable two-way messaging, change the TwoWayChannelArn, enable or disable self-managed opt-outs, enable or disable deletion protection, and enable or disable shared routes."]
module UpdatePhoneNumberResult =
  struct
    type nonrec t =
      {
      phoneNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated phone number."];
      phoneNumberId: String_.t option
        [@ocaml.doc "The unique identifier of the phone number."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number that was updated."];
      status: NumberStatus.t option
        [@ocaml.doc "The current status of the request."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      numberCapabilities: NumberCapabilityList.t option
        [@ocaml.doc
          "Specifies if the number could be used for text messages, voice or both."];
      numberType: NumberType.t option
        [@ocaml.doc "The type of number that was requested."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc
          "The monthly leasing price of the phone number, in US dollars."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc "This is true if self managed opt-out are enabled."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList associated with the phone number."];
      internationalSendingEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true the international sending of phone number is Enabled."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc "When set to true the phone number can't be deleted."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the phone number was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberArn =
      fun ?phoneNumberId ->
        fun ?phoneNumber ->
          fun ?status ->
            fun ?isoCountryCode ->
              fun ?messageType ->
                fun ?numberCapabilities ->
                  fun ?numberType ->
                    fun ?monthlyLeasingPrice ->
                      fun ?twoWayEnabled ->
                        fun ?twoWayChannelArn ->
                          fun ?twoWayChannelRole ->
                            fun ?selfManagedOptOutsEnabled ->
                              fun ?optOutListName ->
                                fun ?internationalSendingEnabled ->
                                  fun ?deletionProtectionEnabled ->
                                    fun ?registrationId ->
                                      fun ?createdTimestamp ->
                                        fun () ->
                                          {
                                            phoneNumberArn;
                                            phoneNumberId;
                                            phoneNumber;
                                            status;
                                            isoCountryCode;
                                            messageType;
                                            numberCapabilities;
                                            numberType;
                                            monthlyLeasingPrice;
                                            twoWayEnabled;
                                            twoWayChannelArn;
                                            twoWayChannelRole;
                                            selfManagedOptOutsEnabled;
                                            optOutListName;
                                            internationalSendingEnabled;
                                            deletionProtectionEnabled;
                                            registrationId;
                                            createdTimestamp
                                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PhoneNumberArn",
           (Option.map x.phoneNumberArn ~f:String_.to_value));
        ("PhoneNumberId", (Option.map x.phoneNumberId ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:NumberStatus.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("NumberCapabilities",
          (Option.map x.numberCapabilities ~f:NumberCapabilityList.to_value));
        ("NumberType", (Option.map x.numberType ~f:NumberType.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("InternationalSendingEnabled",
          (Option.map x.internationalSendingEnabled
             ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.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 registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let internationalSendingEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "InternationalSendingEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let numberType =
        (Option.map ~f:NumberType.of_xml) (Xml.child xml_arg0 "NumberType") in
      let numberCapabilities =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "NumberCapabilities") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let status =
        (Option.map ~f:NumberStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let phoneNumberId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberId") in
      let phoneNumberArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberArn") in
      make ?createdTimestamp ?registrationId ?deletionProtectionEnabled
        ?internationalSendingEnabled ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ?monthlyLeasingPrice ?numberType ?numberCapabilities
        ?messageType ?isoCountryCode ?status ?phoneNumber ?phoneNumberId
        ?phoneNumberArn ()
    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 registrationId = field_map json__ "RegistrationId" String_.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let internationalSendingEnabled =
        field_map json__ "InternationalSendingEnabled"
          PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let numberType = field_map json__ "NumberType" NumberType.of_json in
      let numberCapabilities =
        field_map json__ "NumberCapabilities" NumberCapabilityList.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let status = field_map json__ "Status" NumberStatus.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let phoneNumberId = field_map json__ "PhoneNumberId" String_.of_json in
      let phoneNumberArn = field_map json__ "PhoneNumberArn" String_.of_json in
      make ?createdTimestamp ?registrationId ?deletionProtectionEnabled
        ?internationalSendingEnabled ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ?monthlyLeasingPrice ?numberType ?numberCapabilities
        ?messageType ?isoCountryCode ?status ?phoneNumber ?phoneNumberId
        ?phoneNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing origination phone number. You can update the opt-out list, enable or disable two-way messaging, change the TwoWayChannelArn, enable or disable self-managed opt-outs, and enable or disable deletion protection. If the origination phone number is associated with a pool, an error is returned."]
module UpdatePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: PhoneNumberIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the phone number. Valid values for this field can be either the PhoneNumberId or PhoneNumberArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      twoWayEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListNameOrArn.t option
        [@ocaml.doc
          "The OptOutList to add the phone number to. You can use either the opt out list name or the opt out list ARN."];
      internationalSendingEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the international sending of phone number is Enabled."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the phone number can't be deleted."]}
    let context_ = "UpdatePhoneNumberRequest"
    let make ?twoWayEnabled =
      fun ?twoWayChannelArn ->
        fun ?twoWayChannelRole ->
          fun ?selfManagedOptOutsEnabled ->
            fun ?optOutListName ->
              fun ?internationalSendingEnabled ->
                fun ?deletionProtectionEnabled ->
                  fun ~phoneNumberId ->
                    fun () ->
                      {
                        twoWayEnabled;
                        twoWayChannelArn;
                        twoWayChannelRole;
                        selfManagedOptOutsEnabled;
                        optOutListName;
                        internationalSendingEnabled;
                        deletionProtectionEnabled;
                        phoneNumberId
                      }
    let to_value x =
      structure_to_value
        [("PhoneNumberId",
           (Some (PhoneNumberIdOrArn.to_value x.phoneNumberId)));
        ("TwoWayEnabled", (Option.map x.twoWayEnabled ~f:Boolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled ~f:Boolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListNameOrArn.to_value));
        ("InternationalSendingEnabled",
          (Option.map x.internationalSendingEnabled ~f:Boolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let internationalSendingEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "InternationalSendingEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListNameOrArn.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "TwoWayEnabled") in
      let phoneNumberId =
        PhoneNumberIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumberId") in
      make ?deletionProtectionEnabled ?internationalSendingEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let internationalSendingEnabled =
        field_map json__ "InternationalSendingEnabled" Boolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListNameOrArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" Boolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled = field_map json__ "TwoWayEnabled" Boolean.of_json in
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" PhoneNumberIdOrArn.of_json in
      make ?deletionProtectionEnabled ?internationalSendingEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing origination phone number. You can update the opt-out list, enable or disable two-way messaging, change the TwoWayChannelArn, enable or disable self-managed opt-outs, and enable or disable deletion protection. If the origination phone number is associated with a pool, an error is returned."]
module UpdateNotifyConfigurationResult =
  struct
    type nonrec t =
      {
      notifyConfigurationArn: NotifyConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the notify configuration."];
      notifyConfigurationId: NotifyConfigurationId.t option
        [@ocaml.doc "The unique identifier for the notify configuration."];
      displayName: NotifyConfigurationDisplayName.t option
        [@ocaml.doc
          "The display name associated with the notify configuration."];
      useCase: NotifyConfigurationUseCase.t option
        [@ocaml.doc "The use case for the notify configuration."];
      defaultTemplateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The default template identifier associated with the notify configuration."];
      poolId: String_.t option
        [@ocaml.doc
          "The identifier of the pool associated with the notify configuration."];
      enabledCountries: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, that are enabled for the notify configuration."];
      enabledChannels: NotifyEnabledChannelsList.t option
        [@ocaml.doc
          "An array of channels enabled for the notify configuration. Supported values include SMS and VOICE."];
      tier: NotifyConfigurationTier.t option
        [@ocaml.doc "The tier of the notify configuration."];
      tierUpgradeStatus: TierUpgradeStatus.t option
        [@ocaml.doc "The tier upgrade status of the notify configuration."];
      status: NotifyConfigurationStatus.t option
        [@ocaml.doc "The current status of the notify configuration."];
      rejectionReason: String_.t option
        [@ocaml.doc
          "The reason the notify configuration was rejected, if applicable."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the notify configuration was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifyConfigurationArn =
      fun ?notifyConfigurationId ->
        fun ?displayName ->
          fun ?useCase ->
            fun ?defaultTemplateId ->
              fun ?poolId ->
                fun ?enabledCountries ->
                  fun ?enabledChannels ->
                    fun ?tier ->
                      fun ?tierUpgradeStatus ->
                        fun ?status ->
                          fun ?rejectionReason ->
                            fun ?deletionProtectionEnabled ->
                              fun ?createdTimestamp ->
                                fun () ->
                                  {
                                    notifyConfigurationArn;
                                    notifyConfigurationId;
                                    displayName;
                                    useCase;
                                    defaultTemplateId;
                                    poolId;
                                    enabledCountries;
                                    enabledChannels;
                                    tier;
                                    tierUpgradeStatus;
                                    status;
                                    rejectionReason;
                                    deletionProtectionEnabled;
                                    createdTimestamp
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NotifyConfigurationArn",
           (Option.map x.notifyConfigurationArn
              ~f:NotifyConfigurationArn.to_value));
        ("NotifyConfigurationId",
          (Option.map x.notifyConfigurationId
             ~f:NotifyConfigurationId.to_value));
        ("DisplayName",
          (Option.map x.displayName
             ~f:NotifyConfigurationDisplayName.to_value));
        ("UseCase",
          (Option.map x.useCase ~f:NotifyConfigurationUseCase.to_value));
        ("DefaultTemplateId",
          (Option.map x.defaultTemplateId ~f:NotifyTemplateId.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("EnabledCountries",
          (Option.map x.enabledCountries ~f:IsoCountryCodeList.to_value));
        ("EnabledChannels",
          (Option.map x.enabledChannels ~f:NotifyEnabledChannelsList.to_value));
        ("Tier", (Option.map x.tier ~f:NotifyConfigurationTier.to_value));
        ("TierUpgradeStatus",
          (Option.map x.tierUpgradeStatus ~f:TierUpgradeStatus.to_value));
        ("Status",
          (Option.map x.status ~f:NotifyConfigurationStatus.to_value));
        ("RejectionReason",
          (Option.map x.rejectionReason ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.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 deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let rejectionReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RejectionReason") in
      let status =
        (Option.map ~f:NotifyConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let tierUpgradeStatus =
        (Option.map ~f:TierUpgradeStatus.of_xml)
          (Xml.child xml_arg0 "TierUpgradeStatus") in
      let tier =
        (Option.map ~f:NotifyConfigurationTier.of_xml)
          (Xml.child xml_arg0 "Tier") in
      let enabledChannels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "EnabledChannels") in
      let enabledCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "EnabledCountries") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let defaultTemplateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "DefaultTemplateId") in
      let useCase =
        (Option.map ~f:NotifyConfigurationUseCase.of_xml)
          (Xml.child xml_arg0 "UseCase") in
      let displayName =
        (Option.map ~f:NotifyConfigurationDisplayName.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let notifyConfigurationId =
        (Option.map ~f:NotifyConfigurationId.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationId") in
      let notifyConfigurationArn =
        (Option.map ~f:NotifyConfigurationArn.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationArn") in
      make ?createdTimestamp ?deletionProtectionEnabled ?rejectionReason
        ?status ?tierUpgradeStatus ?tier ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let rejectionReason =
        field_map json__ "RejectionReason" String_.of_json in
      let status =
        field_map json__ "Status" NotifyConfigurationStatus.of_json in
      let tierUpgradeStatus =
        field_map json__ "TierUpgradeStatus" TierUpgradeStatus.of_json in
      let tier = field_map json__ "Tier" NotifyConfigurationTier.of_json in
      let enabledChannels =
        field_map json__ "EnabledChannels" NotifyEnabledChannelsList.of_json in
      let enabledCountries =
        field_map json__ "EnabledCountries" IsoCountryCodeList.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let defaultTemplateId =
        field_map json__ "DefaultTemplateId" NotifyTemplateId.of_json in
      let useCase =
        field_map json__ "UseCase" NotifyConfigurationUseCase.of_json in
      let displayName =
        field_map json__ "DisplayName" NotifyConfigurationDisplayName.of_json in
      let notifyConfigurationId =
        field_map json__ "NotifyConfigurationId"
          NotifyConfigurationId.of_json in
      let notifyConfigurationArn =
        field_map json__ "NotifyConfigurationArn"
          NotifyConfigurationArn.of_json in
      make ?createdTimestamp ?deletionProtectionEnabled ?rejectionReason
        ?status ?tierUpgradeStatus ?tier ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing notify configuration. You can update the default template, pool association, enabled channels, enabled countries, and deletion protection settings."]
module UpdateNotifyConfigurationRequest =
  struct
    type nonrec t =
      {
      notifyConfigurationId: NotifyConfigurationIdOrArn.t
        [@ocaml.doc
          "The identifier of the notify configuration to update. The NotifyConfigurationId can be found using the DescribeNotifyConfigurations operation."];
      defaultTemplateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The template ID to set as the default, or the special value UNSET_DEFAULT_TEMPLATE to clear the current default template."];
      poolId: NotifyPoolIdOrUnset.t option
        [@ocaml.doc
          "The pool ID or ARN to associate, or the special value UNSET_DEFAULT_POOL_FOR_NOTIFY to clear the current default pool."];
      enabledCountries: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, that are enabled for the notify configuration."];
      enabledChannels: NotifyEnabledChannelsList.t option
        [@ocaml.doc
          "An array of channels to enable for the notify configuration. Supported values include SMS and VOICE."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "When set to true the notify configuration can't be deleted."]}
    let context_ = "UpdateNotifyConfigurationRequest"
    let make ?defaultTemplateId =
      fun ?poolId ->
        fun ?enabledCountries ->
          fun ?enabledChannels ->
            fun ?deletionProtectionEnabled ->
              fun ~notifyConfigurationId ->
                fun () ->
                  {
                    defaultTemplateId;
                    poolId;
                    enabledCountries;
                    enabledChannels;
                    deletionProtectionEnabled;
                    notifyConfigurationId
                  }
    let to_value x =
      structure_to_value
        [("NotifyConfigurationId",
           (Some
              (NotifyConfigurationIdOrArn.to_value x.notifyConfigurationId)));
        ("DefaultTemplateId",
          (Option.map x.defaultTemplateId ~f:NotifyTemplateId.to_value));
        ("PoolId", (Option.map x.poolId ~f:NotifyPoolIdOrUnset.to_value));
        ("EnabledCountries",
          (Option.map x.enabledCountries ~f:IsoCountryCodeList.to_value));
        ("EnabledChannels",
          (Option.map x.enabledChannels ~f:NotifyEnabledChannelsList.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let enabledChannels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "EnabledChannels") in
      let enabledCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "EnabledCountries") in
      let poolId =
        (Option.map ~f:NotifyPoolIdOrUnset.of_xml)
          (Xml.child xml_arg0 "PoolId") in
      let defaultTemplateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "DefaultTemplateId") in
      let notifyConfigurationId =
        NotifyConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NotifyConfigurationId") in
      make ?deletionProtectionEnabled ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ~notifyConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let enabledChannels =
        field_map json__ "EnabledChannels" NotifyEnabledChannelsList.of_json in
      let enabledCountries =
        field_map json__ "EnabledCountries" IsoCountryCodeList.of_json in
      let poolId = field_map json__ "PoolId" NotifyPoolIdOrUnset.of_json in
      let defaultTemplateId =
        field_map json__ "DefaultTemplateId" NotifyTemplateId.of_json in
      let notifyConfigurationId =
        field_map_exn json__ "NotifyConfigurationId"
          NotifyConfigurationIdOrArn.of_json in
      make ?deletionProtectionEnabled ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ~notifyConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing notify configuration. You can update the default template, pool association, enabled channels, enabled countries, and deletion protection settings."]
module UpdateEventDestinationResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the ConfigurationSet that was updated."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set."];
      eventDestination: EventDestination.t option
        [@ocaml.doc
          "An EventDestination object containing the details of where events will be logged."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?eventDestination ->
          fun () ->
            { configurationSetArn; configurationSetName; eventDestination }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EventDestination",
          (Option.map x.eventDestination ~f:EventDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestination =
        (Option.map ~f:EventDestination.of_xml)
          (Xml.child xml_arg0 "EventDestination") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?eventDestination ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestination =
        field_map json__ "EventDestination" EventDestination.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?eventDestination ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing event destination in a configuration set. You can update the IAM role ARN for CloudWatch Logs and Firehose. You can also enable or disable the event destination. You may want to update an event destination to change its matching event types or updating the destination resource ARN. You can't change an event destination's type between CloudWatch Logs, Firehose, and Amazon SNS."]
module UpdateEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The configuration set to update with the new event destination. Valid values for this can be the ConfigurationSetName or ConfigurationSetArn."];
      eventDestinationName: EventDestinationName.t
        [@ocaml.doc "The name to use for the event destination."];
      enabled: Boolean.t option
        [@ocaml.doc "When set to true logging is enabled."];
      matchingEventTypes: EventTypeList.t option
        [@ocaml.doc
          "An array of event types that determine which events to log. The TEXT_SENT event type is not supported."];
      cloudWatchLogsDestination: CloudWatchLogsDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination that sends data to CloudWatch Logs."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination for logging to Firehose."];
      snsDestination: SnsDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination that sends data to Amazon SNS."]}
    let context_ = "UpdateEventDestinationRequest"
    let make ?enabled =
      fun ?matchingEventTypes ->
        fun ?cloudWatchLogsDestination ->
          fun ?kinesisFirehoseDestination ->
            fun ?snsDestination ->
              fun ~configurationSetName ->
                fun ~eventDestinationName ->
                  fun () ->
                    {
                      enabled;
                      matchingEventTypes;
                      cloudWatchLogsDestination;
                      kinesisFirehoseDestination;
                      snsDestination;
                      configurationSetName;
                      eventDestinationName
                    }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)));
        ("EventDestinationName",
          (Some (EventDestinationName.to_value x.eventDestinationName)));
        ("Enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("MatchingEventTypes",
          (Option.map x.matchingEventTypes ~f:EventTypeList.to_value));
        ("CloudWatchLogsDestination",
          (Option.map x.cloudWatchLogsDestination
             ~f:CloudWatchLogsDestination.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let cloudWatchLogsDestination =
        (Option.map ~f:CloudWatchLogsDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsDestination") in
      let matchingEventTypes =
        (Option.map ~f:EventTypeList.of_xml)
          (Xml.child xml_arg0 "MatchingEventTypes") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Enabled") in
      let eventDestinationName =
        EventDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?snsDestination ?kinesisFirehoseDestination
        ?cloudWatchLogsDestination ?matchingEventTypes ?enabled
        ~eventDestinationName ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let cloudWatchLogsDestination =
        field_map json__ "CloudWatchLogsDestination"
          CloudWatchLogsDestination.of_json in
      let matchingEventTypes =
        field_map json__ "MatchingEventTypes" EventTypeList.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      let eventDestinationName =
        field_map_exn json__ "EventDestinationName"
          EventDestinationName.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      make ?snsDestination ?kinesisFirehoseDestination
        ?cloudWatchLogsDestination ?matchingEventTypes ?enabled
        ~eventDestinationName ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing event destination in a configuration set. You can update the IAM role ARN for CloudWatch Logs and Firehose. You can also enable or disable the event destination. You may want to update an event destination to change its matching event types or updating the destination resource ARN. You can't change an event destination's type between CloudWatch Logs, Firehose, and Amazon SNS."]
module UntagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association of the specified tags from a resource. For more information on tags see Tags in the End User Messaging SMS User Guide."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "An array of tag key values to unassociate with the resource."]}
    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
       "Removes the association of the specified tags from a resource. For more information on tags see Tags in the End User Messaging SMS User Guide."]
module TagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or overwrites only the specified tags for the specified resource. When you specify an existing tag key, the value is overwritten with the new value. Each tag consists of a key and an optional value. Tag keys must be unique per resource. For more information about tags, see Tags in the End User Messaging SMS User Guide."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: NonEmptyTagList.t
        [@ocaml.doc
          "An array of key and value pair tags that are associated with the resource."]}
    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 (NonEmptyTagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        NonEmptyTagList.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" NonEmptyTagList.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
       "Adds or overwrites only the specified tags for the specified resource. When you specify an existing tag key, the value is overwritten with the new value. Each tag consists of a key and an optional value. Tag keys must be unique per resource. For more information about tags, see Tags in the End User Messaging SMS User Guide."]
module SubmitRegistrationVersionResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The version number of the registration."];
      registrationVersionStatus: RegistrationVersionStatus.t option
        [@ocaml.doc
          "The status of the registration version. APPROVED: Your registration has been approved. ARCHIVED: Your previously approved registration version moves into this status when a more recently submitted version is approved. DENIED: You must fix your registration and resubmit it. DISCARDED: You've abandon this version of their registration to start over with a new version. DRAFT: The initial status of a registration version after it\226\128\153s created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REVIEWING: Your registration has been accepted and is being reviewed. REVOKED: Your previously approved registration has been revoked. SUBMITTED: Your registration has been submitted."];
      registrationVersionStatusHistory:
        RegistrationVersionStatusHistory.t option
        [@ocaml.doc
          "The RegistrationVersionStatusHistory object contains the time stamps for when the reservations status changes."];
      awsReview: PrimitiveBoolean.t option
        [@ocaml.doc
          "Indicates whether AWS review was requested for this registration submission."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?versionNumber ->
          fun ?registrationVersionStatus ->
            fun ?registrationVersionStatusHistory ->
              fun ?awsReview ->
                fun () ->
                  {
                    registrationArn;
                    registrationId;
                    versionNumber;
                    registrationVersionStatus;
                    registrationVersionStatusHistory;
                    awsReview
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("RegistrationVersionStatus",
          (Option.map x.registrationVersionStatus
             ~f:RegistrationVersionStatus.to_value));
        ("RegistrationVersionStatusHistory",
          (Option.map x.registrationVersionStatusHistory
             ~f:RegistrationVersionStatusHistory.to_value));
        ("AwsReview", (Option.map x.awsReview ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsReview =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "AwsReview") in
      let registrationVersionStatusHistory =
        (Option.map ~f:RegistrationVersionStatusHistory.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatusHistory") in
      let registrationVersionStatus =
        (Option.map ~f:RegistrationVersionStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatus") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?awsReview ?registrationVersionStatusHistory
        ?registrationVersionStatus ?versionNumber ?registrationId
        ?registrationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsReview = field_map json__ "AwsReview" PrimitiveBoolean.of_json in
      let registrationVersionStatusHistory =
        field_map json__ "RegistrationVersionStatusHistory"
          RegistrationVersionStatusHistory.of_json in
      let registrationVersionStatus =
        field_map json__ "RegistrationVersionStatus"
          RegistrationVersionStatus.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?awsReview ?registrationVersionStatusHistory
        ?registrationVersionStatus ?versionNumber ?registrationId
        ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Submit the specified registration for review and approval."]
module SubmitRegistrationVersionRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      awsReview: PrimitiveBoolean.t option
        [@ocaml.doc
          "Set to true to request AWS review of the registration. When enabled, AWS will perform additional validation and review of the registration submission before processing."]}
    let context_ = "SubmitRegistrationVersionRequest"
    let make ?awsReview =
      fun ~registrationId -> fun () -> { awsReview; registrationId }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("AwsReview", (Option.map x.awsReview ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsReview =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "AwsReview") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ?awsReview ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsReview = field_map json__ "AwsReview" PrimitiveBoolean.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ?awsReview ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Submit the specified registration for review and approval."]
module SetVoiceMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc
          "The current monthly limit to enforce on sending voice messages."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending voice messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetVoiceMessageSpendLimitOverrideRequest =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t
        [@ocaml.doc "The new monthly limit to enforce on voice messages."]}
    let context_ = "SetVoiceMessageSpendLimitOverrideRequest"
    let make ~monthlyLimit = fun () -> { monthlyLimit }
    let to_value x =
      structure_to_value
        [("MonthlyLimit", (Some (MonthlyLimit.to_value x.monthlyLimit)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        MonthlyLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MonthlyLimit") in
      make ~monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit =
        field_map_exn json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ~monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending voice messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetTextMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc
          "The current monthly limit to enforce on sending text messages."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending text messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetTextMessageSpendLimitOverrideRequest =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t
        [@ocaml.doc "The new monthly limit to enforce on text messages."]}
    let context_ = "SetTextMessageSpendLimitOverrideRequest"
    let make ~monthlyLimit = fun () -> { monthlyLimit }
    let to_value x =
      structure_to_value
        [("MonthlyLimit", (Some (MonthlyLimit.to_value x.monthlyLimit)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        MonthlyLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MonthlyLimit") in
      make ~monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit =
        field_map_exn json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ~monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending text messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetNotifyMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc "The current monthly limit, in US dollars."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending notify messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetNotifyMessageSpendLimitOverrideRequest =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t
        [@ocaml.doc "The new monthly limit to enforce on notify messages."]}
    let context_ = "SetNotifyMessageSpendLimitOverrideRequest"
    let make ~monthlyLimit = fun () -> { monthlyLimit }
    let to_value x =
      structure_to_value
        [("MonthlyLimit", (Some (MonthlyLimit.to_value x.monthlyLimit)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        MonthlyLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MonthlyLimit") in
      make ~monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit =
        field_map_exn json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ~monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending notify messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetMediaMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc
          "The current monthly limit to enforce on sending text messages."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending MMS messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetMediaMessageSpendLimitOverrideRequest =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t
        [@ocaml.doc "The new monthly limit to enforce on text messages."]}
    let context_ = "SetMediaMessageSpendLimitOverrideRequest"
    let make ~monthlyLimit = fun () -> { monthlyLimit }
    let to_value x =
      structure_to_value
        [("MonthlyLimit", (Some (MonthlyLimit.to_value x.monthlyLimit)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        MonthlyLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MonthlyLimit") in
      make ~monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit =
        field_map_exn json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ~monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets an account level monthly spend limit override for sending MMS messages. The requested spend limit must be less than or equal to the MaxLimit, which is set by Amazon Web Services."]
module SetDefaultSenderIdResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set that was updated."];
      senderId: SenderId.t option
        [@ocaml.doc "The default sender ID to set for the ConfigurationSet."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?senderId ->
          fun () -> { configurationSetArn; configurationSetName; senderId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("SenderId", (Option.map x.senderId ~f:SenderId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let senderId =
        (Option.map ~f:SenderId.of_xml) (Xml.child xml_arg0 "SenderId") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?senderId ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let senderId = field_map json__ "SenderId" SenderId.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?senderId ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets default sender ID on a configuration set. When sending a text message to a destination country that supports sender IDs, the default sender ID on the configuration set specified will be used if no dedicated origination phone numbers or registered sender IDs are available in your account."]
module SetDefaultSenderIdRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The configuration set to updated with a new default SenderId. This field can be the ConsigurationSetName or ConfigurationSetArn."];
      senderId: SenderId.t
        [@ocaml.doc
          "The current sender ID for the configuration set. When sending a text message to a destination country which supports SenderIds, the default sender ID on the configuration set specified on SendTextMessage will be used if no dedicated origination phone numbers or registered SenderIds are available in your account, instead of a generic sender ID, such as 'NOTICE'."]}
    let context_ = "SetDefaultSenderIdRequest"
    let make ~configurationSetName =
      fun ~senderId -> fun () -> { configurationSetName; senderId }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)));
        ("SenderId", (Some (SenderId.to_value x.senderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let senderId =
        SenderId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SenderId") in
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~senderId ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let senderId = field_map_exn json__ "SenderId" SenderId.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      make ~senderId ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets default sender ID on a configuration set. When sending a text message to a destination country that supports sender IDs, the default sender ID on the configuration set specified will be used if no dedicated origination phone numbers or registered sender IDs are available in your account."]
module SetDefaultMessageTypeResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set that was updated."];
      messageType: MessageType.t option
        [@ocaml.doc "The new default message type of the configuration set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?messageType ->
          fun () ->
            { configurationSetArn; configurationSetName; messageType }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?messageType ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?messageType ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the default message type on a configuration set. Choose the category of SMS messages that you plan to send from this account. If you send account-related messages or time-sensitive messages such as one-time passcodes, choose Transactional. If you plan to send messages that contain marketing material or other promotional content, choose Promotional. This setting applies to your entire Amazon Web Services account."]
module SetDefaultMessageTypeRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The configuration set to update with a new default message type. This field can be the ConsigurationSetName or ConfigurationSetArn."];
      messageType: MessageType.t
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."]}
    let context_ = "SetDefaultMessageTypeRequest"
    let make ~configurationSetName =
      fun ~messageType -> fun () -> { configurationSetName; messageType }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)));
        ("MessageType", (Some (MessageType.to_value x.messageType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageType =
        MessageType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageType") in
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~messageType ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageType =
        field_map_exn json__ "MessageType" MessageType.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      make ~messageType ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the default message type on a configuration set. Choose the category of SMS messages that you plan to send from this account. If you send account-related messages or time-sensitive messages such as one-time passcodes, choose Transactional. If you plan to send messages that contain marketing material or other promotional content, choose Promotional. This setting applies to your entire Amazon Web Services account."]
module SetDefaultMessageFeedbackEnabledResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc "The arn of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration."];
      messageFeedbackEnabled: Boolean.t option
        [@ocaml.doc "True if message feedback is enabled."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?messageFeedbackEnabled ->
          fun () ->
            {
              configurationSetArn;
              configurationSetName;
              messageFeedbackEnabled
            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("MessageFeedbackEnabled",
          (Option.map x.messageFeedbackEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackEnabled") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?messageFeedbackEnabled ?configurationSetName ?configurationSetArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map json__ "MessageFeedbackEnabled" Boolean.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?messageFeedbackEnabled ?configurationSetName ?configurationSetArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sets a configuration set's default for message feedback."]
module SetDefaultMessageFeedbackEnabledRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      messageFeedbackEnabled: Boolean.t
        [@ocaml.doc "Set to true to enable message feedback."]}
    let context_ = "SetDefaultMessageFeedbackEnabledRequest"
    let make ~configurationSetName =
      fun ~messageFeedbackEnabled ->
        fun () -> { configurationSetName; messageFeedbackEnabled }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)));
        ("MessageFeedbackEnabled",
          (Some (Boolean.to_value x.messageFeedbackEnabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageFeedbackEnabled") in
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ~messageFeedbackEnabled ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map_exn json__ "MessageFeedbackEnabled" Boolean.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      make ~messageFeedbackEnabled ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sets a configuration set's default for message feedback."]
module SetAccountDefaultProtectConfigurationResult =
  struct
    type nonrec t =
      {
      defaultProtectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the account default protect configuration."];
      defaultProtectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc
          "The unique identifier of the account default protect configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?defaultProtectConfigurationArn =
      fun ?defaultProtectConfigurationId ->
        fun () ->
          { defaultProtectConfigurationArn; defaultProtectConfigurationId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("DefaultProtectConfigurationArn",
           (Option.map x.defaultProtectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("DefaultProtectConfigurationId",
          (Option.map x.defaultProtectConfigurationId
             ~f:ProtectConfigurationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultProtectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "DefaultProtectConfigurationId") in
      let defaultProtectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "DefaultProtectConfigurationArn") in
      make ?defaultProtectConfigurationId ?defaultProtectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultProtectConfigurationId =
        field_map json__ "DefaultProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let defaultProtectConfigurationArn =
        field_map json__ "DefaultProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?defaultProtectConfigurationId ?defaultProtectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set a protect configuration as your account default. You can only have one account default protect configuration at a time. The current account default protect configuration is replaced with the provided protect configuration."]
module SetAccountDefaultProtectConfigurationRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."]}
    let context_ = "SetAccountDefaultProtectConfigurationRequest"
    let make ~protectConfigurationId = fun () -> { protectConfigurationId }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set a protect configuration as your account default. You can only have one account default protect configuration at a time. The current account default protect configuration is replaced with the provided protect configuration."]
module SendVoiceMessageResult =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for the message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId = fun () -> { messageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows you to send a request that sends a voice message. This operation uses Amazon Polly to convert a text script into a voice message."]
module SendVoiceMessageRequest =
  struct
    type nonrec t =
      {
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."];
      originationIdentity: VoiceMessageOriginationIdentity.t
        [@ocaml.doc
          "The origination identity to use for the voice call. This can be the PhoneNumber, PhoneNumberId, PhoneNumberArn, PoolId, or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      messageBody: VoiceMessageBody.t option
        [@ocaml.doc "The text to convert to a voice message."];
      messageBodyTextType: VoiceMessageBodyTextType.t option
        [@ocaml.doc
          "Specifies if the MessageBody field contains text or speech synthesis markup language (SSML). TEXT: This is the default value. When used the maximum character limit is 3000. SSML: When used the maximum character limit is 6000 including SSML tagging."];
      voiceId: VoiceId.t option
        [@ocaml.doc
          "The voice for the Amazon Polly service to use. By default this is set to \"MATTHEW\"."];
      configurationSetName: ConfigurationSetNameOrArn.t option
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      maxPricePerMinute: MaxPrice.t option
        [@ocaml.doc
          "The maximum amount to spend per voice message, in US dollars."];
      timeToLive: TimeToLive.t option
        [@ocaml.doc
          "How long the voice message is valid for. By default this is 72 hours."];
      context: ContextMap.t option
        [@ocaml.doc
          "You can specify custom data in this field. If you do, that data is logged to the event destination."];
      dryRun: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true, the message is checked and validated, but isn't sent to the end recipient."];
      protectConfigurationId: ProtectConfigurationIdOrArn.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      messageFeedbackEnabled: Boolean.t option
        [@ocaml.doc
          "Set to true to enable message feedback for the message. When a user receives the message you need to update the message status using PutMessageFeedback."]}
    let context_ = "SendVoiceMessageRequest"
    let make ?messageBody =
      fun ?messageBodyTextType ->
        fun ?voiceId ->
          fun ?configurationSetName ->
            fun ?maxPricePerMinute ->
              fun ?timeToLive ->
                fun ?context ->
                  fun ?dryRun ->
                    fun ?protectConfigurationId ->
                      fun ?messageFeedbackEnabled ->
                        fun ~destinationPhoneNumber ->
                          fun ~originationIdentity ->
                            fun () ->
                              {
                                messageBody;
                                messageBodyTextType;
                                voiceId;
                                configurationSetName;
                                maxPricePerMinute;
                                timeToLive;
                                context;
                                dryRun;
                                protectConfigurationId;
                                messageFeedbackEnabled;
                                destinationPhoneNumber;
                                originationIdentity
                              }
    let to_value x =
      structure_to_value
        [("DestinationPhoneNumber",
           (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("OriginationIdentity",
          (Some
             (VoiceMessageOriginationIdentity.to_value x.originationIdentity)));
        ("MessageBody",
          (Option.map x.messageBody ~f:VoiceMessageBody.to_value));
        ("MessageBodyTextType",
          (Option.map x.messageBodyTextType
             ~f:VoiceMessageBodyTextType.to_value));
        ("VoiceId", (Option.map x.voiceId ~f:VoiceId.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:ConfigurationSetNameOrArn.to_value));
        ("MaxPricePerMinute",
          (Option.map x.maxPricePerMinute ~f:MaxPrice.to_value));
        ("TimeToLive", (Option.map x.timeToLive ~f:TimeToLive.to_value));
        ("Context", (Option.map x.context ~f:ContextMap.to_value));
        ("DryRun", (Option.map x.dryRun ~f:PrimitiveBoolean.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationIdOrArn.to_value));
        ("MessageFeedbackEnabled",
          (Option.map x.messageFeedbackEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackEnabled") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationIdOrArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let dryRun =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let context =
        (Option.map ~f:ContextMap.of_xml) (Xml.child xml_arg0 "Context") in
      let timeToLive =
        (Option.map ~f:TimeToLive.of_xml) (Xml.child xml_arg0 "TimeToLive") in
      let maxPricePerMinute =
        (Option.map ~f:MaxPrice.of_xml)
          (Xml.child xml_arg0 "MaxPricePerMinute") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetNameOrArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let voiceId =
        (Option.map ~f:VoiceId.of_xml) (Xml.child xml_arg0 "VoiceId") in
      let messageBodyTextType =
        (Option.map ~f:VoiceMessageBodyTextType.of_xml)
          (Xml.child xml_arg0 "MessageBodyTextType") in
      let messageBody =
        (Option.map ~f:VoiceMessageBody.of_xml)
          (Xml.child xml_arg0 "MessageBody") in
      let originationIdentity =
        VoiceMessageOriginationIdentity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      make ?messageFeedbackEnabled ?protectConfigurationId ?dryRun ?context
        ?timeToLive ?maxPricePerMinute ?configurationSetName ?voiceId
        ?messageBodyTextType ?messageBody ~originationIdentity
        ~destinationPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map json__ "MessageFeedbackEnabled" Boolean.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      let dryRun = field_map json__ "DryRun" PrimitiveBoolean.of_json in
      let context = field_map json__ "Context" ContextMap.of_json in
      let timeToLive = field_map json__ "TimeToLive" TimeToLive.of_json in
      let maxPricePerMinute =
        field_map json__ "MaxPricePerMinute" MaxPrice.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let voiceId = field_map json__ "VoiceId" VoiceId.of_json in
      let messageBodyTextType =
        field_map json__ "MessageBodyTextType"
          VoiceMessageBodyTextType.of_json in
      let messageBody =
        field_map json__ "MessageBody" VoiceMessageBody.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity"
          VoiceMessageOriginationIdentity.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      make ?messageFeedbackEnabled ?protectConfigurationId ?dryRun ?context
        ?timeToLive ?maxPricePerMinute ?configurationSetName ?voiceId
        ?messageBodyTextType ?messageBody ~originationIdentity
        ~destinationPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows you to send a request that sends a voice message. This operation uses Amazon Polly to convert a text script into a voice message."]
module SendTextMessageResult =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for the message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId = fun () -> { messageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new text message and sends it to a recipient's phone number. SendTextMessage only sends an SMS message to one recipient each time it is invoked. SMS throughput limits are measured in Message Parts per Second (MPS). Your MPS limit depends on the destination country of your messages, as well as the type of phone number (origination number) that you use to send the message. For more information about MPS, see Message Parts per Second (MPS) limits in the End User Messaging SMS User Guide."]
module SendTextMessageRequest =
  struct
    type nonrec t =
      {
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."];
      originationIdentity: TextMessageOriginationIdentity.t option
        [@ocaml.doc
          "The origination identity of the message. This can be either the PhoneNumber, PhoneNumberId, PhoneNumberArn, SenderId, SenderIdArn, PoolId, or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      messageBody: TextMessageBody.t option
        [@ocaml.doc "The body of the text message."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The type of message. Valid values are for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      keyword: Keyword.t option
        [@ocaml.doc
          "When you register a short code in the US, you must specify a program name. If you don\226\128\153t have a US short code, omit this attribute."];
      configurationSetName: ConfigurationSetNameOrArn.t option
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      maxPrice: MaxPrice.t option
        [@ocaml.doc
          "The maximum amount that you want to spend, in US dollars, per each text message. If the calculated amount to send the text message is greater than MaxPrice, the message is not sent and an error is returned."];
      timeToLive: TimeToLive.t option
        [@ocaml.doc
          "How long the text message is valid for, in seconds. By default this is 72 hours. If the messages isn't handed off before the TTL expires we stop attempting to hand off the message and return TTL_EXPIRED event."];
      context: ContextMap.t option
        [@ocaml.doc
          "You can specify custom data in this field. If you do, that data is logged to the event destination."];
      destinationCountryParameters: DestinationCountryParameters.t option
        [@ocaml.doc
          "This field is used for any country-specific registration requirements. Currently, this setting is only used when you send messages to recipients in India using a sender ID. For more information see Special requirements for sending SMS messages to recipients in India. IN_ENTITY_ID The entity ID or Principal Entity (PE) ID that you received after completing the sender ID registration process. IN_TEMPLATE_ID The template ID that you received after completing the sender ID registration process. Make sure that the Template ID that you specify matches your message template exactly. If your message doesn't match the template that you provided during the registration process, the mobile carriers might reject your message."];
      dryRun: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true, the message is checked and validated, but isn't sent to the end recipient. You are not charged for using DryRun. The Message Parts per Second (MPS) limit when using DryRun is five. If your origination identity has a lower MPS limit then the lower MPS limit is used. For more information about MPS limits, see Message Parts per Second (MPS) limits in the End User Messaging SMS User Guide.."];
      protectConfigurationId: ProtectConfigurationIdOrArn.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      messageFeedbackEnabled: Boolean.t option
        [@ocaml.doc
          "Set to true to enable message feedback for the message. When a user receives the message you need to update the message status using PutMessageFeedback."]}
    let context_ = "SendTextMessageRequest"
    let make ?originationIdentity =
      fun ?messageBody ->
        fun ?messageType ->
          fun ?keyword ->
            fun ?configurationSetName ->
              fun ?maxPrice ->
                fun ?timeToLive ->
                  fun ?context ->
                    fun ?destinationCountryParameters ->
                      fun ?dryRun ->
                        fun ?protectConfigurationId ->
                          fun ?messageFeedbackEnabled ->
                            fun ~destinationPhoneNumber ->
                              fun () ->
                                {
                                  originationIdentity;
                                  messageBody;
                                  messageType;
                                  keyword;
                                  configurationSetName;
                                  maxPrice;
                                  timeToLive;
                                  context;
                                  destinationCountryParameters;
                                  dryRun;
                                  protectConfigurationId;
                                  messageFeedbackEnabled;
                                  destinationPhoneNumber
                                }
    let to_value x =
      structure_to_value
        [("DestinationPhoneNumber",
           (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("OriginationIdentity",
          (Option.map x.originationIdentity
             ~f:TextMessageOriginationIdentity.to_value));
        ("MessageBody",
          (Option.map x.messageBody ~f:TextMessageBody.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("Keyword", (Option.map x.keyword ~f:Keyword.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:ConfigurationSetNameOrArn.to_value));
        ("MaxPrice", (Option.map x.maxPrice ~f:MaxPrice.to_value));
        ("TimeToLive", (Option.map x.timeToLive ~f:TimeToLive.to_value));
        ("Context", (Option.map x.context ~f:ContextMap.to_value));
        ("DestinationCountryParameters",
          (Option.map x.destinationCountryParameters
             ~f:DestinationCountryParameters.to_value));
        ("DryRun", (Option.map x.dryRun ~f:PrimitiveBoolean.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationIdOrArn.to_value));
        ("MessageFeedbackEnabled",
          (Option.map x.messageFeedbackEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackEnabled") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationIdOrArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let dryRun =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let destinationCountryParameters =
        (Option.map ~f:DestinationCountryParameters.of_xml)
          (Xml.child xml_arg0 "DestinationCountryParameters") in
      let context =
        (Option.map ~f:ContextMap.of_xml) (Xml.child xml_arg0 "Context") in
      let timeToLive =
        (Option.map ~f:TimeToLive.of_xml) (Xml.child xml_arg0 "TimeToLive") in
      let maxPrice =
        (Option.map ~f:MaxPrice.of_xml) (Xml.child xml_arg0 "MaxPrice") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetNameOrArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let keyword =
        (Option.map ~f:Keyword.of_xml) (Xml.child xml_arg0 "Keyword") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let messageBody =
        (Option.map ~f:TextMessageBody.of_xml)
          (Xml.child xml_arg0 "MessageBody") in
      let originationIdentity =
        (Option.map ~f:TextMessageOriginationIdentity.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      make ?messageFeedbackEnabled ?protectConfigurationId ?dryRun
        ?destinationCountryParameters ?context ?timeToLive ?maxPrice
        ?configurationSetName ?keyword ?messageType ?messageBody
        ?originationIdentity ~destinationPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map json__ "MessageFeedbackEnabled" Boolean.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      let dryRun = field_map json__ "DryRun" PrimitiveBoolean.of_json in
      let destinationCountryParameters =
        field_map json__ "DestinationCountryParameters"
          DestinationCountryParameters.of_json in
      let context = field_map json__ "Context" ContextMap.of_json in
      let timeToLive = field_map json__ "TimeToLive" TimeToLive.of_json in
      let maxPrice = field_map json__ "MaxPrice" MaxPrice.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let keyword = field_map json__ "Keyword" Keyword.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let messageBody =
        field_map json__ "MessageBody" TextMessageBody.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity"
          TextMessageOriginationIdentity.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      make ?messageFeedbackEnabled ?protectConfigurationId ?dryRun
        ?destinationCountryParameters ?context ?timeToLive ?maxPrice
        ?configurationSetName ?keyword ?messageType ?messageBody
        ?originationIdentity ~destinationPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new text message and sends it to a recipient's phone number. SendTextMessage only sends an SMS message to one recipient each time it is invoked. SMS throughput limits are measured in Message Parts per Second (MPS). Your MPS limit depends on the destination country of your messages, as well as the type of phone number (origination number) that you use to send the message. For more information about MPS, see Message Parts per Second (MPS) limits in the End User Messaging SMS User Guide."]
module SendNotifyVoiceMessageResult =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for the message."];
      templateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The unique identifier of the template used for the message."];
      resolvedMessageBody: String_.t option
        [@ocaml.doc
          "The message body after template variable substitution has been applied."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId =
      fun ?templateId ->
        fun ?resolvedMessageBody ->
          fun () -> { messageId; templateId; resolvedMessageBody }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value));
        ("TemplateId",
          (Option.map x.templateId ~f:NotifyTemplateId.to_value));
        ("ResolvedMessageBody",
          (Option.map x.resolvedMessageBody ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolvedMessageBody =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ResolvedMessageBody") in
      let templateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "TemplateId") in
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?resolvedMessageBody ?templateId ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolvedMessageBody =
        field_map json__ "ResolvedMessageBody" String_.of_json in
      let templateId = field_map json__ "TemplateId" NotifyTemplateId.of_json in
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?resolvedMessageBody ?templateId ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends a templated voice message through a notify configuration to a recipient's phone number."]
module SendNotifyVoiceMessageRequest =
  struct
    type nonrec t =
      {
      notifyConfigurationId: NotifyConfigurationIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the notify configuration to use for sending the message. This can be either the NotifyConfigurationId or NotifyConfigurationArn."];
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."];
      templateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The unique identifier of the template to use for the message."];
      templateVariables: TemplateVariableSubstitutionMap.t
        [@ocaml.doc
          "A map of template variable names and their values. All variable values are passed as strings regardless of the declared variable type. For example, pass INTEGER values as \"42\" and BOOLEAN values as \"true\" or \"false\"."];
      voiceId: VoiceId.t option
        [@ocaml.doc "The voice ID to use for the voice message."];
      timeToLive: TimeToLive.t option
        [@ocaml.doc
          "How long the voice message is valid for, in seconds. By default this is 72 hours."];
      context: ContextMap.t option
        [@ocaml.doc
          "You can specify custom data in this field. If you do, that data is logged to the event destination."];
      configurationSetName: ConfigurationSetNameOrArn.t option
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      dryRun: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true, the message is checked and validated, but isn't sent to the end recipient."];
      messageFeedbackEnabled: Boolean.t option
        [@ocaml.doc
          "Set to true to enable message feedback for the message. When a user receives the message you need to update the message status using PutMessageFeedback."]}
    let context_ = "SendNotifyVoiceMessageRequest"
    let make ?templateId =
      fun ?voiceId ->
        fun ?timeToLive ->
          fun ?context ->
            fun ?configurationSetName ->
              fun ?dryRun ->
                fun ?messageFeedbackEnabled ->
                  fun ~notifyConfigurationId ->
                    fun ~destinationPhoneNumber ->
                      fun ~templateVariables ->
                        fun () ->
                          {
                            templateId;
                            voiceId;
                            timeToLive;
                            context;
                            configurationSetName;
                            dryRun;
                            messageFeedbackEnabled;
                            notifyConfigurationId;
                            destinationPhoneNumber;
                            templateVariables
                          }
    let to_value x =
      structure_to_value
        [("NotifyConfigurationId",
           (Some
              (NotifyConfigurationIdOrArn.to_value x.notifyConfigurationId)));
        ("DestinationPhoneNumber",
          (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("TemplateId",
          (Option.map x.templateId ~f:NotifyTemplateId.to_value));
        ("TemplateVariables",
          (Some
             (TemplateVariableSubstitutionMap.to_value x.templateVariables)));
        ("VoiceId", (Option.map x.voiceId ~f:VoiceId.to_value));
        ("TimeToLive", (Option.map x.timeToLive ~f:TimeToLive.to_value));
        ("Context", (Option.map x.context ~f:ContextMap.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:ConfigurationSetNameOrArn.to_value));
        ("DryRun", (Option.map x.dryRun ~f:PrimitiveBoolean.to_value));
        ("MessageFeedbackEnabled",
          (Option.map x.messageFeedbackEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackEnabled") in
      let dryRun =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetNameOrArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let context =
        (Option.map ~f:ContextMap.of_xml) (Xml.child xml_arg0 "Context") in
      let timeToLive =
        (Option.map ~f:TimeToLive.of_xml) (Xml.child xml_arg0 "TimeToLive") in
      let voiceId =
        (Option.map ~f:VoiceId.of_xml) (Xml.child xml_arg0 "VoiceId") in
      let templateVariables =
        TemplateVariableSubstitutionMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateVariables") in
      let templateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "TemplateId") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      let notifyConfigurationId =
        NotifyConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NotifyConfigurationId") in
      make ?messageFeedbackEnabled ?dryRun ?configurationSetName ?context
        ?timeToLive ?voiceId ~templateVariables ?templateId
        ~destinationPhoneNumber ~notifyConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map json__ "MessageFeedbackEnabled" Boolean.of_json in
      let dryRun = field_map json__ "DryRun" PrimitiveBoolean.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let context = field_map json__ "Context" ContextMap.of_json in
      let timeToLive = field_map json__ "TimeToLive" TimeToLive.of_json in
      let voiceId = field_map json__ "VoiceId" VoiceId.of_json in
      let templateVariables =
        field_map_exn json__ "TemplateVariables"
          TemplateVariableSubstitutionMap.of_json in
      let templateId = field_map json__ "TemplateId" NotifyTemplateId.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let notifyConfigurationId =
        field_map_exn json__ "NotifyConfigurationId"
          NotifyConfigurationIdOrArn.of_json in
      make ?messageFeedbackEnabled ?dryRun ?configurationSetName ?context
        ?timeToLive ?voiceId ~templateVariables ?templateId
        ~destinationPhoneNumber ~notifyConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends a templated voice message through a notify configuration to a recipient's phone number."]
module SendNotifyTextMessageResult =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for the message."];
      templateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The unique identifier of the template used for the message."];
      resolvedMessageBody: String_.t option
        [@ocaml.doc
          "The message body after template variable substitution has been applied."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId =
      fun ?templateId ->
        fun ?resolvedMessageBody ->
          fun () -> { messageId; templateId; resolvedMessageBody }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value));
        ("TemplateId",
          (Option.map x.templateId ~f:NotifyTemplateId.to_value));
        ("ResolvedMessageBody",
          (Option.map x.resolvedMessageBody ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolvedMessageBody =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ResolvedMessageBody") in
      let templateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "TemplateId") in
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?resolvedMessageBody ?templateId ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolvedMessageBody =
        field_map json__ "ResolvedMessageBody" String_.of_json in
      let templateId = field_map json__ "TemplateId" NotifyTemplateId.of_json in
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?resolvedMessageBody ?templateId ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends a templated text message through a notify configuration to a recipient's phone number."]
module SendNotifyTextMessageRequest =
  struct
    type nonrec t =
      {
      notifyConfigurationId: NotifyConfigurationIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the notify configuration to use for sending the message. This can be either the NotifyConfigurationId or NotifyConfigurationArn."];
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."];
      templateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The unique identifier of the template to use for the message."];
      templateVariables: TemplateVariableSubstitutionMap.t
        [@ocaml.doc
          "A map of template variable names and their values. All variable values are passed as strings regardless of the declared variable type. For example, pass INTEGER values as \"42\" and BOOLEAN values as \"true\" or \"false\"."];
      timeToLive: TimeToLive.t option
        [@ocaml.doc
          "How long the text message is valid for, in seconds. By default this is 72 hours."];
      context: ContextMap.t option
        [@ocaml.doc
          "You can specify custom data in this field. If you do, that data is logged to the event destination."];
      configurationSetName: ConfigurationSetNameOrArn.t option
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      dryRun: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true, the message is checked and validated, but isn't sent to the end recipient."];
      messageFeedbackEnabled: Boolean.t option
        [@ocaml.doc
          "Set to true to enable message feedback for the message. When a user receives the message you need to update the message status using PutMessageFeedback."]}
    let context_ = "SendNotifyTextMessageRequest"
    let make ?templateId =
      fun ?timeToLive ->
        fun ?context ->
          fun ?configurationSetName ->
            fun ?dryRun ->
              fun ?messageFeedbackEnabled ->
                fun ~notifyConfigurationId ->
                  fun ~destinationPhoneNumber ->
                    fun ~templateVariables ->
                      fun () ->
                        {
                          templateId;
                          timeToLive;
                          context;
                          configurationSetName;
                          dryRun;
                          messageFeedbackEnabled;
                          notifyConfigurationId;
                          destinationPhoneNumber;
                          templateVariables
                        }
    let to_value x =
      structure_to_value
        [("NotifyConfigurationId",
           (Some
              (NotifyConfigurationIdOrArn.to_value x.notifyConfigurationId)));
        ("DestinationPhoneNumber",
          (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("TemplateId",
          (Option.map x.templateId ~f:NotifyTemplateId.to_value));
        ("TemplateVariables",
          (Some
             (TemplateVariableSubstitutionMap.to_value x.templateVariables)));
        ("TimeToLive", (Option.map x.timeToLive ~f:TimeToLive.to_value));
        ("Context", (Option.map x.context ~f:ContextMap.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:ConfigurationSetNameOrArn.to_value));
        ("DryRun", (Option.map x.dryRun ~f:PrimitiveBoolean.to_value));
        ("MessageFeedbackEnabled",
          (Option.map x.messageFeedbackEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackEnabled") in
      let dryRun =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetNameOrArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let context =
        (Option.map ~f:ContextMap.of_xml) (Xml.child xml_arg0 "Context") in
      let timeToLive =
        (Option.map ~f:TimeToLive.of_xml) (Xml.child xml_arg0 "TimeToLive") in
      let templateVariables =
        TemplateVariableSubstitutionMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TemplateVariables") in
      let templateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "TemplateId") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      let notifyConfigurationId =
        NotifyConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NotifyConfigurationId") in
      make ?messageFeedbackEnabled ?dryRun ?configurationSetName ?context
        ?timeToLive ~templateVariables ?templateId ~destinationPhoneNumber
        ~notifyConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map json__ "MessageFeedbackEnabled" Boolean.of_json in
      let dryRun = field_map json__ "DryRun" PrimitiveBoolean.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let context = field_map json__ "Context" ContextMap.of_json in
      let timeToLive = field_map json__ "TimeToLive" TimeToLive.of_json in
      let templateVariables =
        field_map_exn json__ "TemplateVariables"
          TemplateVariableSubstitutionMap.of_json in
      let templateId = field_map json__ "TemplateId" NotifyTemplateId.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let notifyConfigurationId =
        field_map_exn json__ "NotifyConfigurationId"
          NotifyConfigurationIdOrArn.of_json in
      make ?messageFeedbackEnabled ?dryRun ?configurationSetName ?context
        ?timeToLive ~templateVariables ?templateId ~destinationPhoneNumber
        ~notifyConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends a templated text message through a notify configuration to a recipient's phone number."]
module SendMediaMessageResult =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for the message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId = fun () -> { messageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new multimedia message (MMS) and sends it to a recipient's phone number."]
module SendMediaMessageRequest =
  struct
    type nonrec t =
      {
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."];
      originationIdentity: MediaMessageOriginationIdentity.t
        [@ocaml.doc
          "The origination identity of the message. This can be either the PhoneNumber, PhoneNumberId, PhoneNumberArn, SenderId, SenderIdArn, PoolId, or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      messageBody: TextMessageBody.t option
        [@ocaml.doc "The text body of the message."];
      mediaUrls: MediaUrlList.t option
        [@ocaml.doc
          "An array of URLs to each media file to send. The media files have to be stored in an S3 bucket. Supported media file formats are listed in MMS file types, size and character limits. For more information on creating an S3 bucket and managing objects, see Creating a bucket, Uploading objects in the Amazon S3 User Guide, and Setting up an Amazon S3 bucket for MMS files in the Amazon Web Services End User Messaging SMS User Guide."];
      configurationSetName: ConfigurationSetNameOrArn.t option
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      maxPrice: MaxPrice.t option
        [@ocaml.doc
          "The maximum amount that you want to spend, in US dollars, per each MMS message."];
      timeToLive: TimeToLive.t option
        [@ocaml.doc
          "How long the media message is valid for. By default this is 72 hours."];
      context: ContextMap.t option
        [@ocaml.doc
          "You can specify custom data in this field. If you do, that data is logged to the event destination."];
      dryRun: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true, the message is checked and validated, but isn't sent to the end recipient."];
      protectConfigurationId: ProtectConfigurationIdOrArn.t option
        [@ocaml.doc
          "The unique identifier of the protect configuration to use."];
      messageFeedbackEnabled: Boolean.t option
        [@ocaml.doc
          "Set to true to enable message feedback for the message. When a user receives the message you need to update the message status using PutMessageFeedback."]}
    let context_ = "SendMediaMessageRequest"
    let make ?messageBody =
      fun ?mediaUrls ->
        fun ?configurationSetName ->
          fun ?maxPrice ->
            fun ?timeToLive ->
              fun ?context ->
                fun ?dryRun ->
                  fun ?protectConfigurationId ->
                    fun ?messageFeedbackEnabled ->
                      fun ~destinationPhoneNumber ->
                        fun ~originationIdentity ->
                          fun () ->
                            {
                              messageBody;
                              mediaUrls;
                              configurationSetName;
                              maxPrice;
                              timeToLive;
                              context;
                              dryRun;
                              protectConfigurationId;
                              messageFeedbackEnabled;
                              destinationPhoneNumber;
                              originationIdentity
                            }
    let to_value x =
      structure_to_value
        [("DestinationPhoneNumber",
           (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("OriginationIdentity",
          (Some
             (MediaMessageOriginationIdentity.to_value x.originationIdentity)));
        ("MessageBody",
          (Option.map x.messageBody ~f:TextMessageBody.to_value));
        ("MediaUrls", (Option.map x.mediaUrls ~f:MediaUrlList.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:ConfigurationSetNameOrArn.to_value));
        ("MaxPrice", (Option.map x.maxPrice ~f:MaxPrice.to_value));
        ("TimeToLive", (Option.map x.timeToLive ~f:TimeToLive.to_value));
        ("Context", (Option.map x.context ~f:ContextMap.to_value));
        ("DryRun", (Option.map x.dryRun ~f:PrimitiveBoolean.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationIdOrArn.to_value));
        ("MessageFeedbackEnabled",
          (Option.map x.messageFeedbackEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackEnabled") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationIdOrArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let dryRun =
        (Option.map ~f:PrimitiveBoolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let context =
        (Option.map ~f:ContextMap.of_xml) (Xml.child xml_arg0 "Context") in
      let timeToLive =
        (Option.map ~f:TimeToLive.of_xml) (Xml.child xml_arg0 "TimeToLive") in
      let maxPrice =
        (Option.map ~f:MaxPrice.of_xml) (Xml.child xml_arg0 "MaxPrice") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetNameOrArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let mediaUrls =
        (Option.map ~f:MediaUrlList.of_xml) (Xml.child xml_arg0 "MediaUrls") in
      let messageBody =
        (Option.map ~f:TextMessageBody.of_xml)
          (Xml.child xml_arg0 "MessageBody") in
      let originationIdentity =
        MediaMessageOriginationIdentity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      make ?messageFeedbackEnabled ?protectConfigurationId ?dryRun ?context
        ?timeToLive ?maxPrice ?configurationSetName ?mediaUrls ?messageBody
        ~originationIdentity ~destinationPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackEnabled =
        field_map json__ "MessageFeedbackEnabled" Boolean.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      let dryRun = field_map json__ "DryRun" PrimitiveBoolean.of_json in
      let context = field_map json__ "Context" ContextMap.of_json in
      let timeToLive = field_map json__ "TimeToLive" TimeToLive.of_json in
      let maxPrice = field_map json__ "MaxPrice" MaxPrice.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let mediaUrls = field_map json__ "MediaUrls" MediaUrlList.of_json in
      let messageBody =
        field_map json__ "MessageBody" TextMessageBody.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity"
          MediaMessageOriginationIdentity.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      make ?messageFeedbackEnabled ?protectConfigurationId ?dryRun ?context
        ?timeToLive ?maxPrice ?configurationSetName ?mediaUrls ?messageBody
        ~originationIdentity ~destinationPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new multimedia message (MMS) and sends it to a recipient's phone number."]
module SendDestinationNumberVerificationCodeResult =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for the message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId = fun () -> { messageId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Before you can send test messages to a verified destination phone number you need to opt-in the verified destination phone number. Creates a new text message with a verification code and send it to a verified destination phone number. Once you have the verification code use VerifyDestinationNumber to opt-in the verified destination phone number to receive messages."]
module SendDestinationNumberVerificationCodeRequest =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberId: VerifiedDestinationNumberIdOrArn.t
        [@ocaml.doc
          "The unique identifier for the verified destination phone number."];
      verificationChannel: VerificationChannel.t
        [@ocaml.doc
          "Choose to send the verification code as an SMS or voice message."];
      languageCode: LanguageCode.t option
        [@ocaml.doc "Choose the language to use for the message."];
      originationIdentity: VerificationMessageOriginationIdentity.t option
        [@ocaml.doc
          "The origination identity of the message. This can be either the PhoneNumber, PhoneNumberId, PhoneNumberArn, SenderId, SenderIdArn, PoolId, or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      configurationSetName: ConfigurationSetNameOrArn.t option
        [@ocaml.doc
          "The name of the configuration set to use. This can be either the ConfigurationSetName or ConfigurationSetArn."];
      context: ContextMap.t option
        [@ocaml.doc
          "You can specify custom data in this field. If you do, that data is logged to the event destination."];
      destinationCountryParameters: DestinationCountryParameters.t option
        [@ocaml.doc
          "This field is used for any country-specific registration requirements. Currently, this setting is only used when you send messages to recipients in India using a sender ID. For more information see Special requirements for sending SMS messages to recipients in India."]}
    let context_ = "SendDestinationNumberVerificationCodeRequest"
    let make ?languageCode =
      fun ?originationIdentity ->
        fun ?configurationSetName ->
          fun ?context ->
            fun ?destinationCountryParameters ->
              fun ~verifiedDestinationNumberId ->
                fun ~verificationChannel ->
                  fun () ->
                    {
                      languageCode;
                      originationIdentity;
                      configurationSetName;
                      context;
                      destinationCountryParameters;
                      verifiedDestinationNumberId;
                      verificationChannel
                    }
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberId",
           (Some
              (VerifiedDestinationNumberIdOrArn.to_value
                 x.verifiedDestinationNumberId)));
        ("VerificationChannel",
          (Some (VerificationChannel.to_value x.verificationChannel)));
        ("LanguageCode",
          (Option.map x.languageCode ~f:LanguageCode.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity
             ~f:VerificationMessageOriginationIdentity.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName
             ~f:ConfigurationSetNameOrArn.to_value));
        ("Context", (Option.map x.context ~f:ContextMap.to_value));
        ("DestinationCountryParameters",
          (Option.map x.destinationCountryParameters
             ~f:DestinationCountryParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationCountryParameters =
        (Option.map ~f:DestinationCountryParameters.of_xml)
          (Xml.child xml_arg0 "DestinationCountryParameters") in
      let context =
        (Option.map ~f:ContextMap.of_xml) (Xml.child xml_arg0 "Context") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetNameOrArn.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let originationIdentity =
        (Option.map ~f:VerificationMessageOriginationIdentity.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let languageCode =
        (Option.map ~f:LanguageCode.of_xml)
          (Xml.child xml_arg0 "LanguageCode") in
      let verificationChannel =
        VerificationChannel.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationChannel") in
      let verifiedDestinationNumberId =
        VerifiedDestinationNumberIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "VerifiedDestinationNumberId") in
      make ?destinationCountryParameters ?context ?configurationSetName
        ?originationIdentity ?languageCode ~verificationChannel
        ~verifiedDestinationNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationCountryParameters =
        field_map json__ "DestinationCountryParameters"
          DestinationCountryParameters.of_json in
      let context = field_map json__ "Context" ContextMap.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity"
          VerificationMessageOriginationIdentity.of_json in
      let languageCode = field_map json__ "LanguageCode" LanguageCode.of_json in
      let verificationChannel =
        field_map_exn json__ "VerificationChannel"
          VerificationChannel.of_json in
      let verifiedDestinationNumberId =
        field_map_exn json__ "VerifiedDestinationNumberId"
          VerifiedDestinationNumberIdOrArn.of_json in
      make ?destinationCountryParameters ?context ?configurationSetName
        ?originationIdentity ?languageCode ~verificationChannel
        ~verifiedDestinationNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Before you can send test messages to a verified destination phone number you need to opt-in the verified destination phone number. Creates a new text message with a verification code and send it to a verified destination phone number. Once you have the verification code use VerifyDestinationNumber to opt-in the verified destination phone number to receive messages."]
module RequestSenderIdResult =
  struct
    type nonrec t =
      {
      senderIdArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with the SenderId."];
      senderId: SenderId.t option
        [@ocaml.doc "The sender ID that was requested."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageTypes: MessageTypeList.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc
          "The monthly price, in US dollars, to lease the sender ID."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the sender ID can't be deleted."];
      registered: PrimitiveBoolean.t option
        [@ocaml.doc "True if the sender ID is registered."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the sender ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?senderIdArn =
      fun ?senderId ->
        fun ?isoCountryCode ->
          fun ?messageTypes ->
            fun ?monthlyLeasingPrice ->
              fun ?deletionProtectionEnabled ->
                fun ?registered ->
                  fun ?tags ->
                    fun () ->
                      {
                        senderIdArn;
                        senderId;
                        isoCountryCode;
                        messageTypes;
                        monthlyLeasingPrice;
                        deletionProtectionEnabled;
                        registered;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SenderIdArn", (Option.map x.senderIdArn ~f:String_.to_value));
        ("SenderId", (Option.map x.senderId ~f:SenderId.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageTypes",
          (Option.map x.messageTypes ~f:MessageTypeList.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("Registered",
          (Option.map x.registered ~f:PrimitiveBoolean.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 registered =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Registered") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let messageTypes =
        (Option.map ~f:MessageTypeList.of_xml)
          (Xml.child xml_arg0 "MessageTypes") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let senderId =
        (Option.map ~f:SenderId.of_xml) (Xml.child xml_arg0 "SenderId") in
      let senderIdArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SenderIdArn") in
      make ?tags ?registered ?deletionProtectionEnabled ?monthlyLeasingPrice
        ?messageTypes ?isoCountryCode ?senderId ?senderIdArn ()
    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 registered = field_map json__ "Registered" PrimitiveBoolean.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let messageTypes =
        field_map json__ "MessageTypes" MessageTypeList.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map json__ "SenderId" SenderId.of_json in
      let senderIdArn = field_map json__ "SenderIdArn" String_.of_json in
      make ?tags ?registered ?deletionProtectionEnabled ?monthlyLeasingPrice
        ?messageTypes ?isoCountryCode ?senderId ?senderIdArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request a new sender ID that doesn't require registration."]
module RequestSenderIdRequest =
  struct
    type nonrec t =
      {
      senderId: SenderId.t [@ocaml.doc "The sender ID string to request."];
      isoCountryCode: IsoCountryCode.t
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageTypes: MessageTypeList.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the sender ID can't be deleted."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the sender ID."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "RequestSenderIdRequest"
    let make ?messageTypes =
      fun ?deletionProtectionEnabled ->
        fun ?tags ->
          fun ?clientToken ->
            fun ~senderId ->
              fun ~isoCountryCode ->
                fun () ->
                  {
                    messageTypes;
                    deletionProtectionEnabled;
                    tags;
                    clientToken;
                    senderId;
                    isoCountryCode
                  }
    let to_value x =
      structure_to_value
        [("SenderId", (Some (SenderId.to_value x.senderId)));
        ("IsoCountryCode", (Some (IsoCountryCode.to_value x.isoCountryCode)));
        ("MessageTypes",
          (Option.map x.messageTypes ~f:MessageTypeList.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let messageTypes =
        (Option.map ~f:MessageTypeList.of_xml)
          (Xml.child xml_arg0 "MessageTypes") in
      let isoCountryCode =
        IsoCountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsoCountryCode") in
      let senderId =
        SenderId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SenderId") in
      make ?clientToken ?tags ?deletionProtectionEnabled ?messageTypes
        ~isoCountryCode ~senderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let messageTypes =
        field_map json__ "MessageTypes" MessageTypeList.of_json in
      let isoCountryCode =
        field_map_exn json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map_exn json__ "SenderId" SenderId.of_json in
      make ?clientToken ?tags ?deletionProtectionEnabled ?messageTypes
        ~isoCountryCode ~senderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request a new sender ID that doesn't require registration."]
module RequestPhoneNumberResult =
  struct
    type nonrec t =
      {
      phoneNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the requested phone number."];
      phoneNumberId: String_.t option
        [@ocaml.doc "The unique identifier of the new phone number."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The new phone number that was requested."];
      status: NumberStatus.t option
        [@ocaml.doc "The current status of the request."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      numberCapabilities: NumberCapabilityList.t option
        [@ocaml.doc
          "Indicates if the phone number will be used for text messages, voice messages or both."];
      numberType: RequestableNumberType.t option
        [@ocaml.doc "The type of number that was released."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc
          "The monthly price, in US dollars, to lease the phone number."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The ARN used to identify the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList that is associated with the requested phone number."];
      internationalSendingEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the international sending of phone number is Enabled."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the phone number can't be deleted."];
      poolId: String_.t option
        [@ocaml.doc
          "The unique identifier of the pool associated with the phone number"];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of key and value pair tags that are associated with the phone number."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the phone number was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberArn =
      fun ?phoneNumberId ->
        fun ?phoneNumber ->
          fun ?status ->
            fun ?isoCountryCode ->
              fun ?messageType ->
                fun ?numberCapabilities ->
                  fun ?numberType ->
                    fun ?monthlyLeasingPrice ->
                      fun ?twoWayEnabled ->
                        fun ?twoWayChannelArn ->
                          fun ?twoWayChannelRole ->
                            fun ?selfManagedOptOutsEnabled ->
                              fun ?optOutListName ->
                                fun ?internationalSendingEnabled ->
                                  fun ?deletionProtectionEnabled ->
                                    fun ?poolId ->
                                      fun ?registrationId ->
                                        fun ?tags ->
                                          fun ?createdTimestamp ->
                                            fun () ->
                                              {
                                                phoneNumberArn;
                                                phoneNumberId;
                                                phoneNumber;
                                                status;
                                                isoCountryCode;
                                                messageType;
                                                numberCapabilities;
                                                numberType;
                                                monthlyLeasingPrice;
                                                twoWayEnabled;
                                                twoWayChannelArn;
                                                twoWayChannelRole;
                                                selfManagedOptOutsEnabled;
                                                optOutListName;
                                                internationalSendingEnabled;
                                                deletionProtectionEnabled;
                                                poolId;
                                                registrationId;
                                                tags;
                                                createdTimestamp
                                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PhoneNumberArn",
           (Option.map x.phoneNumberArn ~f:String_.to_value));
        ("PhoneNumberId", (Option.map x.phoneNumberId ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:NumberStatus.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("NumberCapabilities",
          (Option.map x.numberCapabilities ~f:NumberCapabilityList.to_value));
        ("NumberType",
          (Option.map x.numberType ~f:RequestableNumberType.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("InternationalSendingEnabled",
          (Option.map x.internationalSendingEnabled
             ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let internationalSendingEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "InternationalSendingEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let numberType =
        (Option.map ~f:RequestableNumberType.of_xml)
          (Xml.child xml_arg0 "NumberType") in
      let numberCapabilities =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "NumberCapabilities") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let status =
        (Option.map ~f:NumberStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let phoneNumberId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberId") in
      let phoneNumberArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberArn") in
      make ?createdTimestamp ?tags ?registrationId ?poolId
        ?deletionProtectionEnabled ?internationalSendingEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?monthlyLeasingPrice ?numberType
        ?numberCapabilities ?messageType ?isoCountryCode ?status ?phoneNumber
        ?phoneNumberId ?phoneNumberArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let internationalSendingEnabled =
        field_map json__ "InternationalSendingEnabled"
          PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let numberType =
        field_map json__ "NumberType" RequestableNumberType.of_json in
      let numberCapabilities =
        field_map json__ "NumberCapabilities" NumberCapabilityList.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let status = field_map json__ "Status" NumberStatus.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let phoneNumberId = field_map json__ "PhoneNumberId" String_.of_json in
      let phoneNumberArn = field_map json__ "PhoneNumberArn" String_.of_json in
      make ?createdTimestamp ?tags ?registrationId ?poolId
        ?deletionProtectionEnabled ?internationalSendingEnabled
        ?optOutListName ?selfManagedOptOutsEnabled ?twoWayChannelRole
        ?twoWayChannelArn ?twoWayEnabled ?monthlyLeasingPrice ?numberType
        ?numberCapabilities ?messageType ?isoCountryCode ?status ?phoneNumber
        ?phoneNumberId ?phoneNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request an origination phone number for use in your account. For more information on phone number request see Request a phone number in the End User Messaging SMS User Guide."]
module RequestPhoneNumberRequest =
  struct
    type nonrec t =
      {
      isoCountryCode: IsoCountryCode.t
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageType: MessageType.t
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      numberCapabilities: NumberCapabilityList.t
        [@ocaml.doc
          "Indicates if the phone number will be used for text messages, voice messages, or both."];
      numberType: RequestableNumberType.t
        [@ocaml.doc
          "The type of phone number to request. When you request a SIMULATOR phone number, you must set MessageType as TRANSACTIONAL."];
      optOutListName: OptOutListNameOrArn.t option
        [@ocaml.doc
          "The name of the OptOutList to associate with the phone number. You can use the OptOutListName or OptOutListArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      poolId: PoolIdOrArn.t option
        [@ocaml.doc
          "The pool to associated with the phone number. You can use the PoolId or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      registrationId: RegistrationIdOrArn.t option
        [@ocaml.doc
          "Use this field to attach your phone number for an external registration process."];
      internationalSendingEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the international sending of phone number is Enabled."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the phone number can't be deleted."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the requested phone number."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "RequestPhoneNumberRequest"
    let make ?optOutListName =
      fun ?poolId ->
        fun ?registrationId ->
          fun ?internationalSendingEnabled ->
            fun ?deletionProtectionEnabled ->
              fun ?tags ->
                fun ?clientToken ->
                  fun ~isoCountryCode ->
                    fun ~messageType ->
                      fun ~numberCapabilities ->
                        fun ~numberType ->
                          fun () ->
                            {
                              optOutListName;
                              poolId;
                              registrationId;
                              internationalSendingEnabled;
                              deletionProtectionEnabled;
                              tags;
                              clientToken;
                              isoCountryCode;
                              messageType;
                              numberCapabilities;
                              numberType
                            }
    let to_value x =
      structure_to_value
        [("IsoCountryCode",
           (Some (IsoCountryCode.to_value x.isoCountryCode)));
        ("MessageType", (Some (MessageType.to_value x.messageType)));
        ("NumberCapabilities",
          (Some (NumberCapabilityList.to_value x.numberCapabilities)));
        ("NumberType", (Some (RequestableNumberType.to_value x.numberType)));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListNameOrArn.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolIdOrArn.to_value));
        ("RegistrationId",
          (Option.map x.registrationId ~f:RegistrationIdOrArn.to_value));
        ("InternationalSendingEnabled",
          (Option.map x.internationalSendingEnabled ~f:Boolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let internationalSendingEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "InternationalSendingEnabled") in
      let registrationId =
        (Option.map ~f:RegistrationIdOrArn.of_xml)
          (Xml.child xml_arg0 "RegistrationId") in
      let poolId =
        (Option.map ~f:PoolIdOrArn.of_xml) (Xml.child xml_arg0 "PoolId") in
      let optOutListName =
        (Option.map ~f:OptOutListNameOrArn.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let numberType =
        RequestableNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NumberType") in
      let numberCapabilities =
        NumberCapabilityList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NumberCapabilities") in
      let messageType =
        MessageType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageType") in
      let isoCountryCode =
        IsoCountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsoCountryCode") in
      make ?clientToken ?tags ?deletionProtectionEnabled
        ?internationalSendingEnabled ?registrationId ?poolId ?optOutListName
        ~numberType ~numberCapabilities ~messageType ~isoCountryCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let internationalSendingEnabled =
        field_map json__ "InternationalSendingEnabled" Boolean.of_json in
      let registrationId =
        field_map json__ "RegistrationId" RegistrationIdOrArn.of_json in
      let poolId = field_map json__ "PoolId" PoolIdOrArn.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListNameOrArn.of_json in
      let numberType =
        field_map_exn json__ "NumberType" RequestableNumberType.of_json in
      let numberCapabilities =
        field_map_exn json__ "NumberCapabilities"
          NumberCapabilityList.of_json in
      let messageType =
        field_map_exn json__ "MessageType" MessageType.of_json in
      let isoCountryCode =
        field_map_exn json__ "IsoCountryCode" IsoCountryCode.of_json in
      make ?clientToken ?tags ?deletionProtectionEnabled
        ?internationalSendingEnabled ?registrationId ?poolId ?optOutListName
        ~numberType ~numberCapabilities ~messageType ~isoCountryCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request an origination phone number for use in your account. For more information on phone number request see Request a phone number in the End User Messaging SMS User Guide."]
module ReleaseSenderIdResult =
  struct
    type nonrec t =
      {
      senderIdArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) associated with the SenderId."];
      senderId: SenderId.t option
        [@ocaml.doc "The sender ID that was released."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageTypes: MessageTypeList.t option
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc
          "The monthly price, in US dollars, to lease the sender ID."];
      registered: PrimitiveBoolean.t option
        [@ocaml.doc "True if the sender ID is registered."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?senderIdArn =
      fun ?senderId ->
        fun ?isoCountryCode ->
          fun ?messageTypes ->
            fun ?monthlyLeasingPrice ->
              fun ?registered ->
                fun ?registrationId ->
                  fun () ->
                    {
                      senderIdArn;
                      senderId;
                      isoCountryCode;
                      messageTypes;
                      monthlyLeasingPrice;
                      registered;
                      registrationId
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SenderIdArn", (Option.map x.senderIdArn ~f:String_.to_value));
        ("SenderId", (Option.map x.senderId ~f:SenderId.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageTypes",
          (Option.map x.messageTypes ~f:MessageTypeList.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("Registered",
          (Option.map x.registered ~f:PrimitiveBoolean.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registered =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "Registered") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let messageTypes =
        (Option.map ~f:MessageTypeList.of_xml)
          (Xml.child xml_arg0 "MessageTypes") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let senderId =
        (Option.map ~f:SenderId.of_xml) (Xml.child xml_arg0 "SenderId") in
      let senderIdArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SenderIdArn") in
      make ?registrationId ?registered ?monthlyLeasingPrice ?messageTypes
        ?isoCountryCode ?senderId ?senderIdArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registered = field_map json__ "Registered" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let messageTypes =
        field_map json__ "MessageTypes" MessageTypeList.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map json__ "SenderId" SenderId.of_json in
      let senderIdArn = field_map json__ "SenderIdArn" String_.of_json in
      make ?registrationId ?registered ?monthlyLeasingPrice ?messageTypes
        ?isoCountryCode ?senderId ?senderIdArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Releases an existing sender ID in your account."]
module ReleaseSenderIdRequest =
  struct
    type nonrec t =
      {
      senderId: SenderIdOrArn.t [@ocaml.doc "The sender ID to release."];
      isoCountryCode: IsoCountryCode.t
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."]}
    let context_ = "ReleaseSenderIdRequest"
    let make ~senderId =
      fun ~isoCountryCode -> fun () -> { senderId; isoCountryCode }
    let to_value x =
      structure_to_value
        [("SenderId", (Some (SenderIdOrArn.to_value x.senderId)));
        ("IsoCountryCode", (Some (IsoCountryCode.to_value x.isoCountryCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isoCountryCode =
        IsoCountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsoCountryCode") in
      let senderId =
        SenderIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SenderId") in
      make ~isoCountryCode ~senderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isoCountryCode =
        field_map_exn json__ "IsoCountryCode" IsoCountryCode.of_json in
      let senderId = field_map_exn json__ "SenderId" SenderIdOrArn.of_json in
      make ~isoCountryCode ~senderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Releases an existing sender ID in your account."]
module ReleasePhoneNumberResult =
  struct
    type nonrec t =
      {
      phoneNumberArn: String_.t option
        [@ocaml.doc
          "The PhoneNumberArn of the phone number that was released."];
      phoneNumberId: String_.t option
        [@ocaml.doc
          "The PhoneNumberId of the phone number that was released."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number that was released."];
      status: NumberStatus.t option
        [@ocaml.doc "The current status of the request."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The message type that was associated with the phone number."];
      numberCapabilities: NumberCapabilityList.t option
        [@ocaml.doc
          "Specifies if the number could be used for text messages, voice, or both."];
      numberType: NumberType.t option
        [@ocaml.doc "The type of number that was released."];
      monthlyLeasingPrice: String_.t option
        [@ocaml.doc "The monthly price of the phone number, in US dollars."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the TwoWayChannel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList that was associated with the phone number."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the phone number was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberArn =
      fun ?phoneNumberId ->
        fun ?phoneNumber ->
          fun ?status ->
            fun ?isoCountryCode ->
              fun ?messageType ->
                fun ?numberCapabilities ->
                  fun ?numberType ->
                    fun ?monthlyLeasingPrice ->
                      fun ?twoWayEnabled ->
                        fun ?twoWayChannelArn ->
                          fun ?twoWayChannelRole ->
                            fun ?selfManagedOptOutsEnabled ->
                              fun ?optOutListName ->
                                fun ?registrationId ->
                                  fun ?createdTimestamp ->
                                    fun () ->
                                      {
                                        phoneNumberArn;
                                        phoneNumberId;
                                        phoneNumber;
                                        status;
                                        isoCountryCode;
                                        messageType;
                                        numberCapabilities;
                                        numberType;
                                        monthlyLeasingPrice;
                                        twoWayEnabled;
                                        twoWayChannelArn;
                                        twoWayChannelRole;
                                        selfManagedOptOutsEnabled;
                                        optOutListName;
                                        registrationId;
                                        createdTimestamp
                                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PhoneNumberArn",
           (Option.map x.phoneNumberArn ~f:String_.to_value));
        ("PhoneNumberId", (Option.map x.phoneNumberId ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:NumberStatus.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("NumberCapabilities",
          (Option.map x.numberCapabilities ~f:NumberCapabilityList.to_value));
        ("NumberType", (Option.map x.numberType ~f:NumberType.to_value));
        ("MonthlyLeasingPrice",
          (Option.map x.monthlyLeasingPrice ~f:String_.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.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 registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let monthlyLeasingPrice =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MonthlyLeasingPrice") in
      let numberType =
        (Option.map ~f:NumberType.of_xml) (Xml.child xml_arg0 "NumberType") in
      let numberCapabilities =
        (Option.map ~f:NumberCapabilityList.of_xml)
          (Xml.child xml_arg0 "NumberCapabilities") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let status =
        (Option.map ~f:NumberStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let phoneNumberId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberId") in
      let phoneNumberArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumberArn") in
      make ?createdTimestamp ?registrationId ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ?monthlyLeasingPrice ?numberType ?numberCapabilities
        ?messageType ?isoCountryCode ?status ?phoneNumber ?phoneNumberId
        ?phoneNumberArn ()
    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 registrationId = field_map json__ "RegistrationId" String_.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let monthlyLeasingPrice =
        field_map json__ "MonthlyLeasingPrice" String_.of_json in
      let numberType = field_map json__ "NumberType" NumberType.of_json in
      let numberCapabilities =
        field_map json__ "NumberCapabilities" NumberCapabilityList.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let status = field_map json__ "Status" NumberStatus.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let phoneNumberId = field_map json__ "PhoneNumberId" String_.of_json in
      let phoneNumberArn = field_map json__ "PhoneNumberArn" String_.of_json in
      make ?createdTimestamp ?registrationId ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ?monthlyLeasingPrice ?numberType ?numberCapabilities
        ?messageType ?isoCountryCode ?status ?phoneNumber ?phoneNumberId
        ?phoneNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Releases an existing origination phone number in your account. Once released, a phone number is no longer available for sending messages. If the origination phone number has deletion protection enabled or is associated with a pool, an error is returned."]
module ReleasePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: PhoneNumberIdOrArn.t
        [@ocaml.doc
          "The PhoneNumberId or PhoneNumberArn of the phone number to release. You can use DescribePhoneNumbers to get the values for PhoneNumberId and PhoneNumberArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."]}
    let context_ = "ReleasePhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("PhoneNumberId",
           (Some (PhoneNumberIdOrArn.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        PhoneNumberIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" PhoneNumberIdOrArn.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Releases an existing origination phone number in your account. Once released, a phone number is no longer available for sending messages. If the origination phone number has deletion protection enabled or is associated with a pool, an error is returned."]
module PutResourcePolicyResult =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the End User Messaging SMS resource attached to the resource-based policy."];
      policy: ResourcePolicy.t option
        [@ocaml.doc "The JSON formatted Resource Policy."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the resource-based policy was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn =
      fun ?policy ->
        fun ?createdTimestamp ->
          fun () -> { resourceArn; policy; createdTimestamp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn",
           (Option.map x.resourceArn ~f:AmazonResourceName.to_value));
        ("Policy", (Option.map x.policy ~f:ResourcePolicy.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 policy =
        (Option.map ~f:ResourcePolicy.of_xml) (Xml.child xml_arg0 "Policy") in
      let resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      make ?createdTimestamp ?policy ?resourceArn ()
    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 policy = field_map json__ "Policy" ResourcePolicy.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      make ?createdTimestamp ?policy ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a resource-based policy to a End User Messaging SMS resource(phone number, sender Id, phone poll, or opt-out list) that is used for sharing the resource. A shared resource can be a Pool, Opt-out list, Sender Id, or Phone number. For more information about resource-based policies, see Working with shared resources in the End User Messaging SMS User Guide."]
module PutResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the End User Messaging SMS resource to attach the resource-based policy to."];
      policy: ResourcePolicy.t
        [@ocaml.doc "The JSON formatted resource-based policy to attach."]}
    let context_ = "PutResourcePolicyRequest"
    let make ~resourceArn = fun ~policy -> fun () -> { resourceArn; policy }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (AmazonResourceName.to_value x.resourceArn)));
        ("Policy", (Some (ResourcePolicy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        ResourcePolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let resourceArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~policy ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" ResourcePolicy.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" AmazonResourceName.of_json in
      make ~policy ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a resource-based policy to a End User Messaging SMS resource(phone number, sender Id, phone poll, or opt-out list) that is used for sharing the resource. A shared resource can be a Pool, Opt-out list, Sender Id, or Phone number. For more information about resource-based policies, see Working with shared resources in the End User Messaging SMS User Guide."]
module PutRegistrationFieldValueResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The version number of the registration."];
      fieldPath: FieldPath.t option
        [@ocaml.doc
          "The path to the registration form field. You can use DescribeRegistrationFieldDefinitions for a list of FieldPaths."];
      selectChoices: SelectChoiceList.t option
        [@ocaml.doc "An array of values for the form field."];
      textValue: TextValue.t option
        [@ocaml.doc "The text data for a free form field."];
      registrationAttachmentId: String_.t option
        [@ocaml.doc "The unique identifier for the registration attachment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?versionNumber ->
          fun ?fieldPath ->
            fun ?selectChoices ->
              fun ?textValue ->
                fun ?registrationAttachmentId ->
                  fun () ->
                    {
                      registrationArn;
                      registrationId;
                      versionNumber;
                      fieldPath;
                      selectChoices;
                      textValue;
                      registrationAttachmentId
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("FieldPath", (Option.map x.fieldPath ~f:FieldPath.to_value));
        ("SelectChoices",
          (Option.map x.selectChoices ~f:SelectChoiceList.to_value));
        ("TextValue", (Option.map x.textValue ~f:TextValue.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationAttachmentId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let textValue =
        (Option.map ~f:TextValue.of_xml) (Xml.child xml_arg0 "TextValue") in
      let selectChoices =
        (Option.map ~f:SelectChoiceList.of_xml)
          (Xml.child xml_arg0 "SelectChoices") in
      let fieldPath =
        (Option.map ~f:FieldPath.of_xml) (Xml.child xml_arg0 "FieldPath") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?registrationAttachmentId ?textValue ?selectChoices ?fieldPath
        ?versionNumber ?registrationId ?registrationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId" String_.of_json in
      let textValue = field_map json__ "TextValue" TextValue.of_json in
      let selectChoices =
        field_map json__ "SelectChoices" SelectChoiceList.of_json in
      let fieldPath = field_map json__ "FieldPath" FieldPath.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?registrationAttachmentId ?textValue ?selectChoices ?fieldPath
        ?versionNumber ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates or updates a field value for a registration."]
module PutRegistrationFieldValueRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      fieldPath: FieldPath.t
        [@ocaml.doc
          "The path to the registration form field. You can use DescribeRegistrationFieldDefinitions for a list of FieldPaths."];
      selectChoices: SelectChoiceList.t option
        [@ocaml.doc "An array of values for the form field."];
      textValue: TextValue.t option
        [@ocaml.doc "The text data for a free form field."];
      registrationAttachmentId: RegistrationAttachmentIdOrArn.t option
        [@ocaml.doc "The unique identifier for the registration attachment."]}
    let context_ = "PutRegistrationFieldValueRequest"
    let make ?selectChoices =
      fun ?textValue ->
        fun ?registrationAttachmentId ->
          fun ~registrationId ->
            fun ~fieldPath ->
              fun () ->
                {
                  selectChoices;
                  textValue;
                  registrationAttachmentId;
                  registrationId;
                  fieldPath
                }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("FieldPath", (Some (FieldPath.to_value x.fieldPath)));
        ("SelectChoices",
          (Option.map x.selectChoices ~f:SelectChoiceList.to_value));
        ("TextValue", (Option.map x.textValue ~f:TextValue.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId
             ~f:RegistrationAttachmentIdOrArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationAttachmentId =
        (Option.map ~f:RegistrationAttachmentIdOrArn.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let textValue =
        (Option.map ~f:TextValue.of_xml) (Xml.child xml_arg0 "TextValue") in
      let selectChoices =
        (Option.map ~f:SelectChoiceList.of_xml)
          (Xml.child xml_arg0 "SelectChoices") in
      let fieldPath =
        FieldPath.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FieldPath") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ?registrationAttachmentId ?textValue ?selectChoices ~fieldPath
        ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId"
          RegistrationAttachmentIdOrArn.of_json in
      let textValue = field_map json__ "TextValue" TextValue.of_json in
      let selectChoices =
        field_map json__ "SelectChoices" SelectChoiceList.of_json in
      let fieldPath = field_map_exn json__ "FieldPath" FieldPath.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ?registrationAttachmentId ?textValue ?selectChoices ~fieldPath
        ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates or updates a field value for a registration."]
module PutProtectConfigurationRuleSetNumberOverrideResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc "The destination phone number in E.164 format."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the rule was created, in UNIX epoch time format."];
      action: ProtectConfigurationRuleOverrideAction.t option
        [@ocaml.doc "The action for the rule to take."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      expirationTimestamp: Timestamp.t option
        [@ocaml.doc "The time the rule will expire at."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?destinationPhoneNumber ->
          fun ?createdTimestamp ->
            fun ?action ->
              fun ?isoCountryCode ->
                fun ?expirationTimestamp ->
                  fun () ->
                    {
                      protectConfigurationArn;
                      protectConfigurationId;
                      destinationPhoneNumber;
                      createdTimestamp;
                      action;
                      isoCountryCode;
                      expirationTimestamp
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:PhoneNumber.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("Action",
          (Option.map x.action
             ~f:ProtectConfigurationRuleOverrideAction.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("ExpirationTimestamp",
          (Option.map x.expirationTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTimestamp") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let action =
        (Option.map ~f:ProtectConfigurationRuleOverrideAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?expirationTimestamp ?isoCountryCode ?action ?createdTimestamp
        ?destinationPhoneNumber ?protectConfigurationId
        ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTimestamp =
        field_map json__ "ExpirationTimestamp" Timestamp.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let action =
        field_map json__ "Action"
          ProtectConfigurationRuleOverrideAction.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?expirationTimestamp ?isoCountryCode ?action ?createdTimestamp
        ?destinationPhoneNumber ?protectConfigurationId
        ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create or update a phone number rule override and associate it with a protect configuration."]
module PutProtectConfigurationRuleSetNumberOverrideRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."];
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."];
      action: ProtectConfigurationRuleOverrideAction.t
        [@ocaml.doc
          "The action for the rule to either block or allow messages to the destination phone number."];
      expirationTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time the rule will expire at. If ExpirationTimestamp is not set then the rule does not expire."]}
    let context_ = "PutProtectConfigurationRuleSetNumberOverrideRequest"
    let make ?clientToken =
      fun ?expirationTimestamp ->
        fun ~protectConfigurationId ->
          fun ~destinationPhoneNumber ->
            fun ~action ->
              fun () ->
                {
                  clientToken;
                  expirationTimestamp;
                  protectConfigurationId;
                  destinationPhoneNumber;
                  action
                }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("ProtectConfigurationId",
          (Some
             (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("DestinationPhoneNumber",
          (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("Action",
          (Some (ProtectConfigurationRuleOverrideAction.to_value x.action)));
        ("ExpirationTimestamp",
          (Option.map x.expirationTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTimestamp") in
      let action =
        ProtectConfigurationRuleOverrideAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?expirationTimestamp ~action ~destinationPhoneNumber
        ~protectConfigurationId ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTimestamp =
        field_map json__ "ExpirationTimestamp" Timestamp.of_json in
      let action =
        field_map_exn json__ "Action"
          ProtectConfigurationRuleOverrideAction.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?expirationTimestamp ~action ~destinationPhoneNumber
        ~protectConfigurationId ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create or update a phone number rule override and associate it with a protect configuration."]
module PutOptedOutNumberResult =
  struct
    type nonrec t =
      {
      optOutListArn: String_.t option
        [@ocaml.doc
          "The OptOutListArn that the phone number was removed from."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The OptOutListName that the phone number was removed from."];
      optedOutNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number that was added to the OptOutList."];
      optedOutTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time that the phone number was added to the OptOutList, in UNIX epoch time format."];
      endUserOptedOut: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is true if it was the end user who requested their phone number be removed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optOutListArn =
      fun ?optOutListName ->
        fun ?optedOutNumber ->
          fun ?optedOutTimestamp ->
            fun ?endUserOptedOut ->
              fun () ->
                {
                  optOutListArn;
                  optOutListName;
                  optedOutNumber;
                  optedOutTimestamp;
                  endUserOptedOut
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OptOutListArn", (Option.map x.optOutListArn ~f:String_.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("OptedOutNumber",
          (Option.map x.optedOutNumber ~f:PhoneNumber.to_value));
        ("OptedOutTimestamp",
          (Option.map x.optedOutTimestamp ~f:Timestamp.to_value));
        ("EndUserOptedOut",
          (Option.map x.endUserOptedOut ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endUserOptedOut =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "EndUserOptedOut") in
      let optedOutTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "OptedOutTimestamp") in
      let optedOutNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "OptedOutNumber") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let optOutListArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptOutListArn") in
      make ?endUserOptedOut ?optedOutTimestamp ?optedOutNumber
        ?optOutListName ?optOutListArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endUserOptedOut =
        field_map json__ "EndUserOptedOut" PrimitiveBoolean.of_json in
      let optedOutTimestamp =
        field_map json__ "OptedOutTimestamp" Timestamp.of_json in
      let optedOutNumber =
        field_map json__ "OptedOutNumber" PhoneNumber.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let optOutListArn = field_map json__ "OptOutListArn" String_.of_json in
      make ?endUserOptedOut ?optedOutTimestamp ?optedOutNumber
        ?optOutListName ?optOutListArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an opted out destination phone number in the opt-out list. If the destination phone number isn't valid or if the specified opt-out list doesn't exist, an error is returned."]
module PutOptedOutNumberRequest =
  struct
    type nonrec t =
      {
      optOutListName: OptOutListNameOrArn.t
        [@ocaml.doc
          "The OptOutListName or OptOutListArn to add the phone number to. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      optedOutNumber: PhoneNumber.t
        [@ocaml.doc
          "The phone number to add to the OptOutList in E.164 format."]}
    let context_ = "PutOptedOutNumberRequest"
    let make ~optOutListName =
      fun ~optedOutNumber -> fun () -> { optOutListName; optedOutNumber }
    let to_value x =
      structure_to_value
        [("OptOutListName",
           (Some (OptOutListNameOrArn.to_value x.optOutListName)));
        ("OptedOutNumber", (Some (PhoneNumber.to_value x.optedOutNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optedOutNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptedOutNumber") in
      let optOutListName =
        OptOutListNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptOutListName") in
      make ~optedOutNumber ~optOutListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optedOutNumber =
        field_map_exn json__ "OptedOutNumber" PhoneNumber.of_json in
      let optOutListName =
        field_map_exn json__ "OptOutListName" OptOutListNameOrArn.of_json in
      make ~optedOutNumber ~optOutListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an opted out destination phone number in the opt-out list. If the destination phone number isn't valid or if the specified opt-out list doesn't exist, an error is returned."]
module PutMessageFeedbackResult =
  struct
    type nonrec t =
      {
      messageId: MessageId.t option
        [@ocaml.doc "The unique identifier for the message."];
      messageFeedbackStatus: MessageFeedbackStatus.t option
        [@ocaml.doc "The current status of the message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messageId =
      fun ?messageFeedbackStatus ->
        fun () -> { messageId; messageFeedbackStatus }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:MessageId.to_value));
        ("MessageFeedbackStatus",
          (Option.map x.messageFeedbackStatus
             ~f:MessageFeedbackStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackStatus =
        (Option.map ~f:MessageFeedbackStatus.of_xml)
          (Xml.child xml_arg0 "MessageFeedbackStatus") in
      let messageId =
        (Option.map ~f:MessageId.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageFeedbackStatus ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackStatus =
        field_map json__ "MessageFeedbackStatus"
          MessageFeedbackStatus.of_json in
      let messageId = field_map json__ "MessageId" MessageId.of_json in
      make ?messageFeedbackStatus ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set the MessageFeedbackStatus as RECEIVED or FAILED for the passed in MessageId. If you use message feedback then you must update message feedback record. When you receive a signal that a user has received the message you must use PutMessageFeedback to set the message feedback record as RECEIVED; Otherwise, an hour after the message feedback record is set to FAILED."]
module PutMessageFeedbackRequest =
  struct
    type nonrec t =
      {
      messageId: MessageId.t
        [@ocaml.doc "The unique identifier for the message."];
      messageFeedbackStatus: MessageFeedbackStatus.t
        [@ocaml.doc
          "Set the message feedback to be either RECEIVED or FAILED."]}
    let context_ = "PutMessageFeedbackRequest"
    let make ~messageId =
      fun ~messageFeedbackStatus ->
        fun () -> { messageId; messageFeedbackStatus }
    let to_value x =
      structure_to_value
        [("MessageId", (Some (MessageId.to_value x.messageId)));
        ("MessageFeedbackStatus",
          (Some (MessageFeedbackStatus.to_value x.messageFeedbackStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageFeedbackStatus =
        MessageFeedbackStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageFeedbackStatus") in
      let messageId =
        MessageId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageId") in
      make ~messageFeedbackStatus ~messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageFeedbackStatus =
        field_map_exn json__ "MessageFeedbackStatus"
          MessageFeedbackStatus.of_json in
      let messageId = field_map_exn json__ "MessageId" MessageId.of_json in
      make ~messageFeedbackStatus ~messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set the MessageFeedbackStatus as RECEIVED or FAILED for the passed in MessageId. If you use message feedback then you must update message feedback record. When you receive a signal that a user has received the message you must use PutMessageFeedback to set the message feedback record as RECEIVED; Otherwise, an hour after the message feedback record is set to FAILED."]
module PutKeywordResult =
  struct
    type nonrec t =
      {
      originationIdentityArn: String_.t option
        [@ocaml.doc
          "The PhoneNumberArn or PoolArn that the keyword was associated with."];
      originationIdentity: String_.t option
        [@ocaml.doc
          "The PhoneNumberId or PoolId that the keyword was associated with."];
      keyword: Keyword.t option [@ocaml.doc "The keyword that was added."];
      keywordMessage: KeywordMessage.t option
        [@ocaml.doc "The message associated with the keyword."];
      keywordAction: KeywordAction.t option
        [@ocaml.doc "The action to perform when the keyword is used."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?originationIdentityArn =
      fun ?originationIdentity ->
        fun ?keyword ->
          fun ?keywordMessage ->
            fun ?keywordAction ->
              fun () ->
                {
                  originationIdentityArn;
                  originationIdentity;
                  keyword;
                  keywordMessage;
                  keywordAction
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OriginationIdentityArn",
           (Option.map x.originationIdentityArn ~f:String_.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity ~f:String_.to_value));
        ("Keyword", (Option.map x.keyword ~f:Keyword.to_value));
        ("KeywordMessage",
          (Option.map x.keywordMessage ~f:KeywordMessage.to_value));
        ("KeywordAction",
          (Option.map x.keywordAction ~f:KeywordAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keywordAction =
        (Option.map ~f:KeywordAction.of_xml)
          (Xml.child xml_arg0 "KeywordAction") in
      let keywordMessage =
        (Option.map ~f:KeywordMessage.of_xml)
          (Xml.child xml_arg0 "KeywordMessage") in
      let keyword =
        (Option.map ~f:Keyword.of_xml) (Xml.child xml_arg0 "Keyword") in
      let originationIdentity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let originationIdentityArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentityArn") in
      make ?keywordAction ?keywordMessage ?keyword ?originationIdentity
        ?originationIdentityArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keywordAction =
        field_map json__ "KeywordAction" KeywordAction.of_json in
      let keywordMessage =
        field_map json__ "KeywordMessage" KeywordMessage.of_json in
      let keyword = field_map json__ "Keyword" Keyword.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity" String_.of_json in
      let originationIdentityArn =
        field_map json__ "OriginationIdentityArn" String_.of_json in
      make ?keywordAction ?keywordMessage ?keyword ?originationIdentity
        ?originationIdentityArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates a keyword configuration on an origination phone number or pool. A keyword is a word that you can search for on a particular phone number or pool. It is also a specific word or phrase that an end user can send to your number to elicit a response, such as an informational message or a special offer. When your number receives a message that begins with a keyword, End User Messaging SMS responds with a customizable message. If you specify a keyword that isn't valid, an error is returned."]
module PutKeywordRequest =
  struct
    type nonrec t =
      {
      originationIdentity: PhoneOrPoolIdOrArn.t
        [@ocaml.doc
          "The origination identity to use such as a PhoneNumberId, PhoneNumberArn, SenderId or SenderIdArn. You can use DescribePhoneNumbers get the values for PhoneNumberId and PhoneNumberArn while DescribeSenderIds can be used to get the values for SenderId and SenderIdArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      keyword: Keyword.t [@ocaml.doc "The new keyword to add."];
      keywordMessage: KeywordMessage.t
        [@ocaml.doc "The message associated with the keyword."];
      keywordAction: KeywordAction.t option
        [@ocaml.doc
          "The action to perform for the new keyword when it is received. AUTOMATIC_RESPONSE: A message is sent to the recipient. OPT_OUT: Keeps the recipient from receiving future messages. OPT_IN: The recipient wants to receive future messages."]}
    let context_ = "PutKeywordRequest"
    let make ?keywordAction =
      fun ~originationIdentity ->
        fun ~keyword ->
          fun ~keywordMessage ->
            fun () ->
              { keywordAction; originationIdentity; keyword; keywordMessage }
    let to_value x =
      structure_to_value
        [("OriginationIdentity",
           (Some (PhoneOrPoolIdOrArn.to_value x.originationIdentity)));
        ("Keyword", (Some (Keyword.to_value x.keyword)));
        ("KeywordMessage", (Some (KeywordMessage.to_value x.keywordMessage)));
        ("KeywordAction",
          (Option.map x.keywordAction ~f:KeywordAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keywordAction =
        (Option.map ~f:KeywordAction.of_xml)
          (Xml.child xml_arg0 "KeywordAction") in
      let keywordMessage =
        KeywordMessage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeywordMessage") in
      let keyword =
        Keyword.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Keyword") in
      let originationIdentity =
        PhoneOrPoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      make ?keywordAction ~keywordMessage ~keyword ~originationIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keywordAction =
        field_map json__ "KeywordAction" KeywordAction.of_json in
      let keywordMessage =
        field_map_exn json__ "KeywordMessage" KeywordMessage.of_json in
      let keyword = field_map_exn json__ "Keyword" Keyword.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity" PhoneOrPoolIdOrArn.of_json in
      make ?keywordAction ~keywordMessage ~keyword ~originationIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates a keyword configuration on an origination phone number or pool. A keyword is a word that you can search for on a particular phone number or pool. It is also a specific word or phrase that an end user can send to your number to elicit a response, such as an informational message or a special offer. When your number receives a message that begins with a keyword, End User Messaging SMS responds with a customizable message. If you specify a keyword that isn't valid, an error is returned."]
module ListTagsForResourceResult =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc "The ARN of the resource."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of key and value pair tags that are associated with the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn = fun ?tags -> fun () -> { resourceArn; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn",
           (Option.map x.resourceArn ~f:AmazonResourceName.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 resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child 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 json__ "Tags" TagList.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      make ?tags ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List all tags associated with a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to query 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 "List all tags associated with a resource."]
module ListRegistrationAssociationsResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      registrationAssociations: RegistrationAssociationMetadataList.t option
        [@ocaml.doc "An array of RegistrationAssociationMetadata objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?registrationType ->
          fun ?registrationAssociations ->
            fun ?nextToken ->
              fun () ->
                {
                  registrationArn;
                  registrationId;
                  registrationType;
                  registrationAssociations;
                  nextToken
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("RegistrationType",
          (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("RegistrationAssociations",
          (Option.map x.registrationAssociations
             ~f:RegistrationAssociationMetadataList.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 registrationAssociations =
        (Option.map ~f:RegistrationAssociationMetadataList.of_xml)
          (Xml.child xml_arg0 "RegistrationAssociations") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?nextToken ?registrationAssociations ?registrationType
        ?registrationId ?registrationArn ()
    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 registrationAssociations =
        field_map json__ "RegistrationAssociations"
          RegistrationAssociationMetadataList.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?nextToken ?registrationAssociations ?registrationType
        ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve all of the origination identities that are associated with a registration."]
module ListRegistrationAssociationsRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      filters: RegistrationAssociationFilterList.t option
        [@ocaml.doc
          "An array of RegistrationAssociationFilter to apply to the results that are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "ListRegistrationAssociationsRequest"
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~registrationId ->
            fun () -> { filters; nextToken; maxResults; registrationId }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("Filters",
          (Option.map x.filters ~f:RegistrationAssociationFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:RegistrationAssociationFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ?maxResults ?nextToken ?filters ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" RegistrationAssociationFilterList.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ?maxResults ?nextToken ?filters ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve all of the origination identities that are associated with a registration."]
module ListProtectConfigurationRuleSetNumberOverridesResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      ruleSetNumberOverrides:
        ProtectConfigurationRuleSetNumberOverrideList.t option
        [@ocaml.doc "An array of RuleSetNumberOverrides objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?ruleSetNumberOverrides ->
          fun ?nextToken ->
            fun () ->
              {
                protectConfigurationArn;
                protectConfigurationId;
                ruleSetNumberOverrides;
                nextToken
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("RuleSetNumberOverrides",
          (Option.map x.ruleSetNumberOverrides
             ~f:ProtectConfigurationRuleSetNumberOverrideList.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 ruleSetNumberOverrides =
        (Option.map ~f:ProtectConfigurationRuleSetNumberOverrideList.of_xml)
          (Xml.child xml_arg0 "RuleSetNumberOverrides") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?nextToken ?ruleSetNumberOverrides ?protectConfigurationId
        ?protectConfigurationArn ()
    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 ruleSetNumberOverrides =
        field_map json__ "RuleSetNumberOverrides"
          ProtectConfigurationRuleSetNumberOverrideList.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?nextToken ?ruleSetNumberOverrides ?protectConfigurationId
        ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve all of the protect configuration rule set number overrides that match the filters."]
module ListProtectConfigurationRuleSetNumberOverridesRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      filters: ListProtectConfigurationRuleSetNumberOverrideFilter.t option
        [@ocaml.doc
          "An array of ProtectConfigurationRuleSetNumberOverrideFilterItem objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "ListProtectConfigurationRuleSetNumberOverridesRequest"
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~protectConfigurationId ->
            fun () ->
              { filters; nextToken; maxResults; protectConfigurationId }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("Filters",
          (Option.map x.filters
             ~f:ListProtectConfigurationRuleSetNumberOverrideFilter.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map
           ~f:ListProtectConfigurationRuleSetNumberOverrideFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ?maxResults ?nextToken ?filters ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters"
          ListProtectConfigurationRuleSetNumberOverrideFilter.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ?maxResults ?nextToken ?filters ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve all of the protect configuration rule set number overrides that match the filters."]
module ListPoolOriginationIdentitiesResult =
  struct
    type nonrec t =
      {
      poolArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the pool."];
      poolId: String_.t option [@ocaml.doc "The unique PoolId of the pool."];
      originationIdentities: OriginationIdentityMetadataList.t option
        [@ocaml.doc "An array of any OriginationIdentityMetadata objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolArn =
      fun ?poolId ->
        fun ?originationIdentities ->
          fun ?nextToken ->
            fun () -> { poolArn; poolId; originationIdentities; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("OriginationIdentities",
          (Option.map x.originationIdentities
             ~f:OriginationIdentityMetadataList.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 originationIdentities =
        (Option.map ~f:OriginationIdentityMetadataList.of_xml)
          (Xml.child xml_arg0 "OriginationIdentities") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?nextToken ?originationIdentities ?poolId ?poolArn ()
    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 originationIdentities =
        field_map json__ "OriginationIdentities"
          OriginationIdentityMetadataList.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?nextToken ?originationIdentities ?poolId ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all associated origination identities in your pool. If you specify filters, the output includes information for only those origination identities that meet the filter criteria."]
module ListPoolOriginationIdentitiesRequest =
  struct
    type nonrec t =
      {
      poolId: PoolIdOrArn.t
        [@ocaml.doc
          "The unique identifier for the pool. This value can be either the PoolId or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      filters: PoolOriginationIdentitiesFilterList.t option
        [@ocaml.doc
          "An array of PoolOriginationIdentitiesFilter objects to filter the results.."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "ListPoolOriginationIdentitiesRequest"
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~poolId -> fun () -> { filters; nextToken; maxResults; poolId }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (PoolIdOrArn.to_value x.poolId)));
        ("Filters",
          (Option.map x.filters
             ~f:PoolOriginationIdentitiesFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:PoolOriginationIdentitiesFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let poolId =
        PoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ?maxResults ?nextToken ?filters ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters"
          PoolOriginationIdentitiesFilterList.of_json in
      let poolId = field_map_exn json__ "PoolId" PoolIdOrArn.of_json in
      make ?maxResults ?nextToken ?filters ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all associated origination identities in your pool. If you specify filters, the output includes information for only those origination identities that meet the filter criteria."]
module ListNotifyCountriesResult =
  struct
    type nonrec t =
      {
      notifyCountries: NotifyCountryInformationList.t option
        [@ocaml.doc
          "An array of NotifyCountryInformation objects that contain the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifyCountries =
      fun ?nextToken -> fun () -> { notifyCountries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NotifyCountries",
           (Option.map x.notifyCountries
              ~f:NotifyCountryInformationList.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 notifyCountries =
        (Option.map ~f:NotifyCountryInformationList.of_xml)
          (Xml.child xml_arg0 "NotifyCountries") in
      make ?nextToken ?notifyCountries ()
    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 notifyCountries =
        field_map json__ "NotifyCountries"
          NotifyCountryInformationList.of_json in
      make ?nextToken ?notifyCountries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists countries that support notify messaging. You can optionally filter by channel, use case, or tier."]
module ListNotifyCountriesRequest =
  struct
    type nonrec t =
      {
      channels: NotifyEnabledChannelsList.t option
        [@ocaml.doc "An array of channels to filter the results by."];
      useCases: NotifyUseCaseList.t option
        [@ocaml.doc "An array of use cases to filter the results by."];
      tier: NotifyConfigurationTier.t option
        [@ocaml.doc "The tier to filter the results by."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?channels =
      fun ?useCases ->
        fun ?tier ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun () -> { channels; useCases; tier; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("Channels",
           (Option.map x.channels ~f:NotifyEnabledChannelsList.to_value));
        ("UseCases", (Option.map x.useCases ~f:NotifyUseCaseList.to_value));
        ("Tier", (Option.map x.tier ~f:NotifyConfigurationTier.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tier =
        (Option.map ~f:NotifyConfigurationTier.of_xml)
          (Xml.child xml_arg0 "Tier") in
      let useCases =
        (Option.map ~f:NotifyUseCaseList.of_xml)
          (Xml.child xml_arg0 "UseCases") in
      let channels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "Channels") in
      make ?maxResults ?nextToken ?tier ?useCases ?channels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let tier = field_map json__ "Tier" NotifyConfigurationTier.of_json in
      let useCases = field_map json__ "UseCases" NotifyUseCaseList.of_json in
      let channels =
        field_map json__ "Channels" NotifyEnabledChannelsList.of_json in
      make ?maxResults ?nextToken ?tier ?useCases ?channels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists countries that support notify messaging. You can optionally filter by channel, use case, or tier."]
module GetResourcePolicyResult =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the End User Messaging SMS resource attached to the resource-based policy."];
      policy: ResourcePolicy.t option
        [@ocaml.doc
          "The JSON formatted string that contains the resource-based policy attached to the End User Messaging SMS resource."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the resource-based policy was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn =
      fun ?policy ->
        fun ?createdTimestamp ->
          fun () -> { resourceArn; policy; createdTimestamp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn",
           (Option.map x.resourceArn ~f:AmazonResourceName.to_value));
        ("Policy", (Option.map x.policy ~f:ResourcePolicy.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 policy =
        (Option.map ~f:ResourcePolicy.of_xml) (Xml.child xml_arg0 "Policy") in
      let resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      make ?createdTimestamp ?policy ?resourceArn ()
    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 policy = field_map json__ "Policy" ResourcePolicy.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      make ?createdTimestamp ?policy ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the JSON text of the resource-based policy document attached to the End User Messaging SMS resource. A shared resource can be a Pool, Opt-out list, Sender Id, or Phone number."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the End User Messaging SMS resource attached to the resource-based policy."]}
    let context_ = "GetResourcePolicyRequest"
    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
       "Retrieves the JSON text of the resource-based policy document attached to the End User Messaging SMS resource. A shared resource can be a Pool, Opt-out list, Sender Id, or Phone number."]
module GetProtectConfigurationCountryRuleSetResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      numberCapability: NumberCapability.t option
        [@ocaml.doc
          "The capability type associated with the returned ProtectConfigurationCountryRuleSetInformation objects."];
      countryRuleSet: ProtectConfigurationCountryRuleSet.t option
        [@ocaml.doc
          "A map of ProtectConfigurationCountryRuleSetInformation objects that contain the details for the requested NumberCapability. The Key is the two-letter ISO country code. For a list of supported ISO country codes, see Supported countries and regions (SMS channel) in the End User Messaging SMS User Guide."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?numberCapability ->
          fun ?countryRuleSet ->
            fun () ->
              {
                protectConfigurationArn;
                protectConfigurationId;
                numberCapability;
                countryRuleSet
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("NumberCapability",
          (Option.map x.numberCapability ~f:NumberCapability.to_value));
        ("CountryRuleSet",
          (Option.map x.countryRuleSet
             ~f:ProtectConfigurationCountryRuleSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let countryRuleSet =
        (Option.map ~f:ProtectConfigurationCountryRuleSet.of_xml)
          (Xml.child xml_arg0 "CountryRuleSet") in
      let numberCapability =
        (Option.map ~f:NumberCapability.of_xml)
          (Xml.child xml_arg0 "NumberCapability") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?countryRuleSet ?numberCapability ?protectConfigurationId
        ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let countryRuleSet =
        field_map json__ "CountryRuleSet"
          ProtectConfigurationCountryRuleSet.of_json in
      let numberCapability =
        field_map json__ "NumberCapability" NumberCapability.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?countryRuleSet ?numberCapability ?protectConfigurationId
        ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve the CountryRuleSet for the specified NumberCapability from a protect configuration."]
module GetProtectConfigurationCountryRuleSetRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      numberCapability: NumberCapability.t
        [@ocaml.doc
          "The capability type to return the CountryRuleSet for. Valid values are SMS, VOICE, or MMS."]}
    let context_ = "GetProtectConfigurationCountryRuleSetRequest"
    let make ~protectConfigurationId =
      fun ~numberCapability ->
        fun () -> { protectConfigurationId; numberCapability }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("NumberCapability",
          (Some (NumberCapability.to_value x.numberCapability)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberCapability =
        NumberCapability.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NumberCapability") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~numberCapability ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberCapability =
        field_map_exn json__ "NumberCapability" NumberCapability.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~numberCapability ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve the CountryRuleSet for the specified NumberCapability from a protect configuration."]
module DiscardRegistrationVersionResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The version number of the registration."];
      registrationVersionStatus: RegistrationVersionStatus.t option
        [@ocaml.doc
          "The status of the registration version. APPROVED: Your registration has been approved. ARCHIVED: Your previously approved registration version moves into this status when a more recently submitted version is approved. DENIED: You must fix your registration and resubmit it. DISCARDED: You've abandon this version of their registration to start over with a new version. DRAFT: The initial status of a registration version after it\226\128\153s created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REVIEWING: Your registration has been accepted and is being reviewed. REVOKED: Your previously approved registration has been revoked. SUBMITTED: Your registration has been submitted."];
      registrationVersionStatusHistory:
        RegistrationVersionStatusHistory.t option
        [@ocaml.doc
          "The RegistrationVersionStatusHistory object contains the time stamps for when the reservations status changes."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?versionNumber ->
          fun ?registrationVersionStatus ->
            fun ?registrationVersionStatusHistory ->
              fun () ->
                {
                  registrationArn;
                  registrationId;
                  versionNumber;
                  registrationVersionStatus;
                  registrationVersionStatusHistory
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("RegistrationVersionStatus",
          (Option.map x.registrationVersionStatus
             ~f:RegistrationVersionStatus.to_value));
        ("RegistrationVersionStatusHistory",
          (Option.map x.registrationVersionStatusHistory
             ~f:RegistrationVersionStatusHistory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationVersionStatusHistory =
        (Option.map ~f:RegistrationVersionStatusHistory.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatusHistory") in
      let registrationVersionStatus =
        (Option.map ~f:RegistrationVersionStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatus") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?registrationVersionStatusHistory ?registrationVersionStatus
        ?versionNumber ?registrationId ?registrationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationVersionStatusHistory =
        field_map json__ "RegistrationVersionStatusHistory"
          RegistrationVersionStatusHistory.of_json in
      let registrationVersionStatus =
        field_map json__ "RegistrationVersionStatus"
          RegistrationVersionStatus.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?registrationVersionStatusHistory ?registrationVersionStatus
        ?versionNumber ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Discard the current version of the registration."]
module DiscardRegistrationVersionRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."]}
    let context_ = "DiscardRegistrationVersionRequest"
    let make ~registrationId = fun () -> { registrationId }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Discard the current version of the registration."]
module DisassociateProtectConfigurationResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the ConfigurationSet."];
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?protectConfigurationArn ->
          fun ?protectConfigurationId ->
            fun () ->
              {
                configurationSetArn;
                configurationSetName;
                protectConfigurationArn;
                protectConfigurationId
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("ProtectConfigurationArn",
          (Option.map x.protectConfigurationArn
             ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?protectConfigurationId ?protectConfigurationArn
        ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?protectConfigurationId ?protectConfigurationArn
        ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociate a protect configuration from a configuration set."]
module DisassociateProtectConfigurationRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc "The name of the ConfigurationSet."]}
    let context_ = "DisassociateProtectConfigurationRequest"
    let make ~protectConfigurationId =
      fun ~configurationSetName ->
        fun () -> { protectConfigurationId; configurationSetName }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("ConfigurationSetName",
          (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~configurationSetName ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~configurationSetName ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociate a protect configuration from a configuration set."]
module DisassociateOriginationIdentityResult =
  struct
    type nonrec t =
      {
      poolArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the pool."];
      poolId: String_.t option
        [@ocaml.doc
          "The PoolId of the pool no longer associated with the origination identity."];
      originationIdentityArn: String_.t option
        [@ocaml.doc
          "The PhoneNumberArn or SenderIdArn of the origination identity."];
      originationIdentity: String_.t option
        [@ocaml.doc
          "The PhoneNumberId or SenderId of the origination identity."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolArn =
      fun ?poolId ->
        fun ?originationIdentityArn ->
          fun ?originationIdentity ->
            fun ?isoCountryCode ->
              fun () ->
                {
                  poolArn;
                  poolId;
                  originationIdentityArn;
                  originationIdentity;
                  isoCountryCode
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("OriginationIdentityArn",
          (Option.map x.originationIdentityArn ~f:String_.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity ~f:String_.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let originationIdentity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let originationIdentityArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentityArn") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?isoCountryCode ?originationIdentity ?originationIdentityArn
        ?poolId ?poolArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity" String_.of_json in
      let originationIdentityArn =
        field_map json__ "OriginationIdentityArn" String_.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?isoCountryCode ?originationIdentity ?originationIdentityArn
        ?poolId ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified origination identity from an existing pool. If the origination identity isn't associated with the specified pool, an error is returned."]
module DisassociateOriginationIdentityRequest =
  struct
    type nonrec t =
      {
      poolId: PoolIdOrArn.t
        [@ocaml.doc
          "The unique identifier for the pool to disassociate with the origination identity. This value can be either the PoolId or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      originationIdentity: PhoneOrSenderIdOrArn.t
        [@ocaml.doc
          "The origination identity to use such as a PhoneNumberId, PhoneNumberArn, SenderId or SenderIdArn. You can use DescribePhoneNumbers find the values for PhoneNumberId and PhoneNumberArn, or use DescribeSenderIds to get the values for SenderId and SenderIdArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region. This field is optional and is not required for origination identity types that are not country-specific, such as RCS agents."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "DisassociateOriginationIdentityRequest"
    let make ?isoCountryCode =
      fun ?clientToken ->
        fun ~poolId ->
          fun ~originationIdentity ->
            fun () ->
              { isoCountryCode; clientToken; poolId; originationIdentity }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (PoolIdOrArn.to_value x.poolId)));
        ("OriginationIdentity",
          (Some (PhoneOrSenderIdOrArn.to_value x.originationIdentity)));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let originationIdentity =
        PhoneOrSenderIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      let poolId =
        PoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ?clientToken ?isoCountryCode ~originationIdentity ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity"
          PhoneOrSenderIdOrArn.of_json in
      let poolId = field_map_exn json__ "PoolId" PoolIdOrArn.of_json in
      make ?clientToken ?isoCountryCode ~originationIdentity ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified origination identity from an existing pool. If the origination identity isn't associated with the specified pool, an error is returned."]
module DescribeVerifiedDestinationNumbersResult =
  struct
    type nonrec t =
      {
      verifiedDestinationNumbers:
        VerifiedDestinationNumberInformationList.t option
        [@ocaml.doc
          "An array of VerifiedDestinationNumberInformation objects"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verifiedDestinationNumbers =
      fun ?nextToken -> fun () -> { verifiedDestinationNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumbers",
           (Option.map x.verifiedDestinationNumbers
              ~f:VerifiedDestinationNumberInformationList.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 verifiedDestinationNumbers =
        (Option.map ~f:VerifiedDestinationNumberInformationList.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumbers") in
      make ?nextToken ?verifiedDestinationNumbers ()
    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 verifiedDestinationNumbers =
        field_map json__ "VerifiedDestinationNumbers"
          VerifiedDestinationNumberInformationList.of_json in
      make ?nextToken ?verifiedDestinationNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified verified destination numbers."]
module DescribeVerifiedDestinationNumbersRequest =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberIds: VerifiedDestinationNumberIdList.t option
        [@ocaml.doc "An array of VerifiedDestinationNumberid to retrieve."];
      destinationPhoneNumbers: DestinationPhoneNumberList.t option
        [@ocaml.doc
          "An array of verified destination phone number, in E.164 format."];
      filters: VerifiedDestinationNumberFilterList.t option
        [@ocaml.doc
          "An array of VerifiedDestinationNumberFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?verifiedDestinationNumberIds =
      fun ?destinationPhoneNumbers ->
        fun ?filters ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun () ->
                {
                  verifiedDestinationNumberIds;
                  destinationPhoneNumbers;
                  filters;
                  nextToken;
                  maxResults
                }
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberIds",
           (Option.map x.verifiedDestinationNumberIds
              ~f:VerifiedDestinationNumberIdList.to_value));
        ("DestinationPhoneNumbers",
          (Option.map x.destinationPhoneNumbers
             ~f:DestinationPhoneNumberList.to_value));
        ("Filters",
          (Option.map x.filters
             ~f:VerifiedDestinationNumberFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:VerifiedDestinationNumberFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let destinationPhoneNumbers =
        (Option.map ~f:DestinationPhoneNumberList.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumbers") in
      let verifiedDestinationNumberIds =
        (Option.map ~f:VerifiedDestinationNumberIdList.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberIds") in
      make ?maxResults ?nextToken ?filters ?destinationPhoneNumbers
        ?verifiedDestinationNumberIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters"
          VerifiedDestinationNumberFilterList.of_json in
      let destinationPhoneNumbers =
        field_map json__ "DestinationPhoneNumbers"
          DestinationPhoneNumberList.of_json in
      let verifiedDestinationNumberIds =
        field_map json__ "VerifiedDestinationNumberIds"
          VerifiedDestinationNumberIdList.of_json in
      make ?maxResults ?nextToken ?filters ?destinationPhoneNumbers
        ?verifiedDestinationNumberIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified verified destination numbers."]
module DescribeSpendLimitsResult =
  struct
    type nonrec t =
      {
      spendLimits: SpendLimitList.t option
        [@ocaml.doc
          "An array of SpendLimit objects that contain the details for the requested spend limits."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spendLimits =
      fun ?nextToken -> fun () -> { spendLimits; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SpendLimits",
           (Option.map x.spendLimits ~f:SpendLimitList.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 spendLimits =
        (Option.map ~f:SpendLimitList.of_xml)
          (Xml.child xml_arg0 "SpendLimits") in
      make ?nextToken ?spendLimits ()
    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 spendLimits = field_map json__ "SpendLimits" SpendLimitList.of_json in
      make ?nextToken ?spendLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current monthly spend limits for sending voice and text messages. When you establish an Amazon Web Services account, the account has initial monthly spend limit in a given Region. For more information on increasing your monthly spend limit, see Requesting increases to your monthly SMS, MMS, or Voice spending quota in the End User Messaging SMS User Guide."]
module DescribeSpendLimitsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current monthly spend limits for sending voice and text messages. When you establish an Amazon Web Services account, the account has initial monthly spend limit in a given Region. For more information on increasing your monthly spend limit, see Requesting increases to your monthly SMS, MMS, or Voice spending quota in the End User Messaging SMS User Guide."]
module DescribeSenderIdsResult =
  struct
    type nonrec t =
      {
      senderIds: SenderIdInformationList.t option
        [@ocaml.doc
          "An array of SernderIdInformation objects that contain the details for the requested SenderIds."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?senderIds =
      fun ?nextToken -> fun () -> { senderIds; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SenderIds",
           (Option.map x.senderIds ~f:SenderIdInformationList.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 senderIds =
        (Option.map ~f:SenderIdInformationList.of_xml)
          (Xml.child xml_arg0 "SenderIds") in
      make ?nextToken ?senderIds ()
    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 senderIds =
        field_map json__ "SenderIds" SenderIdInformationList.of_json in
      make ?nextToken ?senderIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified SenderIds or all SenderIds associated with your Amazon Web Services account. If you specify SenderIds, the output includes information for only the specified SenderIds. If you specify filters, the output includes information for only those SenderIds that meet the filter criteria. If you don't specify SenderIds or filters, the output includes information for all SenderIds. f you specify a sender ID that isn't valid, an error is returned."]
module DescribeSenderIdsRequest =
  struct
    type nonrec t =
      {
      senderIds: SenderIdList.t option
        [@ocaml.doc
          "An array of SenderIdAndCountry objects to search for. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      filters: SenderIdFilterList.t option
        [@ocaml.doc
          "An array of SenderIdFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."];
      owner: Owner.t option
        [@ocaml.doc
          "Use SELF to filter the list of Sender Ids to ones your account owns or use SHARED to filter on Sender Ids shared with your account. The Owner and SenderIds parameters can't be used at the same time."]}
    let make ?senderIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ?owner ->
              fun () -> { senderIds; filters; nextToken; maxResults; owner }
    let to_value x =
      structure_to_value
        [("SenderIds", (Option.map x.senderIds ~f:SenderIdList.to_value));
        ("Filters", (Option.map x.filters ~f:SenderIdFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("Owner", (Option.map x.owner ~f:Owner.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner = (Option.map ~f:Owner.of_xml) (Xml.child xml_arg0 "Owner") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:SenderIdFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let senderIds =
        (Option.map ~f:SenderIdList.of_xml) (Xml.child xml_arg0 "SenderIds") in
      make ?owner ?maxResults ?nextToken ?filters ?senderIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner = field_map json__ "Owner" Owner.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" SenderIdFilterList.of_json in
      let senderIds = field_map json__ "SenderIds" SenderIdList.of_json in
      make ?owner ?maxResults ?nextToken ?filters ?senderIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified SenderIds or all SenderIds associated with your Amazon Web Services account. If you specify SenderIds, the output includes information for only the specified SenderIds. If you specify filters, the output includes information for only those SenderIds that meet the filter criteria. If you don't specify SenderIds or filters, the output includes information for all SenderIds. f you specify a sender ID that isn't valid, an error is returned."]
module DescribeRegistrationsResult =
  struct
    type nonrec t =
      {
      registrations: RegistrationInformationList.t option
        [@ocaml.doc "An array of RegistrationInformation objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrations =
      fun ?nextToken -> fun () -> { registrations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Registrations",
           (Option.map x.registrations
              ~f:RegistrationInformationList.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 registrations =
        (Option.map ~f:RegistrationInformationList.of_xml)
          (Xml.child xml_arg0 "Registrations") in
      make ?nextToken ?registrations ()
    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 registrations =
        field_map json__ "Registrations" RegistrationInformationList.of_json in
      make ?nextToken ?registrations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified registrations."]
module DescribeRegistrationsRequest =
  struct
    type nonrec t =
      {
      registrationIds: RegistrationIdList.t option
        [@ocaml.doc "An array of unique identifiers for each registration."];
      filters: RegistrationFilterList.t option
        [@ocaml.doc
          "An array of RegistrationFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?registrationIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { registrationIds; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("RegistrationIds",
           (Option.map x.registrationIds ~f:RegistrationIdList.to_value));
        ("Filters",
          (Option.map x.filters ~f:RegistrationFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:RegistrationFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let registrationIds =
        (Option.map ~f:RegistrationIdList.of_xml)
          (Xml.child xml_arg0 "RegistrationIds") in
      make ?maxResults ?nextToken ?filters ?registrationIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" RegistrationFilterList.of_json in
      let registrationIds =
        field_map json__ "RegistrationIds" RegistrationIdList.of_json in
      make ?maxResults ?nextToken ?filters ?registrationIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified registrations."]
module DescribeRegistrationVersionsResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      registrationVersions: RegistrationVersionInformationList.t option
        [@ocaml.doc "An array of RegistrationVersions objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?registrationVersions ->
          fun ?nextToken ->
            fun () ->
              {
                registrationArn;
                registrationId;
                registrationVersions;
                nextToken
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("RegistrationVersions",
          (Option.map x.registrationVersions
             ~f:RegistrationVersionInformationList.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 registrationVersions =
        (Option.map ~f:RegistrationVersionInformationList.of_xml)
          (Xml.child xml_arg0 "RegistrationVersions") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?nextToken ?registrationVersions ?registrationId ?registrationArn
        ()
    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 registrationVersions =
        field_map json__ "RegistrationVersions"
          RegistrationVersionInformationList.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?nextToken ?registrationVersions ?registrationId ?registrationArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified registration version."]
module DescribeRegistrationVersionsRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumbers: RegistrationVersionNumberList.t option
        [@ocaml.doc "An array of registration version numbers."];
      filters: RegistrationVersionFilterList.t option
        [@ocaml.doc
          "An array of RegistrationVersionFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "DescribeRegistrationVersionsRequest"
    let make ?versionNumbers =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~registrationId ->
              fun () ->
                {
                  versionNumbers;
                  filters;
                  nextToken;
                  maxResults;
                  registrationId
                }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("VersionNumbers",
          (Option.map x.versionNumbers
             ~f:RegistrationVersionNumberList.to_value));
        ("Filters",
          (Option.map x.filters ~f:RegistrationVersionFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:RegistrationVersionFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let versionNumbers =
        (Option.map ~f:RegistrationVersionNumberList.of_xml)
          (Xml.child xml_arg0 "VersionNumbers") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ?maxResults ?nextToken ?filters ?versionNumbers ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" RegistrationVersionFilterList.of_json in
      let versionNumbers =
        field_map json__ "VersionNumbers"
          RegistrationVersionNumberList.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ?maxResults ?nextToken ?filters ?versionNumbers ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified registration version."]
module DescribeRegistrationTypeDefinitionsResult =
  struct
    type nonrec t =
      {
      registrationTypeDefinitions: RegistrationTypeDefinitionList.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationTypeDefinitions =
      fun ?nextToken -> fun () -> { registrationTypeDefinitions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationTypeDefinitions",
           (Option.map x.registrationTypeDefinitions
              ~f:RegistrationTypeDefinitionList.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 registrationTypeDefinitions =
        (Option.map ~f:RegistrationTypeDefinitionList.of_xml)
          (Xml.child xml_arg0 "RegistrationTypeDefinitions") in
      make ?nextToken ?registrationTypeDefinitions ()
    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 registrationTypeDefinitions =
        field_map json__ "RegistrationTypeDefinitions"
          RegistrationTypeDefinitionList.of_json in
      make ?nextToken ?registrationTypeDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration type definitions. You can use DescribeRegistrationTypeDefinitions to view the requirements for creating, filling out, and submitting each registration type."]
module DescribeRegistrationTypeDefinitionsRequest =
  struct
    type nonrec t =
      {
      registrationTypes: RegistrationTypeList.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      filters: RegistrationTypeFilterList.t option
        [@ocaml.doc
          "An array of RegistrationFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?registrationTypes =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { registrationTypes; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("RegistrationTypes",
           (Option.map x.registrationTypes ~f:RegistrationTypeList.to_value));
        ("Filters",
          (Option.map x.filters ~f:RegistrationTypeFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:RegistrationTypeFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let registrationTypes =
        (Option.map ~f:RegistrationTypeList.of_xml)
          (Xml.child xml_arg0 "RegistrationTypes") in
      make ?maxResults ?nextToken ?filters ?registrationTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" RegistrationTypeFilterList.of_json in
      let registrationTypes =
        field_map json__ "RegistrationTypes" RegistrationTypeList.of_json in
      make ?maxResults ?nextToken ?filters ?registrationTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration type definitions. You can use DescribeRegistrationTypeDefinitions to view the requirements for creating, filling out, and submitting each registration type."]
module DescribeRegistrationSectionDefinitionsResult =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      registrationSectionDefinitions:
        RegistrationSectionDefinitionList.t option
        [@ocaml.doc "An array of RegistrationSectionDefinition objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationType =
      fun ?registrationSectionDefinitions ->
        fun ?nextToken ->
          fun () ->
            { registrationType; registrationSectionDefinitions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationType",
           (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("RegistrationSectionDefinitions",
          (Option.map x.registrationSectionDefinitions
             ~f:RegistrationSectionDefinitionList.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 registrationSectionDefinitions =
        (Option.map ~f:RegistrationSectionDefinitionList.of_xml)
          (Xml.child xml_arg0 "RegistrationSectionDefinitions") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      make ?nextToken ?registrationSectionDefinitions ?registrationType ()
    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 registrationSectionDefinitions =
        field_map json__ "RegistrationSectionDefinitions"
          RegistrationSectionDefinitionList.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      make ?nextToken ?registrationSectionDefinitions ?registrationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration section definitions. You can use DescribeRegistrationSectionDefinitions to view the requirements for creating, filling out, and submitting each registration type."]
module DescribeRegistrationSectionDefinitionsRequest =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      sectionPaths: SectionPathList.t option
        [@ocaml.doc "An array of paths for the registration form section."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "DescribeRegistrationSectionDefinitionsRequest"
    let make ?sectionPaths =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~registrationType ->
            fun () ->
              { sectionPaths; nextToken; maxResults; registrationType }
    let to_value x =
      structure_to_value
        [("RegistrationType",
           (Some (RegistrationType.to_value x.registrationType)));
        ("SectionPaths",
          (Option.map x.sectionPaths ~f:SectionPathList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let sectionPaths =
        (Option.map ~f:SectionPathList.of_xml)
          (Xml.child xml_arg0 "SectionPaths") in
      let registrationType =
        RegistrationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationType") in
      make ?maxResults ?nextToken ?sectionPaths ~registrationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let sectionPaths =
        field_map json__ "SectionPaths" SectionPathList.of_json in
      let registrationType =
        field_map_exn json__ "RegistrationType" RegistrationType.of_json in
      make ?maxResults ?nextToken ?sectionPaths ~registrationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration section definitions. You can use DescribeRegistrationSectionDefinitions to view the requirements for creating, filling out, and submitting each registration type."]
module DescribeRegistrationFieldValuesResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The current version of the registration."];
      registrationFieldValues: RegistrationFieldValueInformationList.t option
        [@ocaml.doc
          "An array of RegistrationFieldValues objects that contain the values for the requested registration."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?versionNumber ->
          fun ?registrationFieldValues ->
            fun ?nextToken ->
              fun () ->
                {
                  registrationArn;
                  registrationId;
                  versionNumber;
                  registrationFieldValues;
                  nextToken
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("RegistrationFieldValues",
          (Option.map x.registrationFieldValues
             ~f:RegistrationFieldValueInformationList.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 registrationFieldValues =
        (Option.map ~f:RegistrationFieldValueInformationList.of_xml)
          (Xml.child xml_arg0 "RegistrationFieldValues") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?nextToken ?registrationFieldValues ?versionNumber ?registrationId
        ?registrationArn ()
    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 registrationFieldValues =
        field_map json__ "RegistrationFieldValues"
          RegistrationFieldValueInformationList.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?nextToken ?registrationFieldValues ?versionNumber ?registrationId
        ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified registration field values."]
module DescribeRegistrationFieldValuesRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The version number of the registration."];
      sectionPath: SectionPath.t option
        [@ocaml.doc "The path to the section of the registration."];
      fieldPaths: FieldPathList.t option
        [@ocaml.doc "An array of paths to the registration form field."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "DescribeRegistrationFieldValuesRequest"
    let make ?versionNumber =
      fun ?sectionPath ->
        fun ?fieldPaths ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun ~registrationId ->
                fun () ->
                  {
                    versionNumber;
                    sectionPath;
                    fieldPaths;
                    nextToken;
                    maxResults;
                    registrationId
                  }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("SectionPath", (Option.map x.sectionPath ~f:SectionPath.to_value));
        ("FieldPaths", (Option.map x.fieldPaths ~f:FieldPathList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let fieldPaths =
        (Option.map ~f:FieldPathList.of_xml)
          (Xml.child xml_arg0 "FieldPaths") in
      let sectionPath =
        (Option.map ~f:SectionPath.of_xml) (Xml.child xml_arg0 "SectionPath") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ?maxResults ?nextToken ?fieldPaths ?sectionPath ?versionNumber
        ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let fieldPaths = field_map json__ "FieldPaths" FieldPathList.of_json in
      let sectionPath = field_map json__ "SectionPath" SectionPath.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ?maxResults ?nextToken ?fieldPaths ?sectionPath ?versionNumber
        ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the specified registration field values."]
module DescribeRegistrationFieldDefinitionsResult =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      registrationFieldDefinitions: RegistrationFieldDefinitionList.t option
        [@ocaml.doc
          "An array of RegistrationFieldDefinitions objects that contain the details for the requested fields."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationType =
      fun ?registrationFieldDefinitions ->
        fun ?nextToken ->
          fun () ->
            { registrationType; registrationFieldDefinitions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationType",
           (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("RegistrationFieldDefinitions",
          (Option.map x.registrationFieldDefinitions
             ~f:RegistrationFieldDefinitionList.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 registrationFieldDefinitions =
        (Option.map ~f:RegistrationFieldDefinitionList.of_xml)
          (Xml.child xml_arg0 "RegistrationFieldDefinitions") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      make ?nextToken ?registrationFieldDefinitions ?registrationType ()
    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 registrationFieldDefinitions =
        field_map json__ "RegistrationFieldDefinitions"
          RegistrationFieldDefinitionList.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      make ?nextToken ?registrationFieldDefinitions ?registrationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration type field definitions. You can use DescribeRegistrationFieldDefinitions to view the requirements for creating, filling out, and submitting each registration type."]
module DescribeRegistrationFieldDefinitionsRequest =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      sectionPath: SectionPath.t option
        [@ocaml.doc "The path to the section of the registration."];
      fieldPaths: FieldPathList.t option
        [@ocaml.doc "An array of paths to the registration form field."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "DescribeRegistrationFieldDefinitionsRequest"
    let make ?sectionPath =
      fun ?fieldPaths ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~registrationType ->
              fun () ->
                {
                  sectionPath;
                  fieldPaths;
                  nextToken;
                  maxResults;
                  registrationType
                }
    let to_value x =
      structure_to_value
        [("RegistrationType",
           (Some (RegistrationType.to_value x.registrationType)));
        ("SectionPath", (Option.map x.sectionPath ~f:SectionPath.to_value));
        ("FieldPaths", (Option.map x.fieldPaths ~f:FieldPathList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let fieldPaths =
        (Option.map ~f:FieldPathList.of_xml)
          (Xml.child xml_arg0 "FieldPaths") in
      let sectionPath =
        (Option.map ~f:SectionPath.of_xml) (Xml.child xml_arg0 "SectionPath") in
      let registrationType =
        RegistrationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationType") in
      make ?maxResults ?nextToken ?fieldPaths ?sectionPath ~registrationType
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let fieldPaths = field_map json__ "FieldPaths" FieldPathList.of_json in
      let sectionPath = field_map json__ "SectionPath" SectionPath.of_json in
      let registrationType =
        field_map_exn json__ "RegistrationType" RegistrationType.of_json in
      make ?maxResults ?nextToken ?fieldPaths ?sectionPath ~registrationType
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration type field definitions. You can use DescribeRegistrationFieldDefinitions to view the requirements for creating, filling out, and submitting each registration type."]
module DescribeRegistrationAttachmentsResult =
  struct
    type nonrec t =
      {
      registrationAttachments:
        RegistrationAttachmentsInformationList.t option
        [@ocaml.doc
          "An array of RegistrationAttachments objects that contain the details for the requested registration attachments."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationAttachments =
      fun ?nextToken -> fun () -> { registrationAttachments; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationAttachments",
           (Option.map x.registrationAttachments
              ~f:RegistrationAttachmentsInformationList.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 registrationAttachments =
        (Option.map ~f:RegistrationAttachmentsInformationList.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachments") in
      make ?nextToken ?registrationAttachments ()
    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 registrationAttachments =
        field_map json__ "RegistrationAttachments"
          RegistrationAttachmentsInformationList.of_json in
      make ?nextToken ?registrationAttachments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration attachments or all registration attachments associated with your Amazon Web Services account."]
module DescribeRegistrationAttachmentsRequest =
  struct
    type nonrec t =
      {
      registrationAttachmentIds: RegistrationAttachmentIdList.t option
        [@ocaml.doc
          "The unique identifier of registration attachments to find. This is an array of RegistrationAttachmentId."];
      filters: RegistrationAttachmentFilterList.t option
        [@ocaml.doc
          "An array of RegistrationAttachmentFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?registrationAttachmentIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () ->
              { registrationAttachmentIds; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("RegistrationAttachmentIds",
           (Option.map x.registrationAttachmentIds
              ~f:RegistrationAttachmentIdList.to_value));
        ("Filters",
          (Option.map x.filters ~f:RegistrationAttachmentFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:RegistrationAttachmentFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let registrationAttachmentIds =
        (Option.map ~f:RegistrationAttachmentIdList.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentIds") in
      make ?maxResults ?nextToken ?filters ?registrationAttachmentIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" RegistrationAttachmentFilterList.of_json in
      let registrationAttachmentIds =
        field_map json__ "RegistrationAttachmentIds"
          RegistrationAttachmentIdList.of_json in
      make ?maxResults ?nextToken ?filters ?registrationAttachmentIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified registration attachments or all registration attachments associated with your Amazon Web Services account."]
module DescribeRcsAgentsResult =
  struct
    type nonrec t =
      {
      rcsAgents: RcsAgentInformationList.t option
        [@ocaml.doc
          "An array of RcsAgentInformation objects that contain the details for the requested RCS agents."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rcsAgents =
      fun ?nextToken -> fun () -> { rcsAgents; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RcsAgents",
           (Option.map x.rcsAgents ~f:RcsAgentInformationList.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 rcsAgents =
        (Option.map ~f:RcsAgentInformationList.of_xml)
          (Xml.child xml_arg0 "RcsAgents") in
      make ?nextToken ?rcsAgents ()
    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 rcsAgents =
        field_map json__ "RcsAgents" RcsAgentInformationList.of_json in
      make ?nextToken ?rcsAgents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified RCS agents or all RCS agents associated with your Amazon Web Services account. If you specify RCS agent IDs, the output includes information for only the specified RCS agents. If you specify filters, the output includes information for only those RCS agents that meet the filter criteria. If you don't specify RCS agent IDs or filters, the output includes information for all RCS agents."]
module DescribeRcsAgentsRequest =
  struct
    type nonrec t =
      {
      rcsAgentIds: RcsAgentIdList.t option
        [@ocaml.doc
          "An array of unique identifiers for the RCS agents. This is an array of strings that can be either the RcsAgentId or RcsAgentArn."];
      owner: Owner.t option
        [@ocaml.doc
          "Use SELF to filter the list of RCS agents to ones your account owns or use SHARED to filter on RCS agents shared with your account. The Owner and RcsAgentIds parameters can't be used at the same time."];
      filters: RcsAgentFilterList.t option
        [@ocaml.doc
          "An array of RcsAgentFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?rcsAgentIds =
      fun ?owner ->
        fun ?filters ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun () ->
                { rcsAgentIds; owner; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("RcsAgentIds",
           (Option.map x.rcsAgentIds ~f:RcsAgentIdList.to_value));
        ("Owner", (Option.map x.owner ~f:Owner.to_value));
        ("Filters", (Option.map x.filters ~f:RcsAgentFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:RcsAgentFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let owner = (Option.map ~f:Owner.of_xml) (Xml.child xml_arg0 "Owner") in
      let rcsAgentIds =
        (Option.map ~f:RcsAgentIdList.of_xml)
          (Xml.child xml_arg0 "RcsAgentIds") in
      make ?maxResults ?nextToken ?filters ?owner ?rcsAgentIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" RcsAgentFilterList.of_json in
      let owner = field_map json__ "Owner" Owner.of_json in
      let rcsAgentIds = field_map json__ "RcsAgentIds" RcsAgentIdList.of_json in
      make ?maxResults ?nextToken ?filters ?owner ?rcsAgentIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified RCS agents or all RCS agents associated with your Amazon Web Services account. If you specify RCS agent IDs, the output includes information for only the specified RCS agents. If you specify filters, the output includes information for only those RCS agents that meet the filter criteria. If you don't specify RCS agent IDs or filters, the output includes information for all RCS agents."]
module DescribeRcsAgentCountryLaunchStatusResult =
  struct
    type nonrec t =
      {
      rcsAgentId: String_.t option
        [@ocaml.doc "The unique identifier for the RCS agent."];
      rcsAgentArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the RCS agent."];
      countryLaunchStatus: CountryLaunchStatusInformationList.t option
        [@ocaml.doc
          "An array of CountryLaunchStatusInformation objects that contain the per-country launch status details."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rcsAgentId =
      fun ?rcsAgentArn ->
        fun ?countryLaunchStatus ->
          fun ?nextToken ->
            fun () ->
              { rcsAgentId; rcsAgentArn; countryLaunchStatus; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.to_value));
        ("RcsAgentArn", (Option.map x.rcsAgentArn ~f:String_.to_value));
        ("CountryLaunchStatus",
          (Option.map x.countryLaunchStatus
             ~f:CountryLaunchStatusInformationList.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 countryLaunchStatus =
        (Option.map ~f:CountryLaunchStatusInformationList.of_xml)
          (Xml.child xml_arg0 "CountryLaunchStatus") in
      let rcsAgentArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentArn") in
      let rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      make ?nextToken ?countryLaunchStatus ?rcsAgentArn ?rcsAgentId ()
    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 countryLaunchStatus =
        field_map json__ "CountryLaunchStatus"
          CountryLaunchStatusInformationList.of_json in
      let rcsAgentArn = field_map json__ "RcsAgentArn" String_.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      make ?nextToken ?countryLaunchStatus ?rcsAgentArn ?rcsAgentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the per-country launch status of an RCS agent, including carrier-level details for each country."]
module DescribeRcsAgentCountryLaunchStatusRequest =
  struct
    type nonrec t =
      {
      rcsAgentId: RcsAgentIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the RCS agent. You can use either the RcsAgentId or RcsAgentArn."];
      isoCountryCodes: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, to filter the results."];
      filters: CountryLaunchStatusFilterList.t option
        [@ocaml.doc
          "An array of CountryLaunchStatusFilter objects to filter the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    let context_ = "DescribeRcsAgentCountryLaunchStatusRequest"
    let make ?isoCountryCodes =
      fun ?filters ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~rcsAgentId ->
              fun () ->
                { isoCountryCodes; filters; maxResults; nextToken; rcsAgentId
                }
    let to_value x =
      structure_to_value
        [("RcsAgentId", (Some (RcsAgentIdOrArn.to_value x.rcsAgentId)));
        ("IsoCountryCodes",
          (Option.map x.isoCountryCodes ~f:IsoCountryCodeList.to_value));
        ("Filters",
          (Option.map x.filters ~f:CountryLaunchStatusFilterList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.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 maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:CountryLaunchStatusFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let isoCountryCodes =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "IsoCountryCodes") in
      let rcsAgentId =
        RcsAgentIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RcsAgentId") in
      make ?nextToken ?maxResults ?filters ?isoCountryCodes ~rcsAgentId ()
    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 maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let filters =
        field_map json__ "Filters" CountryLaunchStatusFilterList.of_json in
      let isoCountryCodes =
        field_map json__ "IsoCountryCodes" IsoCountryCodeList.of_json in
      let rcsAgentId =
        field_map_exn json__ "RcsAgentId" RcsAgentIdOrArn.of_json in
      make ?nextToken ?maxResults ?filters ?isoCountryCodes ~rcsAgentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the per-country launch status of an RCS agent, including carrier-level details for each country."]
module DescribeProtectConfigurationsResult =
  struct
    type nonrec t =
      {
      protectConfigurations: ProtectConfigurationInformationList.t option
        [@ocaml.doc
          "An array of ProtectConfigurationInformation objects that contain the details for the request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurations =
      fun ?nextToken -> fun () -> { protectConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurations",
           (Option.map x.protectConfigurations
              ~f:ProtectConfigurationInformationList.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 protectConfigurations =
        (Option.map ~f:ProtectConfigurationInformationList.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurations") in
      make ?nextToken ?protectConfigurations ()
    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 protectConfigurations =
        field_map json__ "ProtectConfigurations"
          ProtectConfigurationInformationList.of_json in
      make ?nextToken ?protectConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the protect configurations that match any of filters. If a filter isn\226\128\153t provided then all protect configurations are returned."]
module DescribeProtectConfigurationsRequest =
  struct
    type nonrec t =
      {
      protectConfigurationIds: ProtectConfigurationIdList.t option
        [@ocaml.doc
          "An array of protect configuration identifiers to search for."];
      filters: ProtectConfigurationFilterList.t option
        [@ocaml.doc
          "An array of ProtectConfigurationFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?protectConfigurationIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () ->
              { protectConfigurationIds; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationIds",
           (Option.map x.protectConfigurationIds
              ~f:ProtectConfigurationIdList.to_value));
        ("Filters",
          (Option.map x.filters ~f:ProtectConfigurationFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:ProtectConfigurationFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let protectConfigurationIds =
        (Option.map ~f:ProtectConfigurationIdList.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationIds") in
      make ?maxResults ?nextToken ?filters ?protectConfigurationIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" ProtectConfigurationFilterList.of_json in
      let protectConfigurationIds =
        field_map json__ "ProtectConfigurationIds"
          ProtectConfigurationIdList.of_json in
      make ?maxResults ?nextToken ?filters ?protectConfigurationIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the protect configurations that match any of filters. If a filter isn\226\128\153t provided then all protect configurations are returned."]
module DescribePoolsResult =
  struct
    type nonrec t =
      {
      pools: PoolInformationList.t option
        [@ocaml.doc
          "An array of PoolInformation objects that contain the details for the requested pools."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pools = fun ?nextToken -> fun () -> { pools; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Pools", (Option.map x.pools ~f:PoolInformationList.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 pools =
        (Option.map ~f:PoolInformationList.of_xml)
          (Xml.child xml_arg0 "Pools") in
      make ?nextToken ?pools ()
    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 pools = field_map json__ "Pools" PoolInformationList.of_json in
      make ?nextToken ?pools ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified pools or all pools associated with your Amazon Web Services account. If you specify pool IDs, the output includes information for only the specified pools. If you specify filters, the output includes information for only those pools that meet the filter criteria. If you don't specify pool IDs or filters, the output includes information for all pools. If you specify a pool ID that isn't valid, an error is returned. A pool is a collection of phone numbers and SenderIds. A pool can include one or more phone numbers and SenderIds that are associated with your Amazon Web Services account."]
module DescribePoolsRequest =
  struct
    type nonrec t =
      {
      poolIds: PoolIdList.t option
        [@ocaml.doc
          "The unique identifier of pools to find. This is an array of strings that can be either the PoolId or PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      filters: PoolFilterList.t option
        [@ocaml.doc "An array of PoolFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."];
      owner: Owner.t option
        [@ocaml.doc
          "Use SELF to filter the list of Pools to ones your account owns or use SHARED to filter on Pools shared with your account. The Owner and PoolIds parameters can't be used at the same time."]}
    let make ?poolIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ?owner ->
              fun () -> { poolIds; filters; nextToken; maxResults; owner }
    let to_value x =
      structure_to_value
        [("PoolIds", (Option.map x.poolIds ~f:PoolIdList.to_value));
        ("Filters", (Option.map x.filters ~f:PoolFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("Owner", (Option.map x.owner ~f:Owner.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner = (Option.map ~f:Owner.of_xml) (Xml.child xml_arg0 "Owner") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:PoolFilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let poolIds =
        (Option.map ~f:PoolIdList.of_xml) (Xml.child xml_arg0 "PoolIds") in
      make ?owner ?maxResults ?nextToken ?filters ?poolIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner = field_map json__ "Owner" Owner.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" PoolFilterList.of_json in
      let poolIds = field_map json__ "PoolIds" PoolIdList.of_json in
      make ?owner ?maxResults ?nextToken ?filters ?poolIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified pools or all pools associated with your Amazon Web Services account. If you specify pool IDs, the output includes information for only the specified pools. If you specify filters, the output includes information for only those pools that meet the filter criteria. If you don't specify pool IDs or filters, the output includes information for all pools. If you specify a pool ID that isn't valid, an error is returned. A pool is a collection of phone numbers and SenderIds. A pool can include one or more phone numbers and SenderIds that are associated with your Amazon Web Services account."]
module DescribePhoneNumbersResult =
  struct
    type nonrec t =
      {
      phoneNumbers: PhoneNumberInformationList.t option
        [@ocaml.doc
          "An array of PhoneNumberInformation objects that contain the details for the requested phone numbers."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumbers =
      fun ?nextToken -> fun () -> { phoneNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PhoneNumbers",
           (Option.map x.phoneNumbers ~f:PhoneNumberInformationList.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 phoneNumbers =
        (Option.map ~f:PhoneNumberInformationList.of_xml)
          (Xml.child xml_arg0 "PhoneNumbers") in
      make ?nextToken ?phoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let phoneNumbers =
        field_map json__ "PhoneNumbers" PhoneNumberInformationList.of_json in
      make ?nextToken ?phoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified origination phone number, or all the phone numbers in your account. If you specify phone number IDs, the output includes information for only the specified phone numbers. If you specify filters, the output includes information for only those phone numbers that meet the filter criteria. If you don't specify phone number IDs or filters, the output includes information for all phone numbers. If you specify a phone number ID that isn't valid, an error is returned."]
module DescribePhoneNumbersRequest =
  struct
    type nonrec t =
      {
      phoneNumberIds: PhoneNumberIdList.t option
        [@ocaml.doc
          "The unique identifier of phone numbers to find information about. This is an array of strings that can be either the PhoneNumberId or PhoneNumberArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      filters: PhoneNumberFilterList.t option
        [@ocaml.doc
          "An array of PhoneNumberFilter objects to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."];
      owner: Owner.t option
        [@ocaml.doc
          "Use SELF to filter the list of phone numbers to ones your account owns or use SHARED to filter on phone numbers shared with your account. The Owner and PhoneNumberIds parameters can't be used at the same time."]}
    let make ?phoneNumberIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ?owner ->
              fun () ->
                { phoneNumberIds; filters; nextToken; maxResults; owner }
    let to_value x =
      structure_to_value
        [("PhoneNumberIds",
           (Option.map x.phoneNumberIds ~f:PhoneNumberIdList.to_value));
        ("Filters", (Option.map x.filters ~f:PhoneNumberFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("Owner", (Option.map x.owner ~f:Owner.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner = (Option.map ~f:Owner.of_xml) (Xml.child xml_arg0 "Owner") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:PhoneNumberFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let phoneNumberIds =
        (Option.map ~f:PhoneNumberIdList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberIds") in
      make ?owner ?maxResults ?nextToken ?filters ?phoneNumberIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner = field_map json__ "Owner" Owner.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" PhoneNumberFilterList.of_json in
      let phoneNumberIds =
        field_map json__ "PhoneNumberIds" PhoneNumberIdList.of_json in
      make ?owner ?maxResults ?nextToken ?filters ?phoneNumberIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified origination phone number, or all the phone numbers in your account. If you specify phone number IDs, the output includes information for only the specified phone numbers. If you specify filters, the output includes information for only those phone numbers that meet the filter criteria. If you don't specify phone number IDs or filters, the output includes information for all phone numbers. If you specify a phone number ID that isn't valid, an error is returned."]
module DescribeOptedOutNumbersResult =
  struct
    type nonrec t =
      {
      optOutListArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the OptOutList."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the OptOutList."];
      optedOutNumbers: OptedOutNumberInformationList.t option
        [@ocaml.doc
          "An array of OptedOutNumbersInformation objects that provide information about the requested OptedOutNumbers."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optOutListArn =
      fun ?optOutListName ->
        fun ?optedOutNumbers ->
          fun ?nextToken ->
            fun () ->
              { optOutListArn; optOutListName; optedOutNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OptOutListArn", (Option.map x.optOutListArn ~f:String_.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("OptedOutNumbers",
          (Option.map x.optedOutNumbers
             ~f:OptedOutNumberInformationList.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 optedOutNumbers =
        (Option.map ~f:OptedOutNumberInformationList.of_xml)
          (Xml.child xml_arg0 "OptedOutNumbers") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let optOutListArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptOutListArn") in
      make ?nextToken ?optedOutNumbers ?optOutListName ?optOutListArn ()
    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 optedOutNumbers =
        field_map json__ "OptedOutNumbers"
          OptedOutNumberInformationList.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let optOutListArn = field_map json__ "OptOutListArn" String_.of_json in
      make ?nextToken ?optedOutNumbers ?optOutListName ?optOutListArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified opted out destination numbers or all opted out destination numbers in an opt-out list. If you specify opted out numbers, the output includes information for only the specified opted out numbers. If you specify filters, the output includes information for only those opted out numbers that meet the filter criteria. If you don't specify opted out numbers or filters, the output includes information for all opted out destination numbers in your opt-out list. If you specify an opted out number that isn't valid, an exception is returned."]
module DescribeOptedOutNumbersRequest =
  struct
    type nonrec t =
      {
      optOutListName: OptOutListNameOrArn.t
        [@ocaml.doc
          "The OptOutListName or OptOutListArn of the OptOutList. You can use DescribeOptOutLists to find the values for OptOutListName and OptOutListArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      optedOutNumbers: OptedOutNumberList.t option
        [@ocaml.doc
          "An array of phone numbers to search for in the OptOutList. If you specify an opted out number that isn't valid, an exception is returned."];
      filters: OptedOutFilterList.t option
        [@ocaml.doc
          "An array of OptedOutFilter objects to filter the results on."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "DescribeOptedOutNumbersRequest"
    let make ?optedOutNumbers =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~optOutListName ->
              fun () ->
                {
                  optedOutNumbers;
                  filters;
                  nextToken;
                  maxResults;
                  optOutListName
                }
    let to_value x =
      structure_to_value
        [("OptOutListName",
           (Some (OptOutListNameOrArn.to_value x.optOutListName)));
        ("OptedOutNumbers",
          (Option.map x.optedOutNumbers ~f:OptedOutNumberList.to_value));
        ("Filters", (Option.map x.filters ~f:OptedOutFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:OptedOutFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let optedOutNumbers =
        (Option.map ~f:OptedOutNumberList.of_xml)
          (Xml.child xml_arg0 "OptedOutNumbers") in
      let optOutListName =
        OptOutListNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptOutListName") in
      make ?maxResults ?nextToken ?filters ?optedOutNumbers ~optOutListName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" OptedOutFilterList.of_json in
      let optedOutNumbers =
        field_map json__ "OptedOutNumbers" OptedOutNumberList.of_json in
      let optOutListName =
        field_map_exn json__ "OptOutListName" OptOutListNameOrArn.of_json in
      make ?maxResults ?nextToken ?filters ?optedOutNumbers ~optOutListName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified opted out destination numbers or all opted out destination numbers in an opt-out list. If you specify opted out numbers, the output includes information for only the specified opted out numbers. If you specify filters, the output includes information for only those opted out numbers that meet the filter criteria. If you don't specify opted out numbers or filters, the output includes information for all opted out destination numbers in your opt-out list. If you specify an opted out number that isn't valid, an exception is returned."]
module DescribeOptOutListsResult =
  struct
    type nonrec t =
      {
      optOutLists: OptOutListInformationList.t option
        [@ocaml.doc
          "An array of OptOutListInformation objects that contain the details for the requested OptOutLists."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optOutLists =
      fun ?nextToken -> fun () -> { optOutLists; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OptOutLists",
           (Option.map x.optOutLists ~f:OptOutListInformationList.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 optOutLists =
        (Option.map ~f:OptOutListInformationList.of_xml)
          (Xml.child xml_arg0 "OptOutLists") in
      make ?nextToken ?optOutLists ()
    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 optOutLists =
        field_map json__ "OptOutLists" OptOutListInformationList.of_json in
      make ?nextToken ?optOutLists ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified opt-out list or all opt-out lists in your account. If you specify opt-out list names, the output includes information for only the specified opt-out lists. Opt-out lists include only those that meet the filter criteria. If you don't specify opt-out list names or filters, the output includes information for all opt-out lists. If you specify an opt-out list name that isn't valid, an error is returned."]
module DescribeOptOutListsRequest =
  struct
    type nonrec t =
      {
      optOutListNames: OptOutListNameList.t option
        [@ocaml.doc
          "The OptOutLists to show the details of. This is an array of strings that can be either the OptOutListName or OptOutListArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."];
      owner: Owner.t option
        [@ocaml.doc
          "Use SELF to filter the list of Opt-Out List to ones your account owns or use SHARED to filter on Opt-Out List shared with your account. The Owner and OptOutListNames parameters can't be used at the same time."]}
    let make ?optOutListNames =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?owner ->
            fun () -> { optOutListNames; nextToken; maxResults; owner }
    let to_value x =
      structure_to_value
        [("OptOutListNames",
           (Option.map x.optOutListNames ~f:OptOutListNameList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("Owner", (Option.map x.owner ~f:Owner.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let owner = (Option.map ~f:Owner.of_xml) (Xml.child xml_arg0 "Owner") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let optOutListNames =
        (Option.map ~f:OptOutListNameList.of_xml)
          (Xml.child xml_arg0 "OptOutListNames") in
      make ?owner ?maxResults ?nextToken ?optOutListNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let owner = field_map json__ "Owner" Owner.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let optOutListNames =
        field_map json__ "OptOutListNames" OptOutListNameList.of_json in
      make ?owner ?maxResults ?nextToken ?optOutListNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified opt-out list or all opt-out lists in your account. If you specify opt-out list names, the output includes information for only the specified opt-out lists. Opt-out lists include only those that meet the filter criteria. If you don't specify opt-out list names or filters, the output includes information for all opt-out lists. If you specify an opt-out list name that isn't valid, an error is returned."]
module DescribeNotifyTemplatesResult =
  struct
    type nonrec t =
      {
      notifyTemplates: NotifyTemplateInformationList.t option
        [@ocaml.doc
          "An array of NotifyTemplateInformation objects that contain the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifyTemplates =
      fun ?nextToken -> fun () -> { notifyTemplates; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NotifyTemplates",
           (Option.map x.notifyTemplates
              ~f:NotifyTemplateInformationList.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 notifyTemplates =
        (Option.map ~f:NotifyTemplateInformationList.of_xml)
          (Xml.child xml_arg0 "NotifyTemplates") in
      make ?nextToken ?notifyTemplates ()
    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 notifyTemplates =
        field_map json__ "NotifyTemplates"
          NotifyTemplateInformationList.of_json in
      make ?nextToken ?notifyTemplates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified notify templates or all notify templates in your account. If you specify template IDs, the output includes information for only the specified notify templates. If you specify filters, the output includes information for only those notify templates that meet the filter criteria. If you don't specify template IDs or filters, the output includes information for all notify templates. If you specify a template ID that isn't valid, an error is returned."]
module DescribeNotifyTemplatesRequest =
  struct
    type nonrec t =
      {
      templateIds: NotifyTemplateIdList.t option
        [@ocaml.doc "An array of template IDs to describe."];
      filters: NotifyTemplateFilterList.t option
        [@ocaml.doc
          "An array of NotifyTemplateFilter objects to filter the results on."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?templateIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { templateIds; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("TemplateIds",
           (Option.map x.templateIds ~f:NotifyTemplateIdList.to_value));
        ("Filters",
          (Option.map x.filters ~f:NotifyTemplateFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:NotifyTemplateFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let templateIds =
        (Option.map ~f:NotifyTemplateIdList.of_xml)
          (Xml.child xml_arg0 "TemplateIds") in
      make ?maxResults ?nextToken ?filters ?templateIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" NotifyTemplateFilterList.of_json in
      let templateIds =
        field_map json__ "TemplateIds" NotifyTemplateIdList.of_json in
      make ?maxResults ?nextToken ?filters ?templateIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified notify templates or all notify templates in your account. If you specify template IDs, the output includes information for only the specified notify templates. If you specify filters, the output includes information for only those notify templates that meet the filter criteria. If you don't specify template IDs or filters, the output includes information for all notify templates. If you specify a template ID that isn't valid, an error is returned."]
module DescribeNotifyConfigurationsResult =
  struct
    type nonrec t =
      {
      notifyConfigurations: NotifyConfigurationInformationList.t option
        [@ocaml.doc
          "An array of NotifyConfigurationInformation objects that contain the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifyConfigurations =
      fun ?nextToken -> fun () -> { notifyConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NotifyConfigurations",
           (Option.map x.notifyConfigurations
              ~f:NotifyConfigurationInformationList.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 notifyConfigurations =
        (Option.map ~f:NotifyConfigurationInformationList.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurations") in
      make ?nextToken ?notifyConfigurations ()
    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 notifyConfigurations =
        field_map json__ "NotifyConfigurations"
          NotifyConfigurationInformationList.of_json in
      make ?nextToken ?notifyConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified notify configurations or all notify configurations in your account. If you specify notify configuration IDs, the output includes information for only the specified notify configurations. If you specify filters, the output includes information for only those notify configurations that meet the filter criteria. If you don't specify notify configuration IDs or filters, the output includes information for all notify configurations. If you specify a notify configuration ID that isn't valid, an error is returned."]
module DescribeNotifyConfigurationsRequest =
  struct
    type nonrec t =
      {
      notifyConfigurationIds: NotifyConfigurationIdList.t option
        [@ocaml.doc "An array of notify configuration IDs to describe."];
      filters: NotifyConfigurationFilterList.t option
        [@ocaml.doc
          "An array of NotifyConfigurationFilter objects to filter the results on."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?notifyConfigurationIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () ->
              { notifyConfigurationIds; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NotifyConfigurationIds",
           (Option.map x.notifyConfigurationIds
              ~f:NotifyConfigurationIdList.to_value));
        ("Filters",
          (Option.map x.filters ~f:NotifyConfigurationFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:NotifyConfigurationFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let notifyConfigurationIds =
        (Option.map ~f:NotifyConfigurationIdList.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationIds") in
      make ?maxResults ?nextToken ?filters ?notifyConfigurationIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" NotifyConfigurationFilterList.of_json in
      let notifyConfigurationIds =
        field_map json__ "NotifyConfigurationIds"
          NotifyConfigurationIdList.of_json in
      make ?maxResults ?nextToken ?filters ?notifyConfigurationIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified notify configurations or all notify configurations in your account. If you specify notify configuration IDs, the output includes information for only the specified notify configurations. If you specify filters, the output includes information for only those notify configurations that meet the filter criteria. If you don't specify notify configuration IDs or filters, the output includes information for all notify configurations. If you specify a notify configuration ID that isn't valid, an error is returned."]
module DescribeKeywordsResult =
  struct
    type nonrec t =
      {
      originationIdentityArn: String_.t option
        [@ocaml.doc
          "The PhoneNumberArn or PoolArn that is associated with the OriginationIdentity."];
      originationIdentity: String_.t option
        [@ocaml.doc
          "The PhoneNumberId or PoolId that is associated with the OriginationIdentity."];
      keywords: KeywordInformationList.t option
        [@ocaml.doc
          "An array of KeywordInformation objects that contain the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?originationIdentityArn =
      fun ?originationIdentity ->
        fun ?keywords ->
          fun ?nextToken ->
            fun () ->
              {
                originationIdentityArn;
                originationIdentity;
                keywords;
                nextToken
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OriginationIdentityArn",
           (Option.map x.originationIdentityArn ~f:String_.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity ~f:String_.to_value));
        ("Keywords",
          (Option.map x.keywords ~f:KeywordInformationList.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 keywords =
        (Option.map ~f:KeywordInformationList.of_xml)
          (Xml.child xml_arg0 "Keywords") in
      let originationIdentity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let originationIdentityArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentityArn") in
      make ?nextToken ?keywords ?originationIdentity ?originationIdentityArn
        ()
    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 keywords =
        field_map json__ "Keywords" KeywordInformationList.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity" String_.of_json in
      let originationIdentityArn =
        field_map json__ "OriginationIdentityArn" String_.of_json in
      make ?nextToken ?keywords ?originationIdentity ?originationIdentityArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified keywords or all keywords on your origination phone number or pool. A keyword is a word that you can search for on a particular phone number or pool. It is also a specific word or phrase that an end user can send to your number to elicit a response, such as an informational message or a special offer. When your number receives a message that begins with a keyword, End User Messaging SMS responds with a customizable message. If you specify a keyword that isn't valid, an error is returned."]
module DescribeKeywordsRequest =
  struct
    type nonrec t =
      {
      originationIdentity: PhoneOrPoolIdOrArn.t
        [@ocaml.doc
          "The origination identity to use such as a PhoneNumberId, PhoneNumberArn, SenderId or SenderIdArn. You can use DescribePhoneNumbers to find the values for PhoneNumberId and PhoneNumberArn while DescribeSenderIds can be used to get the values for SenderId and SenderIdArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      keywords: KeywordList.t option
        [@ocaml.doc "An array of keywords to search for."];
      filters: KeywordFilterList.t option
        [@ocaml.doc "An array of keyword filters to filter the results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let context_ = "DescribeKeywordsRequest"
    let make ?keywords =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~originationIdentity ->
              fun () ->
                {
                  keywords;
                  filters;
                  nextToken;
                  maxResults;
                  originationIdentity
                }
    let to_value x =
      structure_to_value
        [("OriginationIdentity",
           (Some (PhoneOrPoolIdOrArn.to_value x.originationIdentity)));
        ("Keywords", (Option.map x.keywords ~f:KeywordList.to_value));
        ("Filters", (Option.map x.filters ~f:KeywordFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:KeywordFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let keywords =
        (Option.map ~f:KeywordList.of_xml) (Xml.child xml_arg0 "Keywords") in
      let originationIdentity =
        PhoneOrPoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      make ?maxResults ?nextToken ?filters ?keywords ~originationIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters = field_map json__ "Filters" KeywordFilterList.of_json in
      let keywords = field_map json__ "Keywords" KeywordList.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity" PhoneOrPoolIdOrArn.of_json in
      make ?maxResults ?nextToken ?filters ?keywords ~originationIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified keywords or all keywords on your origination phone number or pool. A keyword is a word that you can search for on a particular phone number or pool. It is also a specific word or phrase that an end user can send to your number to elicit a response, such as an informational message or a special offer. When your number receives a message that begins with a keyword, End User Messaging SMS responds with a customizable message. If you specify a keyword that isn't valid, an error is returned."]
module DescribeConfigurationSetsResult =
  struct
    type nonrec t =
      {
      configurationSets: ConfigurationSetInformationList.t option
        [@ocaml.doc "An array of ConfigurationSets objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSets =
      fun ?nextToken -> fun () -> { configurationSets; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSets",
           (Option.map x.configurationSets
              ~f:ConfigurationSetInformationList.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:ConfigurationSetInformationList.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"
          ConfigurationSetInformationList.of_json in
      make ?nextToken ?configurationSets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified configuration sets or all in your account. If you specify configuration set names, the output includes information for only the specified configuration sets. If you specify filters, the output includes information for only those configuration sets that meet the filter criteria. If you don't specify configuration set names or filters, the output includes information for all configuration sets. If you specify a configuration set name that isn't valid, an error is returned."]
module DescribeConfigurationSetsRequest =
  struct
    type nonrec t =
      {
      configurationSetNames: ConfigurationSetNameList.t option
        [@ocaml.doc
          "An array of strings. Each element can be either a ConfigurationSetName or ConfigurationSetArn."];
      filters: ConfigurationSetFilterList.t option
        [@ocaml.doc
          "An array of filters to apply to the results that are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?configurationSetNames =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () ->
              { configurationSetNames; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ConfigurationSetNames",
           (Option.map x.configurationSetNames
              ~f:ConfigurationSetNameList.to_value));
        ("Filters",
          (Option.map x.filters ~f:ConfigurationSetFilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:ConfigurationSetFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let configurationSetNames =
        (Option.map ~f:ConfigurationSetNameList.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetNames") in
      make ?maxResults ?nextToken ?filters ?configurationSetNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filters =
        field_map json__ "Filters" ConfigurationSetFilterList.of_json in
      let configurationSetNames =
        field_map json__ "ConfigurationSetNames"
          ConfigurationSetNameList.of_json in
      make ?maxResults ?nextToken ?filters ?configurationSetNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified configuration sets or all in your account. If you specify configuration set names, the output includes information for only the specified configuration sets. If you specify filters, the output includes information for only those configuration sets that meet the filter criteria. If you don't specify configuration set names or filters, the output includes information for all configuration sets. If you specify a configuration set name that isn't valid, an error is returned."]
module DescribeAccountLimitsResult =
  struct
    type nonrec t =
      {
      accountLimits: AccountLimitList.t option
        [@ocaml.doc
          "An array of AccountLimit objects that show the current spend limits."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountLimits =
      fun ?nextToken -> fun () -> { accountLimits; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AccountLimits",
           (Option.map x.accountLimits ~f:AccountLimitList.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 accountLimits =
        (Option.map ~f:AccountLimitList.of_xml)
          (Xml.child xml_arg0 "AccountLimits") in
      make ?nextToken ?accountLimits ()
    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 accountLimits =
        field_map json__ "AccountLimits" AccountLimitList.of_json in
      make ?nextToken ?accountLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current End User Messaging SMS SMS Voice V2 resource quotas for your account. The description for a quota includes the quota name, current usage toward that quota, and the quota's maximum value. When you establish an Amazon Web Services account, the account has initial quotas on the maximum number of configuration sets, opt-out lists, phone numbers, and pools that you can create in a given Region. For more information see Quotas in the End User Messaging SMS User Guide."]
module DescribeAccountLimitsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current End User Messaging SMS SMS Voice V2 resource quotas for your account. The description for a quota includes the quota name, current usage toward that quota, and the quota's maximum value. When you establish an Amazon Web Services account, the account has initial quotas on the maximum number of configuration sets, opt-out lists, phone numbers, and pools that you can create in a given Region. For more information see Quotas in the End User Messaging SMS User Guide."]
module DescribeAccountAttributesResult =
  struct
    type nonrec t =
      {
      accountAttributes: AccountAttributeList.t option
        [@ocaml.doc "An array of AccountAttributes objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. If this field is empty then there are no more results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountAttributes =
      fun ?nextToken -> fun () -> { accountAttributes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AccountAttributes",
           (Option.map x.accountAttributes ~f:AccountAttributeList.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 accountAttributes =
        (Option.map ~f:AccountAttributeList.of_xml)
          (Xml.child xml_arg0 "AccountAttributes") in
      make ?nextToken ?accountAttributes ()
    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 accountAttributes =
        field_map json__ "AccountAttributes" AccountAttributeList.of_json in
      make ?nextToken ?accountAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes attributes of your Amazon Web Services account. The supported account attributes include account tier, which indicates whether your account is in the sandbox or production environment. When you're ready to move your account out of the sandbox, create an Amazon Web Services Support case for a service limit increase request. New accounts are placed into an SMS or voice sandbox. The sandbox protects both Amazon Web Services end recipients and SMS or voice recipients from fraud and abuse."]
module DescribeAccountAttributesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to be used for the next set of paginated results. You don't need to supply a value for this field in the initial request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per each request."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes attributes of your Amazon Web Services account. The supported account attributes include account tier, which indicates whether your account is in the sandbox or production environment. When you're ready to move your account out of the sandbox, create an Amazon Web Services Support case for a service limit increase request. New accounts are placed into an SMS or voice sandbox. The sandbox protects both Amazon Web Services end recipients and SMS or voice recipients from fraud and abuse."]
module DeleteVoiceMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc "The current monthly limit, in US dollars."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an account level monthly spend limit override for sending voice messages. Deleting a spend limit override sets the EnforcedLimit equal to the MaxLimit, which is controlled by Amazon Web Services. For more information on spending limits (quotas) see Quotas in the End User Messaging SMS User Guide."]
module DeleteVoiceMessageSpendLimitOverrideRequest =
  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
       "Deletes an account level monthly spend limit override for sending voice messages. Deleting a spend limit override sets the EnforcedLimit equal to the MaxLimit, which is controlled by Amazon Web Services. For more information on spending limits (quotas) see Quotas in the End User Messaging SMS User Guide."]
module DeleteVerifiedDestinationNumberResult =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the verified destination phone number."];
      verifiedDestinationNumberId: String_.t option
        [@ocaml.doc
          "The unique identifier for the verified destination phone number."];
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The verified destination phone number, in E.164 format."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the destination phone number was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verifiedDestinationNumberArn =
      fun ?verifiedDestinationNumberId ->
        fun ?destinationPhoneNumber ->
          fun ?createdTimestamp ->
            fun () ->
              {
                verifiedDestinationNumberArn;
                verifiedDestinationNumberId;
                destinationPhoneNumber;
                createdTimestamp
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberArn",
           (Option.map x.verifiedDestinationNumberArn ~f:String_.to_value));
        ("VerifiedDestinationNumberId",
          (Option.map x.verifiedDestinationNumberId ~f:String_.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:PhoneNumber.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 destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let verifiedDestinationNumberId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberId") in
      let verifiedDestinationNumberArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberArn") in
      make ?createdTimestamp ?destinationPhoneNumber
        ?verifiedDestinationNumberId ?verifiedDestinationNumberArn ()
    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 destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let verifiedDestinationNumberId =
        field_map json__ "VerifiedDestinationNumberId" String_.of_json in
      let verifiedDestinationNumberArn =
        field_map json__ "VerifiedDestinationNumberArn" String_.of_json in
      make ?createdTimestamp ?destinationPhoneNumber
        ?verifiedDestinationNumberId ?verifiedDestinationNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a verified destination phone number."]
module DeleteVerifiedDestinationNumberRequest =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberId: VerifiedDestinationNumberIdOrArn.t
        [@ocaml.doc
          "The unique identifier for the verified destination phone number."]}
    let context_ = "DeleteVerifiedDestinationNumberRequest"
    let make ~verifiedDestinationNumberId =
      fun () -> { verifiedDestinationNumberId }
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberId",
           (Some
              (VerifiedDestinationNumberIdOrArn.to_value
                 x.verifiedDestinationNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verifiedDestinationNumberId =
        VerifiedDestinationNumberIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "VerifiedDestinationNumberId") in
      make ~verifiedDestinationNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verifiedDestinationNumberId =
        field_map_exn json__ "VerifiedDestinationNumberId"
          VerifiedDestinationNumberIdOrArn.of_json in
      make ~verifiedDestinationNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a verified destination phone number."]
module DeleteTextMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc "The current monthly limit, in US dollars."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an account-level monthly spending limit override for sending text messages. Deleting a spend limit override will set the EnforcedLimit to equal the MaxLimit, which is controlled by Amazon Web Services. For more information on spend limits (quotas) see Quotas in the End User Messaging SMS User Guide."]
module DeleteTextMessageSpendLimitOverrideRequest =
  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
       "Deletes an account-level monthly spending limit override for sending text messages. Deleting a spend limit override will set the EnforcedLimit to equal the MaxLimit, which is controlled by Amazon Web Services. For more information on spend limits (quotas) see Quotas in the End User Messaging SMS User Guide."]
module DeleteResourcePolicyResult =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the End User Messaging SMS resource that the resource-based policy was deleted from."];
      policy: ResourcePolicy.t option
        [@ocaml.doc
          "The JSON formatted resource-based policy that was deleted."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the resource-based policy was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn =
      fun ?policy ->
        fun ?createdTimestamp ->
          fun () -> { resourceArn; policy; createdTimestamp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn",
           (Option.map x.resourceArn ~f:AmazonResourceName.to_value));
        ("Policy", (Option.map x.policy ~f:ResourcePolicy.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 policy =
        (Option.map ~f:ResourcePolicy.of_xml) (Xml.child xml_arg0 "Policy") in
      let resourceArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      make ?createdTimestamp ?policy ?resourceArn ()
    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 policy = field_map json__ "Policy" ResourcePolicy.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" AmazonResourceName.of_json in
      make ?createdTimestamp ?policy ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the resource-based policy document attached to the End User Messaging SMS resource. A shared resource can be a Pool, Opt-out list, Sender Id, or Phone number."]
module DeleteResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the End User Messaging SMS resource you're deleting the resource-based policy from."]}
    let context_ = "DeleteResourcePolicyRequest"
    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
       "Deletes the resource-based policy document attached to the End User Messaging SMS resource. A shared resource can be a Pool, Opt-out list, Sender Id, or Phone number."]
module DeleteRegistrationResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      registrationStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The status of the registration. CLOSED: The phone number or sender ID has been deleted and you must also delete the registration for the number. CREATED: Your registration is created but not submitted. COMPLETE: Your registration has been approved and your origination identity has been created. DELETED: The registration has been deleted. PROVISIONING: Your registration has been approved and your origination identity is being created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REQUIRES_UPDATES: You must fix your registration and resubmit it. REVIEWING: Your registration has been accepted and is being reviewed. SUBMITTED: Your registration has been submitted and is awaiting review."];
      currentVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The current version number of the registration."];
      approvedVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc
          "The version number of the registration that was approved."];
      latestDeniedVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc
          "The latest version number of the registration that was denied."];
      additionalAttributes: StringMap.t option
        [@ocaml.doc
          "Metadata about a given registration which is specific to that registration type."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?registrationType ->
          fun ?registrationStatus ->
            fun ?currentVersionNumber ->
              fun ?approvedVersionNumber ->
                fun ?latestDeniedVersionNumber ->
                  fun ?additionalAttributes ->
                    fun ?createdTimestamp ->
                      fun () ->
                        {
                          registrationArn;
                          registrationId;
                          registrationType;
                          registrationStatus;
                          currentVersionNumber;
                          approvedVersionNumber;
                          latestDeniedVersionNumber;
                          additionalAttributes;
                          createdTimestamp
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("RegistrationType",
          (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("RegistrationStatus",
          (Option.map x.registrationStatus ~f:RegistrationStatus.to_value));
        ("CurrentVersionNumber",
          (Option.map x.currentVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("ApprovedVersionNumber",
          (Option.map x.approvedVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("LatestDeniedVersionNumber",
          (Option.map x.latestDeniedVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("AdditionalAttributes",
          (Option.map x.additionalAttributes ~f:StringMap.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 additionalAttributes =
        (Option.map ~f:StringMap.of_xml)
          (Xml.child xml_arg0 "AdditionalAttributes") in
      let latestDeniedVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "LatestDeniedVersionNumber") in
      let approvedVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "ApprovedVersionNumber") in
      let currentVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "CurrentVersionNumber") in
      let registrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationStatus") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?createdTimestamp ?additionalAttributes ?latestDeniedVersionNumber
        ?approvedVersionNumber ?currentVersionNumber ?registrationStatus
        ?registrationType ?registrationId ?registrationArn ()
    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 additionalAttributes =
        field_map json__ "AdditionalAttributes" StringMap.of_json in
      let latestDeniedVersionNumber =
        field_map json__ "LatestDeniedVersionNumber"
          RegistrationVersionNumber.of_json in
      let approvedVersionNumber =
        field_map json__ "ApprovedVersionNumber"
          RegistrationVersionNumber.of_json in
      let currentVersionNumber =
        field_map json__ "CurrentVersionNumber"
          RegistrationVersionNumber.of_json in
      let registrationStatus =
        field_map json__ "RegistrationStatus" RegistrationStatus.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?createdTimestamp ?additionalAttributes ?latestDeniedVersionNumber
        ?approvedVersionNumber ?currentVersionNumber ?registrationStatus
        ?registrationType ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete an existing registration from your account."]
module DeleteRegistrationRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."]}
    let context_ = "DeleteRegistrationRequest"
    let make ~registrationId = fun () -> { registrationId }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete an existing registration from your account."]
module DeleteRegistrationFieldValueResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The version number of the registration."];
      fieldPath: FieldPath.t option
        [@ocaml.doc "The path to the registration form field."];
      selectChoices: SelectChoiceList.t option
        [@ocaml.doc "An array of values for the form field."];
      textValue: TextValue.t option
        [@ocaml.doc "The text data for a free form field."];
      registrationAttachmentId: String_.t option
        [@ocaml.doc "The unique identifier for the registration attachment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?versionNumber ->
          fun ?fieldPath ->
            fun ?selectChoices ->
              fun ?textValue ->
                fun ?registrationAttachmentId ->
                  fun () ->
                    {
                      registrationArn;
                      registrationId;
                      versionNumber;
                      fieldPath;
                      selectChoices;
                      textValue;
                      registrationAttachmentId
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("FieldPath", (Option.map x.fieldPath ~f:FieldPath.to_value));
        ("SelectChoices",
          (Option.map x.selectChoices ~f:SelectChoiceList.to_value));
        ("TextValue", (Option.map x.textValue ~f:TextValue.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationAttachmentId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let textValue =
        (Option.map ~f:TextValue.of_xml) (Xml.child xml_arg0 "TextValue") in
      let selectChoices =
        (Option.map ~f:SelectChoiceList.of_xml)
          (Xml.child xml_arg0 "SelectChoices") in
      let fieldPath =
        (Option.map ~f:FieldPath.of_xml) (Xml.child xml_arg0 "FieldPath") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?registrationAttachmentId ?textValue ?selectChoices ?fieldPath
        ?versionNumber ?registrationId ?registrationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId" String_.of_json in
      let textValue = field_map json__ "TextValue" TextValue.of_json in
      let selectChoices =
        field_map json__ "SelectChoices" SelectChoiceList.of_json in
      let fieldPath = field_map json__ "FieldPath" FieldPath.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?registrationAttachmentId ?textValue ?selectChoices ?fieldPath
        ?versionNumber ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete the value in a registration form field."]
module DeleteRegistrationFieldValueRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      fieldPath: FieldPath.t
        [@ocaml.doc
          "The path to the registration form field. You can use DescribeRegistrationFieldDefinitions for a list of FieldPaths."]}
    let context_ = "DeleteRegistrationFieldValueRequest"
    let make ~registrationId =
      fun ~fieldPath -> fun () -> { registrationId; fieldPath }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("FieldPath", (Some (FieldPath.to_value x.fieldPath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldPath =
        FieldPath.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FieldPath") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ~fieldPath ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldPath = field_map_exn json__ "FieldPath" FieldPath.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ~fieldPath ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete the value in a registration form field."]
module DeleteRegistrationAttachmentResult =
  struct
    type nonrec t =
      {
      registrationAttachmentArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the registration attachment."];
      registrationAttachmentId: String_.t option
        [@ocaml.doc "The unique identifier for the registration attachment."];
      attachmentStatus: AttachmentStatus.t option
        [@ocaml.doc
          "The status of the registration attachment. UPLOAD_IN_PROGRESS The attachment is being uploaded. UPLOAD_COMPLETE The attachment has been uploaded. UPLOAD_FAILED The attachment failed to uploaded. DELETED The attachment has been deleted.."];
      attachmentUploadErrorReason: AttachmentUploadErrorReason.t option
        [@ocaml.doc "The error message if the upload failed."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration attachment was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationAttachmentArn =
      fun ?registrationAttachmentId ->
        fun ?attachmentStatus ->
          fun ?attachmentUploadErrorReason ->
            fun ?createdTimestamp ->
              fun () ->
                {
                  registrationAttachmentArn;
                  registrationAttachmentId;
                  attachmentStatus;
                  attachmentUploadErrorReason;
                  createdTimestamp
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationAttachmentArn",
           (Option.map x.registrationAttachmentArn ~f:String_.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId ~f:String_.to_value));
        ("AttachmentStatus",
          (Option.map x.attachmentStatus ~f:AttachmentStatus.to_value));
        ("AttachmentUploadErrorReason",
          (Option.map x.attachmentUploadErrorReason
             ~f:AttachmentUploadErrorReason.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 attachmentUploadErrorReason =
        (Option.map ~f:AttachmentUploadErrorReason.of_xml)
          (Xml.child xml_arg0 "AttachmentUploadErrorReason") in
      let attachmentStatus =
        (Option.map ~f:AttachmentStatus.of_xml)
          (Xml.child xml_arg0 "AttachmentStatus") in
      let registrationAttachmentId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let registrationAttachmentArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentArn") in
      make ?createdTimestamp ?attachmentUploadErrorReason ?attachmentStatus
        ?registrationAttachmentId ?registrationAttachmentArn ()
    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 attachmentUploadErrorReason =
        field_map json__ "AttachmentUploadErrorReason"
          AttachmentUploadErrorReason.of_json in
      let attachmentStatus =
        field_map json__ "AttachmentStatus" AttachmentStatus.of_json in
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId" String_.of_json in
      let registrationAttachmentArn =
        field_map json__ "RegistrationAttachmentArn" String_.of_json in
      make ?createdTimestamp ?attachmentUploadErrorReason ?attachmentStatus
        ?registrationAttachmentId ?registrationAttachmentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete the specified registration attachment."]
module DeleteRegistrationAttachmentRequest =
  struct
    type nonrec t =
      {
      registrationAttachmentId: RegistrationAttachmentIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration attachment."]}
    let context_ = "DeleteRegistrationAttachmentRequest"
    let make ~registrationAttachmentId =
      fun () -> { registrationAttachmentId }
    let to_value x =
      structure_to_value
        [("RegistrationAttachmentId",
           (Some
              (RegistrationAttachmentIdOrArn.to_value
                 x.registrationAttachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationAttachmentId =
        RegistrationAttachmentIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "RegistrationAttachmentId") in
      make ~registrationAttachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationAttachmentId =
        field_map_exn json__ "RegistrationAttachmentId"
          RegistrationAttachmentIdOrArn.of_json in
      make ~registrationAttachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete the specified registration attachment."]
module DeleteRcsAgentResult =
  struct
    type nonrec t =
      {
      rcsAgentArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted RCS agent."];
      rcsAgentId: String_.t option
        [@ocaml.doc "The unique identifier for the deleted RCS agent."];
      status: RcsAgentStatus.t option
        [@ocaml.doc "The current status of the RCS agent."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the RCS agent was created, in UNIX epoch time format."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList that was associated with the deleted RCS agent."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rcsAgentArn =
      fun ?rcsAgentId ->
        fun ?status ->
          fun ?createdTimestamp ->
            fun ?deletionProtectionEnabled ->
              fun ?optOutListName ->
                fun ?selfManagedOptOutsEnabled ->
                  fun ?twoWayChannelArn ->
                    fun ?twoWayChannelRole ->
                      fun ?twoWayEnabled ->
                        fun () ->
                          {
                            rcsAgentArn;
                            rcsAgentId;
                            status;
                            createdTimestamp;
                            deletionProtectionEnabled;
                            optOutListName;
                            selfManagedOptOutsEnabled;
                            twoWayChannelArn;
                            twoWayChannelRole;
                            twoWayEnabled
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RcsAgentArn", (Option.map x.rcsAgentArn ~f:String_.to_value));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:RcsAgentStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let status =
        (Option.map ~f:RcsAgentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      let rcsAgentArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentArn") in
      make ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?optOutListName ?deletionProtectionEnabled
        ?createdTimestamp ?status ?rcsAgentId ?rcsAgentArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let status = field_map json__ "Status" RcsAgentStatus.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      let rcsAgentArn = field_map json__ "RcsAgentArn" String_.of_json in
      make ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?optOutListName ?deletionProtectionEnabled
        ?createdTimestamp ?status ?rcsAgentId ?rcsAgentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing RCS agent. If deletion protection is enabled, an error is returned."]
module DeleteRcsAgentRequest =
  struct
    type nonrec t =
      {
      rcsAgentId: RcsAgentIdOrArn.t
        [@ocaml.doc
          "The unique identifier of the RCS agent to delete. You can use either the RcsAgentId or RcsAgentArn."]}
    let context_ = "DeleteRcsAgentRequest"
    let make ~rcsAgentId = fun () -> { rcsAgentId }
    let to_value x =
      structure_to_value
        [("RcsAgentId", (Some (RcsAgentIdOrArn.to_value x.rcsAgentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rcsAgentId =
        RcsAgentIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RcsAgentId") in
      make ~rcsAgentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rcsAgentId =
        field_map_exn json__ "RcsAgentId" RcsAgentIdOrArn.of_json in
      make ~rcsAgentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing RCS agent. If deletion protection is enabled, an error is returned."]
module DeleteProtectConfigurationRuleSetNumberOverrideResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc "The destination phone number in E.164 format."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the rule was created, in UNIX epoch time format."];
      action: ProtectConfigurationRuleOverrideAction.t option
        [@ocaml.doc "The action associated with the rule."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      expirationTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the resource-based policy was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?destinationPhoneNumber ->
          fun ?createdTimestamp ->
            fun ?action ->
              fun ?isoCountryCode ->
                fun ?expirationTimestamp ->
                  fun () ->
                    {
                      protectConfigurationArn;
                      protectConfigurationId;
                      destinationPhoneNumber;
                      createdTimestamp;
                      action;
                      isoCountryCode;
                      expirationTimestamp
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:PhoneNumber.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("Action",
          (Option.map x.action
             ~f:ProtectConfigurationRuleOverrideAction.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("ExpirationTimestamp",
          (Option.map x.expirationTimestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTimestamp") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let action =
        (Option.map ~f:ProtectConfigurationRuleOverrideAction.of_xml)
          (Xml.child xml_arg0 "Action") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?expirationTimestamp ?isoCountryCode ?action ?createdTimestamp
        ?destinationPhoneNumber ?protectConfigurationId
        ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTimestamp =
        field_map json__ "ExpirationTimestamp" Timestamp.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let action =
        field_map json__ "Action"
          ProtectConfigurationRuleOverrideAction.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?expirationTimestamp ?isoCountryCode ?action ?createdTimestamp
        ?destinationPhoneNumber ?protectConfigurationId
        ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete the protect configuration rule set number override."]
module DeleteProtectConfigurationRuleSetNumberOverrideRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc "The destination phone number in E.164 format."]}
    let context_ = "DeleteProtectConfigurationRuleSetNumberOverrideRequest"
    let make ~protectConfigurationId =
      fun ~destinationPhoneNumber ->
        fun () -> { protectConfigurationId; destinationPhoneNumber }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("DestinationPhoneNumber",
          (Some (PhoneNumber.to_value x.destinationPhoneNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~destinationPhoneNumber ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~destinationPhoneNumber ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete the protect configuration rule set number override."]
module DeleteProtectConfigurationResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the protect configuration was created, in UNIX epoch time format."];
      accountDefault: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is true if the protect configuration is set as your account default protect configuration."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "The status of deletion protection for the protect configuration. When set to true deletion protection is enabled. By default this is set to false."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?createdTimestamp ->
          fun ?accountDefault ->
            fun ?deletionProtectionEnabled ->
              fun () ->
                {
                  protectConfigurationArn;
                  protectConfigurationId;
                  createdTimestamp;
                  accountDefault;
                  deletionProtectionEnabled
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("AccountDefault",
          (Option.map x.accountDefault ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let accountDefault =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "AccountDefault") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let accountDefault =
        field_map json__ "AccountDefault" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete the protect configuration. The protect configuration must have deletion protection disabled and must not be associated as the account default protect configuration or associated with a configuration set."]
module DeleteProtectConfigurationRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."]}
    let context_ = "DeleteProtectConfigurationRequest"
    let make ~protectConfigurationId = fun () -> { protectConfigurationId }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently delete the protect configuration. The protect configuration must have deletion protection disabled and must not be associated as the account default protect configuration or associated with a configuration set."]
module DeletePoolResult =
  struct
    type nonrec t =
      {
      poolArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pool that was deleted."];
      poolId: String_.t option
        [@ocaml.doc "The PoolId of the pool that was deleted."];
      status: PoolStatus.t option
        [@ocaml.doc
          "The current status of the pool. CREATING: The pool is currently being created and isn't yet available for use. ACTIVE: The pool is active and available for use. DELETING: The pool is being deleted."];
      messageType: MessageType.t option
        [@ocaml.doc
          "The message type that was associated with the deleted pool."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the TwoWayChannel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to false and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList that was associated with the deleted pool."];
      sharedRoutesEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "Indicates whether shared routes are enabled for the pool."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the pool was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolArn =
      fun ?poolId ->
        fun ?status ->
          fun ?messageType ->
            fun ?twoWayEnabled ->
              fun ?twoWayChannelArn ->
                fun ?twoWayChannelRole ->
                  fun ?selfManagedOptOutsEnabled ->
                    fun ?optOutListName ->
                      fun ?sharedRoutesEnabled ->
                        fun ?createdTimestamp ->
                          fun () ->
                            {
                              poolArn;
                              poolId;
                              status;
                              messageType;
                              twoWayEnabled;
                              twoWayChannelArn;
                              twoWayChannelRole;
                              selfManagedOptOutsEnabled;
                              optOutListName;
                              sharedRoutesEnabled;
                              createdTimestamp
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:PoolStatus.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SharedRoutesEnabled",
          (Option.map x.sharedRoutesEnabled ~f:PrimitiveBoolean.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 sharedRoutesEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SharedRoutesEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let status =
        (Option.map ~f:PoolStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?createdTimestamp ?sharedRoutesEnabled ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ?messageType ?status ?poolId ?poolArn ()
    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 sharedRoutesEnabled =
        field_map json__ "SharedRoutesEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let status = field_map json__ "Status" PoolStatus.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?createdTimestamp ?sharedRoutesEnabled ?optOutListName
        ?selfManagedOptOutsEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?twoWayEnabled ?messageType ?status ?poolId ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing pool. Deleting a pool disassociates all origination identities from that pool. If the pool status isn't active or if deletion protection is enabled, an error is returned. A pool is a collection of phone numbers and SenderIds. A pool can include one or more phone numbers and SenderIds that are associated with your Amazon Web Services account."]
module DeletePoolRequest =
  struct
    type nonrec t =
      {
      poolId: PoolIdOrArn.t
        [@ocaml.doc
          "The PoolId or PoolArn of the pool to delete. You can use DescribePools to find the values for PoolId and PoolArn . If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."]}
    let context_ = "DeletePoolRequest"
    let make ~poolId = fun () -> { poolId }
    let to_value x =
      structure_to_value [("PoolId", (Some (PoolIdOrArn.to_value x.poolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolId =
        PoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolId = field_map_exn json__ "PoolId" PoolIdOrArn.of_json in
      make ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing pool. Deleting a pool disassociates all origination identities from that pool. If the pool status isn't active or if deletion protection is enabled, an error is returned. A pool is a collection of phone numbers and SenderIds. A pool can include one or more phone numbers and SenderIds that are associated with your Amazon Web Services account."]
module DeleteOptedOutNumberResult =
  struct
    type nonrec t =
      {
      optOutListArn: String_.t option
        [@ocaml.doc
          "The OptOutListArn that the phone number was removed from."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The OptOutListName that the phone number was removed from."];
      optedOutNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number that was removed from the OptOutList."];
      optedOutTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time that the number was removed at, in UNIX epoch time format."];
      endUserOptedOut: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is true if it was the end user who requested their phone number be removed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optOutListArn =
      fun ?optOutListName ->
        fun ?optedOutNumber ->
          fun ?optedOutTimestamp ->
            fun ?endUserOptedOut ->
              fun () ->
                {
                  optOutListArn;
                  optOutListName;
                  optedOutNumber;
                  optedOutTimestamp;
                  endUserOptedOut
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OptOutListArn", (Option.map x.optOutListArn ~f:String_.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("OptedOutNumber",
          (Option.map x.optedOutNumber ~f:PhoneNumber.to_value));
        ("OptedOutTimestamp",
          (Option.map x.optedOutTimestamp ~f:Timestamp.to_value));
        ("EndUserOptedOut",
          (Option.map x.endUserOptedOut ~f:PrimitiveBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endUserOptedOut =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "EndUserOptedOut") in
      let optedOutTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "OptedOutTimestamp") in
      let optedOutNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "OptedOutNumber") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let optOutListArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptOutListArn") in
      make ?endUserOptedOut ?optedOutTimestamp ?optedOutNumber
        ?optOutListName ?optOutListArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endUserOptedOut =
        field_map json__ "EndUserOptedOut" PrimitiveBoolean.of_json in
      let optedOutTimestamp =
        field_map json__ "OptedOutTimestamp" Timestamp.of_json in
      let optedOutNumber =
        field_map json__ "OptedOutNumber" PhoneNumber.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let optOutListArn = field_map json__ "OptOutListArn" String_.of_json in
      make ?endUserOptedOut ?optedOutTimestamp ?optedOutNumber
        ?optOutListName ?optOutListArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing opted out destination phone number from the specified opt-out list. Each destination phone number can only be deleted once every 30 days. If the specified destination phone number doesn't exist or if the opt-out list doesn't exist, an error is returned."]
module DeleteOptedOutNumberRequest =
  struct
    type nonrec t =
      {
      optOutListName: OptOutListNameOrArn.t
        [@ocaml.doc
          "The OptOutListName or OptOutListArn to remove the phone number from. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      optedOutNumber: PhoneNumber.t
        [@ocaml.doc
          "The phone number, in E.164 format, to remove from the OptOutList."]}
    let context_ = "DeleteOptedOutNumberRequest"
    let make ~optOutListName =
      fun ~optedOutNumber -> fun () -> { optOutListName; optedOutNumber }
    let to_value x =
      structure_to_value
        [("OptOutListName",
           (Some (OptOutListNameOrArn.to_value x.optOutListName)));
        ("OptedOutNumber", (Some (PhoneNumber.to_value x.optedOutNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optedOutNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptedOutNumber") in
      let optOutListName =
        OptOutListNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptOutListName") in
      make ~optedOutNumber ~optOutListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optedOutNumber =
        field_map_exn json__ "OptedOutNumber" PhoneNumber.of_json in
      let optOutListName =
        field_map_exn json__ "OptOutListName" OptOutListNameOrArn.of_json in
      make ~optedOutNumber ~optOutListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing opted out destination phone number from the specified opt-out list. Each destination phone number can only be deleted once every 30 days. If the specified destination phone number doesn't exist or if the opt-out list doesn't exist, an error is returned."]
module DeleteOptOutListResult =
  struct
    type nonrec t =
      {
      optOutListArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the OptOutList that was removed."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the OptOutList that was removed."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the OptOutList was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optOutListArn =
      fun ?optOutListName ->
        fun ?createdTimestamp ->
          fun () -> { optOutListArn; optOutListName; createdTimestamp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OptOutListArn", (Option.map x.optOutListArn ~f:String_.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.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 optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let optOutListArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptOutListArn") in
      make ?createdTimestamp ?optOutListName ?optOutListArn ()
    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 optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let optOutListArn = field_map json__ "OptOutListArn" String_.of_json in
      make ?createdTimestamp ?optOutListName ?optOutListArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing opt-out list. All opted out phone numbers in the opt-out list are deleted. If the specified opt-out list name doesn't exist or is in-use by an origination phone number or pool, an error is returned."]
module DeleteOptOutListRequest =
  struct
    type nonrec t =
      {
      optOutListName: OptOutListNameOrArn.t
        [@ocaml.doc
          "The OptOutListName or OptOutListArn of the OptOutList to delete. You can use DescribeOptOutLists to find the values for OptOutListName and OptOutListArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."]}
    let context_ = "DeleteOptOutListRequest"
    let make ~optOutListName = fun () -> { optOutListName }
    let to_value x =
      structure_to_value
        [("OptOutListName",
           (Some (OptOutListNameOrArn.to_value x.optOutListName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optOutListName =
        OptOutListNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptOutListName") in
      make ~optOutListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optOutListName =
        field_map_exn json__ "OptOutListName" OptOutListNameOrArn.of_json in
      make ~optOutListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing opt-out list. All opted out phone numbers in the opt-out list are deleted. If the specified opt-out list name doesn't exist or is in-use by an origination phone number or pool, an error is returned."]
module DeleteNotifyMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc "The current monthly limit, in US dollars."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an account-level monthly spending limit override for sending notify messages. Deleting a spend limit override will set the EnforcedLimit to equal the MaxLimit, which is controlled by Amazon Web Services. For more information on spend limits (quotas) see Quotas in the End User Messaging SMS User Guide."]
module DeleteNotifyMessageSpendLimitOverrideRequest =
  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
       "Deletes an account-level monthly spending limit override for sending notify messages. Deleting a spend limit override will set the EnforcedLimit to equal the MaxLimit, which is controlled by Amazon Web Services. For more information on spend limits (quotas) see Quotas in the End User Messaging SMS User Guide."]
module DeleteNotifyConfigurationResult =
  struct
    type nonrec t =
      {
      notifyConfigurationArn: NotifyConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the notify configuration."];
      notifyConfigurationId: NotifyConfigurationId.t option
        [@ocaml.doc "The unique identifier for the notify configuration."];
      displayName: NotifyConfigurationDisplayName.t option
        [@ocaml.doc
          "The display name associated with the notify configuration."];
      useCase: NotifyConfigurationUseCase.t option
        [@ocaml.doc "The use case for the notify configuration."];
      defaultTemplateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The default template identifier associated with the notify configuration."];
      poolId: String_.t option
        [@ocaml.doc
          "The identifier of the pool associated with the notify configuration."];
      enabledCountries: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, that are enabled for the notify configuration."];
      enabledChannels: NotifyEnabledChannelsList.t option
        [@ocaml.doc
          "An array of channels enabled for the notify configuration. Supported values include SMS and VOICE."];
      tier: NotifyConfigurationTier.t option
        [@ocaml.doc "The tier of the notify configuration."];
      tierUpgradeStatus: TierUpgradeStatus.t option
        [@ocaml.doc "The tier upgrade status of the notify configuration."];
      status: NotifyConfigurationStatus.t option
        [@ocaml.doc "The current status of the notify configuration."];
      rejectionReason: String_.t option
        [@ocaml.doc
          "The reason the notify configuration was rejected, if applicable."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the notify configuration was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifyConfigurationArn =
      fun ?notifyConfigurationId ->
        fun ?displayName ->
          fun ?useCase ->
            fun ?defaultTemplateId ->
              fun ?poolId ->
                fun ?enabledCountries ->
                  fun ?enabledChannels ->
                    fun ?tier ->
                      fun ?tierUpgradeStatus ->
                        fun ?status ->
                          fun ?rejectionReason ->
                            fun ?deletionProtectionEnabled ->
                              fun ?createdTimestamp ->
                                fun () ->
                                  {
                                    notifyConfigurationArn;
                                    notifyConfigurationId;
                                    displayName;
                                    useCase;
                                    defaultTemplateId;
                                    poolId;
                                    enabledCountries;
                                    enabledChannels;
                                    tier;
                                    tierUpgradeStatus;
                                    status;
                                    rejectionReason;
                                    deletionProtectionEnabled;
                                    createdTimestamp
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NotifyConfigurationArn",
           (Option.map x.notifyConfigurationArn
              ~f:NotifyConfigurationArn.to_value));
        ("NotifyConfigurationId",
          (Option.map x.notifyConfigurationId
             ~f:NotifyConfigurationId.to_value));
        ("DisplayName",
          (Option.map x.displayName
             ~f:NotifyConfigurationDisplayName.to_value));
        ("UseCase",
          (Option.map x.useCase ~f:NotifyConfigurationUseCase.to_value));
        ("DefaultTemplateId",
          (Option.map x.defaultTemplateId ~f:NotifyTemplateId.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("EnabledCountries",
          (Option.map x.enabledCountries ~f:IsoCountryCodeList.to_value));
        ("EnabledChannels",
          (Option.map x.enabledChannels ~f:NotifyEnabledChannelsList.to_value));
        ("Tier", (Option.map x.tier ~f:NotifyConfigurationTier.to_value));
        ("TierUpgradeStatus",
          (Option.map x.tierUpgradeStatus ~f:TierUpgradeStatus.to_value));
        ("Status",
          (Option.map x.status ~f:NotifyConfigurationStatus.to_value));
        ("RejectionReason",
          (Option.map x.rejectionReason ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.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 deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let rejectionReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RejectionReason") in
      let status =
        (Option.map ~f:NotifyConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let tierUpgradeStatus =
        (Option.map ~f:TierUpgradeStatus.of_xml)
          (Xml.child xml_arg0 "TierUpgradeStatus") in
      let tier =
        (Option.map ~f:NotifyConfigurationTier.of_xml)
          (Xml.child xml_arg0 "Tier") in
      let enabledChannels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "EnabledChannels") in
      let enabledCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "EnabledCountries") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let defaultTemplateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "DefaultTemplateId") in
      let useCase =
        (Option.map ~f:NotifyConfigurationUseCase.of_xml)
          (Xml.child xml_arg0 "UseCase") in
      let displayName =
        (Option.map ~f:NotifyConfigurationDisplayName.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let notifyConfigurationId =
        (Option.map ~f:NotifyConfigurationId.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationId") in
      let notifyConfigurationArn =
        (Option.map ~f:NotifyConfigurationArn.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationArn") in
      make ?createdTimestamp ?deletionProtectionEnabled ?rejectionReason
        ?status ?tierUpgradeStatus ?tier ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let rejectionReason =
        field_map json__ "RejectionReason" String_.of_json in
      let status =
        field_map json__ "Status" NotifyConfigurationStatus.of_json in
      let tierUpgradeStatus =
        field_map json__ "TierUpgradeStatus" TierUpgradeStatus.of_json in
      let tier = field_map json__ "Tier" NotifyConfigurationTier.of_json in
      let enabledChannels =
        field_map json__ "EnabledChannels" NotifyEnabledChannelsList.of_json in
      let enabledCountries =
        field_map json__ "EnabledCountries" IsoCountryCodeList.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let defaultTemplateId =
        field_map json__ "DefaultTemplateId" NotifyTemplateId.of_json in
      let useCase =
        field_map json__ "UseCase" NotifyConfigurationUseCase.of_json in
      let displayName =
        field_map json__ "DisplayName" NotifyConfigurationDisplayName.of_json in
      let notifyConfigurationId =
        field_map json__ "NotifyConfigurationId"
          NotifyConfigurationId.of_json in
      let notifyConfigurationArn =
        field_map json__ "NotifyConfigurationArn"
          NotifyConfigurationArn.of_json in
      make ?createdTimestamp ?deletionProtectionEnabled ?rejectionReason
        ?status ?tierUpgradeStatus ?tier ?enabledChannels ?enabledCountries
        ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing notify configuration. If deletion protection is enabled, an error is returned."]
module DeleteNotifyConfigurationRequest =
  struct
    type nonrec t =
      {
      notifyConfigurationId: NotifyConfigurationIdOrArn.t
        [@ocaml.doc
          "The identifier of the notify configuration to delete. The NotifyConfigurationId can be found using the DescribeNotifyConfigurations operation."]}
    let context_ = "DeleteNotifyConfigurationRequest"
    let make ~notifyConfigurationId = fun () -> { notifyConfigurationId }
    let to_value x =
      structure_to_value
        [("NotifyConfigurationId",
           (Some
              (NotifyConfigurationIdOrArn.to_value x.notifyConfigurationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notifyConfigurationId =
        NotifyConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NotifyConfigurationId") in
      make ~notifyConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notifyConfigurationId =
        field_map_exn json__ "NotifyConfigurationId"
          NotifyConfigurationIdOrArn.of_json in
      make ~notifyConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing notify configuration. If deletion protection is enabled, an error is returned."]
module DeleteMediaMessageSpendLimitOverrideResult =
  struct
    type nonrec t =
      {
      monthlyLimit: MonthlyLimit.t option
        [@ocaml.doc "The current monthly limit, in US dollars."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?monthlyLimit = fun () -> { monthlyLimit }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("MonthlyLimit",
           (Option.map x.monthlyLimit ~f:MonthlyLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let monthlyLimit =
        (Option.map ~f:MonthlyLimit.of_xml)
          (Xml.child xml_arg0 "MonthlyLimit") in
      make ?monthlyLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let monthlyLimit = field_map json__ "MonthlyLimit" MonthlyLimit.of_json in
      make ?monthlyLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an account-level monthly spending limit override for sending multimedia messages (MMS). Deleting a spend limit override will set the EnforcedLimit to equal the MaxLimit, which is controlled by Amazon Web Services. For more information on spend limits (quotas) see Quotas for Server Migration Service in the Server Migration Service User Guide."]
module DeleteMediaMessageSpendLimitOverrideRequest =
  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
       "Deletes an account-level monthly spending limit override for sending multimedia messages (MMS). Deleting a spend limit override will set the EnforcedLimit to equal the MaxLimit, which is controlled by Amazon Web Services. For more information on spend limits (quotas) see Quotas for Server Migration Service in the Server Migration Service User Guide."]
module DeleteKeywordResult =
  struct
    type nonrec t =
      {
      originationIdentityArn: String_.t option
        [@ocaml.doc
          "The PhoneNumberArn or PoolArn that the keyword was associated with."];
      originationIdentity: String_.t option
        [@ocaml.doc
          "The PhoneNumberId or PoolId that the keyword was associated with."];
      keyword: Keyword.t option [@ocaml.doc "The keyword that was deleted."];
      keywordMessage: KeywordMessage.t option
        [@ocaml.doc
          "The message that was associated with the deleted keyword."];
      keywordAction: KeywordAction.t option
        [@ocaml.doc
          "The action that was associated with the deleted keyword."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?originationIdentityArn =
      fun ?originationIdentity ->
        fun ?keyword ->
          fun ?keywordMessage ->
            fun ?keywordAction ->
              fun () ->
                {
                  originationIdentityArn;
                  originationIdentity;
                  keyword;
                  keywordMessage;
                  keywordAction
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OriginationIdentityArn",
           (Option.map x.originationIdentityArn ~f:String_.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity ~f:String_.to_value));
        ("Keyword", (Option.map x.keyword ~f:Keyword.to_value));
        ("KeywordMessage",
          (Option.map x.keywordMessage ~f:KeywordMessage.to_value));
        ("KeywordAction",
          (Option.map x.keywordAction ~f:KeywordAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keywordAction =
        (Option.map ~f:KeywordAction.of_xml)
          (Xml.child xml_arg0 "KeywordAction") in
      let keywordMessage =
        (Option.map ~f:KeywordMessage.of_xml)
          (Xml.child xml_arg0 "KeywordMessage") in
      let keyword =
        (Option.map ~f:Keyword.of_xml) (Xml.child xml_arg0 "Keyword") in
      let originationIdentity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let originationIdentityArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentityArn") in
      make ?keywordAction ?keywordMessage ?keyword ?originationIdentity
        ?originationIdentityArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keywordAction =
        field_map json__ "KeywordAction" KeywordAction.of_json in
      let keywordMessage =
        field_map json__ "KeywordMessage" KeywordMessage.of_json in
      let keyword = field_map json__ "Keyword" Keyword.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity" String_.of_json in
      let originationIdentityArn =
        field_map json__ "OriginationIdentityArn" String_.of_json in
      make ?keywordAction ?keywordMessage ?keyword ?originationIdentity
        ?originationIdentityArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing keyword from an origination phone number or pool. A keyword is a word that you can search for on a particular phone number or pool. It is also a specific word or phrase that an end user can send to your number to elicit a response, such as an informational message or a special offer. When your number receives a message that begins with a keyword, End User Messaging SMS responds with a customizable message. Keywords \"HELP\" and \"STOP\" can't be deleted or modified."]
module DeleteKeywordRequest =
  struct
    type nonrec t =
      {
      originationIdentity: PhoneOrPoolIdOrArn.t
        [@ocaml.doc
          "The origination identity to use such as a PhoneNumberId, PhoneNumberArn, PoolId or PoolArn. You can use DescribePhoneNumbers to find the values for PhoneNumberId and PhoneNumberArn and DescribePools to find the values of PoolId and PoolArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      keyword: Keyword.t [@ocaml.doc "The keyword to delete."]}
    let context_ = "DeleteKeywordRequest"
    let make ~originationIdentity =
      fun ~keyword -> fun () -> { originationIdentity; keyword }
    let to_value x =
      structure_to_value
        [("OriginationIdentity",
           (Some (PhoneOrPoolIdOrArn.to_value x.originationIdentity)));
        ("Keyword", (Some (Keyword.to_value x.keyword)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyword =
        Keyword.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Keyword") in
      let originationIdentity =
        PhoneOrPoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      make ~keyword ~originationIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyword = field_map_exn json__ "Keyword" Keyword.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity" PhoneOrPoolIdOrArn.of_json in
      make ~keyword ~originationIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing keyword from an origination phone number or pool. A keyword is a word that you can search for on a particular phone number or pool. It is also a specific word or phrase that an end user can send to your number to elicit a response, such as an informational message or a special offer. When your number receives a message that begins with a keyword, End User Messaging SMS responds with a customizable message. Keywords \"HELP\" and \"STOP\" can't be deleted or modified."]
module DeleteEventDestinationResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc
          "The name of the configuration set the event destination was deleted from."];
      eventDestination: EventDestination.t option
        [@ocaml.doc "The event destination object that was deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?eventDestination ->
          fun () ->
            { configurationSetArn; configurationSetName; eventDestination }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EventDestination",
          (Option.map x.eventDestination ~f:EventDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestination =
        (Option.map ~f:EventDestination.of_xml)
          (Xml.child xml_arg0 "EventDestination") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?eventDestination ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestination =
        field_map json__ "EventDestination" EventDestination.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?eventDestination ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing event destination. An event destination is a location where you send response information about the messages that you send. For example, when a message is delivered successfully, you can send information about that event to an Amazon CloudWatch destination, or send notifications to endpoints that are subscribed to an Amazon SNS topic."]
module DeleteEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The name of the configuration set or the configuration set's Amazon Resource Name (ARN) to remove the event destination from. The ConfigurateSetName and ConfigurationSetArn can be found using the DescribeConfigurationSets action."];
      eventDestinationName: EventDestinationName.t
        [@ocaml.doc "The name of the event destination to delete."]}
    let context_ = "DeleteEventDestinationRequest"
    let make ~configurationSetName =
      fun ~eventDestinationName ->
        fun () -> { configurationSetName; eventDestinationName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.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 =
        ConfigurationSetNameOrArn.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"
          ConfigurationSetNameOrArn.of_json in
      make ~eventDestinationName ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing event destination. An event destination is a location where you send response information about the messages that you send. For example, when a message is delivered successfully, you can send information about that event to an Amazon CloudWatch destination, or send notifications to endpoints that are subscribed to an Amazon SNS topic."]
module DeleteDefaultSenderIdResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set."];
      senderId: SenderId.t option
        [@ocaml.doc "The current sender ID for the configuration set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?senderId ->
          fun () -> { configurationSetArn; configurationSetName; senderId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("SenderId", (Option.map x.senderId ~f:SenderId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let senderId =
        (Option.map ~f:SenderId.of_xml) (Xml.child xml_arg0 "SenderId") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?senderId ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let senderId = field_map json__ "SenderId" SenderId.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?senderId ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing default sender ID on a configuration set. A default sender ID is the identity that appears on recipients' devices when they receive SMS messages. Support for sender ID capabilities varies by country or region."]
module DeleteDefaultSenderIdRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The name of the configuration set or the configuration set Amazon Resource Name (ARN) to delete the default sender ID from. The ConfigurationSetName and ConfigurationSetArn can be found using the DescribeConfigurationSets action."]}
    let context_ = "DeleteDefaultSenderIdRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetNameOrArn.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"
          ConfigurationSetNameOrArn.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing default sender ID on a configuration set. A default sender ID is the identity that appears on recipients' devices when they receive SMS messages. Support for sender ID capabilities varies by country or region."]
module DeleteDefaultMessageTypeResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set."];
      messageType: MessageType.t option
        [@ocaml.doc "The current message type for the configuration set."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?messageType ->
          fun () ->
            { configurationSetArn; configurationSetName; messageType }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?messageType ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?messageType ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing default message type on a configuration set. A message type is a type of messages that you plan to send. If you send account-related messages or time-sensitive messages such as one-time passcodes, choose Transactional. If you plan to send messages that contain marketing material or other promotional content, choose Promotional. This setting applies to your entire Amazon Web Services account."]
module DeleteDefaultMessageTypeRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The name of the configuration set or the configuration set Amazon Resource Name (ARN) to delete the default message type from. The ConfigurationSetName and ConfigurationSetArn can be found using the DescribeConfigurationSets action."]}
    let context_ = "DeleteDefaultMessageTypeRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetNameOrArn.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"
          ConfigurationSetNameOrArn.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing default message type on a configuration set. A message type is a type of messages that you plan to send. If you send account-related messages or time-sensitive messages such as one-time passcodes, choose Transactional. If you plan to send messages that contain marketing material or other promotional content, choose Promotional. This setting applies to your entire Amazon Web Services account."]
module DeleteConfigurationSetResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the deleted configuration set."];
      eventDestinations: EventDestinationList.t option
        [@ocaml.doc
          "An array of any EventDestination objects that were associated with the deleted configuration set."];
      defaultMessageType: MessageType.t option
        [@ocaml.doc
          "The default message type of the configuration set that was deleted."];
      defaultSenderId: SenderId.t option
        [@ocaml.doc
          "The default Sender ID of the configuration set that was deleted."];
      defaultMessageFeedbackEnabled: Boolean.t option
        [@ocaml.doc
          "True if the configuration set has message feedback enabled. By default this is set to false."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time that the deleted configuration set was created in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?eventDestinations ->
          fun ?defaultMessageType ->
            fun ?defaultSenderId ->
              fun ?defaultMessageFeedbackEnabled ->
                fun ?createdTimestamp ->
                  fun () ->
                    {
                      configurationSetArn;
                      configurationSetName;
                      eventDestinations;
                      defaultMessageType;
                      defaultSenderId;
                      defaultMessageFeedbackEnabled;
                      createdTimestamp
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EventDestinations",
          (Option.map x.eventDestinations ~f:EventDestinationList.to_value));
        ("DefaultMessageType",
          (Option.map x.defaultMessageType ~f:MessageType.to_value));
        ("DefaultSenderId",
          (Option.map x.defaultSenderId ~f:SenderId.to_value));
        ("DefaultMessageFeedbackEnabled",
          (Option.map x.defaultMessageFeedbackEnabled ~f:Boolean.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 defaultMessageFeedbackEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DefaultMessageFeedbackEnabled") in
      let defaultSenderId =
        (Option.map ~f:SenderId.of_xml)
          (Xml.child xml_arg0 "DefaultSenderId") in
      let defaultMessageType =
        (Option.map ~f:MessageType.of_xml)
          (Xml.child xml_arg0 "DefaultMessageType") in
      let eventDestinations =
        (Option.map ~f:EventDestinationList.of_xml)
          (Xml.child xml_arg0 "EventDestinations") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?createdTimestamp ?defaultMessageFeedbackEnabled ?defaultSenderId
        ?defaultMessageType ?eventDestinations ?configurationSetName
        ?configurationSetArn ()
    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 defaultMessageFeedbackEnabled =
        field_map json__ "DefaultMessageFeedbackEnabled" Boolean.of_json in
      let defaultSenderId =
        field_map json__ "DefaultSenderId" SenderId.of_json in
      let defaultMessageType =
        field_map json__ "DefaultMessageType" MessageType.of_json in
      let eventDestinations =
        field_map json__ "EventDestinations" EventDestinationList.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?createdTimestamp ?defaultMessageFeedbackEnabled ?defaultSenderId
        ?defaultMessageType ?eventDestinations ?configurationSetName
        ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing configuration set. A configuration set is a set of rules that you apply to voice and SMS messages that you send. In a configuration set, you can specify a destination for specific types of events related to voice and SMS messages."]
module DeleteConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "The name of the configuration set or the configuration set ARN that you want to delete. The ConfigurationSetName and ConfigurationSetArn can be found using the DescribeConfigurationSets action."]}
    let context_ = "DeleteConfigurationSetRequest"
    let make ~configurationSetName = fun () -> { configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetNameOrArn.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"
          ConfigurationSetNameOrArn.of_json in
      make ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an existing configuration set. A configuration set is a set of rules that you apply to voice and SMS messages that you send. In a configuration set, you can specify a destination for specific types of events related to voice and SMS messages."]
module DeleteAccountDefaultProtectConfigurationResult =
  struct
    type nonrec t =
      {
      defaultProtectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the account default protect configuration."];
      defaultProtectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc
          "The unique identifier of the account default protect configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?defaultProtectConfigurationArn =
      fun ?defaultProtectConfigurationId ->
        fun () ->
          { defaultProtectConfigurationArn; defaultProtectConfigurationId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("DefaultProtectConfigurationArn",
           (Option.map x.defaultProtectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("DefaultProtectConfigurationId",
          (Option.map x.defaultProtectConfigurationId
             ~f:ProtectConfigurationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultProtectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "DefaultProtectConfigurationId") in
      let defaultProtectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "DefaultProtectConfigurationArn") in
      make ?defaultProtectConfigurationId ?defaultProtectConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultProtectConfigurationId =
        field_map json__ "DefaultProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let defaultProtectConfigurationArn =
        field_map json__ "DefaultProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?defaultProtectConfigurationId ?defaultProtectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the current account default protect configuration."]
module DeleteAccountDefaultProtectConfigurationRequest =
  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
       "Removes the current account default protect configuration."]
module CreateVerifiedDestinationNumberResult =
  struct
    type nonrec t =
      {
      verifiedDestinationNumberArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the verified destination phone number."];
      verifiedDestinationNumberId: String_.t option
        [@ocaml.doc
          "The unique identifier for the verified destination phone number."];
      destinationPhoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The verified destination phone number, in E.164 format."];
      status: VerificationStatus.t option
        [@ocaml.doc
          "The status of the verified destination phone number. PENDING: The phone number hasn't been verified yet. VERIFIED: The phone number is verified and can receive messages."];
      rcsAgentId: String_.t option
        [@ocaml.doc
          "The unique identifier of the RCS agent associated with the verified destination number."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the destination number."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the verified phone number was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verifiedDestinationNumberArn =
      fun ?verifiedDestinationNumberId ->
        fun ?destinationPhoneNumber ->
          fun ?status ->
            fun ?rcsAgentId ->
              fun ?tags ->
                fun ?createdTimestamp ->
                  fun () ->
                    {
                      verifiedDestinationNumberArn;
                      verifiedDestinationNumberId;
                      destinationPhoneNumber;
                      status;
                      rcsAgentId;
                      tags;
                      createdTimestamp
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("VerifiedDestinationNumberArn",
           (Option.map x.verifiedDestinationNumberArn ~f:String_.to_value));
        ("VerifiedDestinationNumberId",
          (Option.map x.verifiedDestinationNumberId ~f:String_.to_value));
        ("DestinationPhoneNumber",
          (Option.map x.destinationPhoneNumber ~f:PhoneNumber.to_value));
        ("Status", (Option.map x.status ~f:VerificationStatus.to_value));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      let status =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let destinationPhoneNumber =
        (Option.map ~f:PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DestinationPhoneNumber") in
      let verifiedDestinationNumberId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberId") in
      let verifiedDestinationNumberArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VerifiedDestinationNumberArn") in
      make ?createdTimestamp ?tags ?rcsAgentId ?status
        ?destinationPhoneNumber ?verifiedDestinationNumberId
        ?verifiedDestinationNumberArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      let status = field_map json__ "Status" VerificationStatus.of_json in
      let destinationPhoneNumber =
        field_map json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      let verifiedDestinationNumberId =
        field_map json__ "VerifiedDestinationNumberId" String_.of_json in
      let verifiedDestinationNumberArn =
        field_map json__ "VerifiedDestinationNumberArn" String_.of_json in
      make ?createdTimestamp ?tags ?rcsAgentId ?status
        ?destinationPhoneNumber ?verifiedDestinationNumberId
        ?verifiedDestinationNumberArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can only send messages to verified destination numbers when your account is in the sandbox. You can add up to 10 verified destination numbers."]
module CreateVerifiedDestinationNumberRequest =
  struct
    type nonrec t =
      {
      destinationPhoneNumber: PhoneNumber.t
        [@ocaml.doc
          "The verified destination phone number, in E.164 format."];
      rcsAgentId: RcsAgentIdOrArn.t option
        [@ocaml.doc
          "The unique identifier of the RCS agent to associate with the verified destination number. You can use either the RcsAgentId or RcsAgentArn."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the destination number."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "CreateVerifiedDestinationNumberRequest"
    let make ?rcsAgentId =
      fun ?tags ->
        fun ?clientToken ->
          fun ~destinationPhoneNumber ->
            fun () ->
              { rcsAgentId; tags; clientToken; destinationPhoneNumber }
    let to_value x =
      structure_to_value
        [("DestinationPhoneNumber",
           (Some (PhoneNumber.to_value x.destinationPhoneNumber)));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:RcsAgentIdOrArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let rcsAgentId =
        (Option.map ~f:RcsAgentIdOrArn.of_xml)
          (Xml.child xml_arg0 "RcsAgentId") in
      let destinationPhoneNumber =
        PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationPhoneNumber") in
      make ?clientToken ?tags ?rcsAgentId ~destinationPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" RcsAgentIdOrArn.of_json in
      let destinationPhoneNumber =
        field_map_exn json__ "DestinationPhoneNumber" PhoneNumber.of_json in
      make ?clientToken ?tags ?rcsAgentId ~destinationPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can only send messages to verified destination numbers when your account is in the sandbox. You can add up to 10 verified destination numbers."]
module CreateRegistrationVersionResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      versionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The new version number of the registration."];
      registrationVersionStatus: RegistrationVersionStatus.t option
        [@ocaml.doc
          "The status of the registration. APPROVED: Your registration has been approved. ARCHIVED: Your previously approved registration version moves into this status when a more recently submitted version is approved. DENIED: You must fix your registration and resubmit it. DISCARDED: You've abandon this version of their registration to start over with a new version. DRAFT: The initial status of a registration version after it\226\128\153s created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REVIEWING: Your registration has been accepted and is being reviewed. REVOKED: Your previously approved registration has been revoked. SUBMITTED: Your registration has been submitted."];
      registrationVersionStatusHistory:
        RegistrationVersionStatusHistory.t option
        [@ocaml.doc
          "A RegistrationVersionStatusHistory object that contains timestamps for the registration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?versionNumber ->
          fun ?registrationVersionStatus ->
            fun ?registrationVersionStatusHistory ->
              fun () ->
                {
                  registrationArn;
                  registrationId;
                  versionNumber;
                  registrationVersionStatus;
                  registrationVersionStatusHistory
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("VersionNumber",
          (Option.map x.versionNumber ~f:RegistrationVersionNumber.to_value));
        ("RegistrationVersionStatus",
          (Option.map x.registrationVersionStatus
             ~f:RegistrationVersionStatus.to_value));
        ("RegistrationVersionStatusHistory",
          (Option.map x.registrationVersionStatusHistory
             ~f:RegistrationVersionStatusHistory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationVersionStatusHistory =
        (Option.map ~f:RegistrationVersionStatusHistory.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatusHistory") in
      let registrationVersionStatus =
        (Option.map ~f:RegistrationVersionStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationVersionStatus") in
      let versionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "VersionNumber") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?registrationVersionStatusHistory ?registrationVersionStatus
        ?versionNumber ?registrationId ?registrationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationVersionStatusHistory =
        field_map json__ "RegistrationVersionStatusHistory"
          RegistrationVersionStatusHistory.of_json in
      let registrationVersionStatus =
        field_map json__ "RegistrationVersionStatus"
          RegistrationVersionStatus.of_json in
      let versionNumber =
        field_map json__ "VersionNumber" RegistrationVersionNumber.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?registrationVersionStatusHistory ?registrationVersionStatus
        ?versionNumber ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new version of the registration and increase the VersionNumber. The previous version of the registration becomes read-only."]
module CreateRegistrationVersionRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."]}
    let context_ = "CreateRegistrationVersionRequest"
    let make ~registrationId = fun () -> { registrationId }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new version of the registration and increase the VersionNumber. The previous version of the registration becomes read-only."]
module CreateRegistrationResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form to create. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      registrationStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The status of the registration. CLOSED: The phone number or sender ID has been deleted and you must also delete the registration for the number. CREATED: Your registration is created but not submitted. COMPLETE: Your registration has been approved and your origination identity has been created. DELETED: The registration has been deleted. PROVISIONING: Your registration has been approved and your origination identity is being created. REQUIRES_AUTHENTICATION: You need to complete email authentication. REQUIRES_UPDATES: You must fix your registration and resubmit it. REVIEWING: Your registration has been accepted and is being reviewed. SUBMITTED: Your registration has been submitted and is awaiting review."];
      currentVersionNumber: RegistrationVersionNumber.t option
        [@ocaml.doc "The current version number of the registration."];
      additionalAttributes: StringMap.t option
        [@ocaml.doc
          "Metadata about a given registration which is specific to that registration type."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the registration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?registrationType ->
          fun ?registrationStatus ->
            fun ?currentVersionNumber ->
              fun ?additionalAttributes ->
                fun ?tags ->
                  fun ?createdTimestamp ->
                    fun () ->
                      {
                        registrationArn;
                        registrationId;
                        registrationType;
                        registrationStatus;
                        currentVersionNumber;
                        additionalAttributes;
                        tags;
                        createdTimestamp
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("RegistrationType",
          (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("RegistrationStatus",
          (Option.map x.registrationStatus ~f:RegistrationStatus.to_value));
        ("CurrentVersionNumber",
          (Option.map x.currentVersionNumber
             ~f:RegistrationVersionNumber.to_value));
        ("AdditionalAttributes",
          (Option.map x.additionalAttributes ~f:StringMap.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let additionalAttributes =
        (Option.map ~f:StringMap.of_xml)
          (Xml.child xml_arg0 "AdditionalAttributes") in
      let currentVersionNumber =
        (Option.map ~f:RegistrationVersionNumber.of_xml)
          (Xml.child xml_arg0 "CurrentVersionNumber") in
      let registrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "RegistrationStatus") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?createdTimestamp ?tags ?additionalAttributes
        ?currentVersionNumber ?registrationStatus ?registrationType
        ?registrationId ?registrationArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let additionalAttributes =
        field_map json__ "AdditionalAttributes" StringMap.of_json in
      let currentVersionNumber =
        field_map json__ "CurrentVersionNumber"
          RegistrationVersionNumber.of_json in
      let registrationStatus =
        field_map json__ "RegistrationStatus" RegistrationStatus.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?createdTimestamp ?tags ?additionalAttributes
        ?currentVersionNumber ?registrationStatus ?registrationType
        ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new registration based on the RegistrationType field."]
module CreateRegistrationRequest =
  struct
    type nonrec t =
      {
      registrationType: RegistrationType.t
        [@ocaml.doc
          "The type of registration form to create. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the registration."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "CreateRegistrationRequest"
    let make ?tags =
      fun ?clientToken ->
        fun ~registrationType ->
          fun () -> { tags; clientToken; registrationType }
    let to_value x =
      structure_to_value
        [("RegistrationType",
           (Some (RegistrationType.to_value x.registrationType)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let registrationType =
        RegistrationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationType") in
      make ?clientToken ?tags ~registrationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let registrationType =
        field_map_exn json__ "RegistrationType" RegistrationType.of_json in
      make ?clientToken ?tags ~registrationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new registration based on the RegistrationType field."]
module CreateRegistrationAttachmentResult =
  struct
    type nonrec t =
      {
      registrationAttachmentArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the registration attachment."];
      registrationAttachmentId: String_.t option
        [@ocaml.doc "The unique identifier for the registration attachment."];
      attachmentStatus: AttachmentStatus.t option
        [@ocaml.doc
          "The status of the registration attachment. UPLOAD_IN_PROGRESS The attachment is being uploaded. UPLOAD_COMPLETE The attachment has been uploaded. UPLOAD_FAILED The attachment failed to uploaded. DELETED The attachment has been deleted.."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the registration attachment."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the registration attachment was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationAttachmentArn =
      fun ?registrationAttachmentId ->
        fun ?attachmentStatus ->
          fun ?tags ->
            fun ?createdTimestamp ->
              fun () ->
                {
                  registrationAttachmentArn;
                  registrationAttachmentId;
                  attachmentStatus;
                  tags;
                  createdTimestamp
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationAttachmentArn",
           (Option.map x.registrationAttachmentArn ~f:String_.to_value));
        ("RegistrationAttachmentId",
          (Option.map x.registrationAttachmentId ~f:String_.to_value));
        ("AttachmentStatus",
          (Option.map x.attachmentStatus ~f:AttachmentStatus.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let attachmentStatus =
        (Option.map ~f:AttachmentStatus.of_xml)
          (Xml.child xml_arg0 "AttachmentStatus") in
      let registrationAttachmentId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentId") in
      let registrationAttachmentArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RegistrationAttachmentArn") in
      make ?createdTimestamp ?tags ?attachmentStatus
        ?registrationAttachmentId ?registrationAttachmentArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let attachmentStatus =
        field_map json__ "AttachmentStatus" AttachmentStatus.of_json in
      let registrationAttachmentId =
        field_map json__ "RegistrationAttachmentId" String_.of_json in
      let registrationAttachmentArn =
        field_map json__ "RegistrationAttachmentArn" String_.of_json in
      make ?createdTimestamp ?tags ?attachmentStatus
        ?registrationAttachmentId ?registrationAttachmentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new registration attachment to use for uploading a file or a URL to a file. The maximum file size is 500KB and valid file extensions are PDF, JPEG and PNG. For example, many sender ID registrations require a signed \226\128\156letter of authorization\226\128\157 (LOA) to be submitted. Use either AttachmentUrl or AttachmentBody to upload your attachment. If both are specified then an exception is returned."]
module CreateRegistrationAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentBody: AttachmentBody.t option
        [@ocaml.doc
          "The registration file to upload. The maximum file size is 500KB and valid file extensions are PDF, JPEG and PNG."];
      attachmentUrl: AttachmentUrl.t option
        [@ocaml.doc
          "Registration files have to be stored in an Amazon S3 bucket. The URI to use when sending is in the format s3://BucketName/FileName."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the registration attachment."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let make ?attachmentBody =
      fun ?attachmentUrl ->
        fun ?tags ->
          fun ?clientToken ->
            fun () -> { attachmentBody; attachmentUrl; tags; clientToken }
    let to_value x =
      structure_to_value
        [("AttachmentBody",
           (Option.map x.attachmentBody ~f:AttachmentBody.to_value));
        ("AttachmentUrl",
          (Option.map x.attachmentUrl ~f:AttachmentUrl.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let attachmentUrl =
        (Option.map ~f:AttachmentUrl.of_xml)
          (Xml.child xml_arg0 "AttachmentUrl") in
      let attachmentBody =
        (Option.map ~f:AttachmentBody.of_xml)
          (Xml.child xml_arg0 "AttachmentBody") in
      make ?clientToken ?tags ?attachmentUrl ?attachmentBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let attachmentUrl =
        field_map json__ "AttachmentUrl" AttachmentUrl.of_json in
      let attachmentBody =
        field_map json__ "AttachmentBody" AttachmentBody.of_json in
      make ?clientToken ?tags ?attachmentUrl ?attachmentBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new registration attachment to use for uploading a file or a URL to a file. The maximum file size is 500KB and valid file extensions are PDF, JPEG and PNG. For example, many sender ID registrations require a signed \226\128\156letter of authorization\226\128\157 (LOA) to be submitted. Use either AttachmentUrl or AttachmentBody to upload your attachment. If both are specified then an exception is returned."]
module CreateRegistrationAssociationResult =
  struct
    type nonrec t =
      {
      registrationArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the registration."];
      registrationId: String_.t option
        [@ocaml.doc "The unique identifier for the registration."];
      registrationType: RegistrationType.t option
        [@ocaml.doc
          "The type of registration form. The list of RegistrationTypes can be found using the DescribeRegistrationTypeDefinitions action."];
      resourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the origination identity that is associated with the registration."];
      resourceId: String_.t option
        [@ocaml.doc
          "The unique identifier for the origination identity. For example this could be a PhoneNumberId or SenderId."];
      resourceType: String_.t option
        [@ocaml.doc "The registration type or origination identity type."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The phone number associated with the registration in E.164 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registrationArn =
      fun ?registrationId ->
        fun ?registrationType ->
          fun ?resourceArn ->
            fun ?resourceId ->
              fun ?resourceType ->
                fun ?isoCountryCode ->
                  fun ?phoneNumber ->
                    fun () ->
                      {
                        registrationArn;
                        registrationId;
                        registrationType;
                        resourceArn;
                        resourceId;
                        resourceType;
                        isoCountryCode;
                        phoneNumber
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RegistrationArn",
           (Option.map x.registrationArn ~f:String_.to_value));
        ("RegistrationId", (Option.map x.registrationId ~f:String_.to_value));
        ("RegistrationType",
          (Option.map x.registrationType ~f:RegistrationType.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let registrationType =
        (Option.map ~f:RegistrationType.of_xml)
          (Xml.child xml_arg0 "RegistrationType") in
      let registrationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationId") in
      let registrationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RegistrationArn") in
      make ?phoneNumber ?isoCountryCode ?resourceType ?resourceId
        ?resourceArn ?registrationType ?registrationId ?registrationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      let registrationType =
        field_map json__ "RegistrationType" RegistrationType.of_json in
      let registrationId = field_map json__ "RegistrationId" String_.of_json in
      let registrationArn =
        field_map json__ "RegistrationArn" String_.of_json in
      make ?phoneNumber ?isoCountryCode ?resourceType ?resourceId
        ?resourceArn ?registrationType ?registrationId ?registrationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate the registration with an origination identity such as a phone number or sender ID."]
module CreateRegistrationAssociationRequest =
  struct
    type nonrec t =
      {
      registrationId: RegistrationIdOrArn.t
        [@ocaml.doc "The unique identifier for the registration."];
      resourceId: ResourceIdOrArn.t
        [@ocaml.doc
          "The unique identifier for the origination identity. For example this could be a PhoneNumberId or SenderId."]}
    let context_ = "CreateRegistrationAssociationRequest"
    let make ~registrationId =
      fun ~resourceId -> fun () -> { registrationId; resourceId }
    let to_value x =
      structure_to_value
        [("RegistrationId",
           (Some (RegistrationIdOrArn.to_value x.registrationId)));
        ("ResourceId", (Some (ResourceIdOrArn.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let registrationId =
        RegistrationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      make ~resourceId ~registrationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdOrArn.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationIdOrArn.of_json in
      make ~resourceId ~registrationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate the registration with an origination identity such as a phone number or sender ID."]
module CreateRcsAgentResult =
  struct
    type nonrec t =
      {
      rcsAgentArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created RCS agent."];
      rcsAgentId: String_.t option
        [@ocaml.doc "The unique identifier for the RCS agent."];
      status: RcsAgentStatus.t option
        [@ocaml.doc "The current status of the RCS agent."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc
          "The name of the OptOutList associated with the RCS agent."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the RCS agent was created, in UNIX epoch time format."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the RCS agent."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rcsAgentArn =
      fun ?rcsAgentId ->
        fun ?status ->
          fun ?deletionProtectionEnabled ->
            fun ?optOutListName ->
              fun ?createdTimestamp ->
                fun ?selfManagedOptOutsEnabled ->
                  fun ?twoWayChannelArn ->
                    fun ?twoWayChannelRole ->
                      fun ?twoWayEnabled ->
                        fun ?tags ->
                          fun () ->
                            {
                              rcsAgentArn;
                              rcsAgentId;
                              status;
                              deletionProtectionEnabled;
                              optOutListName;
                              createdTimestamp;
                              selfManagedOptOutsEnabled;
                              twoWayChannelArn;
                              twoWayChannelRole;
                              twoWayEnabled;
                              tags
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RcsAgentArn", (Option.map x.rcsAgentArn ~f:String_.to_value));
        ("RcsAgentId", (Option.map x.rcsAgentId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:RcsAgentStatus.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.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 twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let status =
        (Option.map ~f:RcsAgentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let rcsAgentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentId") in
      let rcsAgentArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RcsAgentArn") in
      make ?tags ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?createdTimestamp ?optOutListName
        ?deletionProtectionEnabled ?status ?rcsAgentId ?rcsAgentArn ()
    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 twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let status = field_map json__ "Status" RcsAgentStatus.of_json in
      let rcsAgentId = field_map json__ "RcsAgentId" String_.of_json in
      let rcsAgentArn = field_map json__ "RcsAgentArn" String_.of_json in
      make ?tags ?twoWayEnabled ?twoWayChannelRole ?twoWayChannelArn
        ?selfManagedOptOutsEnabled ?createdTimestamp ?optOutListName
        ?deletionProtectionEnabled ?status ?rcsAgentId ?rcsAgentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new RCS agent for sending rich messages through the RCS channel. The RCS agent serves as an origination identity for sending RCS messages to your recipients."]
module CreateRcsAgentRequest =
  struct
    type nonrec t =
      {
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the RCS agent can't be deleted. You can change this value using the UpdateRcsAgent action."];
      optOutListName: OptOutListNameOrArn.t option
        [@ocaml.doc
          "The OptOutList to associate with the RCS agent. Valid values are either OptOutListName or OptOutListArn."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the RCS agent."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let make ?deletionProtectionEnabled =
      fun ?optOutListName ->
        fun ?tags ->
          fun ?clientToken ->
            fun () ->
              { deletionProtectionEnabled; optOutListName; tags; clientToken
              }
    let to_value x =
      structure_to_value
        [("DeletionProtectionEnabled",
           (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListNameOrArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let optOutListName =
        (Option.map ~f:OptOutListNameOrArn.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      make ?clientToken ?tags ?optOutListName ?deletionProtectionEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListNameOrArn.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      make ?clientToken ?tags ?optOutListName ?deletionProtectionEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new RCS agent for sending rich messages through the RCS channel. The RCS agent serves as an origination identity for sending RCS messages to your recipients."]
module CreateProtectConfigurationResult =
  struct
    type nonrec t =
      {
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the protect configuration was created, in UNIX epoch time format."];
      accountDefault: PrimitiveBoolean.t option
        [@ocaml.doc
          "This is true if the protect configuration is set as your account default protect configuration."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of key and value pair tags that are associated with the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?protectConfigurationArn =
      fun ?protectConfigurationId ->
        fun ?createdTimestamp ->
          fun ?accountDefault ->
            fun ?deletionProtectionEnabled ->
              fun ?tags ->
                fun () ->
                  {
                    protectConfigurationArn;
                    protectConfigurationId;
                    createdTimestamp;
                    accountDefault;
                    deletionProtectionEnabled;
                    tags
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ProtectConfigurationArn",
           (Option.map x.protectConfigurationArn
              ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Timestamp.to_value));
        ("AccountDefault",
          (Option.map x.accountDefault ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.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 deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let accountDefault =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "AccountDefault") in
      let createdTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      make ?tags ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let accountDefault =
        field_map json__ "AccountDefault" PrimitiveBoolean.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Timestamp.of_json in
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      make ?tags ?deletionProtectionEnabled ?accountDefault ?createdTimestamp
        ?protectConfigurationId ?protectConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new protect configuration. By default all country rule sets for each capability are set to ALLOW. Update the country rule sets using UpdateProtectConfigurationCountryRuleSet. A protect configurations name is stored as a Tag with the key set to Name and value as the name of the protect configuration."]
module CreateProtectConfigurationRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of key and value pair tags that are associated with the resource."]}
    let make ?clientToken =
      fun ?deletionProtectionEnabled ->
        fun ?tags ->
          fun () -> { clientToken; deletionProtectionEnabled; tags }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.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 deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?tags ?deletionProtectionEnabled ?clientToken ()
    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 deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?tags ?deletionProtectionEnabled ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a new protect configuration. By default all country rule sets for each capability are set to ALLOW. Update the country rule sets using UpdateProtectConfigurationCountryRuleSet. A protect configurations name is stored as a Tag with the key set to Name and value as the name of the protect configuration."]
module CreatePoolResult =
  struct
    type nonrec t =
      {
      poolArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the pool."];
      poolId: String_.t option
        [@ocaml.doc "The unique identifier for the pool."];
      status: PoolStatus.t option
        [@ocaml.doc
          "The current status of the pool. CREATING: The pool is currently being created and isn't yet available for use. ACTIVE: The pool is active and available for use. DELETING: The pool is being deleted."];
      messageType: MessageType.t option
        [@ocaml.doc "The type of message for the pool to use."];
      twoWayEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true you can receive incoming text messages from your end recipients."];
      twoWayChannelArn: TwoWayChannelArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the two way channel."];
      twoWayChannelRole: IamRoleArn.t option
        [@ocaml.doc
          "An optional IAM Role Arn for a service to assume, to be able to post inbound SMS messages."];
      selfManagedOptOutsEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to false, and an end recipient sends a message that begins with HELP or STOP to one of your dedicated numbers, End User Messaging SMS automatically replies with a customizable message and adds the end recipient to the OptOutList. When set to true you're responsible for responding to HELP and STOP requests. You're also responsible for tracking and honoring opt-out requests."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the OptOutList associated with the pool."];
      sharedRoutesEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "Indicates whether shared routes are enabled for the pool. Set to false and only origination identities in this pool are used to send messages."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the pool."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the pool was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolArn =
      fun ?poolId ->
        fun ?status ->
          fun ?messageType ->
            fun ?twoWayEnabled ->
              fun ?twoWayChannelArn ->
                fun ?twoWayChannelRole ->
                  fun ?selfManagedOptOutsEnabled ->
                    fun ?optOutListName ->
                      fun ?sharedRoutesEnabled ->
                        fun ?deletionProtectionEnabled ->
                          fun ?tags ->
                            fun ?createdTimestamp ->
                              fun () ->
                                {
                                  poolArn;
                                  poolId;
                                  status;
                                  messageType;
                                  twoWayEnabled;
                                  twoWayChannelArn;
                                  twoWayChannelRole;
                                  selfManagedOptOutsEnabled;
                                  optOutListName;
                                  sharedRoutesEnabled;
                                  deletionProtectionEnabled;
                                  tags;
                                  createdTimestamp
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:PoolStatus.to_value));
        ("MessageType", (Option.map x.messageType ~f:MessageType.to_value));
        ("TwoWayEnabled",
          (Option.map x.twoWayEnabled ~f:PrimitiveBoolean.to_value));
        ("TwoWayChannelArn",
          (Option.map x.twoWayChannelArn ~f:TwoWayChannelArn.to_value));
        ("TwoWayChannelRole",
          (Option.map x.twoWayChannelRole ~f:IamRoleArn.to_value));
        ("SelfManagedOptOutsEnabled",
          (Option.map x.selfManagedOptOutsEnabled
             ~f:PrimitiveBoolean.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("SharedRoutesEnabled",
          (Option.map x.sharedRoutesEnabled ~f:PrimitiveBoolean.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let sharedRoutesEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SharedRoutesEnabled") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let selfManagedOptOutsEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "SelfManagedOptOutsEnabled") in
      let twoWayChannelRole =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelRole") in
      let twoWayChannelArn =
        (Option.map ~f:TwoWayChannelArn.of_xml)
          (Xml.child xml_arg0 "TwoWayChannelArn") in
      let twoWayEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "TwoWayEnabled") in
      let messageType =
        (Option.map ~f:MessageType.of_xml) (Xml.child xml_arg0 "MessageType") in
      let status =
        (Option.map ~f:PoolStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?createdTimestamp ?tags ?deletionProtectionEnabled
        ?sharedRoutesEnabled ?optOutListName ?selfManagedOptOutsEnabled
        ?twoWayChannelRole ?twoWayChannelArn ?twoWayEnabled ?messageType
        ?status ?poolId ?poolArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let sharedRoutesEnabled =
        field_map json__ "SharedRoutesEnabled" PrimitiveBoolean.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let selfManagedOptOutsEnabled =
        field_map json__ "SelfManagedOptOutsEnabled" PrimitiveBoolean.of_json in
      let twoWayChannelRole =
        field_map json__ "TwoWayChannelRole" IamRoleArn.of_json in
      let twoWayChannelArn =
        field_map json__ "TwoWayChannelArn" TwoWayChannelArn.of_json in
      let twoWayEnabled =
        field_map json__ "TwoWayEnabled" PrimitiveBoolean.of_json in
      let messageType = field_map json__ "MessageType" MessageType.of_json in
      let status = field_map json__ "Status" PoolStatus.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?createdTimestamp ?tags ?deletionProtectionEnabled
        ?sharedRoutesEnabled ?optOutListName ?selfManagedOptOutsEnabled
        ?twoWayChannelRole ?twoWayChannelArn ?twoWayEnabled ?messageType
        ?status ?poolId ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new pool and associates the specified origination identity to the pool. A pool can include one or more phone numbers and SenderIds that are associated with your Amazon Web Services account. The new pool inherits its configuration from the specified origination identity. This includes keywords, message type, opt-out list, two-way configuration, and self-managed opt-out configuration. Deletion protection isn't inherited from the origination identity and defaults to false. If the origination identity is a phone number and is already associated with another pool, an error is returned. A sender ID can be associated with multiple pools."]
module CreatePoolRequest =
  struct
    type nonrec t =
      {
      originationIdentity: PhoneOrSenderIdOrArn.t
        [@ocaml.doc
          "The origination identity to use such as a PhoneNumberId, PhoneNumberArn, SenderId or SenderIdArn. You can use DescribePhoneNumbers to find the values for PhoneNumberId and PhoneNumberArn, and use DescribeSenderIds can be used to get the values for SenderId and SenderIdArn. After the pool is created you can add more origination identities to the pool by using AssociateOriginationIdentity. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The new two-character code, in ISO 3166-1 alpha-2 format, for the country or region of the new pool. This field is optional and is not required for origination identity types that are not country-specific, such as RCS agents."];
      messageType: MessageType.t
        [@ocaml.doc
          "The type of message. Valid values are TRANSACTIONAL for messages that are critical or time-sensitive and PROMOTIONAL for messages that aren't critical or time-sensitive. After the pool is created the MessageType can't be changed."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the pool can't be deleted. You can change this value using the UpdatePool action."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the pool."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "CreatePoolRequest"
    let make ?isoCountryCode =
      fun ?deletionProtectionEnabled ->
        fun ?tags ->
          fun ?clientToken ->
            fun ~originationIdentity ->
              fun ~messageType ->
                fun () ->
                  {
                    isoCountryCode;
                    deletionProtectionEnabled;
                    tags;
                    clientToken;
                    originationIdentity;
                    messageType
                  }
    let to_value x =
      structure_to_value
        [("OriginationIdentity",
           (Some (PhoneOrSenderIdOrArn.to_value x.originationIdentity)));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("MessageType", (Some (MessageType.to_value x.messageType)));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let messageType =
        MessageType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageType") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let originationIdentity =
        PhoneOrSenderIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      make ?clientToken ?tags ?deletionProtectionEnabled ~messageType
        ?isoCountryCode ~originationIdentity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let messageType =
        field_map_exn json__ "MessageType" MessageType.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity"
          PhoneOrSenderIdOrArn.of_json in
      make ?clientToken ?tags ?deletionProtectionEnabled ~messageType
        ?isoCountryCode ~originationIdentity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new pool and associates the specified origination identity to the pool. A pool can include one or more phone numbers and SenderIds that are associated with your Amazon Web Services account. The new pool inherits its configuration from the specified origination identity. This includes keywords, message type, opt-out list, two-way configuration, and self-managed opt-out configuration. Deletion protection isn't inherited from the origination identity and defaults to false. If the origination identity is a phone number and is already associated with another pool, an error is returned. A sender ID can be associated with multiple pools."]
module CreateOptOutListResult =
  struct
    type nonrec t =
      {
      optOutListArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the OptOutList."];
      optOutListName: OptOutListName.t option
        [@ocaml.doc "The name of the new OptOutList."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the new OptOutList."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the pool was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optOutListArn =
      fun ?optOutListName ->
        fun ?tags ->
          fun ?createdTimestamp ->
            fun () ->
              { optOutListArn; optOutListName; tags; createdTimestamp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("OptOutListArn", (Option.map x.optOutListArn ~f:String_.to_value));
        ("OptOutListName",
          (Option.map x.optOutListName ~f:OptOutListName.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let optOutListName =
        (Option.map ~f:OptOutListName.of_xml)
          (Xml.child xml_arg0 "OptOutListName") in
      let optOutListArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OptOutListArn") in
      make ?createdTimestamp ?tags ?optOutListName ?optOutListArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let optOutListName =
        field_map json__ "OptOutListName" OptOutListName.of_json in
      let optOutListArn = field_map json__ "OptOutListArn" String_.of_json in
      make ?createdTimestamp ?tags ?optOutListName ?optOutListArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new opt-out list. If the opt-out list name already exists, an error is returned. An opt-out list is a list of phone numbers that are opted out, meaning you can't send SMS or voice messages to them. If end user replies with the keyword \"STOP,\" an entry for the phone number is added to the opt-out list. In addition to STOP, your recipients can use any supported opt-out keyword, such as CANCEL or OPTOUT. For a list of supported opt-out keywords, see SMS opt out in the End User Messaging SMS User Guide."]
module CreateOptOutListRequest =
  struct
    type nonrec t =
      {
      optOutListName: OptOutListName.t
        [@ocaml.doc "The name of the new OptOutList."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) to associate with the new OptOutList."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "CreateOptOutListRequest"
    let make ?tags =
      fun ?clientToken ->
        fun ~optOutListName ->
          fun () -> { tags; clientToken; optOutListName }
    let to_value x =
      structure_to_value
        [("OptOutListName",
           (Some (OptOutListName.to_value x.optOutListName)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let optOutListName =
        OptOutListName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptOutListName") in
      make ?clientToken ?tags ~optOutListName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let optOutListName =
        field_map_exn json__ "OptOutListName" OptOutListName.of_json in
      make ?clientToken ?tags ~optOutListName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new opt-out list. If the opt-out list name already exists, an error is returned. An opt-out list is a list of phone numbers that are opted out, meaning you can't send SMS or voice messages to them. If end user replies with the keyword \"STOP,\" an entry for the phone number is added to the opt-out list. In addition to STOP, your recipients can use any supported opt-out keyword, such as CANCEL or OPTOUT. For a list of supported opt-out keywords, see SMS opt out in the End User Messaging SMS User Guide."]
module CreateNotifyConfigurationResult =
  struct
    type nonrec t =
      {
      notifyConfigurationArn: NotifyConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the notify configuration."];
      notifyConfigurationId: NotifyConfigurationId.t option
        [@ocaml.doc "The unique identifier for the notify configuration."];
      displayName: NotifyConfigurationDisplayName.t option
        [@ocaml.doc
          "The display name associated with the notify configuration."];
      useCase: NotifyConfigurationUseCase.t option
        [@ocaml.doc "The use case for the notify configuration."];
      defaultTemplateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The default template identifier associated with the notify configuration."];
      poolId: String_.t option
        [@ocaml.doc
          "The identifier of the pool associated with the notify configuration."];
      enabledCountries: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, that are enabled for the notify configuration."];
      enabledChannels: NotifyEnabledChannelsList.t option
        [@ocaml.doc
          "An array of channels enabled for the notify configuration. Supported values include SMS and VOICE."];
      tier: NotifyConfigurationTier.t option
        [@ocaml.doc "The tier of the notify configuration."];
      tierUpgradeStatus: TierUpgradeStatus.t option
        [@ocaml.doc "The tier upgrade status of the notify configuration."];
      status: NotifyConfigurationStatus.t option
        [@ocaml.doc "The current status of the notify configuration."];
      rejectionReason: String_.t option
        [@ocaml.doc
          "The reason the notify configuration was rejected, if applicable."];
      deletionProtectionEnabled: PrimitiveBoolean.t option
        [@ocaml.doc
          "When set to true deletion protection is enabled. By default this is set to false."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the notify configuration."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the notify configuration was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifyConfigurationArn =
      fun ?notifyConfigurationId ->
        fun ?displayName ->
          fun ?useCase ->
            fun ?defaultTemplateId ->
              fun ?poolId ->
                fun ?enabledCountries ->
                  fun ?enabledChannels ->
                    fun ?tier ->
                      fun ?tierUpgradeStatus ->
                        fun ?status ->
                          fun ?rejectionReason ->
                            fun ?deletionProtectionEnabled ->
                              fun ?tags ->
                                fun ?createdTimestamp ->
                                  fun () ->
                                    {
                                      notifyConfigurationArn;
                                      notifyConfigurationId;
                                      displayName;
                                      useCase;
                                      defaultTemplateId;
                                      poolId;
                                      enabledCountries;
                                      enabledChannels;
                                      tier;
                                      tierUpgradeStatus;
                                      status;
                                      rejectionReason;
                                      deletionProtectionEnabled;
                                      tags;
                                      createdTimestamp
                                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NotifyConfigurationArn",
           (Option.map x.notifyConfigurationArn
              ~f:NotifyConfigurationArn.to_value));
        ("NotifyConfigurationId",
          (Option.map x.notifyConfigurationId
             ~f:NotifyConfigurationId.to_value));
        ("DisplayName",
          (Option.map x.displayName
             ~f:NotifyConfigurationDisplayName.to_value));
        ("UseCase",
          (Option.map x.useCase ~f:NotifyConfigurationUseCase.to_value));
        ("DefaultTemplateId",
          (Option.map x.defaultTemplateId ~f:NotifyTemplateId.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("EnabledCountries",
          (Option.map x.enabledCountries ~f:IsoCountryCodeList.to_value));
        ("EnabledChannels",
          (Option.map x.enabledChannels ~f:NotifyEnabledChannelsList.to_value));
        ("Tier", (Option.map x.tier ~f:NotifyConfigurationTier.to_value));
        ("TierUpgradeStatus",
          (Option.map x.tierUpgradeStatus ~f:TierUpgradeStatus.to_value));
        ("Status",
          (Option.map x.status ~f:NotifyConfigurationStatus.to_value));
        ("RejectionReason",
          (Option.map x.rejectionReason ~f:String_.to_value));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled
             ~f:PrimitiveBoolean.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let deletionProtectionEnabled =
        (Option.map ~f:PrimitiveBoolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let rejectionReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RejectionReason") in
      let status =
        (Option.map ~f:NotifyConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let tierUpgradeStatus =
        (Option.map ~f:TierUpgradeStatus.of_xml)
          (Xml.child xml_arg0 "TierUpgradeStatus") in
      let tier =
        (Option.map ~f:NotifyConfigurationTier.of_xml)
          (Xml.child xml_arg0 "Tier") in
      let enabledChannels =
        (Option.map ~f:NotifyEnabledChannelsList.of_xml)
          (Xml.child xml_arg0 "EnabledChannels") in
      let enabledCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "EnabledCountries") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let defaultTemplateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "DefaultTemplateId") in
      let useCase =
        (Option.map ~f:NotifyConfigurationUseCase.of_xml)
          (Xml.child xml_arg0 "UseCase") in
      let displayName =
        (Option.map ~f:NotifyConfigurationDisplayName.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      let notifyConfigurationId =
        (Option.map ~f:NotifyConfigurationId.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationId") in
      let notifyConfigurationArn =
        (Option.map ~f:NotifyConfigurationArn.of_xml)
          (Xml.child xml_arg0 "NotifyConfigurationArn") in
      make ?createdTimestamp ?tags ?deletionProtectionEnabled
        ?rejectionReason ?status ?tierUpgradeStatus ?tier ?enabledChannels
        ?enabledCountries ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" PrimitiveBoolean.of_json in
      let rejectionReason =
        field_map json__ "RejectionReason" String_.of_json in
      let status =
        field_map json__ "Status" NotifyConfigurationStatus.of_json in
      let tierUpgradeStatus =
        field_map json__ "TierUpgradeStatus" TierUpgradeStatus.of_json in
      let tier = field_map json__ "Tier" NotifyConfigurationTier.of_json in
      let enabledChannels =
        field_map json__ "EnabledChannels" NotifyEnabledChannelsList.of_json in
      let enabledCountries =
        field_map json__ "EnabledCountries" IsoCountryCodeList.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let defaultTemplateId =
        field_map json__ "DefaultTemplateId" NotifyTemplateId.of_json in
      let useCase =
        field_map json__ "UseCase" NotifyConfigurationUseCase.of_json in
      let displayName =
        field_map json__ "DisplayName" NotifyConfigurationDisplayName.of_json in
      let notifyConfigurationId =
        field_map json__ "NotifyConfigurationId"
          NotifyConfigurationId.of_json in
      let notifyConfigurationArn =
        field_map json__ "NotifyConfigurationArn"
          NotifyConfigurationArn.of_json in
      make ?createdTimestamp ?tags ?deletionProtectionEnabled
        ?rejectionReason ?status ?tierUpgradeStatus ?tier ?enabledChannels
        ?enabledCountries ?poolId ?defaultTemplateId ?useCase ?displayName
        ?notifyConfigurationId ?notifyConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new notify configuration for managed messaging. A notify configuration defines the settings for sending templated messages, including the display name, use case, enabled channels, and enabled countries."]
module CreateNotifyConfigurationRequest =
  struct
    type nonrec t =
      {
      displayName: NotifyConfigurationDisplayName.t
        [@ocaml.doc
          "The display name to associate with the notify configuration."];
      useCase: NotifyConfigurationUseCase.t
        [@ocaml.doc "The use case for the notify configuration."];
      defaultTemplateId: NotifyTemplateId.t option
        [@ocaml.doc
          "The default template identifier to associate with the notify configuration. If specified, this template is used when sending messages without an explicit template identifier."];
      poolId: PoolIdOrArn.t option
        [@ocaml.doc
          "The identifier of the pool to associate with the notify configuration."];
      enabledCountries: IsoCountryCodeList.t option
        [@ocaml.doc
          "An array of two-character ISO country codes, in ISO 3166-1 alpha-2 format, that are enabled for the notify configuration."];
      enabledChannels: NotifyEnabledChannelsList.t
        [@ocaml.doc
          "An array of channels to enable for the notify configuration. Supported values include SMS and VOICE."];
      deletionProtectionEnabled: Boolean.t option
        [@ocaml.doc
          "By default this is set to false. When set to true the notify configuration can't be deleted. You can change this value using the UpdateNotifyConfiguration action."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of tags (key and value pairs) associated with the notify configuration."]}
    let context_ = "CreateNotifyConfigurationRequest"
    let make ?defaultTemplateId =
      fun ?poolId ->
        fun ?enabledCountries ->
          fun ?deletionProtectionEnabled ->
            fun ?clientToken ->
              fun ?tags ->
                fun ~displayName ->
                  fun ~useCase ->
                    fun ~enabledChannels ->
                      fun () ->
                        {
                          defaultTemplateId;
                          poolId;
                          enabledCountries;
                          deletionProtectionEnabled;
                          clientToken;
                          tags;
                          displayName;
                          useCase;
                          enabledChannels
                        }
    let to_value x =
      structure_to_value
        [("DisplayName",
           (Some (NotifyConfigurationDisplayName.to_value x.displayName)));
        ("UseCase", (Some (NotifyConfigurationUseCase.to_value x.useCase)));
        ("DefaultTemplateId",
          (Option.map x.defaultTemplateId ~f:NotifyTemplateId.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolIdOrArn.to_value));
        ("EnabledCountries",
          (Option.map x.enabledCountries ~f:IsoCountryCodeList.to_value));
        ("EnabledChannels",
          (Some (NotifyEnabledChannelsList.to_value x.enabledChannels)));
        ("DeletionProtectionEnabled",
          (Option.map x.deletionProtectionEnabled ~f:Boolean.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.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 clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let deletionProtectionEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeletionProtectionEnabled") in
      let enabledChannels =
        NotifyEnabledChannelsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EnabledChannels") in
      let enabledCountries =
        (Option.map ~f:IsoCountryCodeList.of_xml)
          (Xml.child xml_arg0 "EnabledCountries") in
      let poolId =
        (Option.map ~f:PoolIdOrArn.of_xml) (Xml.child xml_arg0 "PoolId") in
      let defaultTemplateId =
        (Option.map ~f:NotifyTemplateId.of_xml)
          (Xml.child xml_arg0 "DefaultTemplateId") in
      let useCase =
        NotifyConfigurationUseCase.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UseCase") in
      let displayName =
        NotifyConfigurationDisplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DisplayName") in
      make ?tags ?clientToken ?deletionProtectionEnabled ~enabledChannels
        ?enabledCountries ?poolId ?defaultTemplateId ~useCase ~displayName ()
    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 clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let deletionProtectionEnabled =
        field_map json__ "DeletionProtectionEnabled" Boolean.of_json in
      let enabledChannels =
        field_map_exn json__ "EnabledChannels"
          NotifyEnabledChannelsList.of_json in
      let enabledCountries =
        field_map json__ "EnabledCountries" IsoCountryCodeList.of_json in
      let poolId = field_map json__ "PoolId" PoolIdOrArn.of_json in
      let defaultTemplateId =
        field_map json__ "DefaultTemplateId" NotifyTemplateId.of_json in
      let useCase =
        field_map_exn json__ "UseCase" NotifyConfigurationUseCase.of_json in
      let displayName =
        field_map_exn json__ "DisplayName"
          NotifyConfigurationDisplayName.of_json in
      make ?tags ?clientToken ?deletionProtectionEnabled ~enabledChannels
        ?enabledCountries ?poolId ?defaultTemplateId ~useCase ~displayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new notify configuration for managed messaging. A notify configuration defines the settings for sending templated messages, including the display name, use case, enabled channels, and enabled countries."]
module CreateEventDestinationResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc "The ARN of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the configuration set."];
      eventDestination: EventDestination.t option
        [@ocaml.doc
          "The details of the destination where events are logged."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?eventDestination ->
          fun () ->
            { configurationSetArn; configurationSetName; eventDestination }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("EventDestination",
          (Option.map x.eventDestination ~f:EventDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestination =
        (Option.map ~f:EventDestination.of_xml)
          (Xml.child xml_arg0 "EventDestination") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?eventDestination ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestination =
        field_map json__ "EventDestination" EventDestination.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?eventDestination ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new event destination in a configuration set. An event destination is a location where you send message events. The event options are Amazon CloudWatch, Amazon Data Firehose, or Amazon SNS. For example, when a message is delivered successfully, you can send information about that event to an event destination, or send notifications to endpoints that are subscribed to an Amazon SNS topic. You can only create one event destination at a time. You must provide a value for a single event destination using either CloudWatchLogsDestination, KinesisFirehoseDestination or SnsDestination. If an event destination isn't provided then an exception is returned. Each configuration set can contain between 0 and 5 event destinations. Each event destination can contain a reference to a single destination, such as a CloudWatch or Firehose destination."]
module CreateEventDestinationRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc
          "Either the name of the configuration set or the configuration set ARN to apply event logging to. The ConfigurateSetName and ConfigurationSetArn can be found using the DescribeConfigurationSets action."];
      eventDestinationName: EventDestinationName.t
        [@ocaml.doc "The name that identifies the event destination."];
      matchingEventTypes: EventTypeList.t
        [@ocaml.doc
          "An array of event types that determine which events to log. If \"ALL\" is used, then End User Messaging SMS logs every event type. The TEXT_SENT event type is not supported."];
      cloudWatchLogsDestination: CloudWatchLogsDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination for logging to Amazon CloudWatch Logs."];
      kinesisFirehoseDestination: KinesisFirehoseDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination for logging to Amazon Data Firehose."];
      snsDestination: SnsDestination.t option
        [@ocaml.doc
          "An object that contains information about an event destination for logging to Amazon SNS."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "CreateEventDestinationRequest"
    let make ?cloudWatchLogsDestination =
      fun ?kinesisFirehoseDestination ->
        fun ?snsDestination ->
          fun ?clientToken ->
            fun ~configurationSetName ->
              fun ~eventDestinationName ->
                fun ~matchingEventTypes ->
                  fun () ->
                    {
                      cloudWatchLogsDestination;
                      kinesisFirehoseDestination;
                      snsDestination;
                      clientToken;
                      configurationSetName;
                      eventDestinationName;
                      matchingEventTypes
                    }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)));
        ("EventDestinationName",
          (Some (EventDestinationName.to_value x.eventDestinationName)));
        ("MatchingEventTypes",
          (Some (EventTypeList.to_value x.matchingEventTypes)));
        ("CloudWatchLogsDestination",
          (Option.map x.cloudWatchLogsDestination
             ~f:CloudWatchLogsDestination.to_value));
        ("KinesisFirehoseDestination",
          (Option.map x.kinesisFirehoseDestination
             ~f:KinesisFirehoseDestination.to_value));
        ("SnsDestination",
          (Option.map x.snsDestination ~f:SnsDestination.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let snsDestination =
        (Option.map ~f:SnsDestination.of_xml)
          (Xml.child xml_arg0 "SnsDestination") in
      let kinesisFirehoseDestination =
        (Option.map ~f:KinesisFirehoseDestination.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseDestination") in
      let cloudWatchLogsDestination =
        (Option.map ~f:CloudWatchLogsDestination.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogsDestination") in
      let matchingEventTypes =
        EventTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MatchingEventTypes") in
      let eventDestinationName =
        EventDestinationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EventDestinationName") in
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?clientToken ?snsDestination ?kinesisFirehoseDestination
        ?cloudWatchLogsDestination ~matchingEventTypes ~eventDestinationName
        ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let snsDestination =
        field_map json__ "SnsDestination" SnsDestination.of_json in
      let kinesisFirehoseDestination =
        field_map json__ "KinesisFirehoseDestination"
          KinesisFirehoseDestination.of_json in
      let cloudWatchLogsDestination =
        field_map json__ "CloudWatchLogsDestination"
          CloudWatchLogsDestination.of_json in
      let matchingEventTypes =
        field_map_exn json__ "MatchingEventTypes" EventTypeList.of_json in
      let eventDestinationName =
        field_map_exn json__ "EventDestinationName"
          EventDestinationName.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      make ?clientToken ?snsDestination ?kinesisFirehoseDestination
        ?cloudWatchLogsDestination ~matchingEventTypes ~eventDestinationName
        ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new event destination in a configuration set. An event destination is a location where you send message events. The event options are Amazon CloudWatch, Amazon Data Firehose, or Amazon SNS. For example, when a message is delivered successfully, you can send information about that event to an event destination, or send notifications to endpoints that are subscribed to an Amazon SNS topic. You can only create one event destination at a time. You must provide a value for a single event destination using either CloudWatchLogsDestination, KinesisFirehoseDestination or SnsDestination. If an event destination isn't provided then an exception is returned. Each configuration set can contain between 0 and 5 event destinations. Each event destination can contain a reference to a single destination, such as a CloudWatch or Firehose destination."]
module CreateConfigurationSetResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the new configuration set."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of key and value pair tags that's associated with the configuration set."];
      createdTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the configuration set was created, in UNIX epoch time format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?tags ->
          fun ?createdTimestamp ->
            fun () ->
              {
                configurationSetArn;
                configurationSetName;
                tags;
                createdTimestamp
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?createdTimestamp ?tags ?configurationSetName ?configurationSetArn
        ()
    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 tags = field_map json__ "Tags" TagList.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?createdTimestamp ?tags ?configurationSetName ?configurationSetArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new configuration set. After you create the configuration set, you can add one or more event destinations to it. A configuration set is a set of rules that you apply to the SMS and voice messages that you send. When you send a message, you can optionally specify a single configuration set."]
module CreateConfigurationSetRequest =
  struct
    type nonrec t =
      {
      configurationSetName: ConfigurationSetName.t
        [@ocaml.doc "The name to use for the new configuration set."];
      tags: TagList.t option
        [@ocaml.doc
          "An array of key and value pair tags that's associated with the new configuration set."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "CreateConfigurationSetRequest"
    let make ?tags =
      fun ?clientToken ->
        fun ~configurationSetName ->
          fun () -> { tags; clientToken; configurationSetName }
    let to_value x =
      structure_to_value
        [("ConfigurationSetName",
           (Some (ConfigurationSetName.to_value x.configurationSetName)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let configurationSetName =
        ConfigurationSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      make ?clientToken ?tags ~configurationSetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetName.of_json in
      make ?clientToken ?tags ~configurationSetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new configuration set. After you create the configuration set, you can add one or more event destinations to it. A configuration set is a set of rules that you apply to the SMS and voice messages that you send. When you send a message, you can optionally specify a single configuration set."]
module CarrierLookupResult =
  struct
    type nonrec t =
      {
      e164PhoneNumber: E164PhoneNumberType.t option
        [@ocaml.doc
          "The phone number in E164 format, sanitized from the original input by removing any formatting characters."];
      dialingCountryCode: DialingCountryCodeType.t option
        [@ocaml.doc
          "The country or region numeric dialing code for the phone number."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character country or region code, in ISO 3166-1 alpha-2 format, for the phone number."];
      country: String_.t option
        [@ocaml.doc
          "The name of the country or region for the phone number."];
      mCC: MCCType.t option
        [@ocaml.doc
          "The phone number's mobile country code, for mobile phone number types"];
      mNC: MNCType.t option
        [@ocaml.doc
          "The phone number's mobile network code, for mobile phone number types."];
      carrier: String_.t option
        [@ocaml.doc
          "The carrier or service provider that the phone number is currently registered with. In some countries and regions, this value may be the carrier or service provider that the phone number was originally registered with."];
      phoneNumberType: PhoneNumberType.t option
        [@ocaml.doc
          "Describes the type of phone number. Valid values are: MOBILE, LANDLINE, OTHER, and INVALID. Avoid sending SMS or voice messages to INVALID phone numbers, as these numbers are unlikely to belong to actual recipients."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?e164PhoneNumber =
      fun ?dialingCountryCode ->
        fun ?isoCountryCode ->
          fun ?country ->
            fun ?mCC ->
              fun ?mNC ->
                fun ?carrier ->
                  fun ?phoneNumberType ->
                    fun () ->
                      {
                        e164PhoneNumber;
                        dialingCountryCode;
                        isoCountryCode;
                        country;
                        mCC;
                        mNC;
                        carrier;
                        phoneNumberType
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("E164PhoneNumber",
           (Option.map x.e164PhoneNumber ~f:E164PhoneNumberType.to_value));
        ("DialingCountryCode",
          (Option.map x.dialingCountryCode ~f:DialingCountryCodeType.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("Country", (Option.map x.country ~f:String_.to_value));
        ("MCC", (Option.map x.mCC ~f:MCCType.to_value));
        ("MNC", (Option.map x.mNC ~f:MNCType.to_value));
        ("Carrier", (Option.map x.carrier ~f:String_.to_value));
        ("PhoneNumberType",
          (Option.map x.phoneNumberType ~f:PhoneNumberType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberType =
        (Option.map ~f:PhoneNumberType.of_xml)
          (Xml.child xml_arg0 "PhoneNumberType") in
      let carrier =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Carrier") in
      let mNC = (Option.map ~f:MNCType.of_xml) (Xml.child xml_arg0 "MNC") in
      let mCC = (Option.map ~f:MCCType.of_xml) (Xml.child xml_arg0 "MCC") in
      let country =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Country") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let dialingCountryCode =
        (Option.map ~f:DialingCountryCodeType.of_xml)
          (Xml.child xml_arg0 "DialingCountryCode") in
      let e164PhoneNumber =
        (Option.map ~f:E164PhoneNumberType.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumber") in
      make ?phoneNumberType ?carrier ?mNC ?mCC ?country ?isoCountryCode
        ?dialingCountryCode ?e164PhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberType =
        field_map json__ "PhoneNumberType" PhoneNumberType.of_json in
      let carrier = field_map json__ "Carrier" String_.of_json in
      let mNC = field_map json__ "MNC" MNCType.of_json in
      let mCC = field_map json__ "MCC" MCCType.of_json in
      let country = field_map json__ "Country" String_.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let dialingCountryCode =
        field_map json__ "DialingCountryCode" DialingCountryCodeType.of_json in
      let e164PhoneNumber =
        field_map json__ "E164PhoneNumber" E164PhoneNumberType.of_json in
      make ?phoneNumberType ?carrier ?mNC ?mCC ?country ?isoCountryCode
        ?dialingCountryCode ?e164PhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a destination phone number, including whether the number type and whether it is valid, the carrier, and more."]
module CarrierLookupRequest =
  struct
    type nonrec t =
      {
      phoneNumber: CarrierLookupInputPhoneNumberType.t
        [@ocaml.doc
          "The phone number that you want to retrieve information about. You can provide the phone number in various formats including special characters such as parentheses, brackets, spaces, hyphens, periods, and commas. The service automatically converts the input to E164 format for processing."]}
    let context_ = "CarrierLookupRequest"
    let make ~phoneNumber = fun () -> { phoneNumber }
    let to_value x =
      structure_to_value
        [("PhoneNumber",
           (Some (CarrierLookupInputPhoneNumberType.to_value x.phoneNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        CarrierLookupInputPhoneNumberType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumber") in
      make ~phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber =
        field_map_exn json__ "PhoneNumber"
          CarrierLookupInputPhoneNumberType.of_json in
      make ~phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a destination phone number, including whether the number type and whether it is valid, the carrier, and more."]
module AssociateProtectConfigurationResult =
  struct
    type nonrec t =
      {
      configurationSetArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configuration set."];
      configurationSetName: ConfigurationSetName.t option
        [@ocaml.doc "The name of the ConfigurationSet."];
      protectConfigurationArn: ProtectConfigurationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the protect configuration."];
      protectConfigurationId: ProtectConfigurationId.t option
        [@ocaml.doc "The unique identifier for the protect configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationSetArn =
      fun ?configurationSetName ->
        fun ?protectConfigurationArn ->
          fun ?protectConfigurationId ->
            fun () ->
              {
                configurationSetArn;
                configurationSetName;
                protectConfigurationArn;
                protectConfigurationId
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConfigurationSetArn",
           (Option.map x.configurationSetArn ~f:String_.to_value));
        ("ConfigurationSetName",
          (Option.map x.configurationSetName ~f:ConfigurationSetName.to_value));
        ("ProtectConfigurationArn",
          (Option.map x.protectConfigurationArn
             ~f:ProtectConfigurationArn.to_value));
        ("ProtectConfigurationId",
          (Option.map x.protectConfigurationId
             ~f:ProtectConfigurationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protectConfigurationId =
        (Option.map ~f:ProtectConfigurationId.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationId") in
      let protectConfigurationArn =
        (Option.map ~f:ProtectConfigurationArn.of_xml)
          (Xml.child xml_arg0 "ProtectConfigurationArn") in
      let configurationSetName =
        (Option.map ~f:ConfigurationSetName.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetName") in
      let configurationSetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConfigurationSetArn") in
      make ?protectConfigurationId ?protectConfigurationArn
        ?configurationSetName ?configurationSetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protectConfigurationId =
        field_map json__ "ProtectConfigurationId"
          ProtectConfigurationId.of_json in
      let protectConfigurationArn =
        field_map json__ "ProtectConfigurationArn"
          ProtectConfigurationArn.of_json in
      let configurationSetName =
        field_map json__ "ConfigurationSetName" ConfigurationSetName.of_json in
      let configurationSetArn =
        field_map json__ "ConfigurationSetArn" String_.of_json in
      make ?protectConfigurationId ?protectConfigurationArn
        ?configurationSetName ?configurationSetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate a protect configuration with a configuration set. This replaces the configuration sets current protect configuration. A configuration set can only be associated with one protect configuration at a time. A protect configuration can be associated with multiple configuration sets."]
module AssociateProtectConfigurationRequest =
  struct
    type nonrec t =
      {
      protectConfigurationId: ProtectConfigurationIdOrArn.t
        [@ocaml.doc "The unique identifier for the protect configuration."];
      configurationSetName: ConfigurationSetNameOrArn.t
        [@ocaml.doc "The name of the ConfigurationSet."]}
    let context_ = "AssociateProtectConfigurationRequest"
    let make ~protectConfigurationId =
      fun ~configurationSetName ->
        fun () -> { protectConfigurationId; configurationSetName }
    let to_value x =
      structure_to_value
        [("ProtectConfigurationId",
           (Some
              (ProtectConfigurationIdOrArn.to_value x.protectConfigurationId)));
        ("ConfigurationSetName",
          (Some (ConfigurationSetNameOrArn.to_value x.configurationSetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationSetName =
        ConfigurationSetNameOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationSetName") in
      let protectConfigurationId =
        ProtectConfigurationIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProtectConfigurationId") in
      make ~configurationSetName ~protectConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationSetName =
        field_map_exn json__ "ConfigurationSetName"
          ConfigurationSetNameOrArn.of_json in
      let protectConfigurationId =
        field_map_exn json__ "ProtectConfigurationId"
          ProtectConfigurationIdOrArn.of_json in
      make ~configurationSetName ~protectConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate a protect configuration with a configuration set. This replaces the configuration sets current protect configuration. A configuration set can only be associated with one protect configuration at a time. A protect configuration can be associated with multiple configuration sets."]
module AssociateOriginationIdentityResult =
  struct
    type nonrec t =
      {
      poolArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pool that is now associated with the origination identity."];
      poolId: String_.t option
        [@ocaml.doc
          "The PoolId of the pool that is now associated with the origination identity."];
      originationIdentityArn: String_.t option
        [@ocaml.doc
          "The PhoneNumberArn or SenderIdArn of the origination identity."];
      originationIdentity: String_.t option
        [@ocaml.doc
          "The PhoneNumberId or SenderId of the origination identity."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The two-character code, in ISO 3166-1 alpha-2 format, for the country or region."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolArn =
      fun ?poolId ->
        fun ?originationIdentityArn ->
          fun ?originationIdentity ->
            fun ?isoCountryCode ->
              fun () ->
                {
                  poolArn;
                  poolId;
                  originationIdentityArn;
                  originationIdentity;
                  isoCountryCode
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PoolArn", (Option.map x.poolArn ~f:String_.to_value));
        ("PoolId", (Option.map x.poolId ~f:String_.to_value));
        ("OriginationIdentityArn",
          (Option.map x.originationIdentityArn ~f:String_.to_value));
        ("OriginationIdentity",
          (Option.map x.originationIdentity ~f:String_.to_value));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let originationIdentity =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentity") in
      let originationIdentityArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OriginationIdentityArn") in
      let poolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolId") in
      let poolArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PoolArn") in
      make ?isoCountryCode ?originationIdentity ?originationIdentityArn
        ?poolId ?poolArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let originationIdentity =
        field_map json__ "OriginationIdentity" String_.of_json in
      let originationIdentityArn =
        field_map json__ "OriginationIdentityArn" String_.of_json in
      let poolId = field_map json__ "PoolId" String_.of_json in
      let poolArn = field_map json__ "PoolArn" String_.of_json in
      make ?isoCountryCode ?originationIdentity ?originationIdentityArn
        ?poolId ?poolArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified origination identity with a pool. If the origination identity is a phone number and is already associated with another pool, an error is returned. A sender ID can be associated with multiple pools. If the origination identity configuration doesn't match the pool's configuration, an error is returned."]
module AssociateOriginationIdentityRequest =
  struct
    type nonrec t =
      {
      poolId: PoolIdOrArn.t
        [@ocaml.doc
          "The pool to update with the new Identity. This value can be either the PoolId or PoolArn, and you can find these values using DescribePools. If you are using a shared End User Messaging SMS; resource then you must use the full Amazon Resource Name(ARN)."];
      originationIdentity: PhoneOrSenderIdOrArn.t
        [@ocaml.doc
          "The origination identity to use, such as PhoneNumberId, PhoneNumberArn, SenderId, or SenderIdArn. You can use DescribePhoneNumbers to find the values for PhoneNumberId and PhoneNumberArn, while DescribeSenderIds can be used to get the values for SenderId and SenderIdArn. If you are using a shared End User Messaging SMS resource then you must use the full Amazon Resource Name(ARN)."];
      isoCountryCode: IsoCountryCode.t option
        [@ocaml.doc
          "The new two-character code, in ISO 3166-1 alpha-2 format, for the country or region of the origination identity. This field is optional and is not required for origination identity types that are not country-specific, such as RCS agents."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If you don't specify a client token, a randomly generated token is used for the request to ensure idempotency."]}
    let context_ = "AssociateOriginationIdentityRequest"
    let make ?isoCountryCode =
      fun ?clientToken ->
        fun ~poolId ->
          fun ~originationIdentity ->
            fun () ->
              { isoCountryCode; clientToken; poolId; originationIdentity }
    let to_value x =
      structure_to_value
        [("PoolId", (Some (PoolIdOrArn.to_value x.poolId)));
        ("OriginationIdentity",
          (Some (PhoneOrSenderIdOrArn.to_value x.originationIdentity)));
        ("IsoCountryCode",
          (Option.map x.isoCountryCode ~f:IsoCountryCode.to_value));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let isoCountryCode =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "IsoCountryCode") in
      let originationIdentity =
        PhoneOrSenderIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OriginationIdentity") in
      let poolId =
        PoolIdOrArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      make ?clientToken ?isoCountryCode ~originationIdentity ~poolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let isoCountryCode =
        field_map json__ "IsoCountryCode" IsoCountryCode.of_json in
      let originationIdentity =
        field_map_exn json__ "OriginationIdentity"
          PhoneOrSenderIdOrArn.of_json in
      let poolId = field_map_exn json__ "PoolId" PoolIdOrArn.of_json in
      make ?clientToken ?isoCountryCode ~originationIdentity ~poolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified origination identity with a pool. If the origination identity is a phone number and is already associated with another pool, an error is returned. A sender ID can be associated with multiple pools. If the origination identity configuration doesn't match the pool's configuration, an error is returned."]