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.socialmessaging
let apiVersion = "2024-01-01"
let endpointPrefix = "social-messaging"
let serviceFullName = "AWS End User Messaging Social"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module SupportedAppKeyString =
  struct
    type nonrec t = string
    let context_ = "SupportedAppKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SupportedAppKeyString" j
    let to_json = simple_to_json to_value
  end
module SupportedAppValueString =
  struct
    type nonrec t = string
    let context_ = "SupportedAppValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"SupportedAppValueString" j
    let to_json = simple_to_json to_value
  end
module SupportedApp =
  struct
    type nonrec t =
      (SupportedAppKeyString.t * SupportedAppValueString.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 ->
                            ((SupportedAppKeyString.of_string chopped),
                              (SupportedAppValueString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SupportedAppKeyString.to_value x) |>
                    (fun x ->
                       (SupportedAppValueString.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:SupportedAppKeyString.of_string
        ~of_json:SupportedAppValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module IsoCountryCode =
  struct
    type nonrec t = string
    let context_ = "IsoCountryCode"
    let make i =
      let open Result in
        ok_or_failwith (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 LinkedWhatsAppPhoneNumberArn =
  struct
    type nonrec t = string
    let context_ = "LinkedWhatsAppPhoneNumberArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:.*:phone-number-id/[0-9a-zA-Z]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LinkedWhatsAppPhoneNumberArn" 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_max i ~max:20) >>=
             (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:"PhoneNumber" j
    let to_json = simple_to_json to_value
  end
module WhatsAppDisplayPhoneNumber =
  struct
    type nonrec t = string
    let context_ = "WhatsAppDisplayPhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WhatsAppDisplayPhoneNumber" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumber =
  struct
    type nonrec t = string
    let context_ = "WhatsAppPhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"WhatsAppPhoneNumber" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumberId =
  struct
    type nonrec t = string
    let context_ = "WhatsAppPhoneNumberId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:115) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:".*(^phone-number-id-.*$)|(^arn:.*:phone-number-id/[0-9a-zA-Z]+$).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WhatsAppPhoneNumberId" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumberName =
  struct
    type nonrec t = string
    let context_ = "WhatsAppPhoneNumberName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WhatsAppPhoneNumberName" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumberQualityRating =
  struct
    type nonrec t = string
    let context_ = "WhatsAppPhoneNumberQualityRating"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WhatsAppPhoneNumberQualityRating" j
    let to_json = simple_to_json to_value
  end
module TagKeyString =
  struct
    type nonrec t = string
    let context_ = "TagKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKeyString" j
    let to_json = simple_to_json to_value
  end
module TagValueString =
  struct
    type nonrec t = string
    let context_ = "TagValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValueString" j
    let to_json = simple_to_json to_value
  end
module ButtonType =
  struct
    type nonrec t = string
    let context_ = "ButtonType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (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:"ButtonType" j
    let to_json = simple_to_json to_value
  end
module MetaText =
  struct
    type nonrec t = string
    let context_ = "MetaText"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:40) >>=
             (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:"MetaText" j
    let to_json = simple_to_json to_value
  end
module MetaUrl =
  struct
    type nonrec t = string
    let context_ = "MetaUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:400) >>=
             (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:"MetaUrl" j
    let to_json = simple_to_json to_value
  end
module OtpType =
  struct
    type nonrec t = string
    let context_ = "OtpType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (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:"OtpType" j
    let to_json = simple_to_json to_value
  end
module SupportedApps =
  struct
    type nonrec t = SupportedApp.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:SupportedApp.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:SupportedApp.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedApps" ~of_json:SupportedApp.of_json j
    let to_json v = composed_to_json to_value v
  end
module ZeroTapTermsAccepted =
  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 EventDestinationArn =
  struct
    type nonrec t = string
    let context_ = "EventDestinationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:.*:[a-z-]+([/:](.*))?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EventDestinationArn" j
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:.*:iam::\\d{12}:role\\/[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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module MetaUrlWithSuffixExampleKeyString =
  struct
    type nonrec t = string
    let context_ = "MetaUrlWithSuffixExampleKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MetaUrlWithSuffixExampleKeyString" j
    let to_json = simple_to_json to_value
  end
module MetaUrlWithSuffixExampleValueString =
  struct
    type nonrec t = string
    let context_ = "MetaUrlWithSuffixExampleValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:400) >>=
             (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:"MetaUrlWithSuffixExampleValueString" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumberDetail =
  struct
    type nonrec t =
      {
      arn: LinkedWhatsAppPhoneNumberArn.t option
        [@ocaml.doc "The ARN of the WhatsApp phone number."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number for sending WhatsApp."];
      phoneNumberId: WhatsAppPhoneNumberId.t option
        [@ocaml.doc
          "The phone number ID. Phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901."];
      metaPhoneNumberId: WhatsAppPhoneNumber.t option
        [@ocaml.doc "The phone number ID from Meta."];
      displayPhoneNumberName: WhatsAppPhoneNumberName.t option
        [@ocaml.doc "The display name for this phone number."];
      displayPhoneNumber: WhatsAppDisplayPhoneNumber.t option
        [@ocaml.doc
          "The phone number that appears in the recipients display."];
      qualityRating: WhatsAppPhoneNumberQualityRating.t option
        [@ocaml.doc "The quality rating of the phone number."];
      dataLocalizationRegion: IsoCountryCode.t option
        [@ocaml.doc
          "The geographic region where the WhatsApp phone number's data is stored and processed."]}
    let make ?arn =
      fun ?phoneNumber ->
        fun ?phoneNumberId ->
          fun ?metaPhoneNumberId ->
            fun ?displayPhoneNumberName ->
              fun ?displayPhoneNumber ->
                fun ?qualityRating ->
                  fun ?dataLocalizationRegion ->
                    fun () ->
                      {
                        arn;
                        phoneNumber;
                        phoneNumberId;
                        metaPhoneNumberId;
                        displayPhoneNumberName;
                        displayPhoneNumber;
                        qualityRating;
                        dataLocalizationRegion
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:LinkedWhatsAppPhoneNumberArn.to_value));
        ("phoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("phoneNumberId",
          (Option.map x.phoneNumberId ~f:WhatsAppPhoneNumberId.to_value));
        ("metaPhoneNumberId",
          (Option.map x.metaPhoneNumberId ~f:WhatsAppPhoneNumber.to_value));
        ("displayPhoneNumberName",
          (Option.map x.displayPhoneNumberName
             ~f:WhatsAppPhoneNumberName.to_value));
        ("displayPhoneNumber",
          (Option.map x.displayPhoneNumber
             ~f:WhatsAppDisplayPhoneNumber.to_value));
        ("qualityRating",
          (Option.map x.qualityRating
             ~f:WhatsAppPhoneNumberQualityRating.to_value));
        ("dataLocalizationRegion",
          (Option.map x.dataLocalizationRegion ~f:IsoCountryCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataLocalizationRegion =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "dataLocalizationRegion") in
      let qualityRating =
        (Option.map ~f:WhatsAppPhoneNumberQualityRating.of_xml)
          (Xml.child xml_arg0 "qualityRating") in
      let displayPhoneNumber =
        (Option.map ~f:WhatsAppDisplayPhoneNumber.of_xml)
          (Xml.child xml_arg0 "displayPhoneNumber") in
      let displayPhoneNumberName =
        (Option.map ~f:WhatsAppPhoneNumberName.of_xml)
          (Xml.child xml_arg0 "displayPhoneNumberName") in
      let metaPhoneNumberId =
        (Option.map ~f:WhatsAppPhoneNumber.of_xml)
          (Xml.child xml_arg0 "metaPhoneNumberId") in
      let phoneNumberId =
        (Option.map ~f:WhatsAppPhoneNumberId.of_xml)
          (Xml.child xml_arg0 "phoneNumberId") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "phoneNumber") in
      let arn =
        (Option.map ~f:LinkedWhatsAppPhoneNumberArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?dataLocalizationRegion ?qualityRating ?displayPhoneNumber
        ?displayPhoneNumberName ?metaPhoneNumberId ?phoneNumberId
        ?phoneNumber ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataLocalizationRegion =
        field_map json__ "dataLocalizationRegion" IsoCountryCode.of_json in
      let qualityRating =
        field_map json__ "qualityRating"
          WhatsAppPhoneNumberQualityRating.of_json in
      let displayPhoneNumber =
        field_map json__ "displayPhoneNumber"
          WhatsAppDisplayPhoneNumber.of_json in
      let displayPhoneNumberName =
        field_map json__ "displayPhoneNumberName"
          WhatsAppPhoneNumberName.of_json in
      let metaPhoneNumberId =
        field_map json__ "metaPhoneNumberId" WhatsAppPhoneNumber.of_json in
      let phoneNumberId =
        field_map json__ "phoneNumberId" WhatsAppPhoneNumberId.of_json in
      let phoneNumber = field_map json__ "phoneNumber" PhoneNumber.of_json in
      let arn = field_map json__ "arn" LinkedWhatsAppPhoneNumberArn.of_json in
      make ?dataLocalizationRegion ?qualityRating ?displayPhoneNumber
        ?displayPhoneNumberName ?metaPhoneNumberId ?phoneNumberId
        ?phoneNumber ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of your WhatsApp phone number."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKeyString.t [@ocaml.doc "The tag key."];
      value: TagValueString.t option [@ocaml.doc "The tag value."]}
    let context_ = "Tag"
    let make ?value = fun ~key -> fun () -> { value; key }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKeyString.to_value x.key)));
        ("value", (Option.map x.value ~f:TagValueString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValueString.of_xml) (Xml.child xml_arg0 "value") in
      let key =
        TagKeyString.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 json__ "value" TagValueString.of_json in
      let key = field_map_exn json__ "key" TagKeyString.of_json in
      make ?value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tag for a resource."]
module MetaIndustry =
  struct
    type nonrec t = string
    let context_ = "MetaIndustry"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (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:"MetaIndustry" j
    let to_json = simple_to_json to_value
  end
module LibraryTemplateButtonList =
  struct
    type nonrec t =
      {
      type_: ButtonType.t option
        [@ocaml.doc
          "The type of button (for example, QUICK_REPLY, CALL, or URL)."];
      text: MetaText.t option
        [@ocaml.doc
          "The text displayed on the button (maximum 40 characters)."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The phone number in E.164 format for CALL-type buttons."];
      url: MetaUrl.t option [@ocaml.doc "The URL for URL-type buttons."];
      otpType: OtpType.t option
        [@ocaml.doc "The type of one-time password for OTP buttons."];
      zeroTapTermsAccepted: ZeroTapTermsAccepted.t option
        [@ocaml.doc
          "When true, indicates acceptance of zero-tap terms for the button."];
      supportedApps: SupportedApps.t option
        [@ocaml.doc "List of supported applications for this button type."]}
    let make ?type_ =
      fun ?text ->
        fun ?phoneNumber ->
          fun ?url ->
            fun ?otpType ->
              fun ?zeroTapTermsAccepted ->
                fun ?supportedApps ->
                  fun () ->
                    {
                      type_;
                      text;
                      phoneNumber;
                      url;
                      otpType;
                      zeroTapTermsAccepted;
                      supportedApps
                    }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:ButtonType.to_value));
        ("text", (Option.map x.text ~f:MetaText.to_value));
        ("phoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("url", (Option.map x.url ~f:MetaUrl.to_value));
        ("otpType", (Option.map x.otpType ~f:OtpType.to_value));
        ("zeroTapTermsAccepted",
          (Option.map x.zeroTapTermsAccepted ~f:ZeroTapTermsAccepted.to_value));
        ("supportedApps",
          (Option.map x.supportedApps ~f:SupportedApps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedApps =
        (Option.map ~f:SupportedApps.of_xml)
          (Xml.child xml_arg0 "supportedApps") in
      let zeroTapTermsAccepted =
        (Option.map ~f:ZeroTapTermsAccepted.of_xml)
          (Xml.child xml_arg0 "zeroTapTermsAccepted") in
      let otpType =
        (Option.map ~f:OtpType.of_xml) (Xml.child xml_arg0 "otpType") in
      let url = (Option.map ~f:MetaUrl.of_xml) (Xml.child xml_arg0 "url") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "phoneNumber") in
      let text = (Option.map ~f:MetaText.of_xml) (Xml.child xml_arg0 "text") in
      let type_ =
        (Option.map ~f:ButtonType.of_xml) (Xml.child xml_arg0 "type") in
      make ?supportedApps ?zeroTapTermsAccepted ?otpType ?url ?phoneNumber
        ?text ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedApps =
        field_map json__ "supportedApps" SupportedApps.of_json in
      let zeroTapTermsAccepted =
        field_map json__ "zeroTapTermsAccepted" ZeroTapTermsAccepted.of_json in
      let otpType = field_map json__ "otpType" OtpType.of_json in
      let url = field_map json__ "url" MetaUrl.of_json in
      let phoneNumber = field_map json__ "phoneNumber" PhoneNumber.of_json in
      let text = field_map json__ "text" MetaText.of_json in
      let type_ = field_map json__ "type" ButtonType.of_json in
      make ?supportedApps ?zeroTapTermsAccepted ?otpType ?url ?phoneNumber
        ?text ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Defines a button in a template from Meta's library."]
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 WhatsAppBusinessAccountEventDestination =
  struct
    type nonrec t =
      {
      eventDestinationArn: EventDestinationArn.t
        [@ocaml.doc "The ARN of the event destination."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an Identity and Access Management role that is able to import phone numbers and write events."]}
    let context_ = "WhatsAppBusinessAccountEventDestination"
    let make ?roleArn =
      fun ~eventDestinationArn -> fun () -> { roleArn; eventDestinationArn }
    let to_value x =
      structure_to_value
        [("eventDestinationArn",
           (Some (EventDestinationArn.to_value x.eventDestinationArn)));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let eventDestinationArn =
        EventDestinationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventDestinationArn") in
      make ?roleArn ~eventDestinationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let eventDestinationArn =
        field_map_exn json__ "eventDestinationArn"
          EventDestinationArn.of_json in
      make ?roleArn ~eventDestinationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information on the event destination."]
module MetaUrlWithSuffixExample =
  struct
    type nonrec t =
      (MetaUrlWithSuffixExampleKeyString.t *
        MetaUrlWithSuffixExampleValueString.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 ->
                            ((MetaUrlWithSuffixExampleKeyString.of_string
                                chopped),
                              (MetaUrlWithSuffixExampleValueString.of_string
                                 v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MetaUrlWithSuffixExampleKeyString.to_value x) |>
                    (fun x ->
                       (MetaUrlWithSuffixExampleValueString.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:MetaUrlWithSuffixExampleKeyString.of_string
        ~of_json:MetaUrlWithSuffixExampleValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkedWhatsAppBusinessAccountId =
  struct
    type nonrec t = string
    let context_ = "LinkedWhatsAppBusinessAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:115) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:".*(^waba-.*$)|(^arn:.*:waba/[0-9a-zA-Z]+$).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LinkedWhatsAppBusinessAccountId" j
    let to_json = simple_to_json to_value
  end
module RegistrationStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | INCOMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | INCOMPLETE -> "INCOMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "INCOMPLETE" -> INCOMPLETE
      | 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 WhatsAppBusinessAccountName =
  struct
    type nonrec t = string
    let context_ = "WhatsAppBusinessAccountName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WhatsAppBusinessAccountName" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumberDetailList =
  struct
    type nonrec t = WhatsAppPhoneNumberDetail.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:WhatsAppPhoneNumberDetail.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:WhatsAppPhoneNumberDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"WhatsAppPhoneNumberDetailList"
        ~of_json:WhatsAppPhoneNumberDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module TwoFactorPin =
  struct
    type nonrec t = string
    let context_ = "TwoFactorPin"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:6) >>=
             (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:"TwoFactorPin" j
    let to_json = simple_to_json to_value
  end
module MetaIndustries =
  struct
    type nonrec t = MetaIndustry.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:MetaIndustry.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:MetaIndustry.of_xml)
    let of_json j =
      list_of_json ~kind:"MetaIndustries" ~of_json:MetaIndustry.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetaLibraryTemplateButtonList =
  struct
    type nonrec t = LibraryTemplateButtonList.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:LibraryTemplateButtonList.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:LibraryTemplateButtonList.of_xml)
    let of_json j =
      list_of_json ~kind:"MetaLibraryTemplateButtonList"
        ~of_json:LibraryTemplateButtonList.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetaTemplateBody =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"MetaTemplateBody" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateBodyExampleParams =
  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:"MetaTemplateBodyExampleParams"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetaTemplateCategory =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateCategory"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"MetaTemplateCategory" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateHeader =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetaTemplateHeader" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateId =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateId"
    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:"[0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetaTemplateId" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateLanguage =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateLanguage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:6) >>=
             (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:"MetaTemplateLanguage" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateName =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetaTemplateName" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateTopic =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateTopic"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (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:"MetaTemplateTopic" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateUseCase =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateUseCase"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MetaTemplateUseCase" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateQualityScore =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateQualityScore"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (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:"MetaTemplateQualityScore" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateStatus =
  struct
    type nonrec t = string
    let context_ = "MetaTemplateStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (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:"MetaTemplateStatus" j
    let to_json = simple_to_json to_value
  end
module LinkedWhatsAppBusinessAccountArn =
  struct
    type nonrec t = string
    let context_ = "LinkedWhatsAppBusinessAccountArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:.*:waba/[0-9a-zA-Z]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LinkedWhatsAppBusinessAccountArn" j
    let to_json = simple_to_json to_value
  end
module WhatsAppBusinessAccountEventDestinations =
  struct
    type nonrec t = WhatsAppBusinessAccountEventDestination.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:WhatsAppBusinessAccountEventDestination.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:WhatsAppBusinessAccountEventDestination.of_xml)
    let of_json j =
      list_of_json ~kind:"WhatsAppBusinessAccountEventDestinations"
        ~of_json:WhatsAppBusinessAccountEventDestination.of_json j
    let to_json v = composed_to_json to_value v
  end
module WhatsAppBusinessAccountId =
  struct
    type nonrec t = string
    let context_ = "WhatsAppBusinessAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"WhatsAppBusinessAccountId" j
    let to_json = simple_to_json to_value
  end
module WhatsAppBusinessAccountLinkDate =
  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 WhatsAppBusinessAccountMarketingMessagesOnboardingStatus =
  struct
    type nonrec t = string
    let context_ = "WhatsAppBusinessAccountMarketingMessagesOnboardingStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"WhatsAppBusinessAccountMarketingMessagesOnboardingStatus" j
    let to_json = simple_to_json to_value
  end
module WhatsAppPhoneNumberSummary =
  struct
    type nonrec t =
      {
      arn: LinkedWhatsAppPhoneNumberArn.t option
        [@ocaml.doc
          "The full Amazon Resource Name (ARN) for the phone number."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The phone number associated with the Linked WhatsApp Business Account."];
      phoneNumberId: WhatsAppPhoneNumberId.t option
        [@ocaml.doc
          "The phone number ID. Phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901."];
      metaPhoneNumberId: WhatsAppPhoneNumber.t option
        [@ocaml.doc "The phone number ID from Meta."];
      displayPhoneNumberName: WhatsAppPhoneNumberName.t option
        [@ocaml.doc "The display name for this phone number."];
      displayPhoneNumber: WhatsAppDisplayPhoneNumber.t option
        [@ocaml.doc
          "The phone number that appears in the recipients display."];
      qualityRating: WhatsAppPhoneNumberQualityRating.t option
        [@ocaml.doc
          "The quality rating of the phone number. This is from Meta."];
      dataLocalizationRegion: IsoCountryCode.t option
        [@ocaml.doc
          "The geographic region where the WhatsApp phone number's data is stored and processed."]}
    let make ?arn =
      fun ?phoneNumber ->
        fun ?phoneNumberId ->
          fun ?metaPhoneNumberId ->
            fun ?displayPhoneNumberName ->
              fun ?displayPhoneNumber ->
                fun ?qualityRating ->
                  fun ?dataLocalizationRegion ->
                    fun () ->
                      {
                        arn;
                        phoneNumber;
                        phoneNumberId;
                        metaPhoneNumberId;
                        displayPhoneNumberName;
                        displayPhoneNumber;
                        qualityRating;
                        dataLocalizationRegion
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:LinkedWhatsAppPhoneNumberArn.to_value));
        ("phoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("phoneNumberId",
          (Option.map x.phoneNumberId ~f:WhatsAppPhoneNumberId.to_value));
        ("metaPhoneNumberId",
          (Option.map x.metaPhoneNumberId ~f:WhatsAppPhoneNumber.to_value));
        ("displayPhoneNumberName",
          (Option.map x.displayPhoneNumberName
             ~f:WhatsAppPhoneNumberName.to_value));
        ("displayPhoneNumber",
          (Option.map x.displayPhoneNumber
             ~f:WhatsAppDisplayPhoneNumber.to_value));
        ("qualityRating",
          (Option.map x.qualityRating
             ~f:WhatsAppPhoneNumberQualityRating.to_value));
        ("dataLocalizationRegion",
          (Option.map x.dataLocalizationRegion ~f:IsoCountryCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataLocalizationRegion =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "dataLocalizationRegion") in
      let qualityRating =
        (Option.map ~f:WhatsAppPhoneNumberQualityRating.of_xml)
          (Xml.child xml_arg0 "qualityRating") in
      let displayPhoneNumber =
        (Option.map ~f:WhatsAppDisplayPhoneNumber.of_xml)
          (Xml.child xml_arg0 "displayPhoneNumber") in
      let displayPhoneNumberName =
        (Option.map ~f:WhatsAppPhoneNumberName.of_xml)
          (Xml.child xml_arg0 "displayPhoneNumberName") in
      let metaPhoneNumberId =
        (Option.map ~f:WhatsAppPhoneNumber.of_xml)
          (Xml.child xml_arg0 "metaPhoneNumberId") in
      let phoneNumberId =
        (Option.map ~f:WhatsAppPhoneNumberId.of_xml)
          (Xml.child xml_arg0 "phoneNumberId") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "phoneNumber") in
      let arn =
        (Option.map ~f:LinkedWhatsAppPhoneNumberArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?dataLocalizationRegion ?qualityRating ?displayPhoneNumber
        ?displayPhoneNumberName ?metaPhoneNumberId ?phoneNumberId
        ?phoneNumber ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataLocalizationRegion =
        field_map json__ "dataLocalizationRegion" IsoCountryCode.of_json in
      let qualityRating =
        field_map json__ "qualityRating"
          WhatsAppPhoneNumberQualityRating.of_json in
      let displayPhoneNumber =
        field_map json__ "displayPhoneNumber"
          WhatsAppDisplayPhoneNumber.of_json in
      let displayPhoneNumberName =
        field_map json__ "displayPhoneNumberName"
          WhatsAppPhoneNumberName.of_json in
      let metaPhoneNumberId =
        field_map json__ "metaPhoneNumberId" WhatsAppPhoneNumber.of_json in
      let phoneNumberId =
        field_map json__ "phoneNumberId" WhatsAppPhoneNumberId.of_json in
      let phoneNumber = field_map json__ "phoneNumber" PhoneNumber.of_json in
      let arn = field_map json__ "arn" LinkedWhatsAppPhoneNumberArn.of_json in
      make ?dataLocalizationRegion ?qualityRating ?displayPhoneNumber
        ?displayPhoneNumberName ?metaPhoneNumberId ?phoneNumberId
        ?phoneNumber ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a linked phone number."]
module AddContactNumber =
  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 AddLearnMoreLink =
  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 AddSecurityRecommendation =
  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 AddTrackPackageLink =
  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 CodeExpirationMinutes =
  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 CodeExpirationMinutes" 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 LibraryTemplateButtonInput =
  struct
    type nonrec t =
      {
      type_: ButtonType.t option
        [@ocaml.doc
          "The type of button (for example, QUICK_REPLY, CALL, or URL)."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc
          "The phone number in E.164 format for CALL-type buttons."];
      url: MetaUrlWithSuffixExample.t option
        [@ocaml.doc "The URL with dynamic parameters for URL-type buttons."];
      otpType: OtpType.t option
        [@ocaml.doc "The type of one-time password for OTP buttons."];
      zeroTapTermsAccepted: ZeroTapTermsAccepted.t option
        [@ocaml.doc
          "When true, indicates acceptance of zero-tap terms for the button."];
      supportedApps: SupportedApps.t option
        [@ocaml.doc "List of supported applications for this button type."]}
    let make ?type_ =
      fun ?phoneNumber ->
        fun ?url ->
          fun ?otpType ->
            fun ?zeroTapTermsAccepted ->
              fun ?supportedApps ->
                fun () ->
                  {
                    type_;
                    phoneNumber;
                    url;
                    otpType;
                    zeroTapTermsAccepted;
                    supportedApps
                  }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:ButtonType.to_value));
        ("phoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("url", (Option.map x.url ~f:MetaUrlWithSuffixExample.to_value));
        ("otpType", (Option.map x.otpType ~f:OtpType.to_value));
        ("zeroTapTermsAccepted",
          (Option.map x.zeroTapTermsAccepted ~f:ZeroTapTermsAccepted.to_value));
        ("supportedApps",
          (Option.map x.supportedApps ~f:SupportedApps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedApps =
        (Option.map ~f:SupportedApps.of_xml)
          (Xml.child xml_arg0 "supportedApps") in
      let zeroTapTermsAccepted =
        (Option.map ~f:ZeroTapTermsAccepted.of_xml)
          (Xml.child xml_arg0 "zeroTapTermsAccepted") in
      let otpType =
        (Option.map ~f:OtpType.of_xml) (Xml.child xml_arg0 "otpType") in
      let url =
        (Option.map ~f:MetaUrlWithSuffixExample.of_xml)
          (Xml.child xml_arg0 "url") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "phoneNumber") in
      let type_ =
        (Option.map ~f:ButtonType.of_xml) (Xml.child xml_arg0 "type") in
      make ?supportedApps ?zeroTapTermsAccepted ?otpType ?url ?phoneNumber
        ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedApps =
        field_map json__ "supportedApps" SupportedApps.of_json in
      let zeroTapTermsAccepted =
        field_map json__ "zeroTapTermsAccepted" ZeroTapTermsAccepted.of_json in
      let otpType = field_map json__ "otpType" OtpType.of_json in
      let url = field_map json__ "url" MetaUrlWithSuffixExample.of_json in
      let phoneNumber = field_map json__ "phoneNumber" PhoneNumber.of_json in
      let type_ = field_map json__ "type" ButtonType.of_json in
      make ?supportedApps ?zeroTapTermsAccepted ?otpType ?url ?phoneNumber
        ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration options for customizing buttons in a template from Meta's library."]
module LinkedWhatsAppBusinessAccountIdMetaData =
  struct
    type nonrec t =
      {
      accountName: WhatsAppBusinessAccountName.t option
        [@ocaml.doc "The name of your account."];
      registrationStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The registration status of the linked WhatsApp Business Account."];
      unregisteredWhatsAppPhoneNumbers:
        WhatsAppPhoneNumberDetailList.t option
        [@ocaml.doc "The details for unregistered WhatsApp phone numbers."];
      wabaId: LinkedWhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the WhatsApp Business Account ID."]}
    let make ?accountName =
      fun ?registrationStatus ->
        fun ?unregisteredWhatsAppPhoneNumbers ->
          fun ?wabaId ->
            fun () ->
              {
                accountName;
                registrationStatus;
                unregisteredWhatsAppPhoneNumbers;
                wabaId
              }
    let to_value x =
      structure_to_value
        [("accountName",
           (Option.map x.accountName ~f:WhatsAppBusinessAccountName.to_value));
        ("registrationStatus",
          (Option.map x.registrationStatus ~f:RegistrationStatus.to_value));
        ("unregisteredWhatsAppPhoneNumbers",
          (Option.map x.unregisteredWhatsAppPhoneNumbers
             ~f:WhatsAppPhoneNumberDetailList.to_value));
        ("wabaId",
          (Option.map x.wabaId ~f:LinkedWhatsAppBusinessAccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wabaId =
        (Option.map ~f:LinkedWhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "wabaId") in
      let unregisteredWhatsAppPhoneNumbers =
        (Option.map ~f:WhatsAppPhoneNumberDetailList.of_xml)
          (Xml.child xml_arg0 "unregisteredWhatsAppPhoneNumbers") in
      let registrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "registrationStatus") in
      let accountName =
        (Option.map ~f:WhatsAppBusinessAccountName.of_xml)
          (Xml.child xml_arg0 "accountName") in
      make ?wabaId ?unregisteredWhatsAppPhoneNumbers ?registrationStatus
        ?accountName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wabaId =
        field_map json__ "wabaId" LinkedWhatsAppBusinessAccountId.of_json in
      let unregisteredWhatsAppPhoneNumbers =
        field_map json__ "unregisteredWhatsAppPhoneNumbers"
          WhatsAppPhoneNumberDetailList.of_json in
      let registrationStatus =
        field_map json__ "registrationStatus" RegistrationStatus.of_json in
      let accountName =
        field_map json__ "accountName" WhatsAppBusinessAccountName.of_json in
      make ?wabaId ?unregisteredWhatsAppPhoneNumbers ?registrationStatus
        ?accountName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains your WhatsApp registration status and details of any unregistered WhatsApp phone number."]
module WabaPhoneNumberSetupFinalization =
  struct
    type nonrec t =
      {
      id: WhatsAppPhoneNumber.t
        [@ocaml.doc
          "The unique identifier of the originating phone number associated with the media. Phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901. Use the GetLinkedWhatsAppBusinessAccount API action to find a phone number's id."];
      twoFactorPin: TwoFactorPin.t
        [@ocaml.doc
          "The PIN to use for two-step verification. To reset your PIN follow the directions in Updating PIN in the WhatsApp Business Platform Cloud API Reference."];
      dataLocalizationRegion: IsoCountryCode.t option
        [@ocaml.doc
          "The two letter ISO region for the location of where Meta will store data. Asia\226\128\147Pacific (APAC) Australia AU Indonesia ID India IN Japan JP Singapore SG South Korea KR Europe Germany DE Switzerland CH United Kingdom GB Latin America (LATAM) Brazil BR Middle East and Africa (MEA) Bahrain BH South Africa ZA United Arab Emirates AE North America (NORAM) Canada CA"];
      tags: TagList.t option
        [@ocaml.doc "An array of key and value pair tags."]}
    let context_ = "WabaPhoneNumberSetupFinalization"
    let make ?dataLocalizationRegion =
      fun ?tags ->
        fun ~id ->
          fun ~twoFactorPin ->
            fun () -> { dataLocalizationRegion; tags; id; twoFactorPin }
    let to_value x =
      structure_to_value
        [("id", (Some (WhatsAppPhoneNumber.to_value x.id)));
        ("twoFactorPin", (Some (TwoFactorPin.to_value x.twoFactorPin)));
        ("dataLocalizationRegion",
          (Option.map x.dataLocalizationRegion ~f:IsoCountryCode.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 dataLocalizationRegion =
        (Option.map ~f:IsoCountryCode.of_xml)
          (Xml.child xml_arg0 "dataLocalizationRegion") in
      let twoFactorPin =
        TwoFactorPin.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "twoFactorPin") in
      let id =
        WhatsAppPhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?tags ?dataLocalizationRegion ~twoFactorPin ~id ()
    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 dataLocalizationRegion =
        field_map json__ "dataLocalizationRegion" IsoCountryCode.of_json in
      let twoFactorPin =
        field_map_exn json__ "twoFactorPin" TwoFactorPin.of_json in
      let id = field_map_exn json__ "id" WhatsAppPhoneNumber.of_json in
      make ?tags ?dataLocalizationRegion ~twoFactorPin ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The registration details for a linked phone number."]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module S3FileBucketNameString =
  struct
    type nonrec t = string
    let context_ = "S3FileBucketNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-z0-9][a-z0-9.-]*[a-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:"S3FileBucketNameString" j
    let to_json = simple_to_json to_value
  end
module S3FileKeyString =
  struct
    type nonrec t = string
    let context_ = "S3FileKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3FileKeyString" j
    let to_json = simple_to_json to_value
  end
module Headers =
  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 S3PresignedUrlUrlString =
  struct
    type nonrec t = string
    let context_ = "S3PresignedUrlUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"https://(.*)s3(.*).amazonaws.com/(.*)")));
        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:"S3PresignedUrlUrlString" j
    let to_json = simple_to_json to_value
  end
module MetaLibraryTemplateDefinition =
  struct
    type nonrec t =
      {
      templateName: MetaTemplateName.t option
        [@ocaml.doc "The name of the template."];
      templateLanguage: MetaTemplateLanguage.t option
        [@ocaml.doc
          "The language code for the template (for example, en_US)."];
      templateCategory: MetaTemplateCategory.t option
        [@ocaml.doc
          "The category of the template (for example, UTILITY or MARKETING)."];
      templateTopic: MetaTemplateTopic.t option
        [@ocaml.doc "The topic or subject matter of the template."];
      templateUseCase: MetaTemplateUseCase.t option
        [@ocaml.doc "The intended use case for the template."];
      templateIndustry: MetaIndustries.t option
        [@ocaml.doc "The industries the template is designed for."];
      templateHeader: MetaTemplateHeader.t option
        [@ocaml.doc "The header text of the template."];
      templateBody: MetaTemplateBody.t option
        [@ocaml.doc "The body text of the template."];
      templateButtons: MetaLibraryTemplateButtonList.t option
        [@ocaml.doc "The buttons included in the template."];
      templateId: MetaTemplateId.t option
        [@ocaml.doc "The ID of the template in Meta's library."];
      templateBodyExampleParams: MetaTemplateBodyExampleParams.t option
        [@ocaml.doc
          "Example parameter values for the template body, used to demonstrate how dynamic content appears in the template."]}
    let make ?templateName =
      fun ?templateLanguage ->
        fun ?templateCategory ->
          fun ?templateTopic ->
            fun ?templateUseCase ->
              fun ?templateIndustry ->
                fun ?templateHeader ->
                  fun ?templateBody ->
                    fun ?templateButtons ->
                      fun ?templateId ->
                        fun ?templateBodyExampleParams ->
                          fun () ->
                            {
                              templateName;
                              templateLanguage;
                              templateCategory;
                              templateTopic;
                              templateUseCase;
                              templateIndustry;
                              templateHeader;
                              templateBody;
                              templateButtons;
                              templateId;
                              templateBodyExampleParams
                            }
    let to_value x =
      structure_to_value
        [("templateName",
           (Option.map x.templateName ~f:MetaTemplateName.to_value));
        ("templateLanguage",
          (Option.map x.templateLanguage ~f:MetaTemplateLanguage.to_value));
        ("templateCategory",
          (Option.map x.templateCategory ~f:MetaTemplateCategory.to_value));
        ("templateTopic",
          (Option.map x.templateTopic ~f:MetaTemplateTopic.to_value));
        ("templateUseCase",
          (Option.map x.templateUseCase ~f:MetaTemplateUseCase.to_value));
        ("templateIndustry",
          (Option.map x.templateIndustry ~f:MetaIndustries.to_value));
        ("templateHeader",
          (Option.map x.templateHeader ~f:MetaTemplateHeader.to_value));
        ("templateBody",
          (Option.map x.templateBody ~f:MetaTemplateBody.to_value));
        ("templateButtons",
          (Option.map x.templateButtons
             ~f:MetaLibraryTemplateButtonList.to_value));
        ("templateId", (Option.map x.templateId ~f:MetaTemplateId.to_value));
        ("templateBodyExampleParams",
          (Option.map x.templateBodyExampleParams
             ~f:MetaTemplateBodyExampleParams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateBodyExampleParams =
        (Option.map ~f:MetaTemplateBodyExampleParams.of_xml)
          (Xml.child xml_arg0 "templateBodyExampleParams") in
      let templateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "templateId") in
      let templateButtons =
        (Option.map ~f:MetaLibraryTemplateButtonList.of_xml)
          (Xml.child xml_arg0 "templateButtons") in
      let templateBody =
        (Option.map ~f:MetaTemplateBody.of_xml)
          (Xml.child xml_arg0 "templateBody") in
      let templateHeader =
        (Option.map ~f:MetaTemplateHeader.of_xml)
          (Xml.child xml_arg0 "templateHeader") in
      let templateIndustry =
        (Option.map ~f:MetaIndustries.of_xml)
          (Xml.child xml_arg0 "templateIndustry") in
      let templateUseCase =
        (Option.map ~f:MetaTemplateUseCase.of_xml)
          (Xml.child xml_arg0 "templateUseCase") in
      let templateTopic =
        (Option.map ~f:MetaTemplateTopic.of_xml)
          (Xml.child xml_arg0 "templateTopic") in
      let templateCategory =
        (Option.map ~f:MetaTemplateCategory.of_xml)
          (Xml.child xml_arg0 "templateCategory") in
      let templateLanguage =
        (Option.map ~f:MetaTemplateLanguage.of_xml)
          (Xml.child xml_arg0 "templateLanguage") in
      let templateName =
        (Option.map ~f:MetaTemplateName.of_xml)
          (Xml.child xml_arg0 "templateName") in
      make ?templateBodyExampleParams ?templateId ?templateButtons
        ?templateBody ?templateHeader ?templateIndustry ?templateUseCase
        ?templateTopic ?templateCategory ?templateLanguage ?templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateBodyExampleParams =
        field_map json__ "templateBodyExampleParams"
          MetaTemplateBodyExampleParams.of_json in
      let templateId = field_map json__ "templateId" MetaTemplateId.of_json in
      let templateButtons =
        field_map json__ "templateButtons"
          MetaLibraryTemplateButtonList.of_json in
      let templateBody =
        field_map json__ "templateBody" MetaTemplateBody.of_json in
      let templateHeader =
        field_map json__ "templateHeader" MetaTemplateHeader.of_json in
      let templateIndustry =
        field_map json__ "templateIndustry" MetaIndustries.of_json in
      let templateUseCase =
        field_map json__ "templateUseCase" MetaTemplateUseCase.of_json in
      let templateTopic =
        field_map json__ "templateTopic" MetaTemplateTopic.of_json in
      let templateCategory =
        field_map json__ "templateCategory" MetaTemplateCategory.of_json in
      let templateLanguage =
        field_map json__ "templateLanguage" MetaTemplateLanguage.of_json in
      let templateName =
        field_map json__ "templateName" MetaTemplateName.of_json in
      make ?templateBodyExampleParams ?templateId ?templateButtons
        ?templateBody ?templateHeader ?templateIndustry ?templateUseCase
        ?templateTopic ?templateCategory ?templateLanguage ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the complete structure and content of a template in Meta's library."]
module FilterKeyString =
  struct
    type nonrec t = string
    let context_ = "FilterKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"FilterKeyString" j
    let to_json = simple_to_json to_value
  end
module FilterValueString =
  struct
    type nonrec t = string
    let context_ = "FilterValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"FilterValueString" j
    let to_json = simple_to_json to_value
  end
module TemplateSummary =
  struct
    type nonrec t =
      {
      templateName: MetaTemplateName.t option
        [@ocaml.doc "The name of the template."];
      metaTemplateId: MetaTemplateId.t option
        [@ocaml.doc "The numeric ID assigned to the template by Meta."];
      templateStatus: MetaTemplateStatus.t option
        [@ocaml.doc
          "The current status of the template (for example, APPROVED, PENDING, or REJECTED)."];
      templateQualityScore: MetaTemplateQualityScore.t option
        [@ocaml.doc "The quality score assigned to the template by Meta."];
      templateLanguage: MetaTemplateLanguage.t option
        [@ocaml.doc
          "The language code of the template (for example, en_US)."];
      templateCategory: MetaTemplateCategory.t option
        [@ocaml.doc
          "The category of the template (for example, UTILITY or MARKETING)."]}
    let make ?templateName =
      fun ?metaTemplateId ->
        fun ?templateStatus ->
          fun ?templateQualityScore ->
            fun ?templateLanguage ->
              fun ?templateCategory ->
                fun () ->
                  {
                    templateName;
                    metaTemplateId;
                    templateStatus;
                    templateQualityScore;
                    templateLanguage;
                    templateCategory
                  }
    let to_value x =
      structure_to_value
        [("templateName",
           (Option.map x.templateName ~f:MetaTemplateName.to_value));
        ("metaTemplateId",
          (Option.map x.metaTemplateId ~f:MetaTemplateId.to_value));
        ("templateStatus",
          (Option.map x.templateStatus ~f:MetaTemplateStatus.to_value));
        ("templateQualityScore",
          (Option.map x.templateQualityScore
             ~f:MetaTemplateQualityScore.to_value));
        ("templateLanguage",
          (Option.map x.templateLanguage ~f:MetaTemplateLanguage.to_value));
        ("templateCategory",
          (Option.map x.templateCategory ~f:MetaTemplateCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateCategory =
        (Option.map ~f:MetaTemplateCategory.of_xml)
          (Xml.child xml_arg0 "templateCategory") in
      let templateLanguage =
        (Option.map ~f:MetaTemplateLanguage.of_xml)
          (Xml.child xml_arg0 "templateLanguage") in
      let templateQualityScore =
        (Option.map ~f:MetaTemplateQualityScore.of_xml)
          (Xml.child xml_arg0 "templateQualityScore") in
      let templateStatus =
        (Option.map ~f:MetaTemplateStatus.of_xml)
          (Xml.child xml_arg0 "templateStatus") in
      let metaTemplateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "metaTemplateId") in
      let templateName =
        (Option.map ~f:MetaTemplateName.of_xml)
          (Xml.child xml_arg0 "templateName") in
      make ?templateCategory ?templateLanguage ?templateQualityScore
        ?templateStatus ?metaTemplateId ?templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateCategory =
        field_map json__ "templateCategory" MetaTemplateCategory.of_json in
      let templateLanguage =
        field_map json__ "templateLanguage" MetaTemplateLanguage.of_json in
      let templateQualityScore =
        field_map json__ "templateQualityScore"
          MetaTemplateQualityScore.of_json in
      let templateStatus =
        field_map json__ "templateStatus" MetaTemplateStatus.of_json in
      let metaTemplateId =
        field_map json__ "metaTemplateId" MetaTemplateId.of_json in
      let templateName =
        field_map json__ "templateName" MetaTemplateName.of_json in
      make ?templateCategory ?templateLanguage ?templateQualityScore
        ?templateStatus ?metaTemplateId ?templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a summary of a WhatsApp message template's key attributes."]
module LinkedWhatsAppBusinessAccountSummary =
  struct
    type nonrec t =
      {
      arn: LinkedWhatsAppBusinessAccountArn.t option
        [@ocaml.doc "The ARN of the linked WhatsApp Business Account."];
      id: LinkedWhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "The ID of the linked WhatsApp Business Account, formatted as waba-01234567890123456789012345678901."];
      wabaId: WhatsAppBusinessAccountId.t option
        [@ocaml.doc "The WhatsApp Business Account ID provided by Meta."];
      registrationStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The registration status of the linked WhatsApp Business Account."];
      linkDate: WhatsAppBusinessAccountLinkDate.t option
        [@ocaml.doc "The date the WhatsApp Business Account was linked."];
      wabaName: WhatsAppBusinessAccountName.t option
        [@ocaml.doc "The name of the linked WhatsApp Business Account."];
      eventDestinations: WhatsAppBusinessAccountEventDestinations.t option
        [@ocaml.doc
          "The event destinations for the linked WhatsApp Business Account."];
      marketingMessagesOnboardingStatus:
        WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.t option
        [@ocaml.doc
          "The onboarding status for the Marketing Messages API. This value is fetched from Meta and indicates whether the WhatsApp Business Account is onboarded for Meta's Marketing Messages API."]}
    let make ?arn =
      fun ?id ->
        fun ?wabaId ->
          fun ?registrationStatus ->
            fun ?linkDate ->
              fun ?wabaName ->
                fun ?eventDestinations ->
                  fun ?marketingMessagesOnboardingStatus ->
                    fun () ->
                      {
                        arn;
                        id;
                        wabaId;
                        registrationStatus;
                        linkDate;
                        wabaName;
                        eventDestinations;
                        marketingMessagesOnboardingStatus
                      }
    let to_value x =
      structure_to_value
        [("arn",
           (Option.map x.arn ~f:LinkedWhatsAppBusinessAccountArn.to_value));
        ("id", (Option.map x.id ~f:LinkedWhatsAppBusinessAccountId.to_value));
        ("wabaId",
          (Option.map x.wabaId ~f:WhatsAppBusinessAccountId.to_value));
        ("registrationStatus",
          (Option.map x.registrationStatus ~f:RegistrationStatus.to_value));
        ("linkDate",
          (Option.map x.linkDate ~f:WhatsAppBusinessAccountLinkDate.to_value));
        ("wabaName",
          (Option.map x.wabaName ~f:WhatsAppBusinessAccountName.to_value));
        ("eventDestinations",
          (Option.map x.eventDestinations
             ~f:WhatsAppBusinessAccountEventDestinations.to_value));
        ("marketingMessagesOnboardingStatus",
          (Option.map x.marketingMessagesOnboardingStatus
             ~f:WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marketingMessagesOnboardingStatus =
        (Option.map
           ~f:WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.of_xml)
          (Xml.child xml_arg0 "marketingMessagesOnboardingStatus") in
      let eventDestinations =
        (Option.map ~f:WhatsAppBusinessAccountEventDestinations.of_xml)
          (Xml.child xml_arg0 "eventDestinations") in
      let wabaName =
        (Option.map ~f:WhatsAppBusinessAccountName.of_xml)
          (Xml.child xml_arg0 "wabaName") in
      let linkDate =
        (Option.map ~f:WhatsAppBusinessAccountLinkDate.of_xml)
          (Xml.child xml_arg0 "linkDate") in
      let registrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "registrationStatus") in
      let wabaId =
        (Option.map ~f:WhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "wabaId") in
      let id =
        (Option.map ~f:LinkedWhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LinkedWhatsAppBusinessAccountArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?marketingMessagesOnboardingStatus ?eventDestinations ?wabaName
        ?linkDate ?registrationStatus ?wabaId ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marketingMessagesOnboardingStatus =
        field_map json__ "marketingMessagesOnboardingStatus"
          WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.of_json in
      let eventDestinations =
        field_map json__ "eventDestinations"
          WhatsAppBusinessAccountEventDestinations.of_json in
      let wabaName =
        field_map json__ "wabaName" WhatsAppBusinessAccountName.of_json in
      let linkDate =
        field_map json__ "linkDate" WhatsAppBusinessAccountLinkDate.of_json in
      let registrationStatus =
        field_map json__ "registrationStatus" RegistrationStatus.of_json in
      let wabaId =
        field_map json__ "wabaId" WhatsAppBusinessAccountId.of_json in
      let id = field_map json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let arn =
        field_map json__ "arn" LinkedWhatsAppBusinessAccountArn.of_json in
      make ?marketingMessagesOnboardingStatus ?eventDestinations ?wabaName
        ?linkDate ?registrationStatus ?wabaId ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a linked WhatsApp Business Account."]
module WhatsAppPhoneNumberSummaryList =
  struct
    type nonrec t = WhatsAppPhoneNumberSummary.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:WhatsAppPhoneNumberSummary.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:WhatsAppPhoneNumberSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WhatsAppPhoneNumberSummaryList"
        ~of_json:WhatsAppPhoneNumberSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module LibraryTemplateBodyInputs =
  struct
    type nonrec t =
      {
      addContactNumber: AddContactNumber.t option
        [@ocaml.doc
          "When true, includes a contact number in the template body."];
      addLearnMoreLink: AddLearnMoreLink.t option
        [@ocaml.doc
          "When true, includes a \"learn more\" link in the template body."];
      addSecurityRecommendation: AddSecurityRecommendation.t option
        [@ocaml.doc
          "When true, includes security recommendations in the template body."];
      addTrackPackageLink: AddTrackPackageLink.t option
        [@ocaml.doc
          "When true, includes a package tracking link in the template body."];
      codeExpirationMinutes: CodeExpirationMinutes.t option
        [@ocaml.doc
          "The number of minutes until a verification code or OTP expires."]}
    let make ?addContactNumber =
      fun ?addLearnMoreLink ->
        fun ?addSecurityRecommendation ->
          fun ?addTrackPackageLink ->
            fun ?codeExpirationMinutes ->
              fun () ->
                {
                  addContactNumber;
                  addLearnMoreLink;
                  addSecurityRecommendation;
                  addTrackPackageLink;
                  codeExpirationMinutes
                }
    let to_value x =
      structure_to_value
        [("addContactNumber",
           (Option.map x.addContactNumber ~f:AddContactNumber.to_value));
        ("addLearnMoreLink",
          (Option.map x.addLearnMoreLink ~f:AddLearnMoreLink.to_value));
        ("addSecurityRecommendation",
          (Option.map x.addSecurityRecommendation
             ~f:AddSecurityRecommendation.to_value));
        ("addTrackPackageLink",
          (Option.map x.addTrackPackageLink ~f:AddTrackPackageLink.to_value));
        ("codeExpirationMinutes",
          (Option.map x.codeExpirationMinutes
             ~f:CodeExpirationMinutes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let codeExpirationMinutes =
        (Option.map ~f:CodeExpirationMinutes.of_xml)
          (Xml.child xml_arg0 "codeExpirationMinutes") in
      let addTrackPackageLink =
        (Option.map ~f:AddTrackPackageLink.of_xml)
          (Xml.child xml_arg0 "addTrackPackageLink") in
      let addSecurityRecommendation =
        (Option.map ~f:AddSecurityRecommendation.of_xml)
          (Xml.child xml_arg0 "addSecurityRecommendation") in
      let addLearnMoreLink =
        (Option.map ~f:AddLearnMoreLink.of_xml)
          (Xml.child xml_arg0 "addLearnMoreLink") in
      let addContactNumber =
        (Option.map ~f:AddContactNumber.of_xml)
          (Xml.child xml_arg0 "addContactNumber") in
      make ?codeExpirationMinutes ?addTrackPackageLink
        ?addSecurityRecommendation ?addLearnMoreLink ?addContactNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let codeExpirationMinutes =
        field_map json__ "codeExpirationMinutes"
          CodeExpirationMinutes.of_json in
      let addTrackPackageLink =
        field_map json__ "addTrackPackageLink" AddTrackPackageLink.of_json in
      let addSecurityRecommendation =
        field_map json__ "addSecurityRecommendation"
          AddSecurityRecommendation.of_json in
      let addLearnMoreLink =
        field_map json__ "addLearnMoreLink" AddLearnMoreLink.of_json in
      let addContactNumber =
        field_map json__ "addContactNumber" AddContactNumber.of_json in
      make ?codeExpirationMinutes ?addTrackPackageLink
        ?addSecurityRecommendation ?addLearnMoreLink ?addContactNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration options for customizing the body content of a template from Meta's library."]
module MetaLibraryTemplateButtonInputs =
  struct
    type nonrec t = LibraryTemplateButtonInput.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:LibraryTemplateButtonInput.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:LibraryTemplateButtonInput.of_xml)
    let of_json j =
      list_of_json ~kind:"MetaLibraryTemplateButtonInputs"
        ~of_json:LibraryTemplateButtonInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociateInProgressToken =
  struct
    type nonrec t = string
    let context_ = "AssociateInProgressToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssociateInProgressToken" j
    let to_json = simple_to_json to_value
  end
module LinkedAccountWithIncompleteSetup =
  struct
    type nonrec t =
      (WhatsAppBusinessAccountId.t *
        LinkedWhatsAppBusinessAccountIdMetaData.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 WhatsAppBusinessAccountId LinkedWhatsAppBusinessAccountIdMetaData"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (WhatsAppBusinessAccountId.to_value x) |>
                    (fun x ->
                       (LinkedWhatsAppBusinessAccountIdMetaData.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:WhatsAppBusinessAccountId.of_string
        ~of_json:LinkedWhatsAppBusinessAccountIdMetaData.of_json j
    let to_json v = composed_to_json to_value v
  end
module WabaPhoneNumberSetupFinalizationList =
  struct
    type nonrec t = WabaPhoneNumberSetupFinalization.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:WabaPhoneNumberSetupFinalization.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:WabaPhoneNumberSetupFinalization.of_xml)
    let of_json j =
      list_of_json ~kind:"WabaPhoneNumberSetupFinalizationList"
        ~of_json:WabaPhoneNumberSetupFinalization.of_json j
    let to_json v = composed_to_json to_value v
  end
module WabaSetupFinalization =
  struct
    type nonrec t =
      {
      id: WhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "The ID of the linked WhatsApp Business Account, formatted as waba-01234567890123456789012345678901."];
      eventDestinations: WhatsAppBusinessAccountEventDestinations.t option
        [@ocaml.doc
          "The event destinations for the linked WhatsApp Business Account."];
      tags: TagList.t option
        [@ocaml.doc "An array of key and value pair tags."]}
    let make ?id =
      fun ?eventDestinations ->
        fun ?tags -> fun () -> { id; eventDestinations; tags }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:WhatsAppBusinessAccountId.to_value));
        ("eventDestinations",
          (Option.map x.eventDestinations
             ~f:WhatsAppBusinessAccountEventDestinations.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 eventDestinations =
        (Option.map ~f:WhatsAppBusinessAccountEventDestinations.of_xml)
          (Xml.child xml_arg0 "eventDestinations") in
      let id =
        (Option.map ~f:WhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?tags ?eventDestinations ?id ()
    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 eventDestinations =
        field_map json__ "eventDestinations"
          WhatsAppBusinessAccountEventDestinations.of_json in
      let id = field_map json__ "id" WhatsAppBusinessAccountId.of_json in
      make ?tags ?eventDestinations ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The registration details for a linked WhatsApp Business Account."]
module WhatsAppSignupCallbackAccessTokenString =
  struct
    type nonrec t = string
    let context_ = "WhatsAppSignupCallbackAccessTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"WhatsAppSignupCallbackAccessTokenString" j
    let to_json = simple_to_json to_value
  end
module WhatsAppSignupCallbackCallbackUrlString =
  struct
    type nonrec t = string
    let context_ = "WhatsAppSignupCallbackCallbackUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"WhatsAppSignupCallbackCallbackUrlString" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module DependencyException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when performing an action because a dependency would be broken."]
module InternalServiceException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request processing has failed because of an unknown error, exception, or failure."]
module InvalidParametersException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more parameters provided to the action are not valid."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource was not found."]
module ThrottledRequestException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request contains an invalid parameter value."]
module MetaParameterFormat =
  struct
    type nonrec t = string
    let context_ = "MetaParameterFormat"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:15) >>=
             (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:"MetaParameterFormat" j
    let to_json = simple_to_json to_value
  end
module MetaTemplateComponents =
  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 MetaTemplateCtaLinkTrackingOptedOut =
  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 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 Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module 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 WhatsAppMessageBlob =
  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 AccessDeniedByMetaException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module WhatsAppMediaId =
  struct
    type nonrec t = string
    let context_ = "WhatsAppMediaId"
    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:"WhatsAppMediaId" j
    let to_json = simple_to_json to_value
  end
module S3File =
  struct
    type nonrec t =
      {
      bucketName: S3FileBucketNameString.t [@ocaml.doc "The bucket name."];
      key: S3FileKeyString.t
        [@ocaml.doc
          "The S3 key prefix that defines the storage location of your media files. The prefix works like a folder path in S3, and is combined with the WhatsApp mediaId to create the final file path. For example, if a media file's WhatsApp mediaId is 123.ogg, and the key is audio/example.ogg, the final file path is audio/example.ogg123.ogg. For the same mediaId, a key of audio/ results in the file path audio/123.ogg."]}
    let context_ = "S3File"
    let make ~bucketName = fun ~key -> fun () -> { bucketName; key }
    let to_value x =
      structure_to_value
        [("bucketName",
           (Some (S3FileBucketNameString.to_value x.bucketName)));
        ("key", (Some (S3FileKeyString.to_value x.key)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key =
        S3FileKeyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "key") in
      let bucketName =
        S3FileBucketNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ~key ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map_exn json__ "key" S3FileKeyString.of_json in
      let bucketName =
        field_map_exn json__ "bucketName" S3FileBucketNameString.of_json in
      make ~key ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information for the S3 bucket that contains media files."]
module S3PresignedUrl =
  struct
    type nonrec t =
      {
      url: S3PresignedUrlUrlString.t
        [@ocaml.doc "The presign url to the object."];
      headers: Headers.t
        [@ocaml.doc
          "A map of headers and their values. You must specify the Content-Type header when using PostWhatsAppMessageMedia. For a list of common headers, see Common Request Headers in the Amazon S3 API Reference"]}
    let context_ = "S3PresignedUrl"
    let make ~url = fun ~headers -> fun () -> { url; headers }
    let to_value x =
      structure_to_value
        [("url", (Some (S3PresignedUrlUrlString.to_value x.url)));
        ("headers", (Some (Headers.to_value x.headers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headers =
        Headers.of_xml (Xml.child_exn ~context:context_ xml_arg0 "headers") in
      let url =
        S3PresignedUrlUrlString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "url") in
      make ~headers ~url ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headers = field_map_exn json__ "headers" Headers.of_json in
      let url = field_map_exn json__ "url" S3PresignedUrlUrlString.of_json in
      make ~headers ~url ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use presigned URLs to grant time-limited access to objects in Amazon S3 without updating your bucket policy. For more information, see Working with presigned URLs in the Amazon S3 User Guide."]
module MetaLibraryTemplatesList =
  struct
    type nonrec t = MetaLibraryTemplateDefinition.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:MetaLibraryTemplateDefinition.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:MetaLibraryTemplateDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"MetaLibraryTemplatesList"
        ~of_json:MetaLibraryTemplateDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:600) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module Filter =
  struct
    type nonrec t = (FilterKeyString.t * FilterValueString.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 ->
                            ((FilterKeyString.of_string chopped),
                              (FilterValueString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (FilterKeyString.to_value x) |>
                    (fun x ->
                       (FilterValueString.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:FilterKeyString.of_string
        ~of_json:FilterValueString.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 TemplateSummaryList =
  struct
    type nonrec t = TemplateSummary.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:TemplateSummary.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:TemplateSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TemplateSummaryList"
        ~of_json:TemplateSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkedWhatsAppBusinessAccountSummaryList =
  struct
    type nonrec t = LinkedWhatsAppBusinessAccountSummary.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:LinkedWhatsAppBusinessAccountSummary.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:LinkedWhatsAppBusinessAccountSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"LinkedWhatsAppBusinessAccountSummaryList"
        ~of_json:LinkedWhatsAppBusinessAccountSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetaTemplate =
  struct
    type nonrec t = string
    let context_ = "MetaTemplate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:6000) >>=
             (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:"MetaTemplate" j
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module 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 LinkedWhatsAppBusinessAccount =
  struct
    type nonrec t =
      {
      arn: LinkedWhatsAppBusinessAccountArn.t option
        [@ocaml.doc "The ARN of the linked WhatsApp Business Account."];
      id: LinkedWhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "The ID of the linked WhatsApp Business Account, formatted as waba-01234567890123456789012345678901."];
      wabaId: WhatsAppBusinessAccountId.t option
        [@ocaml.doc "The WhatsApp Business Account ID from meta."];
      registrationStatus: RegistrationStatus.t option
        [@ocaml.doc
          "The registration status of the linked WhatsApp Business Account."];
      linkDate: WhatsAppBusinessAccountLinkDate.t option
        [@ocaml.doc "The date the WhatsApp Business Account was linked."];
      wabaName: WhatsAppBusinessAccountName.t option
        [@ocaml.doc "The name of the linked WhatsApp Business Account."];
      eventDestinations: WhatsAppBusinessAccountEventDestinations.t option
        [@ocaml.doc
          "The event destinations for the linked WhatsApp Business Account."];
      marketingMessagesOnboardingStatus:
        WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.t option
        [@ocaml.doc
          "The onboarding status for the Marketing Messages API. This value is fetched from Meta and indicates whether the WhatsApp Business Account is onboarded for Meta's Marketing Messages API."];
      phoneNumbers: WhatsAppPhoneNumberSummaryList.t option
        [@ocaml.doc
          "The phone numbers associated with the Linked WhatsApp Business Account."]}
    let make ?arn =
      fun ?id ->
        fun ?wabaId ->
          fun ?registrationStatus ->
            fun ?linkDate ->
              fun ?wabaName ->
                fun ?eventDestinations ->
                  fun ?marketingMessagesOnboardingStatus ->
                    fun ?phoneNumbers ->
                      fun () ->
                        {
                          arn;
                          id;
                          wabaId;
                          registrationStatus;
                          linkDate;
                          wabaName;
                          eventDestinations;
                          marketingMessagesOnboardingStatus;
                          phoneNumbers
                        }
    let to_value x =
      structure_to_value
        [("arn",
           (Option.map x.arn ~f:LinkedWhatsAppBusinessAccountArn.to_value));
        ("id", (Option.map x.id ~f:LinkedWhatsAppBusinessAccountId.to_value));
        ("wabaId",
          (Option.map x.wabaId ~f:WhatsAppBusinessAccountId.to_value));
        ("registrationStatus",
          (Option.map x.registrationStatus ~f:RegistrationStatus.to_value));
        ("linkDate",
          (Option.map x.linkDate ~f:WhatsAppBusinessAccountLinkDate.to_value));
        ("wabaName",
          (Option.map x.wabaName ~f:WhatsAppBusinessAccountName.to_value));
        ("eventDestinations",
          (Option.map x.eventDestinations
             ~f:WhatsAppBusinessAccountEventDestinations.to_value));
        ("marketingMessagesOnboardingStatus",
          (Option.map x.marketingMessagesOnboardingStatus
             ~f:WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.to_value));
        ("phoneNumbers",
          (Option.map x.phoneNumbers
             ~f:WhatsAppPhoneNumberSummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumbers =
        (Option.map ~f:WhatsAppPhoneNumberSummaryList.of_xml)
          (Xml.child xml_arg0 "phoneNumbers") in
      let marketingMessagesOnboardingStatus =
        (Option.map
           ~f:WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.of_xml)
          (Xml.child xml_arg0 "marketingMessagesOnboardingStatus") in
      let eventDestinations =
        (Option.map ~f:WhatsAppBusinessAccountEventDestinations.of_xml)
          (Xml.child xml_arg0 "eventDestinations") in
      let wabaName =
        (Option.map ~f:WhatsAppBusinessAccountName.of_xml)
          (Xml.child xml_arg0 "wabaName") in
      let linkDate =
        (Option.map ~f:WhatsAppBusinessAccountLinkDate.of_xml)
          (Xml.child xml_arg0 "linkDate") in
      let registrationStatus =
        (Option.map ~f:RegistrationStatus.of_xml)
          (Xml.child xml_arg0 "registrationStatus") in
      let wabaId =
        (Option.map ~f:WhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "wabaId") in
      let id =
        (Option.map ~f:LinkedWhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LinkedWhatsAppBusinessAccountArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?phoneNumbers ?marketingMessagesOnboardingStatus
        ?eventDestinations ?wabaName ?linkDate ?registrationStatus ?wabaId
        ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumbers =
        field_map json__ "phoneNumbers"
          WhatsAppPhoneNumberSummaryList.of_json in
      let marketingMessagesOnboardingStatus =
        field_map json__ "marketingMessagesOnboardingStatus"
          WhatsAppBusinessAccountMarketingMessagesOnboardingStatus.of_json in
      let eventDestinations =
        field_map json__ "eventDestinations"
          WhatsAppBusinessAccountEventDestinations.of_json in
      let wabaName =
        field_map json__ "wabaName" WhatsAppBusinessAccountName.of_json in
      let linkDate =
        field_map json__ "linkDate" WhatsAppBusinessAccountLinkDate.of_json in
      let registrationStatus =
        field_map json__ "registrationStatus" RegistrationStatus.of_json in
      let wabaId =
        field_map json__ "wabaId" WhatsAppBusinessAccountId.of_json in
      let id = field_map json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let arn =
        field_map json__ "arn" LinkedWhatsAppBusinessAccountArn.of_json in
      make ?phoneNumbers ?marketingMessagesOnboardingStatus
        ?eventDestinations ?wabaName ?linkDate ?registrationStatus ?wabaId
        ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of your linked WhatsApp Business Account."]
module DeleteAllLanguages =
  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 MetaTemplateDefinition =
  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 MetaLibraryTemplate =
  struct
    type nonrec t =
      {
      templateName: MetaTemplateName.t
        [@ocaml.doc "The name to assign to the template."];
      libraryTemplateName: MetaTemplateName.t
        [@ocaml.doc "The name of the template in Meta's library."];
      templateCategory: MetaTemplateCategory.t
        [@ocaml.doc
          "The category of the template (for example, UTILITY or MARKETING)."];
      templateLanguage: MetaTemplateLanguage.t
        [@ocaml.doc
          "The language code for the template (for example, en_US)."];
      libraryTemplateButtonInputs: MetaLibraryTemplateButtonInputs.t option
        [@ocaml.doc "Button customizations for the template."];
      libraryTemplateBodyInputs: LibraryTemplateBodyInputs.t option
        [@ocaml.doc "Body text customizations for the template."]}
    let context_ = "MetaLibraryTemplate"
    let make ?libraryTemplateButtonInputs =
      fun ?libraryTemplateBodyInputs ->
        fun ~templateName ->
          fun ~libraryTemplateName ->
            fun ~templateCategory ->
              fun ~templateLanguage ->
                fun () ->
                  {
                    libraryTemplateButtonInputs;
                    libraryTemplateBodyInputs;
                    templateName;
                    libraryTemplateName;
                    templateCategory;
                    templateLanguage
                  }
    let to_value x =
      structure_to_value
        [("templateName", (Some (MetaTemplateName.to_value x.templateName)));
        ("libraryTemplateName",
          (Some (MetaTemplateName.to_value x.libraryTemplateName)));
        ("templateCategory",
          (Some (MetaTemplateCategory.to_value x.templateCategory)));
        ("templateLanguage",
          (Some (MetaTemplateLanguage.to_value x.templateLanguage)));
        ("libraryTemplateButtonInputs",
          (Option.map x.libraryTemplateButtonInputs
             ~f:MetaLibraryTemplateButtonInputs.to_value));
        ("libraryTemplateBodyInputs",
          (Option.map x.libraryTemplateBodyInputs
             ~f:LibraryTemplateBodyInputs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryTemplateBodyInputs =
        (Option.map ~f:LibraryTemplateBodyInputs.of_xml)
          (Xml.child xml_arg0 "libraryTemplateBodyInputs") in
      let libraryTemplateButtonInputs =
        (Option.map ~f:MetaLibraryTemplateButtonInputs.of_xml)
          (Xml.child xml_arg0 "libraryTemplateButtonInputs") in
      let templateLanguage =
        MetaTemplateLanguage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateLanguage") in
      let templateCategory =
        MetaTemplateCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateCategory") in
      let libraryTemplateName =
        MetaTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryTemplateName") in
      let templateName =
        MetaTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateName") in
      make ?libraryTemplateBodyInputs ?libraryTemplateButtonInputs
        ~templateLanguage ~templateCategory ~libraryTemplateName
        ~templateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryTemplateBodyInputs =
        field_map json__ "libraryTemplateBodyInputs"
          LibraryTemplateBodyInputs.of_json in
      let libraryTemplateButtonInputs =
        field_map json__ "libraryTemplateButtonInputs"
          MetaLibraryTemplateButtonInputs.of_json in
      let templateLanguage =
        field_map_exn json__ "templateLanguage" MetaTemplateLanguage.of_json in
      let templateCategory =
        field_map_exn json__ "templateCategory" MetaTemplateCategory.of_json in
      let libraryTemplateName =
        field_map_exn json__ "libraryTemplateName" MetaTemplateName.of_json in
      let templateName =
        field_map_exn json__ "templateName" MetaTemplateName.of_json in
      make ?libraryTemplateBodyInputs ?libraryTemplateButtonInputs
        ~templateLanguage ~templateCategory ~libraryTemplateName
        ~templateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a template from Meta's library with customization options."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because it would exceed one or more service quotas or limits."]
module WhatsAppSignupCallbackResult =
  struct
    type nonrec t =
      {
      associateInProgressToken: AssociateInProgressToken.t option
        [@ocaml.doc
          "An Amazon Web Services access token generated by WhatsAppSignupCallback and used by WhatsAppSetupFinalization."];
      linkedAccountsWithIncompleteSetup:
        LinkedAccountWithIncompleteSetup.t option
        [@ocaml.doc
          "A LinkedWhatsAppBusinessAccountIdMetaData object map containing the details of any WhatsAppBusiness accounts that have incomplete setup."]}
    let make ?associateInProgressToken =
      fun ?linkedAccountsWithIncompleteSetup ->
        fun () ->
          { associateInProgressToken; linkedAccountsWithIncompleteSetup }
    let to_value x =
      structure_to_value
        [("associateInProgressToken",
           (Option.map x.associateInProgressToken
              ~f:AssociateInProgressToken.to_value));
        ("linkedAccountsWithIncompleteSetup",
          (Option.map x.linkedAccountsWithIncompleteSetup
             ~f:LinkedAccountWithIncompleteSetup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkedAccountsWithIncompleteSetup =
        (Option.map ~f:LinkedAccountWithIncompleteSetup.of_xml)
          (Xml.child xml_arg0 "linkedAccountsWithIncompleteSetup") in
      let associateInProgressToken =
        (Option.map ~f:AssociateInProgressToken.of_xml)
          (Xml.child xml_arg0 "associateInProgressToken") in
      make ?linkedAccountsWithIncompleteSetup ?associateInProgressToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkedAccountsWithIncompleteSetup =
        field_map json__ "linkedAccountsWithIncompleteSetup"
          LinkedAccountWithIncompleteSetup.of_json in
      let associateInProgressToken =
        field_map json__ "associateInProgressToken"
          AssociateInProgressToken.of_json in
      make ?linkedAccountsWithIncompleteSetup ?associateInProgressToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of WhatsAppSignupCallback."]
module WhatsAppSetupFinalization =
  struct
    type nonrec t =
      {
      associateInProgressToken: AssociateInProgressToken.t
        [@ocaml.doc
          "An Amazon Web Services access token generated by WhatsAppSignupCallback and used by WhatsAppSetupFinalization."];
      phoneNumbers: WabaPhoneNumberSetupFinalizationList.t
        [@ocaml.doc
          "An array of WabaPhoneNumberSetupFinalization objects containing the details of each phone number associated with the WhatsApp Business Account."];
      phoneNumberParent: LinkedWhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "Used to add a new phone number to an existing WhatsApp Business Account. This field can't be used when the waba field is present."];
      waba: WabaSetupFinalization.t option
        [@ocaml.doc
          "Used to create a new WhatsApp Business Account and add a phone number. This field can't be used when the phoneNumberParent field is present."]}
    let context_ = "WhatsAppSetupFinalization"
    let make ?phoneNumberParent =
      fun ?waba ->
        fun ~associateInProgressToken ->
          fun ~phoneNumbers ->
            fun () ->
              {
                phoneNumberParent;
                waba;
                associateInProgressToken;
                phoneNumbers
              }
    let to_value x =
      structure_to_value
        [("associateInProgressToken",
           (Some
              (AssociateInProgressToken.to_value x.associateInProgressToken)));
        ("phoneNumbers",
          (Some
             (WabaPhoneNumberSetupFinalizationList.to_value x.phoneNumbers)));
        ("phoneNumberParent",
          (Option.map x.phoneNumberParent
             ~f:LinkedWhatsAppBusinessAccountId.to_value));
        ("waba", (Option.map x.waba ~f:WabaSetupFinalization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let waba =
        (Option.map ~f:WabaSetupFinalization.of_xml)
          (Xml.child xml_arg0 "waba") in
      let phoneNumberParent =
        (Option.map ~f:LinkedWhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "phoneNumberParent") in
      let phoneNumbers =
        WabaPhoneNumberSetupFinalizationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumbers") in
      let associateInProgressToken =
        AssociateInProgressToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "associateInProgressToken") in
      make ?waba ?phoneNumberParent ~phoneNumbers ~associateInProgressToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let waba = field_map json__ "waba" WabaSetupFinalization.of_json in
      let phoneNumberParent =
        field_map json__ "phoneNumberParent"
          LinkedWhatsAppBusinessAccountId.of_json in
      let phoneNumbers =
        field_map_exn json__ "phoneNumbers"
          WabaPhoneNumberSetupFinalizationList.of_json in
      let associateInProgressToken =
        field_map_exn json__ "associateInProgressToken"
          AssociateInProgressToken.of_json in
      make ?waba ?phoneNumberParent ~phoneNumbers ~associateInProgressToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of linking a WhatsApp Business Account to your Amazon Web Services account."]
module WhatsAppSignupCallback =
  struct
    type nonrec t =
      {
      accessToken: WhatsAppSignupCallbackAccessTokenString.t
        [@ocaml.doc
          "The access token for your WhatsApp Business Account. The accessToken value is provided by Meta."];
      callbackUrl: WhatsAppSignupCallbackCallbackUrlString.t option
        [@ocaml.doc
          "The URL where WhatsApp will send callback notifications for this account."]}
    let context_ = "WhatsAppSignupCallback"
    let make ?callbackUrl =
      fun ~accessToken -> fun () -> { callbackUrl; accessToken }
    let to_value x =
      structure_to_value
        [("accessToken",
           (Some
              (WhatsAppSignupCallbackAccessTokenString.to_value x.accessToken)));
        ("callbackUrl",
          (Option.map x.callbackUrl
             ~f:WhatsAppSignupCallbackCallbackUrlString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callbackUrl =
        (Option.map ~f:WhatsAppSignupCallbackCallbackUrlString.of_xml)
          (Xml.child xml_arg0 "callbackUrl") in
      let accessToken =
        WhatsAppSignupCallbackAccessTokenString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accessToken") in
      make ?callbackUrl ~accessToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callbackUrl =
        field_map json__ "callbackUrl"
          WhatsAppSignupCallbackCallbackUrlString.of_json in
      let accessToken =
        field_map_exn json__ "accessToken"
          WhatsAppSignupCallbackAccessTokenString.of_json in
      make ?callbackUrl ~accessToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the accessToken provided by Meta during signup."]
module UpdateWhatsAppMessageTemplateOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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 "Updates an existing WhatsApp message template."]
module UpdateWhatsAppMessageTemplateInput =
  struct
    type nonrec t =
      {
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account associated with this template."];
      metaTemplateId: MetaTemplateId.t option
        [@ocaml.doc "The numeric ID of the template assigned by Meta."];
      templateName: MetaTemplateName.t option
        [@ocaml.doc
          "The name of the message template. Use together with templateLanguageCode as an alternative to metaTemplateId to identify a template."];
      templateLanguageCode: MetaTemplateLanguage.t option
        [@ocaml.doc
          "The language code of the message template (for example, en or en_US). Use together with templateName as an alternative to metaTemplateId to identify a template."];
      parameterFormat: MetaParameterFormat.t option
        [@ocaml.doc
          "The format specification for parameters in the template, this can be either 'named' or 'positional'."];
      templateCategory: MetaTemplateCategory.t option
        [@ocaml.doc
          "The new category for the template (for example, UTILITY or MARKETING)."];
      templateComponents: MetaTemplateComponents.t option
        [@ocaml.doc
          "The updated components of the template as a JSON blob (maximum 3000 characters)."];
      ctaUrlLinkTrackingOptedOut:
        MetaTemplateCtaLinkTrackingOptedOut.t option
        [@ocaml.doc
          "When true, disables click tracking for call-to-action URL buttons in the template."]}
    let context_ = "UpdateWhatsAppMessageTemplateInput"
    let make ?metaTemplateId =
      fun ?templateName ->
        fun ?templateLanguageCode ->
          fun ?parameterFormat ->
            fun ?templateCategory ->
              fun ?templateComponents ->
                fun ?ctaUrlLinkTrackingOptedOut ->
                  fun ~id ->
                    fun () ->
                      {
                        metaTemplateId;
                        templateName;
                        templateLanguageCode;
                        parameterFormat;
                        templateCategory;
                        templateComponents;
                        ctaUrlLinkTrackingOptedOut;
                        id
                      }
    let to_value x =
      structure_to_value
        [("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("metaTemplateId",
          (Option.map x.metaTemplateId ~f:MetaTemplateId.to_value));
        ("templateName",
          (Option.map x.templateName ~f:MetaTemplateName.to_value));
        ("templateLanguageCode",
          (Option.map x.templateLanguageCode ~f:MetaTemplateLanguage.to_value));
        ("parameterFormat",
          (Option.map x.parameterFormat ~f:MetaParameterFormat.to_value));
        ("templateCategory",
          (Option.map x.templateCategory ~f:MetaTemplateCategory.to_value));
        ("templateComponents",
          (Option.map x.templateComponents ~f:MetaTemplateComponents.to_value));
        ("ctaUrlLinkTrackingOptedOut",
          (Option.map x.ctaUrlLinkTrackingOptedOut
             ~f:MetaTemplateCtaLinkTrackingOptedOut.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ctaUrlLinkTrackingOptedOut =
        (Option.map ~f:MetaTemplateCtaLinkTrackingOptedOut.of_xml)
          (Xml.child xml_arg0 "ctaUrlLinkTrackingOptedOut") in
      let templateComponents =
        (Option.map ~f:MetaTemplateComponents.of_xml)
          (Xml.child xml_arg0 "templateComponents") in
      let templateCategory =
        (Option.map ~f:MetaTemplateCategory.of_xml)
          (Xml.child xml_arg0 "templateCategory") in
      let parameterFormat =
        (Option.map ~f:MetaParameterFormat.of_xml)
          (Xml.child xml_arg0 "parameterFormat") in
      let templateLanguageCode =
        (Option.map ~f:MetaTemplateLanguage.of_xml)
          (Xml.child xml_arg0 "templateLanguageCode") in
      let templateName =
        (Option.map ~f:MetaTemplateName.of_xml)
          (Xml.child xml_arg0 "templateName") in
      let metaTemplateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "metaTemplateId") in
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?ctaUrlLinkTrackingOptedOut ?templateComponents ?templateCategory
        ?parameterFormat ?templateLanguageCode ?templateName ?metaTemplateId
        ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ctaUrlLinkTrackingOptedOut =
        field_map json__ "ctaUrlLinkTrackingOptedOut"
          MetaTemplateCtaLinkTrackingOptedOut.of_json in
      let templateComponents =
        field_map json__ "templateComponents" MetaTemplateComponents.of_json in
      let templateCategory =
        field_map json__ "templateCategory" MetaTemplateCategory.of_json in
      let parameterFormat =
        field_map json__ "parameterFormat" MetaParameterFormat.of_json in
      let templateLanguageCode =
        field_map json__ "templateLanguageCode" MetaTemplateLanguage.of_json in
      let templateName =
        field_map json__ "templateName" MetaTemplateName.of_json in
      let metaTemplateId =
        field_map json__ "metaTemplateId" MetaTemplateId.of_json in
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      make ?ctaUrlLinkTrackingOptedOut ?templateComponents ?templateCategory
        ?parameterFormat ?templateLanguageCode ?templateName ?metaTemplateId
        ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing WhatsApp message template."]
module UntagResourceOutput =
  struct
    type nonrec t =
      {
      statusCode: Integer.t option
        [@ocaml.doc "The status code of the untag resource operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?statusCode = fun () -> { statusCode }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("statusCode", (Option.map x.statusCode ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusCode =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "statusCode") in
      make ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusCode = field_map json__ "statusCode" Integer.of_json in
      make ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from a resource."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to remove tags from."];
      tagKeys: StringList.t
        [@ocaml.doc "The keys of the tags to remove from the resource."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (StringList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" StringList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from a resource."]
module TagResourceOutput =
  struct
    type nonrec t =
      {
      statusCode: Integer.t option
        [@ocaml.doc "The status code of the tag resource operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?statusCode = fun () -> { statusCode }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("statusCode", (Option.map x.statusCode ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusCode =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "statusCode") in
      make ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusCode = field_map json__ "statusCode" Integer.of_json in
      make ?statusCode ()
    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."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource to tag."];
      tags: TagList.t [@ocaml.doc "The tags to add to the resource."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "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."]
module SendWhatsAppMessageOutput =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier of the message."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
       "Send a WhatsApp message. For examples of sending a message using the Amazon Web Services CLI, see Sending messages in the Amazon Web Services End User Messaging Social User Guide ."]
module SendWhatsAppMessageInput =
  struct
    type nonrec t =
      {
      originationPhoneNumberId: WhatsAppPhoneNumberId.t
        [@ocaml.doc
          "The ID of the phone number used to send the WhatsApp message. If you are sending a media file only the originationPhoneNumberId used to upload the file can be used. Phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901. Use GetLinkedWhatsAppBusinessAccount to find a phone number's id."];
      message: WhatsAppMessageBlob.t
        [@ocaml.doc
          "The message to send through WhatsApp. The length is in KB. The message field passes through a WhatsApp Message object, see Messages in the WhatsApp Business Platform Cloud API Reference."];
      metaApiVersion: String_.t
        [@ocaml.doc
          "The API version for the request formatted as v\\{VersionNumber\\}. For a list of supported API versions and Amazon Web Services Regions, see Amazon Web Services End User Messaging Social API Service Endpoints in the Amazon Web Services General Reference."]}
    let context_ = "SendWhatsAppMessageInput"
    let make ~originationPhoneNumberId =
      fun ~message ->
        fun ~metaApiVersion ->
          fun () -> { originationPhoneNumberId; message; metaApiVersion }
    let to_value x =
      structure_to_value
        [("originationPhoneNumberId",
           (Some (WhatsAppPhoneNumberId.to_value x.originationPhoneNumberId)));
        ("message", (Some (WhatsAppMessageBlob.to_value x.message)));
        ("metaApiVersion", (Some (String_.to_value x.metaApiVersion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metaApiVersion =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "metaApiVersion") in
      let message =
        WhatsAppMessageBlob.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "message") in
      let originationPhoneNumberId =
        WhatsAppPhoneNumberId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "originationPhoneNumberId") in
      make ~metaApiVersion ~message ~originationPhoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metaApiVersion =
        field_map_exn json__ "metaApiVersion" String_.of_json in
      let message =
        field_map_exn json__ "message" WhatsAppMessageBlob.of_json in
      let originationPhoneNumberId =
        field_map_exn json__ "originationPhoneNumberId"
          WhatsAppPhoneNumberId.of_json in
      make ~metaApiVersion ~message ~originationPhoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Send a WhatsApp message. For examples of sending a message using the Amazon Web Services CLI, see Sending messages in the Amazon Web Services End User Messaging Social User Guide ."]
module PutWhatsAppBusinessAccountEventDestinationsOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ThrottledRequestException of ThrottledRequestException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
       "Add an event destination to log event data from WhatsApp for a WhatsApp Business Account (WABA). A WABA can only have one event destination at a time. All resources associated with the WABA use the same event destination."]
module PutWhatsAppBusinessAccountEventDestinationsInput =
  struct
    type nonrec t =
      {
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The unique identifier of your WhatsApp Business Account. WABA identifiers are formatted as waba-01234567890123456789012345678901. Use ListLinkedWhatsAppBusinessAccounts to list all WABAs and their details."];
      eventDestinations: WhatsAppBusinessAccountEventDestinations.t
        [@ocaml.doc
          "An array of WhatsAppBusinessAccountEventDestination event destinations."]}
    let context_ = "PutWhatsAppBusinessAccountEventDestinationsInput"
    let make ~id =
      fun ~eventDestinations -> fun () -> { id; eventDestinations }
    let to_value x =
      structure_to_value
        [("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("eventDestinations",
          (Some
             (WhatsAppBusinessAccountEventDestinations.to_value
                x.eventDestinations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventDestinations =
        WhatsAppBusinessAccountEventDestinations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventDestinations") in
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~eventDestinations ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventDestinations =
        field_map_exn json__ "eventDestinations"
          WhatsAppBusinessAccountEventDestinations.of_json in
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      make ~eventDestinations ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add an event destination to log event data from WhatsApp for a WhatsApp Business Account (WABA). A WABA can only have one event destination at a time. All resources associated with the WABA use the same event destination."]
module PostWhatsAppMessageMediaOutput =
  struct
    type nonrec t =
      {
      mediaId: WhatsAppMediaId.t option
        [@ocaml.doc "The unique identifier of the posted WhatsApp message."]}
    type nonrec error =
      [ `AccessDeniedByMetaException of AccessDeniedByMetaException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mediaId = fun () -> { mediaId }
    let error_of_json name json =
      match name with
      | "AccessDeniedByMetaException" ->
          `AccessDeniedByMetaException
            (AccessDeniedByMetaException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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
      | "AccessDeniedByMetaException" ->
          `AccessDeniedByMetaException
            (AccessDeniedByMetaException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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
      | `AccessDeniedByMetaException e ->
          `Assoc
            [("error", (`String "AccessDeniedByMetaException"));
            ("details", (AccessDeniedByMetaException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("mediaId", (Option.map x.mediaId ~f:WhatsAppMediaId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mediaId =
        (Option.map ~f:WhatsAppMediaId.of_xml) (Xml.child xml_arg0 "mediaId") in
      make ?mediaId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mediaId = field_map json__ "mediaId" WhatsAppMediaId.of_json in
      make ?mediaId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Upload a media file to the WhatsApp service. Only the specified originationPhoneNumberId has the permissions to send the media file when using SendWhatsAppMessage. You must use either sourceS3File or sourceS3PresignedUrl for the source. If both or neither are specified then an InvalidParameterException is returned."]
module PostWhatsAppMessageMediaInput =
  struct
    type nonrec t =
      {
      originationPhoneNumberId: WhatsAppPhoneNumberId.t
        [@ocaml.doc
          "The ID of the phone number to associate with the WhatsApp media file. The phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901. Use GetLinkedWhatsAppBusinessAccount to find a phone number's id."];
      sourceS3PresignedUrl: S3PresignedUrl.t option
        [@ocaml.doc "The source presign url of the media file."];
      sourceS3File: S3File.t option
        [@ocaml.doc "The source S3 url for the media file."]}
    let context_ = "PostWhatsAppMessageMediaInput"
    let make ?sourceS3PresignedUrl =
      fun ?sourceS3File ->
        fun ~originationPhoneNumberId ->
          fun () ->
            { sourceS3PresignedUrl; sourceS3File; originationPhoneNumberId }
    let to_value x =
      structure_to_value
        [("originationPhoneNumberId",
           (Some (WhatsAppPhoneNumberId.to_value x.originationPhoneNumberId)));
        ("sourceS3PresignedUrl",
          (Option.map x.sourceS3PresignedUrl ~f:S3PresignedUrl.to_value));
        ("sourceS3File", (Option.map x.sourceS3File ~f:S3File.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceS3File =
        (Option.map ~f:S3File.of_xml) (Xml.child xml_arg0 "sourceS3File") in
      let sourceS3PresignedUrl =
        (Option.map ~f:S3PresignedUrl.of_xml)
          (Xml.child xml_arg0 "sourceS3PresignedUrl") in
      let originationPhoneNumberId =
        WhatsAppPhoneNumberId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "originationPhoneNumberId") in
      make ?sourceS3File ?sourceS3PresignedUrl ~originationPhoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceS3File = field_map json__ "sourceS3File" S3File.of_json in
      let sourceS3PresignedUrl =
        field_map json__ "sourceS3PresignedUrl" S3PresignedUrl.of_json in
      let originationPhoneNumberId =
        field_map_exn json__ "originationPhoneNumberId"
          WhatsAppPhoneNumberId.of_json in
      make ?sourceS3File ?sourceS3PresignedUrl ~originationPhoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Upload a media file to the WhatsApp service. Only the specified originationPhoneNumberId has the permissions to send the media file when using SendWhatsAppMessage. You must use either sourceS3File or sourceS3PresignedUrl for the source. If both or neither are specified then an InvalidParameterException is returned."]
module ListWhatsAppTemplateLibraryOutput =
  struct
    type nonrec t =
      {
      metaLibraryTemplates: MetaLibraryTemplatesList.t option
        [@ocaml.doc "A list of templates from Meta's library."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to retrieve the next page of results, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metaLibraryTemplates =
      fun ?nextToken -> fun () -> { metaLibraryTemplates; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("metaLibraryTemplates",
           (Option.map x.metaLibraryTemplates
              ~f:MetaLibraryTemplatesList.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 metaLibraryTemplates =
        (Option.map ~f:MetaLibraryTemplatesList.of_xml)
          (Xml.child xml_arg0 "metaLibraryTemplates") in
      make ?nextToken ?metaLibraryTemplates ()
    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 metaLibraryTemplates =
        field_map json__ "metaLibraryTemplates"
          MetaLibraryTemplatesList.of_json in
      make ?nextToken ?metaLibraryTemplates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists templates available in Meta's template library for WhatsApp messaging."]
module ListWhatsAppTemplateLibraryInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per page (1-100)."];
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account to list library templates for."];
      filters: Filter.t option
        [@ocaml.doc
          "Map of filters to apply (searchKey, topic, usecase, industry, language)."]}
    let context_ = "ListWhatsAppTemplateLibraryInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?filters ->
          fun ~id -> fun () -> { nextToken; maxResults; filters; id }
    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));
        ("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("filters", (Option.map x.filters ~f:Filter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filter.of_xml) (Xml.child xml_arg0 "filters") in
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") 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
      make ?filters ~id ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "filters" Filter.of_json in
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?filters ~id ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists templates available in Meta's template library for WhatsApp messaging."]
module ListWhatsAppMessageTemplatesOutput =
  struct
    type nonrec t =
      {
      templates: TemplateSummaryList.t option
        [@ocaml.doc "A list of template summaries."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to retrieve the next page of results, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templates =
      fun ?nextToken -> fun () -> { templates; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("templates",
           (Option.map x.templates ~f:TemplateSummaryList.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 templates =
        (Option.map ~f:TemplateSummaryList.of_xml)
          (Xml.child xml_arg0 "templates") in
      make ?nextToken ?templates ()
    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 templates =
        field_map json__ "templates" TemplateSummaryList.of_json in
      make ?nextToken ?templates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists WhatsApp message templates for a specific WhatsApp Business Account."]
module ListWhatsAppMessageTemplatesInput =
  struct
    type nonrec t =
      {
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account to list templates for."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return per page (1-100)."]}
    let context_ = "ListWhatsAppMessageTemplatesInput"
    let make ?nextToken =
      fun ?maxResults -> fun ~id -> fun () -> { nextToken; maxResults; id }
    let to_value x =
      structure_to_value
        [("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("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 id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?maxResults ?nextToken ~id ()
    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 id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      make ?maxResults ?nextToken ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists WhatsApp message templates for a specific WhatsApp Business Account."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      statusCode: Integer.t option
        [@ocaml.doc "The status code of the response."];
      tags: TagList.t option [@ocaml.doc "The tags for the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?statusCode = fun ?tags -> fun () -> { statusCode; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("statusCode", (Option.map x.statusCode ~f:Integer.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 statusCode =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "statusCode") in
      make ?tags ?statusCode ()
    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 statusCode = field_map json__ "statusCode" Integer.of_json in
      make ?tags ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all tags associated with a resource, such as a phone number or WABA."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to retrieve the tags from."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all tags associated with a resource, such as a phone number or WABA."]
module ListLinkedWhatsAppBusinessAccountsOutput =
  struct
    type nonrec t =
      {
      linkedAccounts: LinkedWhatsAppBusinessAccountSummaryList.t option
        [@ocaml.doc
          "A list of WhatsApp Business Accounts linked to your Amazon Web Services account."];
      nextToken: NextToken.t option
        [@ocaml.doc "The next token for pagination."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?linkedAccounts =
      fun ?nextToken -> fun () -> { linkedAccounts; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("linkedAccounts",
           (Option.map x.linkedAccounts
              ~f:LinkedWhatsAppBusinessAccountSummaryList.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 linkedAccounts =
        (Option.map ~f:LinkedWhatsAppBusinessAccountSummaryList.of_xml)
          (Xml.child xml_arg0 "linkedAccounts") in
      make ?nextToken ?linkedAccounts ()
    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 linkedAccounts =
        field_map json__ "linkedAccounts"
          LinkedWhatsAppBusinessAccountSummaryList.of_json in
      make ?nextToken ?linkedAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all WhatsApp Business Accounts linked to your Amazon Web Services account."]
module ListLinkedWhatsAppBusinessAccountsInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc "The next token for pagination."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f: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
       "List all WhatsApp Business Accounts linked to your Amazon Web Services account."]
module GetWhatsAppMessageTemplateOutput =
  struct
    type nonrec t =
      {
      template: MetaTemplate.t option
        [@ocaml.doc
          "The complete template definition as a JSON string (maximum 6000 characters)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?template = fun () -> { template }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("template", (Option.map x.template ~f:MetaTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let template =
        (Option.map ~f:MetaTemplate.of_xml) (Xml.child xml_arg0 "template") in
      make ?template ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let template = field_map json__ "template" MetaTemplate.of_json in
      make ?template ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specific WhatsApp message template."]
module GetWhatsAppMessageTemplateInput =
  struct
    type nonrec t =
      {
      metaTemplateId: MetaTemplateId.t option
        [@ocaml.doc "The numeric ID of the template assigned by Meta."];
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account associated with this template."];
      templateName: MetaTemplateName.t option
        [@ocaml.doc
          "The name of the message template. Use together with templateLanguageCode as an alternative to metaTemplateId to identify a template."];
      templateLanguageCode: MetaTemplateLanguage.t option
        [@ocaml.doc
          "The language code of the message template (for example, en or en_US). Use together with templateName as an alternative to metaTemplateId to identify a template."]}
    let context_ = "GetWhatsAppMessageTemplateInput"
    let make ?metaTemplateId =
      fun ?templateName ->
        fun ?templateLanguageCode ->
          fun ~id ->
            fun () ->
              { metaTemplateId; templateName; templateLanguageCode; id }
    let to_value x =
      structure_to_value
        [("metaTemplateId",
           (Option.map x.metaTemplateId ~f:MetaTemplateId.to_value));
        ("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("templateName",
          (Option.map x.templateName ~f:MetaTemplateName.to_value));
        ("templateLanguageCode",
          (Option.map x.templateLanguageCode ~f:MetaTemplateLanguage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateLanguageCode =
        (Option.map ~f:MetaTemplateLanguage.of_xml)
          (Xml.child xml_arg0 "templateLanguageCode") in
      let templateName =
        (Option.map ~f:MetaTemplateName.of_xml)
          (Xml.child xml_arg0 "templateName") in
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let metaTemplateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "metaTemplateId") in
      make ?templateLanguageCode ?templateName ~id ?metaTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateLanguageCode =
        field_map json__ "templateLanguageCode" MetaTemplateLanguage.of_json in
      let templateName =
        field_map json__ "templateName" MetaTemplateName.of_json in
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let metaTemplateId =
        field_map json__ "metaTemplateId" MetaTemplateId.of_json in
      make ?templateLanguageCode ?templateName ~id ?metaTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specific WhatsApp message template."]
module GetWhatsAppMessageMediaOutput =
  struct
    type nonrec t =
      {
      mimeType: String_.t option [@ocaml.doc "The MIME type of the media."];
      fileSize: Long.t option
        [@ocaml.doc "The size of the media file, in KB."]}
    type nonrec error =
      [ `AccessDeniedByMetaException of AccessDeniedByMetaException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mimeType = fun ?fileSize -> fun () -> { mimeType; fileSize }
    let error_of_json name json =
      match name with
      | "AccessDeniedByMetaException" ->
          `AccessDeniedByMetaException
            (AccessDeniedByMetaException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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
      | "AccessDeniedByMetaException" ->
          `AccessDeniedByMetaException
            (AccessDeniedByMetaException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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
      | `AccessDeniedByMetaException e ->
          `Assoc
            [("error", (`String "AccessDeniedByMetaException"));
            ("details", (AccessDeniedByMetaException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("mimeType", (Option.map x.mimeType ~f:String_.to_value));
        ("fileSize", (Option.map x.fileSize ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSize =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "fileSize") in
      let mimeType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "mimeType") in
      make ?fileSize ?mimeType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSize = field_map json__ "fileSize" Long.of_json in
      let mimeType = field_map json__ "mimeType" String_.of_json in
      make ?fileSize ?mimeType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get a media file from the WhatsApp service. On successful completion the media file is retrieved from Meta and stored in the specified Amazon S3 bucket. Use either destinationS3File or destinationS3PresignedUrl for the destination. If both are used then an InvalidParameterException is returned."]
module GetWhatsAppMessageMediaInput =
  struct
    type nonrec t =
      {
      mediaId: WhatsAppMediaId.t
        [@ocaml.doc "The unique identifier for the media file."];
      originationPhoneNumberId: WhatsAppPhoneNumberId.t
        [@ocaml.doc
          "The unique identifier of the originating phone number for the WhatsApp message media. The phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901. Use GetLinkedWhatsAppBusinessAccount to find a phone number's id."];
      metadataOnly: Boolean.t option
        [@ocaml.doc "Set to True to get only the metadata for the file."];
      destinationS3PresignedUrl: S3PresignedUrl.t option
        [@ocaml.doc "The presign url of the media file."];
      destinationS3File: S3File.t option
        [@ocaml.doc "The bucketName and key of the S3 media file."]}
    let context_ = "GetWhatsAppMessageMediaInput"
    let make ?metadataOnly =
      fun ?destinationS3PresignedUrl ->
        fun ?destinationS3File ->
          fun ~mediaId ->
            fun ~originationPhoneNumberId ->
              fun () ->
                {
                  metadataOnly;
                  destinationS3PresignedUrl;
                  destinationS3File;
                  mediaId;
                  originationPhoneNumberId
                }
    let to_value x =
      structure_to_value
        [("mediaId", (Some (WhatsAppMediaId.to_value x.mediaId)));
        ("originationPhoneNumberId",
          (Some (WhatsAppPhoneNumberId.to_value x.originationPhoneNumberId)));
        ("metadataOnly", (Option.map x.metadataOnly ~f:Boolean.to_value));
        ("destinationS3PresignedUrl",
          (Option.map x.destinationS3PresignedUrl ~f:S3PresignedUrl.to_value));
        ("destinationS3File",
          (Option.map x.destinationS3File ~f:S3File.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationS3File =
        (Option.map ~f:S3File.of_xml)
          (Xml.child xml_arg0 "destinationS3File") in
      let destinationS3PresignedUrl =
        (Option.map ~f:S3PresignedUrl.of_xml)
          (Xml.child xml_arg0 "destinationS3PresignedUrl") in
      let metadataOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "metadataOnly") in
      let originationPhoneNumberId =
        WhatsAppPhoneNumberId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "originationPhoneNumberId") in
      let mediaId =
        WhatsAppMediaId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mediaId") in
      make ?destinationS3File ?destinationS3PresignedUrl ?metadataOnly
        ~originationPhoneNumberId ~mediaId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationS3File =
        field_map json__ "destinationS3File" S3File.of_json in
      let destinationS3PresignedUrl =
        field_map json__ "destinationS3PresignedUrl" S3PresignedUrl.of_json in
      let metadataOnly = field_map json__ "metadataOnly" Boolean.of_json in
      let originationPhoneNumberId =
        field_map_exn json__ "originationPhoneNumberId"
          WhatsAppPhoneNumberId.of_json in
      let mediaId = field_map_exn json__ "mediaId" WhatsAppMediaId.of_json in
      make ?destinationS3File ?destinationS3PresignedUrl ?metadataOnly
        ~originationPhoneNumberId ~mediaId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get a media file from the WhatsApp service. On successful completion the media file is retrieved from Meta and stored in the specified Amazon S3 bucket. Use either destinationS3File or destinationS3PresignedUrl for the destination. If both are used then an InvalidParameterException is returned."]
module GetLinkedWhatsAppBusinessAccountPhoneNumberOutput =
  struct
    type nonrec t =
      {
      phoneNumber: WhatsAppPhoneNumberDetail.t option ;
      linkedWhatsAppBusinessAccountId:
        LinkedWhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "The WABA identifier linked to the phone number, formatted as waba-01234567890123456789012345678901."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber =
      fun ?linkedWhatsAppBusinessAccountId ->
        fun () -> { phoneNumber; linkedWhatsAppBusinessAccountId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("phoneNumber",
           (Option.map x.phoneNumber ~f:WhatsAppPhoneNumberDetail.to_value));
        ("linkedWhatsAppBusinessAccountId",
          (Option.map x.linkedWhatsAppBusinessAccountId
             ~f:LinkedWhatsAppBusinessAccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkedWhatsAppBusinessAccountId =
        (Option.map ~f:LinkedWhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "linkedWhatsAppBusinessAccountId") in
      let phoneNumber =
        (Option.map ~f:WhatsAppPhoneNumberDetail.of_xml)
          (Xml.child xml_arg0 "phoneNumber") in
      make ?linkedWhatsAppBusinessAccountId ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkedWhatsAppBusinessAccountId =
        field_map json__ "linkedWhatsAppBusinessAccountId"
          LinkedWhatsAppBusinessAccountId.of_json in
      let phoneNumber =
        field_map json__ "phoneNumber" WhatsAppPhoneNumberDetail.of_json in
      make ?linkedWhatsAppBusinessAccountId ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve the WABA account id and phone number details of a WhatsApp business account phone number."]
module GetLinkedWhatsAppBusinessAccountPhoneNumberInput =
  struct
    type nonrec t =
      {
      id: WhatsAppPhoneNumberId.t
        [@ocaml.doc
          "The unique identifier of the phone number. Phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901. Use GetLinkedWhatsAppBusinessAccount to find a phone number's id."]}
    let context_ = "GetLinkedWhatsAppBusinessAccountPhoneNumberInput"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value
        [("id", (Some (WhatsAppPhoneNumberId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        WhatsAppPhoneNumberId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" WhatsAppPhoneNumberId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve the WABA account id and phone number details of a WhatsApp business account phone number."]
module GetLinkedWhatsAppBusinessAccountOutput =
  struct
    type nonrec t =
      {
      account: LinkedWhatsAppBusinessAccount.t option
        [@ocaml.doc "The details of the linked WhatsApp Business Account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?account = fun () -> { account }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("account",
           (Option.map x.account ~f:LinkedWhatsAppBusinessAccount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        (Option.map ~f:LinkedWhatsAppBusinessAccount.of_xml)
          (Xml.child xml_arg0 "account") in
      make ?account ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account =
        field_map json__ "account" LinkedWhatsAppBusinessAccount.of_json in
      make ?account ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the details of your linked WhatsApp Business Account."]
module GetLinkedWhatsAppBusinessAccountInput =
  struct
    type nonrec t =
      {
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The unique identifier, from Amazon Web Services, of the linked WhatsApp Business Account. WABA identifiers are formatted as waba-01234567890123456789012345678901. Use ListLinkedWhatsAppBusinessAccounts to list all WABAs and their details."]}
    let context_ = "GetLinkedWhatsAppBusinessAccountInput"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value
        [("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the details of your linked WhatsApp Business Account."]
module DisassociateWhatsAppBusinessAccountOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
       "Disassociate a WhatsApp Business Account (WABA) from your Amazon Web Services account."]
module DisassociateWhatsAppBusinessAccountInput =
  struct
    type nonrec t =
      {
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The unique identifier of your WhatsApp Business Account. WABA identifiers are formatted as waba-01234567890123456789012345678901. Use ListLinkedWhatsAppBusinessAccounts to list all WABAs and their details."]}
    let context_ = "DisassociateWhatsAppBusinessAccountInput"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value
        [("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociate a WhatsApp Business Account (WABA) from your Amazon Web Services account."]
module DeleteWhatsAppMessageTemplateOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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 "Deletes a WhatsApp message template."]
module DeleteWhatsAppMessageTemplateInput =
  struct
    type nonrec t =
      {
      metaTemplateId: MetaTemplateId.t option
        [@ocaml.doc "The numeric ID of the template assigned by Meta."];
      deleteAllLanguages: DeleteAllLanguages.t option
        [@ocaml.doc
          "If true, deletes all language versions of the template."];
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account associated with this template."];
      templateName: MetaTemplateName.t
        [@ocaml.doc "The name of the template to delete."]}
    let context_ = "DeleteWhatsAppMessageTemplateInput"
    let make ?metaTemplateId =
      fun ?deleteAllLanguages ->
        fun ~id ->
          fun ~templateName ->
            fun () ->
              { metaTemplateId; deleteAllLanguages; id; templateName }
    let to_value x =
      structure_to_value
        [("metaTemplateId",
           (Option.map x.metaTemplateId ~f:MetaTemplateId.to_value));
        ("deleteAllTemplates",
          (Option.map x.deleteAllLanguages ~f:DeleteAllLanguages.to_value));
        ("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("templateName", (Some (MetaTemplateName.to_value x.templateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateName =
        MetaTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateName") in
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let deleteAllLanguages =
        (Option.map ~f:DeleteAllLanguages.of_xml)
          (Xml.child xml_arg0 "deleteAllTemplates") in
      let metaTemplateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "metaTemplateId") in
      make ~templateName ~id ?deleteAllLanguages ?metaTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateName =
        field_map_exn json__ "templateName" MetaTemplateName.of_json in
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let deleteAllLanguages =
        field_map json__ "deleteAllLanguages" DeleteAllLanguages.of_json in
      let metaTemplateId =
        field_map json__ "metaTemplateId" MetaTemplateId.of_json in
      make ~templateName ~id ?deleteAllLanguages ?metaTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a WhatsApp message template."]
module DeleteWhatsAppMessageMediaOutput =
  struct
    type nonrec t =
      {
      success: Boolean.t option
        [@ocaml.doc "Success indicator for deleting the media file."]}
    type nonrec error =
      [ `AccessDeniedByMetaException of AccessDeniedByMetaException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?success = fun () -> { success }
    let error_of_json name json =
      match name with
      | "AccessDeniedByMetaException" ->
          `AccessDeniedByMetaException
            (AccessDeniedByMetaException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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
      | "AccessDeniedByMetaException" ->
          `AccessDeniedByMetaException
            (AccessDeniedByMetaException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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
      | `AccessDeniedByMetaException e ->
          `Assoc
            [("error", (`String "AccessDeniedByMetaException"));
            ("details", (AccessDeniedByMetaException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("success", (Option.map x.success ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let success =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "success") in
      make ?success ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let success = field_map json__ "success" Boolean.of_json in
      make ?success ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete a media object from the WhatsApp service. If the object is still in an Amazon S3 bucket you should delete it from there too."]
module DeleteWhatsAppMessageMediaInput =
  struct
    type nonrec t =
      {
      mediaId: WhatsAppMediaId.t
        [@ocaml.doc
          "The unique identifier of the media file to delete. Use the mediaId returned from PostWhatsAppMessageMedia."];
      originationPhoneNumberId: WhatsAppPhoneNumberId.t
        [@ocaml.doc
          "The unique identifier of the originating phone number associated with the media. Phone number identifiers are formatted as phone-number-id-01234567890123456789012345678901. Use GetLinkedWhatsAppBusinessAccount to find a phone number's id."]}
    let context_ = "DeleteWhatsAppMessageMediaInput"
    let make ~mediaId =
      fun ~originationPhoneNumberId ->
        fun () -> { mediaId; originationPhoneNumberId }
    let to_value x =
      structure_to_value
        [("mediaId", (Some (WhatsAppMediaId.to_value x.mediaId)));
        ("originationPhoneNumberId",
          (Some (WhatsAppPhoneNumberId.to_value x.originationPhoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let originationPhoneNumberId =
        WhatsAppPhoneNumberId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "originationPhoneNumberId") in
      let mediaId =
        WhatsAppMediaId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mediaId") in
      make ~originationPhoneNumberId ~mediaId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let originationPhoneNumberId =
        field_map_exn json__ "originationPhoneNumberId"
          WhatsAppPhoneNumberId.of_json in
      let mediaId = field_map_exn json__ "mediaId" WhatsAppMediaId.of_json in
      make ~originationPhoneNumberId ~mediaId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete a media object from the WhatsApp service. If the object is still in an Amazon S3 bucket you should delete it from there too."]
module CreateWhatsAppMessageTemplateOutput =
  struct
    type nonrec t =
      {
      metaTemplateId: MetaTemplateId.t option
        [@ocaml.doc "The numeric ID assigned to the template by Meta."];
      templateStatus: String_.t option
        [@ocaml.doc
          "The status of the created template, such as PENDING or APPROVED.."];
      category: MetaTemplateCategory.t option
        [@ocaml.doc
          "The category of the template, such as UTILITY or MARKETING."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metaTemplateId =
      fun ?templateStatus ->
        fun ?category ->
          fun () -> { metaTemplateId; templateStatus; category }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("metaTemplateId",
           (Option.map x.metaTemplateId ~f:MetaTemplateId.to_value));
        ("templateStatus", (Option.map x.templateStatus ~f:String_.to_value));
        ("category",
          (Option.map x.category ~f:MetaTemplateCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let category =
        (Option.map ~f:MetaTemplateCategory.of_xml)
          (Xml.child xml_arg0 "category") in
      let templateStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "templateStatus") in
      let metaTemplateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "metaTemplateId") in
      make ?category ?templateStatus ?metaTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let category = field_map json__ "category" MetaTemplateCategory.of_json in
      let templateStatus = field_map json__ "templateStatus" String_.of_json in
      let metaTemplateId =
        field_map json__ "metaTemplateId" MetaTemplateId.of_json in
      make ?category ?templateStatus ?metaTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new WhatsApp message template from a custom definition. Amazon Web Services End User Messaging Social does not store any WhatsApp message template content."]
module CreateWhatsAppMessageTemplateMediaOutput =
  struct
    type nonrec t =
      {
      metaHeaderHandle: String_.t option
        [@ocaml.doc
          "The handle assigned to the uploaded media by Meta, used to reference the media in templates."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metaHeaderHandle = fun () -> { metaHeaderHandle }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("metaHeaderHandle",
           (Option.map x.metaHeaderHandle ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metaHeaderHandle =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "metaHeaderHandle") in
      make ?metaHeaderHandle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metaHeaderHandle =
        field_map json__ "metaHeaderHandle" String_.of_json in
      make ?metaHeaderHandle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Uploads media for use in a WhatsApp message template."]
module CreateWhatsAppMessageTemplateMediaInput =
  struct
    type nonrec t =
      {
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account associated with this media upload."];
      sourceS3File: S3File.t option }
    let context_ = "CreateWhatsAppMessageTemplateMediaInput"
    let make ?sourceS3File = fun ~id -> fun () -> { sourceS3File; id }
    let to_value x =
      structure_to_value
        [("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)));
        ("sourceS3File", (Option.map x.sourceS3File ~f:S3File.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceS3File =
        (Option.map ~f:S3File.of_xml) (Xml.child xml_arg0 "sourceS3File") in
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?sourceS3File ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceS3File = field_map json__ "sourceS3File" S3File.of_json in
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      make ?sourceS3File ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Uploads media for use in a WhatsApp message template."]
module CreateWhatsAppMessageTemplateInput =
  struct
    type nonrec t =
      {
      templateDefinition: MetaTemplateDefinition.t
        [@ocaml.doc "The complete template definition as a JSON blob."];
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account to associate with this template."]}
    let context_ = "CreateWhatsAppMessageTemplateInput"
    let make ~templateDefinition =
      fun ~id -> fun () -> { templateDefinition; id }
    let to_value x =
      structure_to_value
        [("templateDefinition",
           (Some (MetaTemplateDefinition.to_value x.templateDefinition)));
        ("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let templateDefinition =
        MetaTemplateDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateDefinition") in
      make ~id ~templateDefinition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let templateDefinition =
        field_map_exn json__ "templateDefinition"
          MetaTemplateDefinition.of_json in
      make ~id ~templateDefinition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new WhatsApp message template from a custom definition. Amazon Web Services End User Messaging Social does not store any WhatsApp message template content."]
module CreateWhatsAppMessageTemplateFromLibraryOutput =
  struct
    type nonrec t =
      {
      metaTemplateId: MetaTemplateId.t option
        [@ocaml.doc "The numeric ID assigned to the template by Meta."];
      templateStatus: String_.t option
        [@ocaml.doc
          "The status of the created template (for example, PENDING or APPROVED)."];
      category: MetaTemplateCategory.t option
        [@ocaml.doc
          "The category of the template (for example, UTILITY or MARKETING)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metaTemplateId =
      fun ?templateStatus ->
        fun ?category ->
          fun () -> { metaTemplateId; templateStatus; category }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("metaTemplateId",
           (Option.map x.metaTemplateId ~f:MetaTemplateId.to_value));
        ("templateStatus", (Option.map x.templateStatus ~f:String_.to_value));
        ("category",
          (Option.map x.category ~f:MetaTemplateCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let category =
        (Option.map ~f:MetaTemplateCategory.of_xml)
          (Xml.child xml_arg0 "category") in
      let templateStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "templateStatus") in
      let metaTemplateId =
        (Option.map ~f:MetaTemplateId.of_xml)
          (Xml.child xml_arg0 "metaTemplateId") in
      make ?category ?templateStatus ?metaTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let category = field_map json__ "category" MetaTemplateCategory.of_json in
      let templateStatus = field_map json__ "templateStatus" String_.of_json in
      let metaTemplateId =
        field_map json__ "metaTemplateId" MetaTemplateId.of_json in
      make ?category ?templateStatus ?metaTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new WhatsApp message template using a template from Meta's template library."]
module CreateWhatsAppMessageTemplateFromLibraryInput =
  struct
    type nonrec t =
      {
      metaLibraryTemplate: MetaLibraryTemplate.t
        [@ocaml.doc
          "The template configuration from Meta's library, including customizations for buttons and body text."];
      id: LinkedWhatsAppBusinessAccountId.t
        [@ocaml.doc
          "The ID of the WhatsApp Business Account to associate with this template."]}
    let context_ = "CreateWhatsAppMessageTemplateFromLibraryInput"
    let make ~metaLibraryTemplate =
      fun ~id -> fun () -> { metaLibraryTemplate; id }
    let to_value x =
      structure_to_value
        [("metaLibraryTemplate",
           (Some (MetaLibraryTemplate.to_value x.metaLibraryTemplate)));
        ("id", (Some (LinkedWhatsAppBusinessAccountId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        LinkedWhatsAppBusinessAccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let metaLibraryTemplate =
        MetaLibraryTemplate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "metaLibraryTemplate") in
      make ~id ~metaLibraryTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id =
        field_map_exn json__ "id" LinkedWhatsAppBusinessAccountId.of_json in
      let metaLibraryTemplate =
        field_map_exn json__ "metaLibraryTemplate"
          MetaLibraryTemplate.of_json in
      make ~id ~metaLibraryTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new WhatsApp message template using a template from Meta's template library."]
module AssociateWhatsAppBusinessAccountOutput =
  struct
    type nonrec t =
      {
      signupCallbackResult: WhatsAppSignupCallbackResult.t option
        [@ocaml.doc "Contains your WhatsApp registration status."];
      statusCode: Integer.t option
        [@ocaml.doc "The status code for the response."];
      linkedWhatsAppBusinessAccountId:
        LinkedWhatsAppBusinessAccountId.t option
        [@ocaml.doc
          "The ID of the WhatsApp Business Account that was linked to your Amazon Web Services account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyException of DependencyException.t 
      | `InvalidParametersException of InvalidParametersException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottledRequestException of ThrottledRequestException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?signupCallbackResult =
      fun ?statusCode ->
        fun ?linkedWhatsAppBusinessAccountId ->
          fun () ->
            {
              signupCallbackResult;
              statusCode;
              linkedWhatsAppBusinessAccountId
            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_json json)
      | "InvalidParametersException" ->
          `InvalidParametersException
            (InvalidParametersException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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)
      | "DependencyException" ->
          `DependencyException (DependencyException.of_xml xml)
      | "InvalidParametersException" ->
          `InvalidParametersException (InvalidParametersException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ThrottledRequestException" ->
          `ThrottledRequestException (ThrottledRequestException.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))]
      | `DependencyException e ->
          `Assoc
            [("error", (`String "DependencyException"));
            ("details", (DependencyException.to_json e))]
      | `InvalidParametersException e ->
          `Assoc
            [("error", (`String "InvalidParametersException"));
            ("details", (InvalidParametersException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ThrottledRequestException e ->
          `Assoc
            [("error", (`String "ThrottledRequestException"));
            ("details", (ThrottledRequestException.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
        [("signupCallbackResult",
           (Option.map x.signupCallbackResult
              ~f:WhatsAppSignupCallbackResult.to_value));
        ("statusCode", (Option.map x.statusCode ~f:Integer.to_value));
        ("linkedWhatsAppBusinessAccountId",
          (Option.map x.linkedWhatsAppBusinessAccountId
             ~f:LinkedWhatsAppBusinessAccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkedWhatsAppBusinessAccountId =
        (Option.map ~f:LinkedWhatsAppBusinessAccountId.of_xml)
          (Xml.child xml_arg0 "linkedWhatsAppBusinessAccountId") in
      let statusCode =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "statusCode") in
      let signupCallbackResult =
        (Option.map ~f:WhatsAppSignupCallbackResult.of_xml)
          (Xml.child xml_arg0 "signupCallbackResult") in
      make ?linkedWhatsAppBusinessAccountId ?statusCode ?signupCallbackResult
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkedWhatsAppBusinessAccountId =
        field_map json__ "linkedWhatsAppBusinessAccountId"
          LinkedWhatsAppBusinessAccountId.of_json in
      let statusCode = field_map json__ "statusCode" Integer.of_json in
      let signupCallbackResult =
        field_map json__ "signupCallbackResult"
          WhatsAppSignupCallbackResult.of_json in
      make ?linkedWhatsAppBusinessAccountId ?statusCode ?signupCallbackResult
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is only used through the Amazon Web Services console during sign-up to associate your WhatsApp Business Account to your Amazon Web Services account."]
module AssociateWhatsAppBusinessAccountInput =
  struct
    type nonrec t =
      {
      signupCallback: WhatsAppSignupCallback.t option
        [@ocaml.doc "Contains the callback access token."];
      setupFinalization: WhatsAppSetupFinalization.t option
        [@ocaml.doc
          "A JSON object that contains the phone numbers and WhatsApp Business Account to link to your account."]}
    let make ?signupCallback =
      fun ?setupFinalization ->
        fun () -> { signupCallback; setupFinalization }
    let to_value x =
      structure_to_value
        [("signupCallback",
           (Option.map x.signupCallback ~f:WhatsAppSignupCallback.to_value));
        ("setupFinalization",
          (Option.map x.setupFinalization
             ~f:WhatsAppSetupFinalization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let setupFinalization =
        (Option.map ~f:WhatsAppSetupFinalization.of_xml)
          (Xml.child xml_arg0 "setupFinalization") in
      let signupCallback =
        (Option.map ~f:WhatsAppSignupCallback.of_xml)
          (Xml.child xml_arg0 "signupCallback") in
      make ?setupFinalization ?signupCallback ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let setupFinalization =
        field_map json__ "setupFinalization"
          WhatsAppSetupFinalization.of_json in
      let signupCallback =
        field_map json__ "signupCallback" WhatsAppSignupCallback.of_json in
      make ?setupFinalization ?signupCallback ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is only used through the Amazon Web Services console during sign-up to associate your WhatsApp Business Account to your Amazon Web Services account."]