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.partnercentral_account
let apiVersion = "2025-04-04"
let endpointPrefix = "partnercentral-account"
let serviceFullName = "Partner Central Account API"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "PartnerCentralAccount"
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 UnicodeString =
  struct
    type nonrec t = string
    let context_ = "UnicodeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"UnicodeString" j
    let to_json = simple_to_json to_value
  end
module PartnerProfileId =
  struct
    type nonrec t = string
    let context_ = "PartnerProfileId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i ~pattern:"pprofile-[A-Za-z0-9]{13}")));
        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:"PartnerProfileId" j
    let to_json = simple_to_json to_value
  end
module SellerProfileId =
  struct
    type nonrec t = string
    let context_ = "SellerProfileId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (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:"SellerProfileId" j
    let to_json = simple_to_json to_value
  end
module AccountSummary =
  struct
    type nonrec t =
      {
      name: UnicodeString.t option
        [@ocaml.doc "The name associated with the AWS account."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:UnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:UnicodeString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" UnicodeString.of_json in
      make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about an AWS account."]
module PartnerProfileSummary =
  struct
    type nonrec t =
      {
      id: PartnerProfileId.t option
        [@ocaml.doc "The unique identifier of the partner profile."];
      name: UnicodeString.t option
        [@ocaml.doc "The display name of the partner."]}
    let make ?id = fun ?name -> fun () -> { id; name }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:PartnerProfileId.to_value));
        ("Name", (Option.map x.name ~f:UnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:UnicodeString.of_xml) (Xml.child xml_arg0 "Name") in
      let id =
        (Option.map ~f:PartnerProfileId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" UnicodeString.of_json in
      let id = field_map json__ "Id" PartnerProfileId.of_json in
      make ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary view of a partner profile containing basic identifying information."]
module SellerProfileSummary =
  struct
    type nonrec t =
      {
      id: SellerProfileId.t option
        [@ocaml.doc "The unique identifier of the seller profile."];
      name: UnicodeString.t option
        [@ocaml.doc "The display name of the seller."]}
    let make ?id = fun ?name -> fun () -> { id; name }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:SellerProfileId.to_value));
        ("Name", (Option.map x.name ~f:UnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:UnicodeString.of_xml) (Xml.child xml_arg0 "Name") in
      let id =
        (Option.map ~f:SellerProfileId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" UnicodeString.of_json in
      let id = field_map json__ "Id" SellerProfileId.of_json in
      make ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary view of a seller profile containing basic identifying information."]
module BusinessValidationCode =
  struct
    type nonrec t =
      | INCOMPATIBLE_CONNECTION_INVITATION_REQUEST 
      | INCOMPATIBLE_LEGAL_NAME 
      | INCOMPATIBLE_KNOW_YOUR_BUSINESS_STATUS 
      | INCOMPATIBLE_IDENTITY_VERIFICATION_STATUS 
      | INVALID_ACCOUNT_LINKING_STATUS 
      | INVALID_ACCOUNT_STATE 
      | INCOMPATIBLE_DOMAIN 
      | INELIGIBLE_ACCOUNT_TIER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INCOMPATIBLE_CONNECTION_INVITATION_REQUEST ->
          "INCOMPATIBLE_CONNECTION_INVITATION_REQUEST"
      | INCOMPATIBLE_LEGAL_NAME -> "INCOMPATIBLE_LEGAL_NAME"
      | INCOMPATIBLE_KNOW_YOUR_BUSINESS_STATUS ->
          "INCOMPATIBLE_KNOW_YOUR_BUSINESS_STATUS"
      | INCOMPATIBLE_IDENTITY_VERIFICATION_STATUS ->
          "INCOMPATIBLE_IDENTITY_VERIFICATION_STATUS"
      | INVALID_ACCOUNT_LINKING_STATUS -> "INVALID_ACCOUNT_LINKING_STATUS"
      | INVALID_ACCOUNT_STATE -> "INVALID_ACCOUNT_STATE"
      | INCOMPATIBLE_DOMAIN -> "INCOMPATIBLE_DOMAIN"
      | INELIGIBLE_ACCOUNT_TIER -> "INELIGIBLE_ACCOUNT_TIER"
      | Non_static_id s -> s
    let of_string =
      function
      | "INCOMPATIBLE_CONNECTION_INVITATION_REQUEST" ->
          INCOMPATIBLE_CONNECTION_INVITATION_REQUEST
      | "INCOMPATIBLE_LEGAL_NAME" -> INCOMPATIBLE_LEGAL_NAME
      | "INCOMPATIBLE_KNOW_YOUR_BUSINESS_STATUS" ->
          INCOMPATIBLE_KNOW_YOUR_BUSINESS_STATUS
      | "INCOMPATIBLE_IDENTITY_VERIFICATION_STATUS" ->
          INCOMPATIBLE_IDENTITY_VERIFICATION_STATUS
      | "INVALID_ACCOUNT_LINKING_STATUS" -> INVALID_ACCOUNT_LINKING_STATUS
      | "INVALID_ACCOUNT_STATE" -> INVALID_ACCOUNT_STATE
      | "INCOMPATIBLE_DOMAIN" -> INCOMPATIBLE_DOMAIN
      | "INELIGIBLE_ACCOUNT_TIER" -> INELIGIBLE_ACCOUNT_TIER
      | 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 BusinessValidationCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BusinessValidationCode" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module FieldValidationCode =
  struct
    type nonrec t =
      | REQUIRED_FIELD_MISSING 
      | DUPLICATE_VALUE 
      | INVALID_VALUE 
      | INVALID_STRING_FORMAT 
      | TOO_MANY_VALUES 
      | ACTION_NOT_PERMITTED 
      | INVALID_ENUM_VALUE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUIRED_FIELD_MISSING -> "REQUIRED_FIELD_MISSING"
      | DUPLICATE_VALUE -> "DUPLICATE_VALUE"
      | INVALID_VALUE -> "INVALID_VALUE"
      | INVALID_STRING_FORMAT -> "INVALID_STRING_FORMAT"
      | TOO_MANY_VALUES -> "TOO_MANY_VALUES"
      | ACTION_NOT_PERMITTED -> "ACTION_NOT_PERMITTED"
      | INVALID_ENUM_VALUE -> "INVALID_ENUM_VALUE"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUIRED_FIELD_MISSING" -> REQUIRED_FIELD_MISSING
      | "DUPLICATE_VALUE" -> DUPLICATE_VALUE
      | "INVALID_VALUE" -> INVALID_VALUE
      | "INVALID_STRING_FORMAT" -> INVALID_STRING_FORMAT
      | "TOO_MANY_VALUES" -> TOO_MANY_VALUES
      | "ACTION_NOT_PERMITTED" -> ACTION_NOT_PERMITTED
      | "INVALID_ENUM_VALUE" -> INVALID_ENUM_VALUE
      | 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 FieldValidationCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FieldValidationCode" j)
    let to_json = simple_to_json to_value
  end
module ConnectionTypeStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | CANCELED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CANCELED -> "CANCELED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CANCELED" -> CANCELED
      | 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 ConnectionTypeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionTypeStatus" j)
    let to_json = simple_to_json to_value
  end
module Participant =
  struct
    type nonrec t =
      {
      partnerProfile: PartnerProfileSummary.t option
        [@ocaml.doc "The partner profile information for the participant."];
      sellerProfile: SellerProfileSummary.t option
        [@ocaml.doc "The seller profile information for the participant."];
      account: AccountSummary.t option
        [@ocaml.doc "The AWS account information for the participant."]}
    let make ?partnerProfile =
      fun ?sellerProfile ->
        fun ?account -> fun () -> { partnerProfile; sellerProfile; account }
    let to_value x =
      structure_to_value
        [("PartnerProfile",
           (Option.map x.partnerProfile ~f:PartnerProfileSummary.to_value));
        ("SellerProfile",
          (Option.map x.sellerProfile ~f:SellerProfileSummary.to_value));
        ("Account", (Option.map x.account ~f:AccountSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let account =
        (Option.map ~f:AccountSummary.of_xml) (Xml.child xml_arg0 "Account") in
      let sellerProfile =
        (Option.map ~f:SellerProfileSummary.of_xml)
          (Xml.child xml_arg0 "SellerProfile") in
      let partnerProfile =
        (Option.map ~f:PartnerProfileSummary.of_xml)
          (Xml.child xml_arg0 "PartnerProfile") in
      make ?account ?sellerProfile ?partnerProfile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let account = field_map json__ "Account" AccountSummary.of_json in
      let sellerProfile =
        field_map json__ "SellerProfile" SellerProfileSummary.of_json in
      let partnerProfile =
        field_map json__ "PartnerProfile" PartnerProfileSummary.of_json in
      make ?account ?sellerProfile ?partnerProfile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a participant in a partner connection, containing their profile and account information."]
module BusinessValidationError =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A description of the business validation error."];
      code: BusinessValidationCode.t option
        [@ocaml.doc
          "A code identifying the specific business validation error."]}
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Code", (Option.map x.code ~f:BusinessValidationCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code =
        (Option.map ~f:BusinessValidationCode.of_xml)
          (Xml.child xml_arg0 "Code") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "Code" BusinessValidationCode.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a business rule validation error that occurred during an operation."]
module FieldValidationError =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the field that failed validation."];
      message: String_.t option
        [@ocaml.doc "A description of the field validation error."];
      code: FieldValidationCode.t option
        [@ocaml.doc
          "A code identifying the specific field validation error."]}
    let make ?name =
      fun ?message -> fun ?code -> fun () -> { name; message; code }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value));
        ("Code", (Option.map x.code ~f:FieldValidationCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code =
        (Option.map ~f:FieldValidationCode.of_xml)
          (Xml.child xml_arg0 "Code") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?code ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "Code" FieldValidationCode.of_json in
      let message = field_map json__ "Message" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?code ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a field-level validation error that occurred during an operation."]
module CountryCode =
  struct
    type nonrec t = string
    let context_ = "CountryCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Z]{2}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CountryCode" j
    let to_json = simple_to_json to_value
  end
module JurisdictionCode =
  struct
    type nonrec t = string
    let context_ = "JurisdictionCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Z0-9]{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:"JurisdictionCode" j
    let to_json = simple_to_json to_value
  end
module LegalName =
  struct
    type nonrec t = string
    let context_ = "LegalName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"LegalName" j
    let to_json = simple_to_json to_value
  end
module RegistrationId =
  struct
    type nonrec t = string
    let context_ = "RegistrationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"RegistrationId" j
    let to_json = simple_to_json to_value
  end
module Locale =
  struct
    type nonrec t = string
    let context_ = "Locale"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z]{2}-[A-Z]{2}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Locale" j
    let to_json = simple_to_json to_value
  end
module LocalizedContentDescriptionString =
  struct
    type nonrec t = string
    let context_ = "LocalizedContentDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"LocalizedContentDescriptionString" j
    let to_json = simple_to_json to_value
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(https|HTTPS):\\/\\/[^\\/\\s]+(\\/\\S*)?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Url" j
    let to_json = simple_to_json to_value
  end
module ConnectionType =
  struct
    type nonrec t =
      | OPPORTUNITY_COLLABORATION 
      | SUBSIDIARY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OPPORTUNITY_COLLABORATION -> "OPPORTUNITY_COLLABORATION"
      | SUBSIDIARY -> "SUBSIDIARY"
      | Non_static_id s -> s
    let of_string =
      function
      | "OPPORTUNITY_COLLABORATION" -> OPPORTUNITY_COLLABORATION
      | "SUBSIDIARY" -> SUBSIDIARY
      | 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 ConnectionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConnectionType" j)
    let to_json = simple_to_json to_value
  end
module ConnectionTypeSummary =
  struct
    type nonrec t =
      {
      status: ConnectionTypeStatus.t option
        [@ocaml.doc
          "The current status of this connection type (active, canceled, etc.)."];
      otherParticipant: Participant.t option
        [@ocaml.doc
          "Information about the other participant in this connection type."]}
    let make ?status =
      fun ?otherParticipant -> fun () -> { status; otherParticipant }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:ConnectionTypeStatus.to_value));
        ("OtherParticipant",
          (Option.map x.otherParticipant ~f:Participant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let otherParticipant =
        (Option.map ~f:Participant.of_xml)
          (Xml.child xml_arg0 "OtherParticipant") in
      let status =
        (Option.map ~f:ConnectionTypeStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?otherParticipant ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let otherParticipant =
        field_map json__ "OtherParticipant" Participant.of_json in
      let status = field_map json__ "Status" ConnectionTypeStatus.of_json in
      make ?otherParticipant ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about a specific connection type between partners."]
module AwsAccountId =
  struct
    type nonrec t = string
    let context_ = "AwsAccountId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}"); 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:"AwsAccountId" j
    let to_json = simple_to_json to_value
  end
module DateTime =
  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 Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:320) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9.!#$%&'*+/=?^_`{|}~-]+@[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(?:\\.[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[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:"Email" j
    let to_json = simple_to_json to_value
  end
module SensitiveUnicodeString =
  struct
    type nonrec t = string
    let context_ = "SensitiveUnicodeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"SensitiveUnicodeString" j
    let to_json = simple_to_json to_value
  end
module ValidationError =
  struct
    type nonrec t =
      {
      fieldValidationError: FieldValidationError.t option
        [@ocaml.doc
          "Details about a field-level validation error, if applicable."];
      businessValidationError: BusinessValidationError.t option
        [@ocaml.doc
          "Details about a business rule validation error, if applicable."]}
    let make ?fieldValidationError =
      fun ?businessValidationError ->
        fun () -> { fieldValidationError; businessValidationError }
    let to_value x =
      structure_to_value
        [("FieldValidationError",
           (Option.map x.fieldValidationError
              ~f:FieldValidationError.to_value));
        ("BusinessValidationError",
          (Option.map x.businessValidationError
             ~f:BusinessValidationError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let businessValidationError =
        (Option.map ~f:BusinessValidationError.of_xml)
          (Xml.child xml_arg0 "BusinessValidationError") in
      let fieldValidationError =
        (Option.map ~f:FieldValidationError.of_xml)
          (Xml.child xml_arg0 "FieldValidationError") in
      make ?businessValidationError ?fieldValidationError ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let businessValidationError =
        field_map json__ "BusinessValidationError"
          BusinessValidationError.of_json in
      let fieldValidationError =
        field_map json__ "FieldValidationError" FieldValidationError.of_json in
      make ?businessValidationError ?fieldValidationError ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a validation error, which can be either a field-level or business rule validation error."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module BusinessVerificationDetails =
  struct
    type nonrec t =
      {
      legalName: LegalName.t
        [@ocaml.doc
          "The official legal name of the business as registered with the appropriate government authorities."];
      registrationId: RegistrationId.t
        [@ocaml.doc
          "The unique business registration identifier assigned by the government or regulatory authority, such as a company registration number or tax identification number."];
      countryCode: CountryCode.t
        [@ocaml.doc
          "The ISO 3166-1 alpha-2 country code where the business is legally registered and operates."];
      jurisdictionOfIncorporation: JurisdictionCode.t option
        [@ocaml.doc
          "The specific legal jurisdiction or state where the business was incorporated or registered, providing additional location context beyond the country code."]}
    let context_ = "BusinessVerificationDetails"
    let make ?jurisdictionOfIncorporation =
      fun ~legalName ->
        fun ~registrationId ->
          fun ~countryCode ->
            fun () ->
              {
                jurisdictionOfIncorporation;
                legalName;
                registrationId;
                countryCode
              }
    let to_value x =
      structure_to_value
        [("LegalName", (Some (LegalName.to_value x.legalName)));
        ("RegistrationId", (Some (RegistrationId.to_value x.registrationId)));
        ("CountryCode", (Some (CountryCode.to_value x.countryCode)));
        ("JurisdictionOfIncorporation",
          (Option.map x.jurisdictionOfIncorporation
             ~f:JurisdictionCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jurisdictionOfIncorporation =
        (Option.map ~f:JurisdictionCode.of_xml)
          (Xml.child xml_arg0 "JurisdictionOfIncorporation") in
      let countryCode =
        CountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CountryCode") in
      let registrationId =
        RegistrationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegistrationId") in
      let legalName =
        LegalName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LegalName") in
      make ?jurisdictionOfIncorporation ~countryCode ~registrationId
        ~legalName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jurisdictionOfIncorporation =
        field_map json__ "JurisdictionOfIncorporation"
          JurisdictionCode.of_json in
      let countryCode =
        field_map_exn json__ "CountryCode" CountryCode.of_json in
      let registrationId =
        field_map_exn json__ "RegistrationId" RegistrationId.of_json in
      let legalName = field_map_exn json__ "LegalName" LegalName.of_json in
      make ?jurisdictionOfIncorporation ~countryCode ~registrationId
        ~legalName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the business information required for verifying a company's legal status and registration details within AWS Partner Central."]
module CompletionUrl =
  struct
    type nonrec t = string
    let context_ = "CompletionUrl"
    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:"CompletionUrl" j
    let to_json = simple_to_json to_value
  end
module ProfileValidationErrorReason =
  struct
    type nonrec t =
      | INVALID_CONTENT 
      | DUPLICATE_PROFILE 
      | INVALID_LOGO 
      | INVALID_LOGO_URL 
      | INVALID_LOGO_FILE 
      | INVALID_LOGO_SIZE 
      | INVALID_WEBSITE_URL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVALID_CONTENT -> "INVALID_CONTENT"
      | DUPLICATE_PROFILE -> "DUPLICATE_PROFILE"
      | INVALID_LOGO -> "INVALID_LOGO"
      | INVALID_LOGO_URL -> "INVALID_LOGO_URL"
      | INVALID_LOGO_FILE -> "INVALID_LOGO_FILE"
      | INVALID_LOGO_SIZE -> "INVALID_LOGO_SIZE"
      | INVALID_WEBSITE_URL -> "INVALID_WEBSITE_URL"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVALID_CONTENT" -> INVALID_CONTENT
      | "DUPLICATE_PROFILE" -> DUPLICATE_PROFILE
      | "INVALID_LOGO" -> INVALID_LOGO
      | "INVALID_LOGO_URL" -> INVALID_LOGO_URL
      | "INVALID_LOGO_FILE" -> INVALID_LOGO_FILE
      | "INVALID_LOGO_SIZE" -> INVALID_LOGO_SIZE
      | "INVALID_WEBSITE_URL" -> INVALID_WEBSITE_URL
      | 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 ProfileValidationErrorReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ProfileValidationErrorReason" j)
    let to_json = simple_to_json to_value
  end
module IndustrySegment =
  struct
    type nonrec t =
      | AGRICULTURE_MINING 
      | BIOTECHNOLOGY 
      | BUSINESS_CONSUMER_SERVICES 
      | BUSINESS_SERV 
      | COMMUNICATIONS 
      | COMPUTER_HARDWARE 
      | COMPUTERS_ELECTRONICS 
      | COMPUTER_SOFTWARE 
      | CONSUMER_GOODS 
      | CONSUMER_RELATED 
      | EDUCATION 
      | ENERGY_UTILITIES 
      | FINANCIAL_SERVICES 
      | GAMING 
      | GOVERNMENT 
      | GOVERNMENT_EDUCATION_PUBLIC_SERVICES 
      | HEALTHCARE 
      | HEALTHCARE_PHARMACEUTICALS_BIOTECH 
      | INDUSTRIAL_ENERGY 
      | INTERNET_SPECIFIC 
      | LIFE_SCIENCES 
      | MANUFACTURING 
      | MEDIA_ENTERTAINMENT_LEISURE 
      | MEDIA_ENTERTAINMENT 
      | MEDICAL_HEALTH 
      | NON_PROFIT_ORGANIZATION 
      | OTHER 
      | PROFESSIONAL_SERVICES 
      | REAL_ESTATE_CONSTRUCTION 
      | RETAIL 
      | RETAIL_WHOLESALE_DISTRIBUTION 
      | SEMICONDUCTOR_ELECTR 
      | SOFTWARE_INTERNET 
      | TELECOMMUNICATIONS 
      | TRANSPORTATION_LOGISTICS 
      | TRAVEL_HOSPITALITY 
      | WHOLESALE_DISTRIBUTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AGRICULTURE_MINING -> "AGRICULTURE_MINING"
      | BIOTECHNOLOGY -> "BIOTECHNOLOGY"
      | BUSINESS_CONSUMER_SERVICES -> "BUSINESS_CONSUMER_SERVICES"
      | BUSINESS_SERV -> "BUSINESS_SERV"
      | COMMUNICATIONS -> "COMMUNICATIONS"
      | COMPUTER_HARDWARE -> "COMPUTER_HARDWARE"
      | COMPUTERS_ELECTRONICS -> "COMPUTERS_ELECTRONICS"
      | COMPUTER_SOFTWARE -> "COMPUTER_SOFTWARE"
      | CONSUMER_GOODS -> "CONSUMER_GOODS"
      | CONSUMER_RELATED -> "CONSUMER_RELATED"
      | EDUCATION -> "EDUCATION"
      | ENERGY_UTILITIES -> "ENERGY_UTILITIES"
      | FINANCIAL_SERVICES -> "FINANCIAL_SERVICES"
      | GAMING -> "GAMING"
      | GOVERNMENT -> "GOVERNMENT"
      | GOVERNMENT_EDUCATION_PUBLIC_SERVICES ->
          "GOVERNMENT_EDUCATION_PUBLIC_SERVICES"
      | HEALTHCARE -> "HEALTHCARE"
      | HEALTHCARE_PHARMACEUTICALS_BIOTECH ->
          "HEALTHCARE_PHARMACEUTICALS_BIOTECH"
      | INDUSTRIAL_ENERGY -> "INDUSTRIAL_ENERGY"
      | INTERNET_SPECIFIC -> "INTERNET_SPECIFIC"
      | LIFE_SCIENCES -> "LIFE_SCIENCES"
      | MANUFACTURING -> "MANUFACTURING"
      | MEDIA_ENTERTAINMENT_LEISURE -> "MEDIA_ENTERTAINMENT_LEISURE"
      | MEDIA_ENTERTAINMENT -> "MEDIA_ENTERTAINMENT"
      | MEDICAL_HEALTH -> "MEDICAL_HEALTH"
      | NON_PROFIT_ORGANIZATION -> "NON_PROFIT_ORGANIZATION"
      | OTHER -> "OTHER"
      | PROFESSIONAL_SERVICES -> "PROFESSIONAL_SERVICES"
      | REAL_ESTATE_CONSTRUCTION -> "REAL_ESTATE_CONSTRUCTION"
      | RETAIL -> "RETAIL"
      | RETAIL_WHOLESALE_DISTRIBUTION -> "RETAIL_WHOLESALE_DISTRIBUTION"
      | SEMICONDUCTOR_ELECTR -> "SEMICONDUCTOR_ELECTR"
      | SOFTWARE_INTERNET -> "SOFTWARE_INTERNET"
      | TELECOMMUNICATIONS -> "TELECOMMUNICATIONS"
      | TRANSPORTATION_LOGISTICS -> "TRANSPORTATION_LOGISTICS"
      | TRAVEL_HOSPITALITY -> "TRAVEL_HOSPITALITY"
      | WHOLESALE_DISTRIBUTION -> "WHOLESALE_DISTRIBUTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "AGRICULTURE_MINING" -> AGRICULTURE_MINING
      | "BIOTECHNOLOGY" -> BIOTECHNOLOGY
      | "BUSINESS_CONSUMER_SERVICES" -> BUSINESS_CONSUMER_SERVICES
      | "BUSINESS_SERV" -> BUSINESS_SERV
      | "COMMUNICATIONS" -> COMMUNICATIONS
      | "COMPUTER_HARDWARE" -> COMPUTER_HARDWARE
      | "COMPUTERS_ELECTRONICS" -> COMPUTERS_ELECTRONICS
      | "COMPUTER_SOFTWARE" -> COMPUTER_SOFTWARE
      | "CONSUMER_GOODS" -> CONSUMER_GOODS
      | "CONSUMER_RELATED" -> CONSUMER_RELATED
      | "EDUCATION" -> EDUCATION
      | "ENERGY_UTILITIES" -> ENERGY_UTILITIES
      | "FINANCIAL_SERVICES" -> FINANCIAL_SERVICES
      | "GAMING" -> GAMING
      | "GOVERNMENT" -> GOVERNMENT
      | "GOVERNMENT_EDUCATION_PUBLIC_SERVICES" ->
          GOVERNMENT_EDUCATION_PUBLIC_SERVICES
      | "HEALTHCARE" -> HEALTHCARE
      | "HEALTHCARE_PHARMACEUTICALS_BIOTECH" ->
          HEALTHCARE_PHARMACEUTICALS_BIOTECH
      | "INDUSTRIAL_ENERGY" -> INDUSTRIAL_ENERGY
      | "INTERNET_SPECIFIC" -> INTERNET_SPECIFIC
      | "LIFE_SCIENCES" -> LIFE_SCIENCES
      | "MANUFACTURING" -> MANUFACTURING
      | "MEDIA_ENTERTAINMENT_LEISURE" -> MEDIA_ENTERTAINMENT_LEISURE
      | "MEDIA_ENTERTAINMENT" -> MEDIA_ENTERTAINMENT
      | "MEDICAL_HEALTH" -> MEDICAL_HEALTH
      | "NON_PROFIT_ORGANIZATION" -> NON_PROFIT_ORGANIZATION
      | "OTHER" -> OTHER
      | "PROFESSIONAL_SERVICES" -> PROFESSIONAL_SERVICES
      | "REAL_ESTATE_CONSTRUCTION" -> REAL_ESTATE_CONSTRUCTION
      | "RETAIL" -> RETAIL
      | "RETAIL_WHOLESALE_DISTRIBUTION" -> RETAIL_WHOLESALE_DISTRIBUTION
      | "SEMICONDUCTOR_ELECTR" -> SEMICONDUCTOR_ELECTR
      | "SOFTWARE_INTERNET" -> SOFTWARE_INTERNET
      | "TELECOMMUNICATIONS" -> TELECOMMUNICATIONS
      | "TRANSPORTATION_LOGISTICS" -> TRANSPORTATION_LOGISTICS
      | "TRAVEL_HOSPITALITY" -> TRAVEL_HOSPITALITY
      | "WHOLESALE_DISTRIBUTION" -> WHOLESALE_DISTRIBUTION
      | 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 IndustrySegment" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IndustrySegment" j)
    let to_json = simple_to_json to_value
  end
module LocalizedContent =
  struct
    type nonrec t =
      {
      displayName: UnicodeString.t
        [@ocaml.doc "The localized display name for the partner."];
      description: LocalizedContentDescriptionString.t
        [@ocaml.doc
          "The localized description of the partner's business and services."];
      websiteUrl: Url.t
        [@ocaml.doc "The localized website URL for the partner."];
      logoUrl: Url.t
        [@ocaml.doc "The URL to the partner's logo image for this locale."];
      locale: Locale.t
        [@ocaml.doc "The locale or language code for the localized content."]}
    let context_ = "LocalizedContent"
    let make ~displayName =
      fun ~description ->
        fun ~websiteUrl ->
          fun ~logoUrl ->
            fun ~locale ->
              fun () ->
                { displayName; description; websiteUrl; logoUrl; locale }
    let to_value x =
      structure_to_value
        [("DisplayName", (Some (UnicodeString.to_value x.displayName)));
        ("Description",
          (Some (LocalizedContentDescriptionString.to_value x.description)));
        ("WebsiteUrl", (Some (Url.to_value x.websiteUrl)));
        ("LogoUrl", (Some (Url.to_value x.logoUrl)));
        ("Locale", (Some (Locale.to_value x.locale)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locale =
        Locale.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Locale") in
      let logoUrl =
        Url.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LogoUrl") in
      let websiteUrl =
        Url.of_xml (Xml.child_exn ~context:context_ xml_arg0 "WebsiteUrl") in
      let description =
        LocalizedContentDescriptionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let displayName =
        UnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DisplayName") in
      make ~locale ~logoUrl ~websiteUrl ~description ~displayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locale = field_map_exn json__ "Locale" Locale.of_json in
      let logoUrl = field_map_exn json__ "LogoUrl" Url.of_json in
      let websiteUrl = field_map_exn json__ "WebsiteUrl" Url.of_json in
      let description =
        field_map_exn json__ "Description"
          LocalizedContentDescriptionString.of_json in
      let displayName =
        field_map_exn json__ "DisplayName" UnicodeString.of_json in
      make ~locale ~logoUrl ~websiteUrl ~description ~displayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains localized content for a partner profile in a specific language or locale."]
module Catalog =
  struct
    type nonrec t = string
    let context_ = "Catalog"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Catalog" j
    let to_json = simple_to_json to_value
  end
module PartnerArn =
  struct
    type nonrec t = string
    let context_ = "PartnerArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[A-Za-z-_]+/partner/partner-[A-Za-z0-9]{13}")));
        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:"PartnerArn" j
    let to_json = simple_to_json to_value
  end
module PartnerId =
  struct
    type nonrec t = string
    let context_ = "PartnerId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"partner-[A-Za-z0-9]{13}");
        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:"PartnerId" j
    let to_json = simple_to_json to_value
  end
module ConnectionArn =
  struct
    type nonrec t = string
    let context_ = "ConnectionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-zA-Z0-9-]+:partnercentral:[a-z0-9\\-]*::catalog/[a-zA-Z]+/connection/pac-[A-Za-z0-9]{13}")));
        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:"ConnectionArn" j
    let to_json = simple_to_json to_value
  end
module ConnectionId =
  struct
    type nonrec t = string
    let context_ = "ConnectionId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"pac-[A-Za-z0-9]{13}"); 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:"ConnectionId" j
    let to_json = simple_to_json to_value
  end
module ConnectionTypeSummaryMap =
  struct
    type nonrec t = (ConnectionType.t * ConnectionTypeSummary.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 ConnectionType ConnectionTypeSummary"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ConnectionType.to_value x) |>
                    (fun x ->
                       (ConnectionTypeSummary.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:ConnectionType.of_string
        ~of_json:ConnectionTypeSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionInvitationArn =
  struct
    type nonrec t = string
    let context_ = "ConnectionInvitationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-zA-Z0-9-]+:partnercentral:[a-z0-9\\-]*::catalog/[a-zA-Z]+/connection-invitation/pacinv-[A-Za-z0-9]{13}")));
        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:"ConnectionInvitationArn" j
    let to_json = simple_to_json to_value
  end
module ConnectionInvitationId =
  struct
    type nonrec t = string
    let context_ = "ConnectionInvitationId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"pacinv-[A-Za-z0-9]{13}"); 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:"ConnectionInvitationId" j
    let to_json = simple_to_json to_value
  end
module InvitationStatus =
  struct
    type nonrec t =
      | PENDING 
      | ACCEPTED 
      | REJECTED 
      | CANCELED 
      | EXPIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACCEPTED -> "ACCEPTED"
      | REJECTED -> "REJECTED"
      | CANCELED -> "CANCELED"
      | EXPIRED -> "EXPIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACCEPTED" -> ACCEPTED
      | "REJECTED" -> REJECTED
      | "CANCELED" -> CANCELED
      | "EXPIRED" -> EXPIRED
      | 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 InvitationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InvitationStatus" j)
    let to_json = simple_to_json to_value
  end
module ParticipantIdentifier =
  struct
    type nonrec t = string
    let context_ = "ParticipantIdentifier"
    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:"ParticipantIdentifier" j
    let to_json = simple_to_json to_value
  end
module ParticipantType =
  struct
    type nonrec t =
      | SENDER 
      | RECEIVER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SENDER -> "SENDER"
      | RECEIVER -> "RECEIVER"
      | Non_static_id s -> s
    let of_string =
      function
      | "SENDER" -> SENDER
      | "RECEIVER" -> RECEIVER
      | 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 ParticipantType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ParticipantType" j)
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:253) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(\\.[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[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:"DomainName" j
    let to_json = simple_to_json to_value
  end
module ConnectionTypeDetail =
  struct
    type nonrec t =
      {
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when this connection type was created."];
      inviterEmail: Email.t option
        [@ocaml.doc
          "The email address of the person who initiated this connection type."];
      inviterName: SensitiveUnicodeString.t option
        [@ocaml.doc
          "The name of the person who initiated this connection type."];
      status: ConnectionTypeStatus.t option
        [@ocaml.doc "The current status of this connection type."];
      canceledAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when this connection type was cancelled, if applicable."];
      canceledBy: AwsAccountId.t option
        [@ocaml.doc
          "The AWS account ID of the participant who cancelled this connection type."];
      otherParticipant: Participant.t option
        [@ocaml.doc
          "Information about the other participant in this connection type."]}
    let make ?createdAt =
      fun ?inviterEmail ->
        fun ?inviterName ->
          fun ?status ->
            fun ?canceledAt ->
              fun ?canceledBy ->
                fun ?otherParticipant ->
                  fun () ->
                    {
                      createdAt;
                      inviterEmail;
                      inviterName;
                      status;
                      canceledAt;
                      canceledBy;
                      otherParticipant
                    }
    let to_value x =
      structure_to_value
        [("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("InviterEmail", (Option.map x.inviterEmail ~f:Email.to_value));
        ("InviterName",
          (Option.map x.inviterName ~f:SensitiveUnicodeString.to_value));
        ("Status", (Option.map x.status ~f:ConnectionTypeStatus.to_value));
        ("CanceledAt", (Option.map x.canceledAt ~f:DateTime.to_value));
        ("CanceledBy", (Option.map x.canceledBy ~f:AwsAccountId.to_value));
        ("OtherParticipant",
          (Option.map x.otherParticipant ~f:Participant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let otherParticipant =
        (Option.map ~f:Participant.of_xml)
          (Xml.child xml_arg0 "OtherParticipant") in
      let canceledBy =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "CanceledBy") in
      let canceledAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CanceledAt") in
      let status =
        (Option.map ~f:ConnectionTypeStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let inviterName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "InviterName") in
      let inviterEmail =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "InviterEmail") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      make ?otherParticipant ?canceledBy ?canceledAt ?status ?inviterName
        ?inviterEmail ?createdAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let otherParticipant =
        field_map json__ "OtherParticipant" Participant.of_json in
      let canceledBy = field_map json__ "CanceledBy" AwsAccountId.of_json in
      let canceledAt = field_map json__ "CanceledAt" DateTime.of_json in
      let status = field_map json__ "Status" ConnectionTypeStatus.of_json in
      let inviterName =
        field_map json__ "InviterName" SensitiveUnicodeString.of_json in
      let inviterEmail = field_map json__ "InviterEmail" Email.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      make ?otherParticipant ?canceledBy ?canceledAt ?status ?inviterName
        ?inviterEmail ?createdAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed information about a specific connection type within a connection."]
module AccessDeniedExceptionReason =
  struct
    type nonrec t =
      | ACCESS_DENIED 
      | INCOMPATIBLE_BENEFIT_AWS_PARTNER_STATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCESS_DENIED -> "ACCESS_DENIED"
      | INCOMPATIBLE_BENEFIT_AWS_PARTNER_STATE ->
          "INCOMPATIBLE_BENEFIT_AWS_PARTNER_STATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCESS_DENIED" -> ACCESS_DENIED
      | "INCOMPATIBLE_BENEFIT_AWS_PARTNER_STATE" ->
          INCOMPATIBLE_BENEFIT_AWS_PARTNER_STATE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AccessDeniedExceptionReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AccessDeniedExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ConflictExceptionReason =
  struct
    type nonrec t =
      | CONFLICT_CLIENT_TOKEN 
      | DUPLICATE_PARTNER 
      | INCOMPATIBLE_PROFILE_STATE 
      | INCOMPATIBLE_PARTNER_PROFILE_TASK_STATE 
      | DUPLICATE_CONNECTION_INVITATION 
      | INCOMPATIBLE_CONNECTION_INVITATION_STATE 
      | INCOMPATIBLE_CONNECTION_INVITATION_RECEIVER 
      | DUPLICATE_CONNECTION 
      | INCOMPATIBLE_CONNECTION_STATE 
      | INCOMPATIBLE_CONNECTION_PREFERENCES_REVISION 
      | ACCOUNT_ALREADY_VERIFIED 
      | VERIFICATION_ALREADY_IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONFLICT_CLIENT_TOKEN -> "CONFLICT_CLIENT_TOKEN"
      | DUPLICATE_PARTNER -> "DUPLICATE_PARTNER"
      | INCOMPATIBLE_PROFILE_STATE -> "INCOMPATIBLE_PROFILE_STATE"
      | INCOMPATIBLE_PARTNER_PROFILE_TASK_STATE ->
          "INCOMPATIBLE_PARTNER_PROFILE_TASK_STATE"
      | DUPLICATE_CONNECTION_INVITATION -> "DUPLICATE_CONNECTION_INVITATION"
      | INCOMPATIBLE_CONNECTION_INVITATION_STATE ->
          "INCOMPATIBLE_CONNECTION_INVITATION_STATE"
      | INCOMPATIBLE_CONNECTION_INVITATION_RECEIVER ->
          "INCOMPATIBLE_CONNECTION_INVITATION_RECEIVER"
      | DUPLICATE_CONNECTION -> "DUPLICATE_CONNECTION"
      | INCOMPATIBLE_CONNECTION_STATE -> "INCOMPATIBLE_CONNECTION_STATE"
      | INCOMPATIBLE_CONNECTION_PREFERENCES_REVISION ->
          "INCOMPATIBLE_CONNECTION_PREFERENCES_REVISION"
      | ACCOUNT_ALREADY_VERIFIED -> "ACCOUNT_ALREADY_VERIFIED"
      | VERIFICATION_ALREADY_IN_PROGRESS ->
          "VERIFICATION_ALREADY_IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONFLICT_CLIENT_TOKEN" -> CONFLICT_CLIENT_TOKEN
      | "DUPLICATE_PARTNER" -> DUPLICATE_PARTNER
      | "INCOMPATIBLE_PROFILE_STATE" -> INCOMPATIBLE_PROFILE_STATE
      | "INCOMPATIBLE_PARTNER_PROFILE_TASK_STATE" ->
          INCOMPATIBLE_PARTNER_PROFILE_TASK_STATE
      | "DUPLICATE_CONNECTION_INVITATION" -> DUPLICATE_CONNECTION_INVITATION
      | "INCOMPATIBLE_CONNECTION_INVITATION_STATE" ->
          INCOMPATIBLE_CONNECTION_INVITATION_STATE
      | "INCOMPATIBLE_CONNECTION_INVITATION_RECEIVER" ->
          INCOMPATIBLE_CONNECTION_INVITATION_RECEIVER
      | "DUPLICATE_CONNECTION" -> DUPLICATE_CONNECTION
      | "INCOMPATIBLE_CONNECTION_STATE" -> INCOMPATIBLE_CONNECTION_STATE
      | "INCOMPATIBLE_CONNECTION_PREFERENCES_REVISION" ->
          INCOMPATIBLE_CONNECTION_PREFERENCES_REVISION
      | "ACCOUNT_ALREADY_VERIFIED" -> ACCOUNT_ALREADY_VERIFIED
      | "VERIFICATION_ALREADY_IN_PROGRESS" ->
          VERIFICATION_ALREADY_IN_PROGRESS
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ConflictExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConflictExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ValidationErrorList =
  struct
    type nonrec t = ValidationError.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:ValidationError.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:ValidationError.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationErrorList"
        ~of_json:ValidationError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | REQUEST_VALIDATION_FAILED 
      | BUSINESS_VALIDATION_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUEST_VALIDATION_FAILED -> "REQUEST_VALIDATION_FAILED"
      | BUSINESS_VALIDATION_FAILED -> "BUSINESS_VALIDATION_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUEST_VALIDATION_FAILED" -> REQUEST_VALIDATION_FAILED
      | "BUSINESS_VALIDATION_FAILED" -> BUSINESS_VALIDATION_FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundExceptionReason =
  struct
    type nonrec t =
      | PARTNER_NOT_FOUND 
      | PARTNER_PROFILE_NOT_FOUND 
      | PARTNER_PROFILE_TASK_NOT_FOUND 
      | PARTNER_DOMAIN_NOT_FOUND 
      | SENDER_PROFILE_NOT_FOUND 
      | RECEIVER_PROFILE_NOT_FOUND 
      | CONNECTION_INVITATION_NOT_FOUND 
      | CONNECTION_NOT_FOUND 
      | VERIFICATION_NOT_FOUND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PARTNER_NOT_FOUND -> "PARTNER_NOT_FOUND"
      | PARTNER_PROFILE_NOT_FOUND -> "PARTNER_PROFILE_NOT_FOUND"
      | PARTNER_PROFILE_TASK_NOT_FOUND -> "PARTNER_PROFILE_TASK_NOT_FOUND"
      | PARTNER_DOMAIN_NOT_FOUND -> "PARTNER_DOMAIN_NOT_FOUND"
      | SENDER_PROFILE_NOT_FOUND -> "SENDER_PROFILE_NOT_FOUND"
      | RECEIVER_PROFILE_NOT_FOUND -> "RECEIVER_PROFILE_NOT_FOUND"
      | CONNECTION_INVITATION_NOT_FOUND -> "CONNECTION_INVITATION_NOT_FOUND"
      | CONNECTION_NOT_FOUND -> "CONNECTION_NOT_FOUND"
      | VERIFICATION_NOT_FOUND -> "VERIFICATION_NOT_FOUND"
      | Non_static_id s -> s
    let of_string =
      function
      | "PARTNER_NOT_FOUND" -> PARTNER_NOT_FOUND
      | "PARTNER_PROFILE_NOT_FOUND" -> PARTNER_PROFILE_NOT_FOUND
      | "PARTNER_PROFILE_TASK_NOT_FOUND" -> PARTNER_PROFILE_TASK_NOT_FOUND
      | "PARTNER_DOMAIN_NOT_FOUND" -> PARTNER_DOMAIN_NOT_FOUND
      | "SENDER_PROFILE_NOT_FOUND" -> SENDER_PROFILE_NOT_FOUND
      | "RECEIVER_PROFILE_NOT_FOUND" -> RECEIVER_PROFILE_NOT_FOUND
      | "CONNECTION_INVITATION_NOT_FOUND" -> CONNECTION_INVITATION_NOT_FOUND
      | "CONNECTION_NOT_FOUND" -> CONNECTION_NOT_FOUND
      | "VERIFICATION_NOT_FOUND" -> VERIFICATION_NOT_FOUND
      | 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 ResourceNotFoundExceptionReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceNotFoundExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc "The key name of the tag. Tag keys are case-sensitive."];
      value: TagValue.t
        [@ocaml.doc
          "The value associated with the tag key. Tag values are case-sensitive."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair used to associate metadata with AWS Partner Central Account resources."]
module ServiceQuotaExceededExceptionReason =
  struct
    type nonrec t =
      | LIMIT_EXCEEDED_NUMBER_OF_EMAIL 
      | LIMIT_EXCEEDED_NUMBER_OF_DOMAIN 
      | LIMIT_EXCEEDED_NUMBER_OF_CONNECTION_INVITATION_PER_DAY 
      | LIMIT_EXCEEDED_NUMBER_OF_ACTIVE_CONNECTION 
      | LIMIT_EXCEEDED_NUMBER_OF_OPEN_CONNECTION_INVITATION 
      | LIMIT_EXCEEDED_NUMBER_OF_PROFILE_UPDATE_PER_DAY 
      | LIMIT_EXCEEDED_NUMBER_OF_PROFILE_VISIBILITY_UPDATE_PER_DAY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LIMIT_EXCEEDED_NUMBER_OF_EMAIL -> "LIMIT_EXCEEDED_NUMBER_OF_EMAIL"
      | LIMIT_EXCEEDED_NUMBER_OF_DOMAIN -> "LIMIT_EXCEEDED_NUMBER_OF_DOMAIN"
      | LIMIT_EXCEEDED_NUMBER_OF_CONNECTION_INVITATION_PER_DAY ->
          "LIMIT_EXCEEDED_NUMBER_OF_CONNECTION_INVITATION_PER_DAY"
      | LIMIT_EXCEEDED_NUMBER_OF_ACTIVE_CONNECTION ->
          "LIMIT_EXCEEDED_NUMBER_OF_ACTIVE_CONNECTION"
      | LIMIT_EXCEEDED_NUMBER_OF_OPEN_CONNECTION_INVITATION ->
          "LIMIT_EXCEEDED_NUMBER_OF_OPEN_CONNECTION_INVITATION"
      | LIMIT_EXCEEDED_NUMBER_OF_PROFILE_UPDATE_PER_DAY ->
          "LIMIT_EXCEEDED_NUMBER_OF_PROFILE_UPDATE_PER_DAY"
      | LIMIT_EXCEEDED_NUMBER_OF_PROFILE_VISIBILITY_UPDATE_PER_DAY ->
          "LIMIT_EXCEEDED_NUMBER_OF_PROFILE_VISIBILITY_UPDATE_PER_DAY"
      | Non_static_id s -> s
    let of_string =
      function
      | "LIMIT_EXCEEDED_NUMBER_OF_EMAIL" -> LIMIT_EXCEEDED_NUMBER_OF_EMAIL
      | "LIMIT_EXCEEDED_NUMBER_OF_DOMAIN" -> LIMIT_EXCEEDED_NUMBER_OF_DOMAIN
      | "LIMIT_EXCEEDED_NUMBER_OF_CONNECTION_INVITATION_PER_DAY" ->
          LIMIT_EXCEEDED_NUMBER_OF_CONNECTION_INVITATION_PER_DAY
      | "LIMIT_EXCEEDED_NUMBER_OF_ACTIVE_CONNECTION" ->
          LIMIT_EXCEEDED_NUMBER_OF_ACTIVE_CONNECTION
      | "LIMIT_EXCEEDED_NUMBER_OF_OPEN_CONNECTION_INVITATION" ->
          LIMIT_EXCEEDED_NUMBER_OF_OPEN_CONNECTION_INVITATION
      | "LIMIT_EXCEEDED_NUMBER_OF_PROFILE_UPDATE_PER_DAY" ->
          LIMIT_EXCEEDED_NUMBER_OF_PROFILE_UPDATE_PER_DAY
      | "LIMIT_EXCEEDED_NUMBER_OF_PROFILE_VISIBILITY_UPDATE_PER_DAY" ->
          LIMIT_EXCEEDED_NUMBER_OF_PROFILE_VISIBILITY_UPDATE_PER_DAY
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration ServiceQuotaExceededExceptionReason" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ServiceQuotaExceededExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module BusinessVerificationResponse =
  struct
    type nonrec t =
      {
      businessVerificationDetails: BusinessVerificationDetails.t option
        [@ocaml.doc
          "The business verification details that were processed and verified, potentially including additional information discovered during the verification process."];
      completionUrl: CompletionUrl.t option
        [@ocaml.doc
          "A secure URL where the registrant can complete additional verification steps, such as document upload or identity confirmation through a third-party verification service."];
      completionUrlExpiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the completion URL expires and is no longer valid for accessing the verification workflow."]}
    let make ?businessVerificationDetails =
      fun ?completionUrl ->
        fun ?completionUrlExpiresAt ->
          fun () ->
            {
              businessVerificationDetails;
              completionUrl;
              completionUrlExpiresAt
            }
    let to_value x =
      structure_to_value
        [("BusinessVerificationDetails",
           (Option.map x.businessVerificationDetails
              ~f:BusinessVerificationDetails.to_value));
        ("CompletionUrl",
          (Option.map x.completionUrl ~f:CompletionUrl.to_value));
        ("CompletionUrlExpiresAt",
          (Option.map x.completionUrlExpiresAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completionUrlExpiresAt =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "CompletionUrlExpiresAt") in
      let completionUrl =
        (Option.map ~f:CompletionUrl.of_xml)
          (Xml.child xml_arg0 "CompletionUrl") in
      let businessVerificationDetails =
        (Option.map ~f:BusinessVerificationDetails.of_xml)
          (Xml.child xml_arg0 "BusinessVerificationDetails") in
      make ?completionUrlExpiresAt ?completionUrl
        ?businessVerificationDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completionUrlExpiresAt =
        field_map json__ "CompletionUrlExpiresAt" DateTime.of_json in
      let completionUrl =
        field_map json__ "CompletionUrl" CompletionUrl.of_json in
      let businessVerificationDetails =
        field_map json__ "BusinessVerificationDetails"
          BusinessVerificationDetails.of_json in
      make ?completionUrlExpiresAt ?completionUrl
        ?businessVerificationDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the response information and results from a business verification process, including any verification-specific data returned by the verification service."]
module RegistrantVerificationResponse =
  struct
    type nonrec t =
      {
      completionUrl: CompletionUrl.t option
        [@ocaml.doc
          "A secure URL where the registrant can complete additional verification steps, such as document upload or identity confirmation through a third-party verification service."];
      completionUrlExpiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the completion URL expires and is no longer valid for accessing the verification workflow."]}
    let make ?completionUrl =
      fun ?completionUrlExpiresAt ->
        fun () -> { completionUrl; completionUrlExpiresAt }
    let to_value x =
      structure_to_value
        [("CompletionUrl",
           (Option.map x.completionUrl ~f:CompletionUrl.to_value));
        ("CompletionUrlExpiresAt",
          (Option.map x.completionUrlExpiresAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completionUrlExpiresAt =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "CompletionUrlExpiresAt") in
      let completionUrl =
        (Option.map ~f:CompletionUrl.of_xml)
          (Xml.child xml_arg0 "CompletionUrl") in
      make ?completionUrlExpiresAt ?completionUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completionUrlExpiresAt =
        field_map json__ "CompletionUrlExpiresAt" DateTime.of_json in
      let completionUrl =
        field_map json__ "CompletionUrl" CompletionUrl.of_json in
      make ?completionUrlExpiresAt ?completionUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the response information from a registrant verification process, including any verification-specific data and next steps for the individual verification workflow."]
module RegistrantVerificationDetails =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the personal information required for verifying an individual's identity as part of the partner registration process in AWS Partner Central."]
module ErrorDetail =
  struct
    type nonrec t =
      {
      locale: String_.t option
        [@ocaml.doc "The locale or language code for the error message."];
      message: String_.t option
        [@ocaml.doc "A human-readable description of the error."];
      reason: ProfileValidationErrorReason.t option
        [@ocaml.doc "A machine-readable code or reason for the error."]}
    let make ?locale =
      fun ?message -> fun ?reason -> fun () -> { locale; message; reason }
    let to_value x =
      structure_to_value
        [("Locale", (Option.map x.locale ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:ProfileValidationErrorReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ProfileValidationErrorReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let locale =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Locale") in
      make ?reason ?message ?locale ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" ProfileValidationErrorReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      let locale = field_map json__ "Locale" String_.of_json in
      make ?reason ?message ?locale ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about an error that occurred during an operation."]
module IndustrySegmentList =
  struct
    type nonrec t = IndustrySegment.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IndustrySegment.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:IndustrySegment.of_xml)
    let of_json j =
      list_of_json ~kind:"IndustrySegmentList"
        ~of_json:IndustrySegment.of_json j
    let to_json v = composed_to_json to_value v
  end
module LocalizedContentList =
  struct
    type nonrec t = LocalizedContent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LocalizedContent.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:LocalizedContent.of_xml)
    let of_json j =
      list_of_json ~kind:"LocalizedContentList"
        ~of_json:LocalizedContent.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrimarySolutionType =
  struct
    type nonrec t =
      | SOFTWARE_PRODUCTS 
      | CONSULTING_SERVICES 
      | PROFESSIONAL_SERVICES 
      | MANAGED_SERVICES 
      | HARDWARE_PRODUCTS 
      | COMMUNICATION_SERVICES 
      | VALUE_ADDED_RESALE_AWS_SERVICES 
      | TRAINING_SERVICES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOFTWARE_PRODUCTS -> "SOFTWARE_PRODUCTS"
      | CONSULTING_SERVICES -> "CONSULTING_SERVICES"
      | PROFESSIONAL_SERVICES -> "PROFESSIONAL_SERVICES"
      | MANAGED_SERVICES -> "MANAGED_SERVICES"
      | HARDWARE_PRODUCTS -> "HARDWARE_PRODUCTS"
      | COMMUNICATION_SERVICES -> "COMMUNICATION_SERVICES"
      | VALUE_ADDED_RESALE_AWS_SERVICES -> "VALUE_ADDED_RESALE_AWS_SERVICES"
      | TRAINING_SERVICES -> "TRAINING_SERVICES"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOFTWARE_PRODUCTS" -> SOFTWARE_PRODUCTS
      | "CONSULTING_SERVICES" -> CONSULTING_SERVICES
      | "PROFESSIONAL_SERVICES" -> PROFESSIONAL_SERVICES
      | "MANAGED_SERVICES" -> MANAGED_SERVICES
      | "HARDWARE_PRODUCTS" -> HARDWARE_PRODUCTS
      | "COMMUNICATION_SERVICES" -> COMMUNICATION_SERVICES
      | "VALUE_ADDED_RESALE_AWS_SERVICES" -> VALUE_ADDED_RESALE_AWS_SERVICES
      | "TRAINING_SERVICES" -> TRAINING_SERVICES
      | 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 PrimarySolutionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PrimarySolutionType" j)
    let to_json = simple_to_json to_value
  end
module TaskDetailsDescriptionString =
  struct
    type nonrec t = string
    let context_ = "TaskDetailsDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"TaskDetailsDescriptionString" j
    let to_json = simple_to_json to_value
  end
module PartnerSummary =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      legalName: SensitiveUnicodeString.t option
        [@ocaml.doc "The legal name of the partner organization."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the partner account was created."]}
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?legalName ->
            fun ?createdAt ->
              fun () -> { catalog; arn; id; legalName; createdAt }
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("LegalName",
          (Option.map x.legalName ~f:SensitiveUnicodeString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let legalName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "LegalName") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?createdAt ?legalName ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let legalName =
        field_map json__ "LegalName" SensitiveUnicodeString.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?createdAt ?legalName ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary view of a partner account containing basic information for listing purposes."]
module ConnectionSummary =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier where the connection exists."];
      id: ConnectionId.t option
        [@ocaml.doc "The unique identifier of the connection."];
      arn: ConnectionArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the connection."];
      otherParticipantAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The AWS account ID of the other participant in the connection."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the connection was last updated."];
      connectionTypes: ConnectionTypeSummaryMap.t option
        [@ocaml.doc
          "A map of connection types and their summary information for this connection."]}
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?otherParticipantAccountId ->
            fun ?updatedAt ->
              fun ?connectionTypes ->
                fun () ->
                  {
                    catalog;
                    id;
                    arn;
                    otherParticipantAccountId;
                    updatedAt;
                    connectionTypes
                  }
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionArn.to_value));
        ("OtherParticipantAccountId",
          (Option.map x.otherParticipantAccountId ~f:AwsAccountId.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ConnectionTypes",
          (Option.map x.connectionTypes ~f:ConnectionTypeSummaryMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionTypes =
        (Option.map ~f:ConnectionTypeSummaryMap.of_xml)
          (Xml.child xml_arg0 "ConnectionTypes") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let otherParticipantAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "OtherParticipantAccountId") in
      let arn =
        (Option.map ~f:ConnectionArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ConnectionId.of_xml) (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionTypes =
        field_map json__ "ConnectionTypes" ConnectionTypeSummaryMap.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let otherParticipantAccountId =
        field_map json__ "OtherParticipantAccountId" AwsAccountId.of_json in
      let arn = field_map json__ "Arn" ConnectionArn.of_json in
      let id = field_map json__ "Id" ConnectionId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary view of an active connection between partners containing key information."]
module ConnectionInvitationSummary =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the connection invitation exists."];
      id: ConnectionInvitationId.t option
        [@ocaml.doc "The unique identifier of the connection invitation."];
      arn: ConnectionInvitationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the connection invitation."];
      connectionId: ConnectionId.t option
        [@ocaml.doc
          "The identifier of the connection associated with this invitation."];
      connectionType: ConnectionType.t option
        [@ocaml.doc
          "The type of connection being requested in the invitation."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was last updated."];
      expiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation will expire."];
      otherParticipantIdentifier: ParticipantIdentifier.t option
        [@ocaml.doc
          "The identifier of the other participant in the connection invitation."];
      participantType: ParticipantType.t option
        [@ocaml.doc
          "The type of participant (inviter or invitee) in the connection invitation."];
      status: InvitationStatus.t option
        [@ocaml.doc "The current status of the connection invitation."]}
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?connectionId ->
            fun ?connectionType ->
              fun ?createdAt ->
                fun ?updatedAt ->
                  fun ?expiresAt ->
                    fun ?otherParticipantIdentifier ->
                      fun ?participantType ->
                        fun ?status ->
                          fun () ->
                            {
                              catalog;
                              id;
                              arn;
                              connectionId;
                              connectionType;
                              createdAt;
                              updatedAt;
                              expiresAt;
                              otherParticipantIdentifier;
                              participantType;
                              status
                            }
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionInvitationId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionInvitationArn.to_value));
        ("ConnectionId",
          (Option.map x.connectionId ~f:ConnectionId.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ExpiresAt", (Option.map x.expiresAt ~f:DateTime.to_value));
        ("OtherParticipantIdentifier",
          (Option.map x.otherParticipantIdentifier
             ~f:ParticipantIdentifier.to_value));
        ("ParticipantType",
          (Option.map x.participantType ~f:ParticipantType.to_value));
        ("Status", (Option.map x.status ~f:InvitationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:InvitationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let participantType =
        (Option.map ~f:ParticipantType.of_xml)
          (Xml.child xml_arg0 "ParticipantType") in
      let otherParticipantIdentifier =
        (Option.map ~f:ParticipantIdentifier.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifier") in
      let expiresAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ExpiresAt") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let connectionId =
        (Option.map ~f:ConnectionId.of_xml)
          (Xml.child xml_arg0 "ConnectionId") in
      let arn =
        (Option.map ~f:ConnectionInvitationArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let id =
        (Option.map ~f:ConnectionInvitationId.of_xml)
          (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?status ?participantType ?otherParticipantIdentifier ?expiresAt
        ?updatedAt ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" InvitationStatus.of_json in
      let participantType =
        field_map json__ "ParticipantType" ParticipantType.of_json in
      let otherParticipantIdentifier =
        field_map json__ "OtherParticipantIdentifier"
          ParticipantIdentifier.of_json in
      let expiresAt = field_map json__ "ExpiresAt" DateTime.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let connectionId = field_map json__ "ConnectionId" ConnectionId.of_json in
      let arn = field_map json__ "Arn" ConnectionInvitationArn.of_json in
      let id = field_map json__ "Id" ConnectionInvitationId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?status ?participantType ?otherParticipantIdentifier ?expiresAt
        ?updatedAt ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary view of a connection invitation containing key information without full details."]
module PartnerDomain =
  struct
    type nonrec t =
      {
      domainName: DomainName.t option
        [@ocaml.doc
          "The domain name that has been verified for the partner account."];
      registeredAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the domain was registered and verified for the partner account."]}
    let make ?domainName =
      fun ?registeredAt -> fun () -> { domainName; registeredAt }
    let to_value x =
      structure_to_value
        [("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("RegisteredAt", (Option.map x.registeredAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registeredAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "RegisteredAt") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      make ?registeredAt ?domainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registeredAt = field_map json__ "RegisteredAt" DateTime.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      make ?registeredAt ?domainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a verified domain associated with a partner account."]
module PartnerProfileDescriptionString =
  struct
    type nonrec t = string
    let context_ = "PartnerProfileDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"PartnerProfileDescriptionString" j
    let to_json = simple_to_json to_value
  end
module ConnectionTypeDetailMap =
  struct
    type nonrec t = (ConnectionType.t * ConnectionTypeDetail.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 ConnectionType ConnectionTypeDetail"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ConnectionType.to_value x) |>
                    (fun x ->
                       (ConnectionTypeDetail.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:ConnectionType.of_string
        ~of_json:ConnectionTypeDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: AccessDeniedExceptionReason.t option
        [@ocaml.doc "The specific reason for the access denial."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:AccessDeniedExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:AccessDeniedExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" AccessDeniedExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied due to insufficient permissions. The caller does not have the required permissions to perform this operation."]
module AccessType =
  struct
    type nonrec t =
      | ALLOW_ALL 
      | DENY_ALL 
      | ALLOW_BY_DEFAULT_DENY_SOME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALLOW_ALL -> "ALLOW_ALL"
      | DENY_ALL -> "DENY_ALL"
      | ALLOW_BY_DEFAULT_DENY_SOME -> "ALLOW_BY_DEFAULT_DENY_SOME"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALLOW_ALL" -> ALLOW_ALL
      | "DENY_ALL" -> DENY_ALL
      | "ALLOW_BY_DEFAULT_DENY_SOME" -> ALLOW_BY_DEFAULT_DENY_SOME
      | 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 AccessType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccessType" j)
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ConflictExceptionReason.t option
        [@ocaml.doc "The specific reason for the conflict."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason", (Option.map x.reason ~f:ConflictExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ConflictExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "Reason" ConflictExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request could not be completed due to a conflict with the current state of the resource. This typically occurs when trying to create a resource that already exists or modify a resource that has been changed by another process."]
module ConnectionPreferencesArn =
  struct
    type nonrec t = string
    let context_ = "ConnectionPreferencesArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-zA-Z0-9-]+:partnercentral:[a-z0-9\\-]*:[0-9]{12}:catalog/[a-zA-Z]+/connection-preferences")));
        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:"ConnectionPreferencesArn" j
    let to_json = simple_to_json to_value
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal server error occurred while processing the request. This is typically a temporary condition and the request may be retried."]
module ParticipantIdentifierList =
  struct
    type nonrec t = ParticipantIdentifier.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:ParticipantIdentifier.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:ParticipantIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantIdentifierList"
        ~of_json:ParticipantIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module Revision =
  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 ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option
        [@ocaml.doc "The service code associated with the throttling error."];
      quotaCode: String_.t option
        [@ocaml.doc "The quota code associated with the throttling error."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode -> fun () -> { message; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "QuotaCode" String_.of_json in
      let serviceCode = field_map json__ "ServiceCode" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was throttled due to too many requests being sent in a short period of time. The client should implement exponential backoff and retry the request."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the validation failure."];
      errorDetails: ValidationErrorList.t option
        [@ocaml.doc
          "A list of detailed validation errors that occurred during request processing."]}
    let make ?message =
      fun ?reason ->
        fun ?errorDetails -> fun () -> { message; reason; errorDetails }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:ValidationErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ValidationErrorList.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?errorDetails ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails =
        field_map json__ "ErrorDetails" ValidationErrorList.of_json in
      let reason =
        field_map json__ "Reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?errorDetails ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed validation. One or more input parameters are invalid, missing, or do not meet the required format or constraints."]
module UpdateConnectionPreferencesRequestExcludedParticipantIdentifiersList =
  struct
    type nonrec t = ParticipantIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ParticipantIdentifier.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:ParticipantIdentifier.of_xml)
    let of_json j =
      list_of_json
        ~kind:"UpdateConnectionPreferencesRequestExcludedParticipantIdentifiersList"
        ~of_json:ParticipantIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ResourceNotFoundExceptionReason.t option
        [@ocaml.doc "The specific reason why the resource was not found."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:ResourceNotFoundExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ResourceNotFoundExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" ResourceNotFoundExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified resource could not be found. This may occur when referencing a resource that does not exist or has been deleted."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaggableResourceArn =
  struct
    type nonrec t = string
    let context_ = "TaggableResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:[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:"TaggableResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ServiceQuotaExceededExceptionReason.t option
        [@ocaml.doc
          "The specific reason for the service quota being exceeded."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason
             ~f:ServiceQuotaExceededExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ServiceQuotaExceededExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" ServiceQuotaExceededExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because it would exceed a service quota or limit. This may occur when trying to create more resources than allowed by the service limits."]
module VerificationResponseDetails =
  struct
    type nonrec t =
      {
      businessVerificationResponse: BusinessVerificationResponse.t option
        [@ocaml.doc
          "The response details from a business verification process, including verification results and any additional business information discovered."];
      registrantVerificationResponse: RegistrantVerificationResponse.t option
        [@ocaml.doc
          "The response details from a registrant verification process, including verification results and any additional steps required for identity confirmation."]}
    let make ?businessVerificationResponse =
      fun ?registrantVerificationResponse ->
        fun () ->
          { businessVerificationResponse; registrantVerificationResponse }
    let to_value x =
      structure_to_value
        [("BusinessVerificationResponse",
           (Option.map x.businessVerificationResponse
              ~f:BusinessVerificationResponse.to_value));
        ("RegistrantVerificationResponse",
          (Option.map x.registrantVerificationResponse
             ~f:RegistrantVerificationResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrantVerificationResponse =
        (Option.map ~f:RegistrantVerificationResponse.of_xml)
          (Xml.child xml_arg0 "RegistrantVerificationResponse") in
      let businessVerificationResponse =
        (Option.map ~f:BusinessVerificationResponse.of_xml)
          (Xml.child xml_arg0 "BusinessVerificationResponse") in
      make ?registrantVerificationResponse ?businessVerificationResponse ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrantVerificationResponse =
        field_map json__ "RegistrantVerificationResponse"
          RegistrantVerificationResponse.of_json in
      let businessVerificationResponse =
        field_map json__ "BusinessVerificationResponse"
          BusinessVerificationResponse.of_json in
      make ?registrantVerificationResponse ?businessVerificationResponse ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A union structure containing the response details specific to different types of verification processes, providing type-specific information and results."]
module VerificationStatus =
  struct
    type nonrec t =
      | PENDING_CUSTOMER_ACTION 
      | IN_PROGRESS 
      | FAILED 
      | SUCCEEDED 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_CUSTOMER_ACTION -> "PENDING_CUSTOMER_ACTION"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | SUCCEEDED -> "SUCCEEDED"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_CUSTOMER_ACTION" -> PENDING_CUSTOMER_ACTION
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | "SUCCEEDED" -> SUCCEEDED
      | "REJECTED" -> REJECTED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VerificationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VerificationStatus" j)
    let to_json = simple_to_json to_value
  end
module VerificationStatusReason =
  struct
    type nonrec t = string
    let context_ = "VerificationStatusReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD]+")));
        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:"VerificationStatusReason" j
    let to_json = simple_to_json to_value
  end
module VerificationType =
  struct
    type nonrec t =
      | BUSINESS_VERIFICATION 
      | REGISTRANT_VERIFICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BUSINESS_VERIFICATION -> "BUSINESS_VERIFICATION"
      | REGISTRANT_VERIFICATION -> "REGISTRANT_VERIFICATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "BUSINESS_VERIFICATION" -> BUSINESS_VERIFICATION
      | "REGISTRANT_VERIFICATION" -> REGISTRANT_VERIFICATION
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration VerificationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VerificationType" j)
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module VerificationDetails =
  struct
    type nonrec t =
      {
      businessVerificationDetails: BusinessVerificationDetails.t option
        [@ocaml.doc
          "The business verification details to be used when starting a business verification process."];
      registrantVerificationDetails: RegistrantVerificationDetails.t option
        [@ocaml.doc
          "The registrant verification details to be used when starting an individual identity verification process."]}
    let make ?businessVerificationDetails =
      fun ?registrantVerificationDetails ->
        fun () ->
          { businessVerificationDetails; registrantVerificationDetails }
    let to_value x =
      structure_to_value
        [("BusinessVerificationDetails",
           (Option.map x.businessVerificationDetails
              ~f:BusinessVerificationDetails.to_value));
        ("RegistrantVerificationDetails",
          (Option.map x.registrantVerificationDetails
             ~f:RegistrantVerificationDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registrantVerificationDetails =
        (Option.map ~f:RegistrantVerificationDetails.of_xml)
          (Xml.child xml_arg0 "RegistrantVerificationDetails") in
      let businessVerificationDetails =
        (Option.map ~f:BusinessVerificationDetails.of_xml)
          (Xml.child xml_arg0 "BusinessVerificationDetails") in
      make ?registrantVerificationDetails ?businessVerificationDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registrantVerificationDetails =
        field_map json__ "RegistrantVerificationDetails"
          RegistrantVerificationDetails.of_json in
      let businessVerificationDetails =
        field_map json__ "BusinessVerificationDetails"
          BusinessVerificationDetails.of_json in
      make ?registrantVerificationDetails ?businessVerificationDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A union structure containing the specific details required for different types of verification processes supported by AWS Partner Central."]
module ErrorDetailList =
  struct
    type nonrec t = ErrorDetail.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ErrorDetail.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:ErrorDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ErrorDetailList" ~of_json:ErrorDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProfileTaskId =
  struct
    type nonrec t = string
    let context_ = "ProfileTaskId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i ~pattern:"pprofiletask-[A-Za-z0-9]{13}")));
        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:"ProfileTaskId" j
    let to_json = simple_to_json to_value
  end
module ProfileTaskStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | CANCELED 
      | SUCCEEDED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | CANCELED -> "CANCELED"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "CANCELED" -> CANCELED
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ProfileTaskStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProfileTaskStatus" j)
    let to_json = simple_to_json to_value
  end
module TaskDetails =
  struct
    type nonrec t =
      {
      displayName: UnicodeString.t
        [@ocaml.doc "The updated display name for the partner profile."];
      description: TaskDetailsDescriptionString.t
        [@ocaml.doc "The updated description for the partner profile."];
      websiteUrl: Url.t
        [@ocaml.doc "The updated website URL for the partner profile."];
      logoUrl: Url.t
        [@ocaml.doc "The updated logo URL for the partner profile."];
      primarySolutionType: PrimarySolutionType.t
        [@ocaml.doc
          "The updated primary solution type for the partner profile."];
      industrySegments: IndustrySegmentList.t
        [@ocaml.doc "The updated industry segments for the partner profile."];
      translationSourceLocale: Locale.t
        [@ocaml.doc
          "The updated translation source locale for the partner profile."];
      localizedContents: LocalizedContentList.t option
        [@ocaml.doc "The updated localized content for the partner profile."]}
    let context_ = "TaskDetails"
    let make ?localizedContents =
      fun ~displayName ->
        fun ~description ->
          fun ~websiteUrl ->
            fun ~logoUrl ->
              fun ~primarySolutionType ->
                fun ~industrySegments ->
                  fun ~translationSourceLocale ->
                    fun () ->
                      {
                        localizedContents;
                        displayName;
                        description;
                        websiteUrl;
                        logoUrl;
                        primarySolutionType;
                        industrySegments;
                        translationSourceLocale
                      }
    let to_value x =
      structure_to_value
        [("DisplayName", (Some (UnicodeString.to_value x.displayName)));
        ("Description",
          (Some (TaskDetailsDescriptionString.to_value x.description)));
        ("WebsiteUrl", (Some (Url.to_value x.websiteUrl)));
        ("LogoUrl", (Some (Url.to_value x.logoUrl)));
        ("PrimarySolutionType",
          (Some (PrimarySolutionType.to_value x.primarySolutionType)));
        ("IndustrySegments",
          (Some (IndustrySegmentList.to_value x.industrySegments)));
        ("TranslationSourceLocale",
          (Some (Locale.to_value x.translationSourceLocale)));
        ("LocalizedContents",
          (Option.map x.localizedContents ~f:LocalizedContentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let localizedContents =
        (Option.map ~f:LocalizedContentList.of_xml)
          (Xml.child xml_arg0 "LocalizedContents") in
      let translationSourceLocale =
        Locale.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TranslationSourceLocale") in
      let industrySegments =
        IndustrySegmentList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndustrySegments") in
      let primarySolutionType =
        PrimarySolutionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimarySolutionType") in
      let logoUrl =
        Url.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LogoUrl") in
      let websiteUrl =
        Url.of_xml (Xml.child_exn ~context:context_ xml_arg0 "WebsiteUrl") in
      let description =
        TaskDetailsDescriptionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let displayName =
        UnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DisplayName") in
      make ?localizedContents ~translationSourceLocale ~industrySegments
        ~primarySolutionType ~logoUrl ~websiteUrl ~description ~displayName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let localizedContents =
        field_map json__ "LocalizedContents" LocalizedContentList.of_json in
      let translationSourceLocale =
        field_map_exn json__ "TranslationSourceLocale" Locale.of_json in
      let industrySegments =
        field_map_exn json__ "IndustrySegments" IndustrySegmentList.of_json in
      let primarySolutionType =
        field_map_exn json__ "PrimarySolutionType"
          PrimarySolutionType.of_json in
      let logoUrl = field_map_exn json__ "LogoUrl" Url.of_json in
      let websiteUrl = field_map_exn json__ "WebsiteUrl" Url.of_json in
      let description =
        field_map_exn json__ "Description"
          TaskDetailsDescriptionString.of_json in
      let displayName =
        field_map_exn json__ "DisplayName" UnicodeString.of_json in
      make ?localizedContents ~translationSourceLocale ~industrySegments
        ~primarySolutionType ~logoUrl ~websiteUrl ~description ~displayName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about a profile update task including the changes to be made."]
module PartnerIdentifier =
  struct
    type nonrec t = string
    let context_ = "PartnerIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(partner-[A-Za-z0-9]{13}|arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[A-Za-z-_]+/partner/partner-[A-Za-z0-9]{13})")));
        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:"PartnerIdentifier" j
    let to_json = simple_to_json to_value
  end
module RejectConnectionInvitationResponseInvitationMessageString =
  struct
    type nonrec t = string
    let context_ =
      "RejectConnectionInvitationResponseInvitationMessageString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD\\n]+")));
        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:"RejectConnectionInvitationResponseInvitationMessageString" j
    let to_json = simple_to_json to_value
  end
module RejectConnectionInvitationRequestReasonString =
  struct
    type nonrec t = string
    let context_ = "RejectConnectionInvitationRequestReasonString"
    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:"RejectConnectionInvitationRequestReasonString" j
    let to_json = simple_to_json to_value
  end
module ProfileVisibility =
  struct
    type nonrec t =
      | PRIVATE 
      | PUBLIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRIVATE -> "PRIVATE"
      | PUBLIC -> "PUBLIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRIVATE" -> PRIVATE
      | "PUBLIC" -> PUBLIC
      | 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 ProfileVisibility" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProfileVisibility" j)
    let to_json = simple_to_json to_value
  end
module AllianceLeadContact =
  struct
    type nonrec t =
      {
      firstName: SensitiveUnicodeString.t
        [@ocaml.doc "The first name of the alliance lead contact person."];
      lastName: SensitiveUnicodeString.t
        [@ocaml.doc "The last name of the alliance lead contact person."];
      email: Email.t
        [@ocaml.doc "The email address of the alliance lead contact person."];
      businessTitle: SensitiveUnicodeString.t
        [@ocaml.doc
          "The business title or role of the alliance lead contact person."]}
    let context_ = "AllianceLeadContact"
    let make ~firstName =
      fun ~lastName ->
        fun ~email ->
          fun ~businessTitle ->
            fun () -> { firstName; lastName; email; businessTitle }
    let to_value x =
      structure_to_value
        [("FirstName", (Some (SensitiveUnicodeString.to_value x.firstName)));
        ("LastName", (Some (SensitiveUnicodeString.to_value x.lastName)));
        ("Email", (Some (Email.to_value x.email)));
        ("BusinessTitle",
          (Some (SensitiveUnicodeString.to_value x.businessTitle)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let businessTitle =
        SensitiveUnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BusinessTitle") in
      let email =
        Email.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Email") in
      let lastName =
        SensitiveUnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LastName") in
      let firstName =
        SensitiveUnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FirstName") in
      make ~businessTitle ~email ~lastName ~firstName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let businessTitle =
        field_map_exn json__ "BusinessTitle" SensitiveUnicodeString.of_json in
      let email = field_map_exn json__ "Email" Email.of_json in
      let lastName =
        field_map_exn json__ "LastName" SensitiveUnicodeString.of_json in
      let firstName =
        field_map_exn json__ "FirstName" SensitiveUnicodeString.of_json in
      make ~businessTitle ~email ~lastName ~firstName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains contact information for the primary alliance lead responsible for partnership activities."]
module EmailVerificationCode =
  struct
    type nonrec t = string
    let context_ = "EmailVerificationCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:6) >>=
                  (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:"EmailVerificationCode" j
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module PartnerSummaryList =
  struct
    type nonrec t = PartnerSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:PartnerSummary.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:PartnerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PartnerSummaryList" ~of_json:PartnerSummary.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ConnectionSummaryList =
  struct
    type nonrec t = ConnectionSummary.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:ConnectionSummary.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:ConnectionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionSummaryList"
        ~of_json:ConnectionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConnectionTypeFilter =
  struct
    type nonrec t = string
    let context_ = "ConnectionTypeFilter"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z_-]+(:[a-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:"ConnectionTypeFilter" j
    let to_json = simple_to_json to_value
  end
module ListConnectionsRequestOtherParticipantIdentifiersList =
  struct
    type nonrec t = ParticipantIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ParticipantIdentifier.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:ParticipantIdentifier.of_xml)
    let of_json j =
      list_of_json
        ~kind:"ListConnectionsRequestOtherParticipantIdentifiersList"
        ~of_json:ParticipantIdentifier.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 ConnectionInvitationSummaryList =
  struct
    type nonrec t = ConnectionInvitationSummary.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:ConnectionInvitationSummary.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:ConnectionInvitationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConnectionInvitationSummaryList"
        ~of_json:ConnectionInvitationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListConnectionInvitationsRequestOtherParticipantIdentifiersList =
  struct
    type nonrec t = ParticipantIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ParticipantIdentifier.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:ParticipantIdentifier.of_xml)
    let of_json j =
      list_of_json
        ~kind:"ListConnectionInvitationsRequestOtherParticipantIdentifiersList"
        ~of_json:ParticipantIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartnerDomainList =
  struct
    type nonrec t = PartnerDomain.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PartnerDomain.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:PartnerDomain.of_xml)
    let of_json j =
      list_of_json ~kind:"PartnerDomainList" ~of_json:PartnerDomain.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartnerProfile =
  struct
    type nonrec t =
      {
      displayName: UnicodeString.t option
        [@ocaml.doc "The public display name for the partner organization."];
      description: PartnerProfileDescriptionString.t option
        [@ocaml.doc
          "A description of the partner's business, services, and capabilities."];
      websiteUrl: Url.t option
        [@ocaml.doc "The partner's primary website URL."];
      logoUrl: Url.t option
        [@ocaml.doc "The URL to the partner's logo image."];
      primarySolutionType: PrimarySolutionType.t option
        [@ocaml.doc
          "The primary type of solution or service the partner provides."];
      industrySegments: IndustrySegmentList.t option
        [@ocaml.doc
          "The industry segments or verticals that the partner serves."];
      translationSourceLocale: Locale.t option
        [@ocaml.doc
          "The source locale used for automatic translation of profile content."];
      localizedContents: LocalizedContentList.t option
        [@ocaml.doc
          "A list of localized content versions for different languages and regions."];
      profileId: PartnerProfileId.t option
        [@ocaml.doc "The unique identifier of the partner profile."]}
    let make ?displayName =
      fun ?description ->
        fun ?websiteUrl ->
          fun ?logoUrl ->
            fun ?primarySolutionType ->
              fun ?industrySegments ->
                fun ?translationSourceLocale ->
                  fun ?localizedContents ->
                    fun ?profileId ->
                      fun () ->
                        {
                          displayName;
                          description;
                          websiteUrl;
                          logoUrl;
                          primarySolutionType;
                          industrySegments;
                          translationSourceLocale;
                          localizedContents;
                          profileId
                        }
    let to_value x =
      structure_to_value
        [("DisplayName",
           (Option.map x.displayName ~f:UnicodeString.to_value));
        ("Description",
          (Option.map x.description
             ~f:PartnerProfileDescriptionString.to_value));
        ("WebsiteUrl", (Option.map x.websiteUrl ~f:Url.to_value));
        ("LogoUrl", (Option.map x.logoUrl ~f:Url.to_value));
        ("PrimarySolutionType",
          (Option.map x.primarySolutionType ~f:PrimarySolutionType.to_value));
        ("IndustrySegments",
          (Option.map x.industrySegments ~f:IndustrySegmentList.to_value));
        ("TranslationSourceLocale",
          (Option.map x.translationSourceLocale ~f:Locale.to_value));
        ("LocalizedContents",
          (Option.map x.localizedContents ~f:LocalizedContentList.to_value));
        ("ProfileId", (Option.map x.profileId ~f:PartnerProfileId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        (Option.map ~f:PartnerProfileId.of_xml)
          (Xml.child xml_arg0 "ProfileId") in
      let localizedContents =
        (Option.map ~f:LocalizedContentList.of_xml)
          (Xml.child xml_arg0 "LocalizedContents") in
      let translationSourceLocale =
        (Option.map ~f:Locale.of_xml)
          (Xml.child xml_arg0 "TranslationSourceLocale") in
      let industrySegments =
        (Option.map ~f:IndustrySegmentList.of_xml)
          (Xml.child xml_arg0 "IndustrySegments") in
      let primarySolutionType =
        (Option.map ~f:PrimarySolutionType.of_xml)
          (Xml.child xml_arg0 "PrimarySolutionType") in
      let logoUrl = (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "LogoUrl") in
      let websiteUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "WebsiteUrl") in
      let description =
        (Option.map ~f:PartnerProfileDescriptionString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let displayName =
        (Option.map ~f:UnicodeString.of_xml)
          (Xml.child xml_arg0 "DisplayName") in
      make ?profileId ?localizedContents ?translationSourceLocale
        ?industrySegments ?primarySolutionType ?logoUrl ?websiteUrl
        ?description ?displayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map json__ "ProfileId" PartnerProfileId.of_json in
      let localizedContents =
        field_map json__ "LocalizedContents" LocalizedContentList.of_json in
      let translationSourceLocale =
        field_map json__ "TranslationSourceLocale" Locale.of_json in
      let industrySegments =
        field_map json__ "IndustrySegments" IndustrySegmentList.of_json in
      let primarySolutionType =
        field_map json__ "PrimarySolutionType" PrimarySolutionType.of_json in
      let logoUrl = field_map json__ "LogoUrl" Url.of_json in
      let websiteUrl = field_map json__ "WebsiteUrl" Url.of_json in
      let description =
        field_map json__ "Description"
          PartnerProfileDescriptionString.of_json in
      let displayName = field_map json__ "DisplayName" UnicodeString.of_json in
      make ?profileId ?localizedContents ?translationSourceLocale
        ?industrySegments ?primarySolutionType ?logoUrl ?websiteUrl
        ?description ?displayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains comprehensive profile information for a partner including public-facing details."]
module GetConnectionInvitationResponseInvitationMessageString =
  struct
    type nonrec t = string
    let context_ = "GetConnectionInvitationResponseInvitationMessageString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD\\n]+")));
        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:"GetConnectionInvitationResponseInvitationMessageString" j
    let to_json = simple_to_json to_value
  end
module CreateConnectionInvitationResponseInvitationMessageString =
  struct
    type nonrec t = string
    let context_ =
      "CreateConnectionInvitationResponseInvitationMessageString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD\\n]+")));
        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:"CreateConnectionInvitationResponseInvitationMessageString" j
    let to_json = simple_to_json to_value
  end
module CreateConnectionInvitationRequestMessageString =
  struct
    type nonrec t = string
    let context_ = "CreateConnectionInvitationRequestMessageString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD\\n]+")));
        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:"CreateConnectionInvitationRequestMessageString" j
    let to_json = simple_to_json to_value
  end
module CancelConnectionRequestReasonString =
  struct
    type nonrec t = string
    let context_ = "CancelConnectionRequestReasonString"
    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:"CancelConnectionRequestReasonString" j
    let to_json = simple_to_json to_value
  end
module CancelConnectionInvitationResponseInvitationMessageString =
  struct
    type nonrec t = string
    let context_ =
      "CancelConnectionInvitationResponseInvitationMessageString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u007E\\u00A0-\\uD7FF\\uE000-\\uFFFD\\n]+")));
        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:"CancelConnectionInvitationResponseInvitationMessageString" j
    let to_json = simple_to_json to_value
  end
module Connection =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier that the connection belongs to."];
      id: ConnectionId.t option
        [@ocaml.doc "The unique identifier of the connection."];
      arn: ConnectionArn.t option
        [@ocaml.doc "The AWS Resource Name (ARN) of the connection."];
      otherParticipantAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The AWS account ID of the other participant in the connection."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the connection was last updated."];
      connectionTypes: ConnectionTypeDetailMap.t option
        [@ocaml.doc "The type of connection."]}
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?otherParticipantAccountId ->
            fun ?updatedAt ->
              fun ?connectionTypes ->
                fun () ->
                  {
                    catalog;
                    id;
                    arn;
                    otherParticipantAccountId;
                    updatedAt;
                    connectionTypes
                  }
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionArn.to_value));
        ("OtherParticipantAccountId",
          (Option.map x.otherParticipantAccountId ~f:AwsAccountId.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ConnectionTypes",
          (Option.map x.connectionTypes ~f:ConnectionTypeDetailMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionTypes =
        (Option.map ~f:ConnectionTypeDetailMap.of_xml)
          (Xml.child xml_arg0 "ConnectionTypes") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let otherParticipantAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "OtherParticipantAccountId") in
      let arn =
        (Option.map ~f:ConnectionArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ConnectionId.of_xml) (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionTypes =
        field_map json__ "ConnectionTypes" ConnectionTypeDetailMap.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let otherParticipantAccountId =
        field_map json__ "OtherParticipantAccountId" AwsAccountId.of_json in
      let arn = field_map json__ "Arn" ConnectionArn.of_json in
      let id = field_map json__ "Id" ConnectionId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Base structure containing common connection properties."]
module UpdateConnectionPreferencesResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: ConnectionPreferencesArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated connection preferences."];
      accessType: AccessType.t option
        [@ocaml.doc "The updated access type setting for connections."];
      excludedParticipantIds: ParticipantIdentifierList.t option
        [@ocaml.doc
          "A list of participant IDs that are excluded from connection requests or interactions."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection preferences were last updated."];
      revision: Revision.t option
        [@ocaml.doc
          "The updated revision number of the connection preferences."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?accessType ->
          fun ?excludedParticipantIds ->
            fun ?updatedAt ->
              fun ?revision ->
                fun () ->
                  {
                    catalog;
                    arn;
                    accessType;
                    excludedParticipantIds;
                    updatedAt;
                    revision
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionPreferencesArn.to_value));
        ("AccessType", (Option.map x.accessType ~f:AccessType.to_value));
        ("ExcludedParticipantIds",
          (Option.map x.excludedParticipantIds
             ~f:ParticipantIdentifierList.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("Revision", (Option.map x.revision ~f:Revision.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "Revision") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let excludedParticipantIds =
        (Option.map ~f:ParticipantIdentifierList.of_xml)
          (Xml.child xml_arg0 "ExcludedParticipantIds") in
      let accessType =
        (Option.map ~f:AccessType.of_xml) (Xml.child xml_arg0 "AccessType") in
      let arn =
        (Option.map ~f:ConnectionPreferencesArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?revision ?updatedAt ?excludedParticipantIds ?accessType ?arn
        ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revision = field_map json__ "Revision" Revision.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let excludedParticipantIds =
        field_map json__ "ExcludedParticipantIds"
          ParticipantIdentifierList.of_json in
      let accessType = field_map json__ "AccessType" AccessType.of_json in
      let arn = field_map json__ "Arn" ConnectionPreferencesArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?revision ?updatedAt ?excludedParticipantIds ?accessType ?arn
        ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the connection preferences for a partner account, modifying access settings and exclusions."]
module UpdateConnectionPreferencesRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      revision: Revision.t
        [@ocaml.doc
          "The revision number of the connection preferences for optimistic locking."];
      accessType: AccessType.t
        [@ocaml.doc
          "The access type setting for connections (e.g., open, restricted, invitation-only)."];
      excludedParticipantIdentifiers:
        UpdateConnectionPreferencesRequestExcludedParticipantIdentifiersList.t
          option
        [@ocaml.doc
          "The updated list of participant identifiers to exclude from connections."]}
    let context_ = "UpdateConnectionPreferencesRequest"
    let make ?excludedParticipantIdentifiers =
      fun ~catalog ->
        fun ~revision ->
          fun ~accessType ->
            fun () ->
              { excludedParticipantIdentifiers; catalog; revision; accessType
              }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Revision", (Some (Revision.to_value x.revision)));
        ("AccessType", (Some (AccessType.to_value x.accessType)));
        ("ExcludedParticipantIdentifiers",
          (Option.map x.excludedParticipantIdentifiers
             ~f:UpdateConnectionPreferencesRequestExcludedParticipantIdentifiersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let excludedParticipantIdentifiers =
        (Option.map
           ~f:UpdateConnectionPreferencesRequestExcludedParticipantIdentifiersList.of_xml)
          (Xml.child xml_arg0 "ExcludedParticipantIdentifiers") in
      let accessType =
        AccessType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccessType") in
      let revision =
        Revision.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Revision") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?excludedParticipantIdentifiers ~accessType ~revision ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let excludedParticipantIdentifiers =
        field_map json__ "ExcludedParticipantIdentifiers"
          UpdateConnectionPreferencesRequestExcludedParticipantIdentifiersList.of_json in
      let accessType = field_map_exn json__ "AccessType" AccessType.of_json in
      let revision = field_map_exn json__ "Revision" Revision.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?excludedParticipantIdentifiers ~accessType ~revision ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the connection preferences for a partner account, modifying access settings and exclusions."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes specified tags from an AWS Partner Central Account resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TaggableResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to remove tags from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "A list of tag keys to remove from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TaggableResourceArn.to_value x.resourceArn)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        TaggableResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "ResourceArn" TaggableResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes specified tags from an AWS Partner Central Account resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for a specified AWS Partner Central Account resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TaggableResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource to tag."];
      tags: TagList.t
        [@ocaml.doc
          "A list of tags to add or update for the specified resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TaggableResourceArn.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 =
        TaggableResourceArn.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" TaggableResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for a specified AWS Partner Central Account resource."]
module StartVerificationResponse =
  struct
    type nonrec t =
      {
      verificationType: VerificationType.t option
        [@ocaml.doc
          "The type of verification that was started based on the provided verification details."];
      verificationStatus: VerificationStatus.t option
        [@ocaml.doc
          "The initial status of the verification process after it has been started. Typically this will be pending or in-progress."];
      verificationStatusReason: VerificationStatusReason.t option
        [@ocaml.doc
          "Additional information about the initial verification status, including any immediate feedback about the submitted verification details."];
      verificationResponseDetails: VerificationResponseDetails.t option
        [@ocaml.doc
          "Initial response details specific to the type of verification started, which may include next steps or additional requirements."];
      startedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the verification process was successfully initiated."];
      completedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the verification process was completed. This field is typically null for newly started verifications unless they complete immediately."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verificationType =
      fun ?verificationStatus ->
        fun ?verificationStatusReason ->
          fun ?verificationResponseDetails ->
            fun ?startedAt ->
              fun ?completedAt ->
                fun () ->
                  {
                    verificationType;
                    verificationStatus;
                    verificationStatusReason;
                    verificationResponseDetails;
                    startedAt;
                    completedAt
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("VerificationType",
           (Option.map x.verificationType ~f:VerificationType.to_value));
        ("VerificationStatus",
          (Option.map x.verificationStatus ~f:VerificationStatus.to_value));
        ("VerificationStatusReason",
          (Option.map x.verificationStatusReason
             ~f:VerificationStatusReason.to_value));
        ("VerificationResponseDetails",
          (Option.map x.verificationResponseDetails
             ~f:VerificationResponseDetails.to_value));
        ("StartedAt", (Option.map x.startedAt ~f:DateTime.to_value));
        ("CompletedAt", (Option.map x.completedAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CompletedAt") in
      let startedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartedAt") in
      let verificationResponseDetails =
        (Option.map ~f:VerificationResponseDetails.of_xml)
          (Xml.child xml_arg0 "VerificationResponseDetails") in
      let verificationStatusReason =
        (Option.map ~f:VerificationStatusReason.of_xml)
          (Xml.child xml_arg0 "VerificationStatusReason") in
      let verificationStatus =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "VerificationStatus") in
      let verificationType =
        (Option.map ~f:VerificationType.of_xml)
          (Xml.child xml_arg0 "VerificationType") in
      make ?completedAt ?startedAt ?verificationResponseDetails
        ?verificationStatusReason ?verificationStatus ?verificationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completedAt = field_map json__ "CompletedAt" DateTime.of_json in
      let startedAt = field_map json__ "StartedAt" DateTime.of_json in
      let verificationResponseDetails =
        field_map json__ "VerificationResponseDetails"
          VerificationResponseDetails.of_json in
      let verificationStatusReason =
        field_map json__ "VerificationStatusReason"
          VerificationStatusReason.of_json in
      let verificationStatus =
        field_map json__ "VerificationStatus" VerificationStatus.of_json in
      let verificationType =
        field_map json__ "VerificationType" VerificationType.of_json in
      make ?completedAt ?startedAt ?verificationResponseDetails
        ?verificationStatusReason ?verificationStatus ?verificationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a new verification process for a partner account. This operation begins the verification workflow for either business registration or individual registrant identity verification as required by AWS Partner Central."]
module StartVerificationRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This prevents duplicate verification processes from being started accidentally."];
      verificationDetails: VerificationDetails.t option
        [@ocaml.doc
          "The specific details required for the verification process, including business information for business verification or personal information for registrant verification."]}
    let make ?clientToken =
      fun ?verificationDetails ->
        fun () -> { clientToken; verificationDetails }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("VerificationDetails",
          (Option.map x.verificationDetails ~f:VerificationDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationDetails =
        (Option.map ~f:VerificationDetails.of_xml)
          (Xml.child xml_arg0 "VerificationDetails") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?verificationDetails ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationDetails =
        field_map json__ "VerificationDetails" VerificationDetails.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?verificationDetails ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a new verification process for a partner account. This operation begins the verification workflow for either business registration or individual registrant identity verification as required by AWS Partner Central."]
module StartProfileUpdateTaskResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the started profile update task."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      taskId: ProfileTaskId.t option
        [@ocaml.doc
          "The unique identifier of the started profile update task."];
      taskDetails: TaskDetails.t option
        [@ocaml.doc
          "The details of the profile update task that was started."];
      startedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the profile update task was started."];
      status: ProfileTaskStatus.t option
        [@ocaml.doc
          "The current status of the profile update task (in progress)."];
      endedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the profile update task ended (null for in-progress tasks)."];
      errorDetailList: ErrorDetailList.t option
        [@ocaml.doc
          "A list of error details if any errors occurred during the profile update task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?taskId ->
            fun ?taskDetails ->
              fun ?startedAt ->
                fun ?status ->
                  fun ?endedAt ->
                    fun ?errorDetailList ->
                      fun () ->
                        {
                          catalog;
                          arn;
                          id;
                          taskId;
                          taskDetails;
                          startedAt;
                          status;
                          endedAt;
                          errorDetailList
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("TaskId", (Option.map x.taskId ~f:ProfileTaskId.to_value));
        ("TaskDetails", (Option.map x.taskDetails ~f:TaskDetails.to_value));
        ("StartedAt", (Option.map x.startedAt ~f:DateTime.to_value));
        ("Status", (Option.map x.status ~f:ProfileTaskStatus.to_value));
        ("EndedAt", (Option.map x.endedAt ~f:DateTime.to_value));
        ("ErrorDetailList",
          (Option.map x.errorDetailList ~f:ErrorDetailList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetailList =
        (Option.map ~f:ErrorDetailList.of_xml)
          (Xml.child xml_arg0 "ErrorDetailList") in
      let endedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndedAt") in
      let status =
        (Option.map ~f:ProfileTaskStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let startedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartedAt") in
      let taskDetails =
        (Option.map ~f:TaskDetails.of_xml) (Xml.child xml_arg0 "TaskDetails") in
      let taskId =
        (Option.map ~f:ProfileTaskId.of_xml) (Xml.child xml_arg0 "TaskId") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?errorDetailList ?endedAt ?status ?startedAt ?taskDetails ?taskId
        ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetailList =
        field_map json__ "ErrorDetailList" ErrorDetailList.of_json in
      let endedAt = field_map json__ "EndedAt" DateTime.of_json in
      let status = field_map json__ "Status" ProfileTaskStatus.of_json in
      let startedAt = field_map json__ "StartedAt" DateTime.of_json in
      let taskDetails = field_map json__ "TaskDetails" TaskDetails.of_json in
      let taskId = field_map json__ "TaskId" ProfileTaskId.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?errorDetailList ?endedAt ?status ?startedAt ?taskDetails ?taskId
        ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a profile update task to modify partner profile information asynchronously."]
module StartProfileUpdateTaskRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      taskDetails: TaskDetails.t
        [@ocaml.doc "The details of the profile updates to be performed."]}
    let context_ = "StartProfileUpdateTaskRequest"
    let make ?clientToken =
      fun ~catalog ->
        fun ~identifier ->
          fun ~taskDetails ->
            fun () -> { clientToken; catalog; identifier; taskDetails }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("TaskDetails", (Some (TaskDetails.to_value x.taskDetails)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskDetails =
        TaskDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TaskDetails") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~taskDetails ?clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskDetails =
        field_map_exn json__ "TaskDetails" TaskDetails.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~taskDetails ?clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a profile update task to modify partner profile information asynchronously."]
module SendEmailVerificationCodeResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Sends an email verification code to the specified email address for account verification purposes."]
module SendEmailVerificationCodeRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      email: Email.t
        [@ocaml.doc "The email address to send the verification code to."]}
    let context_ = "SendEmailVerificationCodeRequest"
    let make ~catalog = fun ~email -> fun () -> { catalog; email }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Email", (Some (Email.to_value x.email)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email =
        Email.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Email") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~email ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map_exn json__ "Email" Email.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~email ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends an email verification code to the specified email address for account verification purposes."]
module RejectConnectionInvitationResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the connection invitation was rejected."];
      id: ConnectionInvitationId.t option
        [@ocaml.doc
          "The unique identifier of the rejected connection invitation."];
      arn: ConnectionInvitationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rejected connection invitation."];
      connectionId: ConnectionId.t option
        [@ocaml.doc
          "The identifier of the connection associated with the rejected invitation."];
      connectionType: ConnectionType.t option
        [@ocaml.doc "The type of connection that was being invited for."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was originally created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was last updated (rejected)."];
      expiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation would have expired."];
      otherParticipantIdentifier: ParticipantIdentifier.t option
        [@ocaml.doc
          "The identifier of the other participant who sent the invitation."];
      participantType: ParticipantType.t option
        [@ocaml.doc
          "The type of participant (inviter or invitee) in the connection invitation."];
      status: InvitationStatus.t option
        [@ocaml.doc
          "The current status of the connection invitation (rejected)."];
      invitationMessage:
        RejectConnectionInvitationResponseInvitationMessageString.t option
        [@ocaml.doc
          "The message that was included with the original connection invitation."];
      inviterEmail: Email.t option
        [@ocaml.doc
          "The email address of the person who sent the connection invitation."];
      inviterName: SensitiveUnicodeString.t option
        [@ocaml.doc
          "The name of the person who sent the connection invitation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?connectionId ->
            fun ?connectionType ->
              fun ?createdAt ->
                fun ?updatedAt ->
                  fun ?expiresAt ->
                    fun ?otherParticipantIdentifier ->
                      fun ?participantType ->
                        fun ?status ->
                          fun ?invitationMessage ->
                            fun ?inviterEmail ->
                              fun ?inviterName ->
                                fun () ->
                                  {
                                    catalog;
                                    id;
                                    arn;
                                    connectionId;
                                    connectionType;
                                    createdAt;
                                    updatedAt;
                                    expiresAt;
                                    otherParticipantIdentifier;
                                    participantType;
                                    status;
                                    invitationMessage;
                                    inviterEmail;
                                    inviterName
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionInvitationId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionInvitationArn.to_value));
        ("ConnectionId",
          (Option.map x.connectionId ~f:ConnectionId.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ExpiresAt", (Option.map x.expiresAt ~f:DateTime.to_value));
        ("OtherParticipantIdentifier",
          (Option.map x.otherParticipantIdentifier
             ~f:ParticipantIdentifier.to_value));
        ("ParticipantType",
          (Option.map x.participantType ~f:ParticipantType.to_value));
        ("Status", (Option.map x.status ~f:InvitationStatus.to_value));
        ("InvitationMessage",
          (Option.map x.invitationMessage
             ~f:RejectConnectionInvitationResponseInvitationMessageString.to_value));
        ("InviterEmail", (Option.map x.inviterEmail ~f:Email.to_value));
        ("InviterName",
          (Option.map x.inviterName ~f:SensitiveUnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inviterName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "InviterName") in
      let inviterEmail =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "InviterEmail") in
      let invitationMessage =
        (Option.map
           ~f:RejectConnectionInvitationResponseInvitationMessageString.of_xml)
          (Xml.child xml_arg0 "InvitationMessage") in
      let status =
        (Option.map ~f:InvitationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let participantType =
        (Option.map ~f:ParticipantType.of_xml)
          (Xml.child xml_arg0 "ParticipantType") in
      let otherParticipantIdentifier =
        (Option.map ~f:ParticipantIdentifier.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifier") in
      let expiresAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ExpiresAt") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let connectionId =
        (Option.map ~f:ConnectionId.of_xml)
          (Xml.child xml_arg0 "ConnectionId") in
      let arn =
        (Option.map ~f:ConnectionInvitationArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let id =
        (Option.map ~f:ConnectionInvitationId.of_xml)
          (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inviterName =
        field_map json__ "InviterName" SensitiveUnicodeString.of_json in
      let inviterEmail = field_map json__ "InviterEmail" Email.of_json in
      let invitationMessage =
        field_map json__ "InvitationMessage"
          RejectConnectionInvitationResponseInvitationMessageString.of_json in
      let status = field_map json__ "Status" InvitationStatus.of_json in
      let participantType =
        field_map json__ "ParticipantType" ParticipantType.of_json in
      let otherParticipantIdentifier =
        field_map json__ "OtherParticipantIdentifier"
          ParticipantIdentifier.of_json in
      let expiresAt = field_map json__ "ExpiresAt" DateTime.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let connectionId = field_map json__ "ConnectionId" ConnectionId.of_json in
      let arn = field_map json__ "Arn" ConnectionInvitationArn.of_json in
      let id = field_map json__ "Id" ConnectionInvitationId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a connection invitation from another partner, declining the partnership request."]
module RejectConnectionInvitationRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier where the connection invitation exists."];
      identifier: ConnectionInvitationId.t
        [@ocaml.doc
          "The unique identifier of the connection invitation to reject."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      reason: RejectConnectionInvitationRequestReasonString.t option
        [@ocaml.doc "The reason for rejecting the connection invitation."]}
    let context_ = "RejectConnectionInvitationRequest"
    let make ?reason =
      fun ~catalog ->
        fun ~identifier ->
          fun ~clientToken ->
            fun () -> { reason; catalog; identifier; clientToken }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (ConnectionInvitationId.to_value x.identifier)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("Reason",
          (Option.map x.reason
             ~f:RejectConnectionInvitationRequestReasonString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:RejectConnectionInvitationRequestReasonString.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let identifier =
        ConnectionInvitationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?reason ~clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason"
          RejectConnectionInvitationRequestReasonString.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" ConnectionInvitationId.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?reason ~clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a connection invitation from another partner, declining the partnership request."]
module PutProfileVisibilityResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      visibility: ProfileVisibility.t option
        [@ocaml.doc
          "The updated visibility setting for the partner profile."];
      profileId: PartnerProfileId.t option
        [@ocaml.doc "The unique identifier of the partner profile."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?visibility ->
            fun ?profileId ->
              fun () -> { catalog; arn; id; visibility; profileId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("Visibility",
          (Option.map x.visibility ~f:ProfileVisibility.to_value));
        ("ProfileId", (Option.map x.profileId ~f:PartnerProfileId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        (Option.map ~f:PartnerProfileId.of_xml)
          (Xml.child xml_arg0 "ProfileId") in
      let visibility =
        (Option.map ~f:ProfileVisibility.of_xml)
          (Xml.child xml_arg0 "Visibility") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?profileId ?visibility ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map json__ "ProfileId" PartnerProfileId.of_json in
      let visibility =
        field_map json__ "Visibility" ProfileVisibility.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?profileId ?visibility ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the visibility level for a partner profile, controlling who can view the profile information."]
module PutProfileVisibilityRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."];
      visibility: ProfileVisibility.t
        [@ocaml.doc
          "The visibility setting to apply to the partner profile."]}
    let context_ = "PutProfileVisibilityRequest"
    let make ~catalog =
      fun ~identifier ->
        fun ~visibility -> fun () -> { catalog; identifier; visibility }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)));
        ("Visibility", (Some (ProfileVisibility.to_value x.visibility)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visibility =
        ProfileVisibility.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Visibility") in
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~visibility ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visibility =
        field_map_exn json__ "Visibility" ProfileVisibility.of_json in
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~visibility ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the visibility level for a partner profile, controlling who can view the profile information."]
module PutAllianceLeadContactResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      allianceLeadContact: AllianceLeadContact.t option
        [@ocaml.doc "The updated alliance lead contact information."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?allianceLeadContact ->
            fun () -> { catalog; arn; id; allianceLeadContact }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("AllianceLeadContact",
          (Option.map x.allianceLeadContact ~f:AllianceLeadContact.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allianceLeadContact =
        (Option.map ~f:AllianceLeadContact.of_xml)
          (Xml.child xml_arg0 "AllianceLeadContact") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?allianceLeadContact ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allianceLeadContact =
        field_map json__ "AllianceLeadContact" AllianceLeadContact.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?allianceLeadContact ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the alliance lead contact information for a partner account."]
module PutAllianceLeadContactRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."];
      allianceLeadContact: AllianceLeadContact.t
        [@ocaml.doc
          "The alliance lead contact information to set for the partner account."];
      emailVerificationCode: EmailVerificationCode.t option
        [@ocaml.doc
          "The verification code sent to the alliance lead contact's email to confirm the update."]}
    let context_ = "PutAllianceLeadContactRequest"
    let make ?emailVerificationCode =
      fun ~catalog ->
        fun ~identifier ->
          fun ~allianceLeadContact ->
            fun () ->
              {
                emailVerificationCode;
                catalog;
                identifier;
                allianceLeadContact
              }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)));
        ("AllianceLeadContact",
          (Some (AllianceLeadContact.to_value x.allianceLeadContact)));
        ("EmailVerificationCode",
          (Option.map x.emailVerificationCode
             ~f:EmailVerificationCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailVerificationCode =
        (Option.map ~f:EmailVerificationCode.of_xml)
          (Xml.child xml_arg0 "EmailVerificationCode") in
      let allianceLeadContact =
        AllianceLeadContact.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AllianceLeadContact") in
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?emailVerificationCode ~allianceLeadContact ~identifier ~catalog
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailVerificationCode =
        field_map json__ "EmailVerificationCode"
          EmailVerificationCode.of_json in
      let allianceLeadContact =
        field_map_exn json__ "AllianceLeadContact"
          AllianceLeadContact.of_json in
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?emailVerificationCode ~allianceLeadContact ~identifier ~catalog
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the alliance lead contact information for a partner account."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      resourceArn: TaggableResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that the tags are associated with."];
      tags: TagList.t option
        [@ocaml.doc "A list of tags associated with the specified resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn = fun ?tags -> fun () -> { resourceArn; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceArn",
           (Option.map x.resourceArn ~f:TaggableResourceArn.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let resourceArn =
        (Option.map ~f:TaggableResourceArn.of_xml)
          (Xml.child xml_arg0 "ResourceArn") in
      make ?tags ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceArn =
        field_map json__ "ResourceArn" TaggableResourceArn.of_json in
      make ?tags ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all tags associated with a specific AWS Partner Central Account resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TaggableResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to list tags for."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (TaggableResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        TaggableResourceArn.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" TaggableResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all tags associated with a specific AWS Partner Central Account resource."]
module ListPartnersResponse =
  struct
    type nonrec t =
      {
      partnerSummaryList: PartnerSummaryList.t option
        [@ocaml.doc
          "A list of partner summaries including basic information about each partner account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results if more results are available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?partnerSummaryList =
      fun ?nextToken -> fun () -> { partnerSummaryList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PartnerSummaryList",
           (Option.map x.partnerSummaryList ~f:PartnerSummaryList.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 partnerSummaryList =
        (Option.map ~f:PartnerSummaryList.of_xml)
          (Xml.child xml_arg0 "PartnerSummaryList") in
      make ?nextToken ?partnerSummaryList ()
    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 partnerSummaryList =
        field_map json__ "PartnerSummaryList" PartnerSummaryList.of_json in
      make ?nextToken ?partnerSummaryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists partner accounts in the catalog, providing a summary view of all partners."]
module ListPartnersRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier to list partners from."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results in paginated responses."]}
    let context_ = "ListPartnersRequest"
    let make ?nextToken = fun ~catalog -> fun () -> { nextToken; catalog }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("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 catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?nextToken ~catalog ()
    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 catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?nextToken ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists partner accounts in the catalog, providing a summary view of all partners."]
module ListConnectionsResponse =
  struct
    type nonrec t =
      {
      connectionSummaries: ConnectionSummaryList.t option
        [@ocaml.doc
          "A list of connection summaries matching the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results if more results are available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionSummaries =
      fun ?nextToken -> fun () -> { connectionSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConnectionSummaries",
           (Option.map x.connectionSummaries
              ~f:ConnectionSummaryList.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 connectionSummaries =
        (Option.map ~f:ConnectionSummaryList.of_xml)
          (Xml.child xml_arg0 "ConnectionSummaries") in
      make ?nextToken ?connectionSummaries ()
    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 connectionSummaries =
        field_map json__ "ConnectionSummaries" ConnectionSummaryList.of_json in
      make ?nextToken ?connectionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists active connections for the partner account, with optional filtering by connection type and participant."]
module ListConnectionsRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results in paginated responses."];
      connectionType: ConnectionTypeFilter.t option
        [@ocaml.doc
          "Filter results by connection type (e.g., reseller, distributor, technology partner)."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of connections to return in a single response."];
      otherParticipantIdentifiers:
        ListConnectionsRequestOtherParticipantIdentifiersList.t option
        [@ocaml.doc "Filter results by specific participant identifiers."]}
    let context_ = "ListConnectionsRequest"
    let make ?nextToken =
      fun ?connectionType ->
        fun ?maxResults ->
          fun ?otherParticipantIdentifiers ->
            fun ~catalog ->
              fun () ->
                {
                  nextToken;
                  connectionType;
                  maxResults;
                  otherParticipantIdentifiers;
                  catalog
                }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionTypeFilter.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("OtherParticipantIdentifiers",
          (Option.map x.otherParticipantIdentifiers
             ~f:ListConnectionsRequestOtherParticipantIdentifiersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let otherParticipantIdentifiers =
        (Option.map
           ~f:ListConnectionsRequestOtherParticipantIdentifiersList.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifiers") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let connectionType =
        (Option.map ~f:ConnectionTypeFilter.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?otherParticipantIdentifiers ?maxResults ?connectionType
        ?nextToken ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let otherParticipantIdentifiers =
        field_map json__ "OtherParticipantIdentifiers"
          ListConnectionsRequestOtherParticipantIdentifiersList.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionTypeFilter.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?otherParticipantIdentifiers ?maxResults ?connectionType
        ?nextToken ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists active connections for the partner account, with optional filtering by connection type and participant."]
module ListConnectionInvitationsResponse =
  struct
    type nonrec t =
      {
      connectionInvitationSummaries: ConnectionInvitationSummaryList.t option
        [@ocaml.doc
          "A list of connection invitation summaries matching the specified criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results if more results are available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connectionInvitationSummaries =
      fun ?nextToken ->
        fun () -> { connectionInvitationSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ConnectionInvitationSummaries",
           (Option.map x.connectionInvitationSummaries
              ~f:ConnectionInvitationSummaryList.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 connectionInvitationSummaries =
        (Option.map ~f:ConnectionInvitationSummaryList.of_xml)
          (Xml.child xml_arg0 "ConnectionInvitationSummaries") in
      make ?nextToken ?connectionInvitationSummaries ()
    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 connectionInvitationSummaries =
        field_map json__ "ConnectionInvitationSummaries"
          ConnectionInvitationSummaryList.of_json in
      make ?nextToken ?connectionInvitationSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists connection invitations for the partner account, with optional filtering by status, type, and other criteria."]
module ListConnectionInvitationsRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results in paginated responses."];
      connectionType: ConnectionType.t option
        [@ocaml.doc
          "Filter results by connection type (e.g., reseller, distributor, technology partner)."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of connection invitations to return in a single response."];
      otherParticipantIdentifiers:
        ListConnectionInvitationsRequestOtherParticipantIdentifiersList.t
          option
        [@ocaml.doc "Filter results by specific participant identifiers."];
      participantType: ParticipantType.t option
        [@ocaml.doc
          "Filter results by participant type (inviter or invitee)."];
      status: InvitationStatus.t option
        [@ocaml.doc
          "Filter results by invitation status (pending, accepted, rejected, canceled, expired)."]}
    let context_ = "ListConnectionInvitationsRequest"
    let make ?nextToken =
      fun ?connectionType ->
        fun ?maxResults ->
          fun ?otherParticipantIdentifiers ->
            fun ?participantType ->
              fun ?status ->
                fun ~catalog ->
                  fun () ->
                    {
                      nextToken;
                      connectionType;
                      maxResults;
                      otherParticipantIdentifiers;
                      participantType;
                      status;
                      catalog
                    }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("OtherParticipantIdentifiers",
          (Option.map x.otherParticipantIdentifiers
             ~f:ListConnectionInvitationsRequestOtherParticipantIdentifiersList.to_value));
        ("ParticipantType",
          (Option.map x.participantType ~f:ParticipantType.to_value));
        ("Status", (Option.map x.status ~f:InvitationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:InvitationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let participantType =
        (Option.map ~f:ParticipantType.of_xml)
          (Xml.child xml_arg0 "ParticipantType") in
      let otherParticipantIdentifiers =
        (Option.map
           ~f:ListConnectionInvitationsRequestOtherParticipantIdentifiersList.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifiers") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?status ?participantType ?otherParticipantIdentifiers ?maxResults
        ?connectionType ?nextToken ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" InvitationStatus.of_json in
      let participantType =
        field_map json__ "ParticipantType" ParticipantType.of_json in
      let otherParticipantIdentifiers =
        field_map json__ "OtherParticipantIdentifiers"
          ListConnectionInvitationsRequestOtherParticipantIdentifiersList.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?status ?participantType ?otherParticipantIdentifiers ?maxResults
        ?connectionType ?nextToken ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists connection invitations for the partner account, with optional filtering by status, type, and other criteria."]
module GetVerificationResponse =
  struct
    type nonrec t =
      {
      verificationType: VerificationType.t option
        [@ocaml.doc
          "The type of verification that was requested and processed."];
      verificationStatus: VerificationStatus.t option
        [@ocaml.doc
          "The current status of the verification process. Possible values include pending, in-progress, completed, failed, or expired."];
      verificationStatusReason: VerificationStatusReason.t option
        [@ocaml.doc
          "Additional information explaining the current verification status, particularly useful when the status indicates a failure or requires additional action."];
      verificationResponseDetails: VerificationResponseDetails.t option
        [@ocaml.doc
          "Detailed response information specific to the type of verification performed, including any verification-specific data or results."];
      startedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the verification process was initiated."];
      completedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the verification process was completed. This field is null if the verification is still in progress."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?verificationType =
      fun ?verificationStatus ->
        fun ?verificationStatusReason ->
          fun ?verificationResponseDetails ->
            fun ?startedAt ->
              fun ?completedAt ->
                fun () ->
                  {
                    verificationType;
                    verificationStatus;
                    verificationStatusReason;
                    verificationResponseDetails;
                    startedAt;
                    completedAt
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("VerificationType",
           (Option.map x.verificationType ~f:VerificationType.to_value));
        ("VerificationStatus",
          (Option.map x.verificationStatus ~f:VerificationStatus.to_value));
        ("VerificationStatusReason",
          (Option.map x.verificationStatusReason
             ~f:VerificationStatusReason.to_value));
        ("VerificationResponseDetails",
          (Option.map x.verificationResponseDetails
             ~f:VerificationResponseDetails.to_value));
        ("StartedAt", (Option.map x.startedAt ~f:DateTime.to_value));
        ("CompletedAt", (Option.map x.completedAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CompletedAt") in
      let startedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartedAt") in
      let verificationResponseDetails =
        (Option.map ~f:VerificationResponseDetails.of_xml)
          (Xml.child xml_arg0 "VerificationResponseDetails") in
      let verificationStatusReason =
        (Option.map ~f:VerificationStatusReason.of_xml)
          (Xml.child xml_arg0 "VerificationStatusReason") in
      let verificationStatus =
        (Option.map ~f:VerificationStatus.of_xml)
          (Xml.child xml_arg0 "VerificationStatus") in
      let verificationType =
        (Option.map ~f:VerificationType.of_xml)
          (Xml.child xml_arg0 "VerificationType") in
      make ?completedAt ?startedAt ?verificationResponseDetails
        ?verificationStatusReason ?verificationStatus ?verificationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completedAt = field_map json__ "CompletedAt" DateTime.of_json in
      let startedAt = field_map json__ "StartedAt" DateTime.of_json in
      let verificationResponseDetails =
        field_map json__ "VerificationResponseDetails"
          VerificationResponseDetails.of_json in
      let verificationStatusReason =
        field_map json__ "VerificationStatusReason"
          VerificationStatusReason.of_json in
      let verificationStatus =
        field_map json__ "VerificationStatus" VerificationStatus.of_json in
      let verificationType =
        field_map json__ "VerificationType" VerificationType.of_json in
      make ?completedAt ?startedAt ?verificationResponseDetails
        ?verificationStatusReason ?verificationStatus ?verificationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current status and details of a verification process for a partner account. This operation allows partners to check the progress and results of business or registrant verification processes."]
module GetVerificationRequest =
  struct
    type nonrec t =
      {
      verificationType: VerificationType.t
        [@ocaml.doc
          "The type of verification to retrieve information for. Valid values include business verification for company registration details and registrant verification for individual identity confirmation."]}
    let context_ = "GetVerificationRequest"
    let make ~verificationType = fun () -> { verificationType }
    let to_value x =
      structure_to_value
        [("VerificationType",
           (Some (VerificationType.to_value x.verificationType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verificationType =
        VerificationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VerificationType") in
      make ~verificationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verificationType =
        field_map_exn json__ "VerificationType" VerificationType.of_json in
      make ~verificationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current status and details of a verification process for a partner account. This operation allows partners to check the progress and results of business or registrant verification processes."]
module GetProfileVisibilityResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      visibility: ProfileVisibility.t option
        [@ocaml.doc
          "The visibility setting for the partner profile (public, private, restricted, etc.)."];
      profileId: PartnerProfileId.t option
        [@ocaml.doc "The unique identifier of the partner profile."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?visibility ->
            fun ?profileId ->
              fun () -> { catalog; arn; id; visibility; profileId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("Visibility",
          (Option.map x.visibility ~f:ProfileVisibility.to_value));
        ("ProfileId", (Option.map x.profileId ~f:PartnerProfileId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        (Option.map ~f:PartnerProfileId.of_xml)
          (Xml.child xml_arg0 "ProfileId") in
      let visibility =
        (Option.map ~f:ProfileVisibility.of_xml)
          (Xml.child xml_arg0 "Visibility") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?profileId ?visibility ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map json__ "ProfileId" PartnerProfileId.of_json in
      let visibility =
        field_map json__ "Visibility" ProfileVisibility.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?profileId ?visibility ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the visibility settings for a partner profile, determining who can see the profile information."]
module GetProfileVisibilityRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."]}
    let context_ = "GetProfileVisibilityRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the visibility settings for a partner profile, determining who can see the profile information."]
module GetProfileUpdateTaskResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the profile update task."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      taskId: ProfileTaskId.t option
        [@ocaml.doc "The unique identifier of the profile update task."];
      taskDetails: TaskDetails.t option
        [@ocaml.doc
          "The details of the profile update task including what changes are being made."];
      startedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the profile update task was started."];
      status: ProfileTaskStatus.t option
        [@ocaml.doc
          "The current status of the profile update task (in progress, completed, failed, etc.)."];
      endedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the profile update task was completed or failed."];
      errorDetailList: ErrorDetailList.t option
        [@ocaml.doc
          "A list of error details if any errors occurred during the profile update task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?taskId ->
            fun ?taskDetails ->
              fun ?startedAt ->
                fun ?status ->
                  fun ?endedAt ->
                    fun ?errorDetailList ->
                      fun () ->
                        {
                          catalog;
                          arn;
                          id;
                          taskId;
                          taskDetails;
                          startedAt;
                          status;
                          endedAt;
                          errorDetailList
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("TaskId", (Option.map x.taskId ~f:ProfileTaskId.to_value));
        ("TaskDetails", (Option.map x.taskDetails ~f:TaskDetails.to_value));
        ("StartedAt", (Option.map x.startedAt ~f:DateTime.to_value));
        ("Status", (Option.map x.status ~f:ProfileTaskStatus.to_value));
        ("EndedAt", (Option.map x.endedAt ~f:DateTime.to_value));
        ("ErrorDetailList",
          (Option.map x.errorDetailList ~f:ErrorDetailList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetailList =
        (Option.map ~f:ErrorDetailList.of_xml)
          (Xml.child xml_arg0 "ErrorDetailList") in
      let endedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndedAt") in
      let status =
        (Option.map ~f:ProfileTaskStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let startedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartedAt") in
      let taskDetails =
        (Option.map ~f:TaskDetails.of_xml) (Xml.child xml_arg0 "TaskDetails") in
      let taskId =
        (Option.map ~f:ProfileTaskId.of_xml) (Xml.child xml_arg0 "TaskId") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?errorDetailList ?endedAt ?status ?startedAt ?taskDetails ?taskId
        ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetailList =
        field_map json__ "ErrorDetailList" ErrorDetailList.of_json in
      let endedAt = field_map json__ "EndedAt" DateTime.of_json in
      let status = field_map json__ "Status" ProfileTaskStatus.of_json in
      let startedAt = field_map json__ "StartedAt" DateTime.of_json in
      let taskDetails = field_map json__ "TaskDetails" TaskDetails.of_json in
      let taskId = field_map json__ "TaskId" ProfileTaskId.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?errorDetailList ?endedAt ?status ?startedAt ?taskDetails ?taskId
        ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a specific profile update task."]
module GetProfileUpdateTaskRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."]}
    let context_ = "GetProfileUpdateTaskRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a specific profile update task."]
module GetPartnerResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      legalName: SensitiveUnicodeString.t option
        [@ocaml.doc "The legal name of the partner organization."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the partner account was created."];
      profile: PartnerProfile.t option
        [@ocaml.doc
          "The partner profile information including display name, description, and other public details."];
      awsTrainingCertificationEmailDomains: PartnerDomainList.t option
        [@ocaml.doc
          "The list of verified email domains associated with AWS training and certification credentials for the partner organization."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?legalName ->
            fun ?createdAt ->
              fun ?profile ->
                fun ?awsTrainingCertificationEmailDomains ->
                  fun () ->
                    {
                      catalog;
                      arn;
                      id;
                      legalName;
                      createdAt;
                      profile;
                      awsTrainingCertificationEmailDomains
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("LegalName",
          (Option.map x.legalName ~f:SensitiveUnicodeString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("Profile", (Option.map x.profile ~f:PartnerProfile.to_value));
        ("AwsTrainingCertificationEmailDomains",
          (Option.map x.awsTrainingCertificationEmailDomains
             ~f:PartnerDomainList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsTrainingCertificationEmailDomains =
        (Option.map ~f:PartnerDomainList.of_xml)
          (Xml.child xml_arg0 "AwsTrainingCertificationEmailDomains") in
      let profile =
        (Option.map ~f:PartnerProfile.of_xml) (Xml.child xml_arg0 "Profile") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let legalName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "LegalName") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?awsTrainingCertificationEmailDomains ?profile ?createdAt
        ?legalName ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsTrainingCertificationEmailDomains =
        field_map json__ "AwsTrainingCertificationEmailDomains"
          PartnerDomainList.of_json in
      let profile = field_map json__ "Profile" PartnerProfile.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let legalName =
        field_map json__ "LegalName" SensitiveUnicodeString.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?awsTrainingCertificationEmailDomains ?profile ?createdAt
        ?legalName ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a specific partner account."]
module GetPartnerRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc
          "The unique identifier of the partner account to retrieve."]}
    let context_ = "GetPartnerRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a specific partner account."]
module GetConnectionResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier where the connection exists."];
      id: ConnectionId.t option
        [@ocaml.doc "The unique identifier of the connection."];
      arn: ConnectionArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the connection."];
      otherParticipantAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The AWS account ID of the other participant in the connection."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the connection was last updated."];
      connectionTypes: ConnectionTypeDetailMap.t option
        [@ocaml.doc
          "The list of connection types active between the partners."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?otherParticipantAccountId ->
            fun ?updatedAt ->
              fun ?connectionTypes ->
                fun () ->
                  {
                    catalog;
                    id;
                    arn;
                    otherParticipantAccountId;
                    updatedAt;
                    connectionTypes
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionArn.to_value));
        ("OtherParticipantAccountId",
          (Option.map x.otherParticipantAccountId ~f:AwsAccountId.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ConnectionTypes",
          (Option.map x.connectionTypes ~f:ConnectionTypeDetailMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionTypes =
        (Option.map ~f:ConnectionTypeDetailMap.of_xml)
          (Xml.child xml_arg0 "ConnectionTypes") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let otherParticipantAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "OtherParticipantAccountId") in
      let arn =
        (Option.map ~f:ConnectionArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ConnectionId.of_xml) (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionTypes =
        field_map json__ "ConnectionTypes" ConnectionTypeDetailMap.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let otherParticipantAccountId =
        field_map json__ "OtherParticipantAccountId" AwsAccountId.of_json in
      let arn = field_map json__ "Arn" ConnectionArn.of_json in
      let id = field_map json__ "Id" ConnectionId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a specific connection between partners."]
module GetConnectionRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier where the connection exists."];
      identifier: ConnectionId.t
        [@ocaml.doc "The unique identifier of the connection to retrieve."]}
    let context_ = "GetConnectionRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (ConnectionId.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier = field_map_exn json__ "Identifier" ConnectionId.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a specific connection between partners."]
module GetConnectionPreferencesResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: ConnectionPreferencesArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the connection preferences."];
      accessType: AccessType.t option
        [@ocaml.doc
          "The access type setting for connections (e.g., open, restricted, invitation-only)."];
      excludedParticipantIds: ParticipantIdentifierList.t option
        [@ocaml.doc
          "A list of participant IDs that are excluded from connection requests or interactions."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection preferences were last updated."];
      revision: Revision.t option
        [@ocaml.doc
          "The revision number of the connection preferences for optimistic locking."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?accessType ->
          fun ?excludedParticipantIds ->
            fun ?updatedAt ->
              fun ?revision ->
                fun () ->
                  {
                    catalog;
                    arn;
                    accessType;
                    excludedParticipantIds;
                    updatedAt;
                    revision
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionPreferencesArn.to_value));
        ("AccessType", (Option.map x.accessType ~f:AccessType.to_value));
        ("ExcludedParticipantIds",
          (Option.map x.excludedParticipantIds
             ~f:ParticipantIdentifierList.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("Revision", (Option.map x.revision ~f:Revision.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "Revision") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let excludedParticipantIds =
        (Option.map ~f:ParticipantIdentifierList.of_xml)
          (Xml.child xml_arg0 "ExcludedParticipantIds") in
      let accessType =
        (Option.map ~f:AccessType.of_xml) (Xml.child xml_arg0 "AccessType") in
      let arn =
        (Option.map ~f:ConnectionPreferencesArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?revision ?updatedAt ?excludedParticipantIds ?accessType ?arn
        ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revision = field_map json__ "Revision" Revision.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let excludedParticipantIds =
        field_map json__ "ExcludedParticipantIds"
          ParticipantIdentifierList.of_json in
      let accessType = field_map json__ "AccessType" AccessType.of_json in
      let arn = field_map json__ "Arn" ConnectionPreferencesArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?revision ?updatedAt ?excludedParticipantIds ?accessType ?arn
        ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the connection preferences for a partner account, including access settings and exclusions."]
module GetConnectionPreferencesRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."]}
    let context_ = "GetConnectionPreferencesRequest"
    let make ~catalog = fun () -> { catalog }
    let to_value x =
      structure_to_value [("Catalog", (Some (Catalog.to_value x.catalog)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the connection preferences for a partner account, including access settings and exclusions."]
module GetConnectionInvitationResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the connection invitation exists."];
      id: ConnectionInvitationId.t option
        [@ocaml.doc "The unique identifier of the connection invitation."];
      arn: ConnectionInvitationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the connection invitation."];
      connectionId: ConnectionId.t option
        [@ocaml.doc
          "The identifier of the connection associated with this invitation."];
      connectionType: ConnectionType.t option
        [@ocaml.doc
          "The type of connection being requested in the invitation."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was last updated."];
      expiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation will expire."];
      otherParticipantIdentifier: ParticipantIdentifier.t option
        [@ocaml.doc
          "The identifier of the other participant in the connection invitation."];
      participantType: ParticipantType.t option
        [@ocaml.doc
          "The type of participant (inviter or invitee) in the connection invitation."];
      status: InvitationStatus.t option
        [@ocaml.doc "The current status of the connection invitation."];
      invitationMessage:
        GetConnectionInvitationResponseInvitationMessageString.t option
        [@ocaml.doc
          "The custom message included with the connection invitation."];
      inviterEmail: Email.t option
        [@ocaml.doc
          "The email address of the person who sent the connection invitation."];
      inviterName: SensitiveUnicodeString.t option
        [@ocaml.doc
          "The name of the person who sent the connection invitation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?connectionId ->
            fun ?connectionType ->
              fun ?createdAt ->
                fun ?updatedAt ->
                  fun ?expiresAt ->
                    fun ?otherParticipantIdentifier ->
                      fun ?participantType ->
                        fun ?status ->
                          fun ?invitationMessage ->
                            fun ?inviterEmail ->
                              fun ?inviterName ->
                                fun () ->
                                  {
                                    catalog;
                                    id;
                                    arn;
                                    connectionId;
                                    connectionType;
                                    createdAt;
                                    updatedAt;
                                    expiresAt;
                                    otherParticipantIdentifier;
                                    participantType;
                                    status;
                                    invitationMessage;
                                    inviterEmail;
                                    inviterName
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionInvitationId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionInvitationArn.to_value));
        ("ConnectionId",
          (Option.map x.connectionId ~f:ConnectionId.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ExpiresAt", (Option.map x.expiresAt ~f:DateTime.to_value));
        ("OtherParticipantIdentifier",
          (Option.map x.otherParticipantIdentifier
             ~f:ParticipantIdentifier.to_value));
        ("ParticipantType",
          (Option.map x.participantType ~f:ParticipantType.to_value));
        ("Status", (Option.map x.status ~f:InvitationStatus.to_value));
        ("InvitationMessage",
          (Option.map x.invitationMessage
             ~f:GetConnectionInvitationResponseInvitationMessageString.to_value));
        ("InviterEmail", (Option.map x.inviterEmail ~f:Email.to_value));
        ("InviterName",
          (Option.map x.inviterName ~f:SensitiveUnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inviterName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "InviterName") in
      let inviterEmail =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "InviterEmail") in
      let invitationMessage =
        (Option.map
           ~f:GetConnectionInvitationResponseInvitationMessageString.of_xml)
          (Xml.child xml_arg0 "InvitationMessage") in
      let status =
        (Option.map ~f:InvitationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let participantType =
        (Option.map ~f:ParticipantType.of_xml)
          (Xml.child xml_arg0 "ParticipantType") in
      let otherParticipantIdentifier =
        (Option.map ~f:ParticipantIdentifier.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifier") in
      let expiresAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ExpiresAt") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let connectionId =
        (Option.map ~f:ConnectionId.of_xml)
          (Xml.child xml_arg0 "ConnectionId") in
      let arn =
        (Option.map ~f:ConnectionInvitationArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let id =
        (Option.map ~f:ConnectionInvitationId.of_xml)
          (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inviterName =
        field_map json__ "InviterName" SensitiveUnicodeString.of_json in
      let inviterEmail = field_map json__ "InviterEmail" Email.of_json in
      let invitationMessage =
        field_map json__ "InvitationMessage"
          GetConnectionInvitationResponseInvitationMessageString.of_json in
      let status = field_map json__ "Status" InvitationStatus.of_json in
      let participantType =
        field_map json__ "ParticipantType" ParticipantType.of_json in
      let otherParticipantIdentifier =
        field_map json__ "OtherParticipantIdentifier"
          ParticipantIdentifier.of_json in
      let expiresAt = field_map json__ "ExpiresAt" DateTime.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let connectionId = field_map json__ "ConnectionId" ConnectionId.of_json in
      let arn = field_map json__ "Arn" ConnectionInvitationArn.of_json in
      let id = field_map json__ "Id" ConnectionInvitationId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a specific connection invitation."]
module GetConnectionInvitationRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier where the connection invitation exists."];
      identifier: ConnectionInvitationId.t
        [@ocaml.doc
          "The unique identifier of the connection invitation to retrieve."]}
    let context_ = "GetConnectionInvitationRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (ConnectionInvitationId.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        ConnectionInvitationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "Identifier" ConnectionInvitationId.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a specific connection invitation."]
module GetAllianceLeadContactResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      allianceLeadContact: AllianceLeadContact.t option
        [@ocaml.doc
          "The alliance lead contact information including name, email, and business title."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?allianceLeadContact ->
            fun () -> { catalog; arn; id; allianceLeadContact }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("AllianceLeadContact",
          (Option.map x.allianceLeadContact ~f:AllianceLeadContact.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allianceLeadContact =
        (Option.map ~f:AllianceLeadContact.of_xml)
          (Xml.child xml_arg0 "AllianceLeadContact") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?allianceLeadContact ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allianceLeadContact =
        field_map json__ "AllianceLeadContact" AllianceLeadContact.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?allianceLeadContact ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the alliance lead contact information for a partner account."]
module GetAllianceLeadContactRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."]}
    let context_ = "GetAllianceLeadContactRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the alliance lead contact information for a partner account."]
module DisassociateAwsTrainingCertificationEmailDomainResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between an email domain and AWS training and certification for the partner account."]
module DisassociateAwsTrainingCertificationEmailDomainRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      domainName: DomainName.t
        [@ocaml.doc
          "The domain name to disassociate from AWS training and certification."]}
    let context_ = "DisassociateAwsTrainingCertificationEmailDomainRequest"
    let make ?clientToken =
      fun ~catalog ->
        fun ~identifier ->
          fun ~domainName ->
            fun () -> { clientToken; catalog; identifier; domainName }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("DomainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~domainName ?clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~domainName ?clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between an email domain and AWS training and certification for the partner account."]
module CreatePartnerResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the partner account was created."];
      arn: PartnerArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created partner account."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the created partner account."];
      legalName: SensitiveUnicodeString.t option
        [@ocaml.doc "The legal name of the partner organization."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the partner account was created."];
      profile: PartnerProfile.t option
        [@ocaml.doc
          "The partner profile information including display name, description, and other public details."];
      awsTrainingCertificationEmailDomains: PartnerDomainList.t option
        [@ocaml.doc
          "The list of verified email domains associated with AWS training and certification credentials for the partner organization."];
      allianceLeadContact: AllianceLeadContact.t option
        [@ocaml.doc
          "The alliance lead contact information for the partner account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?legalName ->
            fun ?createdAt ->
              fun ?profile ->
                fun ?awsTrainingCertificationEmailDomains ->
                  fun ?allianceLeadContact ->
                    fun () ->
                      {
                        catalog;
                        arn;
                        id;
                        legalName;
                        createdAt;
                        profile;
                        awsTrainingCertificationEmailDomains;
                        allianceLeadContact
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("LegalName",
          (Option.map x.legalName ~f:SensitiveUnicodeString.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("Profile", (Option.map x.profile ~f:PartnerProfile.to_value));
        ("AwsTrainingCertificationEmailDomains",
          (Option.map x.awsTrainingCertificationEmailDomains
             ~f:PartnerDomainList.to_value));
        ("AllianceLeadContact",
          (Option.map x.allianceLeadContact ~f:AllianceLeadContact.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allianceLeadContact =
        (Option.map ~f:AllianceLeadContact.of_xml)
          (Xml.child xml_arg0 "AllianceLeadContact") in
      let awsTrainingCertificationEmailDomains =
        (Option.map ~f:PartnerDomainList.of_xml)
          (Xml.child xml_arg0 "AwsTrainingCertificationEmailDomains") in
      let profile =
        (Option.map ~f:PartnerProfile.of_xml) (Xml.child xml_arg0 "Profile") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let legalName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "LegalName") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?allianceLeadContact ?awsTrainingCertificationEmailDomains
        ?profile ?createdAt ?legalName ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allianceLeadContact =
        field_map json__ "AllianceLeadContact" AllianceLeadContact.of_json in
      let awsTrainingCertificationEmailDomains =
        field_map json__ "AwsTrainingCertificationEmailDomains"
          PartnerDomainList.of_json in
      let profile = field_map json__ "Profile" PartnerProfile.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let legalName =
        field_map json__ "LegalName" SensitiveUnicodeString.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?allianceLeadContact ?awsTrainingCertificationEmailDomains
        ?profile ?createdAt ?legalName ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new partner account in the AWS Partner Network with the specified details and configuration."]
module CreatePartnerRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier where the partner account will be created."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      legalName: SensitiveUnicodeString.t
        [@ocaml.doc "The legal name of the organization becoming a partner."];
      primarySolutionType: PrimarySolutionType.t
        [@ocaml.doc
          "The primary type of solution or service the partner provides (e.g., consulting, software, managed services)."];
      allianceLeadContact: AllianceLeadContact.t
        [@ocaml.doc
          "The primary contact person for alliance and partnership matters."];
      emailVerificationCode: EmailVerificationCode.t
        [@ocaml.doc
          "The verification code sent to the alliance lead contact's email to confirm account creation."];
      tags: TagList.t option
        [@ocaml.doc
          "A list of tags to associate with the partner account for organization and billing purposes."]}
    let context_ = "CreatePartnerRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~catalog ->
          fun ~legalName ->
            fun ~primarySolutionType ->
              fun ~allianceLeadContact ->
                fun ~emailVerificationCode ->
                  fun () ->
                    {
                      clientToken;
                      tags;
                      catalog;
                      legalName;
                      primarySolutionType;
                      allianceLeadContact;
                      emailVerificationCode
                    }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("LegalName", (Some (SensitiveUnicodeString.to_value x.legalName)));
        ("PrimarySolutionType",
          (Some (PrimarySolutionType.to_value x.primarySolutionType)));
        ("AllianceLeadContact",
          (Some (AllianceLeadContact.to_value x.allianceLeadContact)));
        ("EmailVerificationCode",
          (Some (EmailVerificationCode.to_value x.emailVerificationCode)));
        ("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 emailVerificationCode =
        EmailVerificationCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailVerificationCode") in
      let allianceLeadContact =
        AllianceLeadContact.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AllianceLeadContact") in
      let primarySolutionType =
        PrimarySolutionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimarySolutionType") in
      let legalName =
        SensitiveUnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LegalName") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ?tags ~emailVerificationCode ~allianceLeadContact
        ~primarySolutionType ~legalName ?clientToken ~catalog ()
    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 emailVerificationCode =
        field_map_exn json__ "EmailVerificationCode"
          EmailVerificationCode.of_json in
      let allianceLeadContact =
        field_map_exn json__ "AllianceLeadContact"
          AllianceLeadContact.of_json in
      let primarySolutionType =
        field_map_exn json__ "PrimarySolutionType"
          PrimarySolutionType.of_json in
      let legalName =
        field_map_exn json__ "LegalName" SensitiveUnicodeString.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ?tags ~emailVerificationCode ~allianceLeadContact
        ~primarySolutionType ~legalName ?clientToken ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new partner account in the AWS Partner Network with the specified details and configuration."]
module CreateConnectionInvitationResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the connection invitation was created."];
      id: ConnectionInvitationId.t option
        [@ocaml.doc
          "The unique identifier of the created connection invitation."];
      arn: ConnectionInvitationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created connection invitation."];
      connectionId: ConnectionId.t option
        [@ocaml.doc
          "The identifier of the connection associated with this invitation."];
      connectionType: ConnectionType.t option
        [@ocaml.doc
          "The type of connection being requested in the invitation."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was last updated."];
      expiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation will expire if not responded to."];
      otherParticipantIdentifier: ParticipantIdentifier.t option
        [@ocaml.doc
          "The identifier of the organization or partner being invited."];
      participantType: ParticipantType.t option
        [@ocaml.doc
          "The type of participant (inviter or invitee) in the connection invitation."];
      status: InvitationStatus.t option
        [@ocaml.doc
          "The current status of the connection invitation (pending, accepted, rejected, etc.)."];
      invitationMessage:
        CreateConnectionInvitationResponseInvitationMessageString.t option
        [@ocaml.doc
          "The custom message included with the connection invitation."];
      inviterEmail: Email.t option
        [@ocaml.doc
          "The email address of the person who sent the connection invitation."];
      inviterName: SensitiveUnicodeString.t option
        [@ocaml.doc
          "The name of the person who sent the connection invitation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?connectionId ->
            fun ?connectionType ->
              fun ?createdAt ->
                fun ?updatedAt ->
                  fun ?expiresAt ->
                    fun ?otherParticipantIdentifier ->
                      fun ?participantType ->
                        fun ?status ->
                          fun ?invitationMessage ->
                            fun ?inviterEmail ->
                              fun ?inviterName ->
                                fun () ->
                                  {
                                    catalog;
                                    id;
                                    arn;
                                    connectionId;
                                    connectionType;
                                    createdAt;
                                    updatedAt;
                                    expiresAt;
                                    otherParticipantIdentifier;
                                    participantType;
                                    status;
                                    invitationMessage;
                                    inviterEmail;
                                    inviterName
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionInvitationId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionInvitationArn.to_value));
        ("ConnectionId",
          (Option.map x.connectionId ~f:ConnectionId.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ExpiresAt", (Option.map x.expiresAt ~f:DateTime.to_value));
        ("OtherParticipantIdentifier",
          (Option.map x.otherParticipantIdentifier
             ~f:ParticipantIdentifier.to_value));
        ("ParticipantType",
          (Option.map x.participantType ~f:ParticipantType.to_value));
        ("Status", (Option.map x.status ~f:InvitationStatus.to_value));
        ("InvitationMessage",
          (Option.map x.invitationMessage
             ~f:CreateConnectionInvitationResponseInvitationMessageString.to_value));
        ("InviterEmail", (Option.map x.inviterEmail ~f:Email.to_value));
        ("InviterName",
          (Option.map x.inviterName ~f:SensitiveUnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inviterName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "InviterName") in
      let inviterEmail =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "InviterEmail") in
      let invitationMessage =
        (Option.map
           ~f:CreateConnectionInvitationResponseInvitationMessageString.of_xml)
          (Xml.child xml_arg0 "InvitationMessage") in
      let status =
        (Option.map ~f:InvitationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let participantType =
        (Option.map ~f:ParticipantType.of_xml)
          (Xml.child xml_arg0 "ParticipantType") in
      let otherParticipantIdentifier =
        (Option.map ~f:ParticipantIdentifier.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifier") in
      let expiresAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ExpiresAt") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let connectionId =
        (Option.map ~f:ConnectionId.of_xml)
          (Xml.child xml_arg0 "ConnectionId") in
      let arn =
        (Option.map ~f:ConnectionInvitationArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let id =
        (Option.map ~f:ConnectionInvitationId.of_xml)
          (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inviterName =
        field_map json__ "InviterName" SensitiveUnicodeString.of_json in
      let inviterEmail = field_map json__ "InviterEmail" Email.of_json in
      let invitationMessage =
        field_map json__ "InvitationMessage"
          CreateConnectionInvitationResponseInvitationMessageString.of_json in
      let status = field_map json__ "Status" InvitationStatus.of_json in
      let participantType =
        field_map json__ "ParticipantType" ParticipantType.of_json in
      let otherParticipantIdentifier =
        field_map json__ "OtherParticipantIdentifier"
          ParticipantIdentifier.of_json in
      let expiresAt = field_map json__ "ExpiresAt" DateTime.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let connectionId = field_map json__ "ConnectionId" ConnectionId.of_json in
      let arn = field_map json__ "Arn" ConnectionInvitationArn.of_json in
      let id = field_map json__ "Id" ConnectionInvitationId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new connection invitation to establish a partnership with another organization."]
module CreateConnectionInvitationRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier where the connection invitation will be created."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      connectionType: ConnectionType.t
        [@ocaml.doc
          "The type of connection being requested (e.g., reseller, distributor, technology partner)."];
      email: Email.t
        [@ocaml.doc
          "The email address of the person to send the connection invitation to."];
      message: CreateConnectionInvitationRequestMessageString.t
        [@ocaml.doc
          "A custom message to include with the connection invitation."];
      name: SensitiveUnicodeString.t
        [@ocaml.doc
          "The name of the person sending the connection invitation."];
      receiverIdentifier: ParticipantIdentifier.t
        [@ocaml.doc
          "The identifier of the organization or partner to invite for connection."]}
    let context_ = "CreateConnectionInvitationRequest"
    let make ~catalog =
      fun ~clientToken ->
        fun ~connectionType ->
          fun ~email ->
            fun ~message ->
              fun ~name ->
                fun ~receiverIdentifier ->
                  fun () ->
                    {
                      catalog;
                      clientToken;
                      connectionType;
                      email;
                      message;
                      name;
                      receiverIdentifier
                    }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("ConnectionType", (Some (ConnectionType.to_value x.connectionType)));
        ("Email", (Some (Email.to_value x.email)));
        ("Message",
          (Some
             (CreateConnectionInvitationRequestMessageString.to_value
                x.message)));
        ("Name", (Some (SensitiveUnicodeString.to_value x.name)));
        ("ReceiverIdentifier",
          (Some (ParticipantIdentifier.to_value x.receiverIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receiverIdentifier =
        ParticipantIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReceiverIdentifier") in
      let name =
        SensitiveUnicodeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let message =
        CreateConnectionInvitationRequestMessageString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Message") in
      let email =
        Email.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Email") in
      let connectionType =
        ConnectionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionType") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~receiverIdentifier ~name ~message ~email ~connectionType
        ~clientToken ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receiverIdentifier =
        field_map_exn json__ "ReceiverIdentifier"
          ParticipantIdentifier.of_json in
      let name = field_map_exn json__ "Name" SensitiveUnicodeString.of_json in
      let message =
        field_map_exn json__ "Message"
          CreateConnectionInvitationRequestMessageString.of_json in
      let email = field_map_exn json__ "Email" Email.of_json in
      let connectionType =
        field_map_exn json__ "ConnectionType" ConnectionType.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~receiverIdentifier ~name ~message ~email ~connectionType
        ~clientToken ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new connection invitation to establish a partnership with another organization."]
module CancelProfileUpdateTaskResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier for the partner account."];
      arn: PartnerArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the canceled profile update task."];
      id: PartnerId.t option
        [@ocaml.doc "The unique identifier of the partner account."];
      taskId: ProfileTaskId.t option
        [@ocaml.doc
          "The unique identifier of the canceled profile update task."];
      taskDetails: TaskDetails.t option
        [@ocaml.doc
          "The details of the profile update task that was canceled."];
      startedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the profile update task was started."];
      status: ProfileTaskStatus.t option
        [@ocaml.doc
          "The current status of the profile update task (canceled)."];
      endedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the profile update task was ended (canceled)."];
      errorDetailList: ErrorDetailList.t option
        [@ocaml.doc
          "A list of error details if any errors occurred during the profile update task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?arn ->
        fun ?id ->
          fun ?taskId ->
            fun ?taskDetails ->
              fun ?startedAt ->
                fun ?status ->
                  fun ?endedAt ->
                    fun ?errorDetailList ->
                      fun () ->
                        {
                          catalog;
                          arn;
                          id;
                          taskId;
                          taskDetails;
                          startedAt;
                          status;
                          endedAt;
                          errorDetailList
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Arn", (Option.map x.arn ~f:PartnerArn.to_value));
        ("Id", (Option.map x.id ~f:PartnerId.to_value));
        ("TaskId", (Option.map x.taskId ~f:ProfileTaskId.to_value));
        ("TaskDetails", (Option.map x.taskDetails ~f:TaskDetails.to_value));
        ("StartedAt", (Option.map x.startedAt ~f:DateTime.to_value));
        ("Status", (Option.map x.status ~f:ProfileTaskStatus.to_value));
        ("EndedAt", (Option.map x.endedAt ~f:DateTime.to_value));
        ("ErrorDetailList",
          (Option.map x.errorDetailList ~f:ErrorDetailList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetailList =
        (Option.map ~f:ErrorDetailList.of_xml)
          (Xml.child xml_arg0 "ErrorDetailList") in
      let endedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndedAt") in
      let status =
        (Option.map ~f:ProfileTaskStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let startedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartedAt") in
      let taskDetails =
        (Option.map ~f:TaskDetails.of_xml) (Xml.child xml_arg0 "TaskDetails") in
      let taskId =
        (Option.map ~f:ProfileTaskId.of_xml) (Xml.child xml_arg0 "TaskId") in
      let id = (Option.map ~f:PartnerId.of_xml) (Xml.child xml_arg0 "Id") in
      let arn = (Option.map ~f:PartnerArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?errorDetailList ?endedAt ?status ?startedAt ?taskDetails ?taskId
        ?id ?arn ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetailList =
        field_map json__ "ErrorDetailList" ErrorDetailList.of_json in
      let endedAt = field_map json__ "EndedAt" DateTime.of_json in
      let status = field_map json__ "Status" ProfileTaskStatus.of_json in
      let startedAt = field_map json__ "StartedAt" DateTime.of_json in
      let taskDetails = field_map json__ "TaskDetails" TaskDetails.of_json in
      let taskId = field_map json__ "TaskId" ProfileTaskId.of_json in
      let id = field_map json__ "Id" PartnerId.of_json in
      let arn = field_map json__ "Arn" PartnerArn.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?errorDetailList ?endedAt ?status ?startedAt ?taskDetails ?taskId
        ?id ?arn ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an in-progress profile update task, stopping any pending changes to the partner profile."]
module CancelProfileUpdateTaskRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      taskId: ProfileTaskId.t
        [@ocaml.doc
          "The unique identifier of the profile update task to cancel."]}
    let context_ = "CancelProfileUpdateTaskRequest"
    let make ?clientToken =
      fun ~catalog ->
        fun ~identifier ->
          fun ~taskId ->
            fun () -> { clientToken; catalog; identifier; taskId }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("TaskId", (Some (ProfileTaskId.to_value x.taskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskId =
        ProfileTaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TaskId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~taskId ?clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskId = field_map_exn json__ "TaskId" ProfileTaskId.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~taskId ?clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an in-progress profile update task, stopping any pending changes to the partner profile."]
module CancelConnectionResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the connection was canceled."];
      id: ConnectionId.t option
        [@ocaml.doc "The unique identifier of the canceled connection."];
      arn: ConnectionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the canceled connection."];
      otherParticipantAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The AWS account ID of the other participant in the canceled connection."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection was last updated (canceled)."];
      connectionTypes: ConnectionTypeDetailMap.t option
        [@ocaml.doc
          "The list of connection types that were active before cancellation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?otherParticipantAccountId ->
            fun ?updatedAt ->
              fun ?connectionTypes ->
                fun () ->
                  {
                    catalog;
                    id;
                    arn;
                    otherParticipantAccountId;
                    updatedAt;
                    connectionTypes
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionArn.to_value));
        ("OtherParticipantAccountId",
          (Option.map x.otherParticipantAccountId ~f:AwsAccountId.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ConnectionTypes",
          (Option.map x.connectionTypes ~f:ConnectionTypeDetailMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectionTypes =
        (Option.map ~f:ConnectionTypeDetailMap.of_xml)
          (Xml.child xml_arg0 "ConnectionTypes") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let otherParticipantAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "OtherParticipantAccountId") in
      let arn =
        (Option.map ~f:ConnectionArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let id = (Option.map ~f:ConnectionId.of_xml) (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectionTypes =
        field_map json__ "ConnectionTypes" ConnectionTypeDetailMap.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let otherParticipantAccountId =
        field_map json__ "OtherParticipantAccountId" AwsAccountId.of_json in
      let arn = field_map json__ "Arn" ConnectionArn.of_json in
      let id = field_map json__ "Id" ConnectionId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?connectionTypes ?updatedAt ?otherParticipantAccountId ?arn ?id
        ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an existing connection between partners, terminating the partnership relationship."]
module CancelConnectionRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier where the connection exists."];
      identifier: ConnectionId.t
        [@ocaml.doc "The unique identifier of the connection to cancel."];
      connectionType: ConnectionType.t
        [@ocaml.doc
          "The type of connection to cancel (e.g., reseller, distributor, technology partner)."];
      reason: CancelConnectionRequestReasonString.t
        [@ocaml.doc
          "The reason for canceling the connection, providing context for the termination."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CancelConnectionRequest"
    let make ~catalog =
      fun ~identifier ->
        fun ~connectionType ->
          fun ~reason ->
            fun ~clientToken ->
              fun () ->
                { catalog; identifier; connectionType; reason; clientToken }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (ConnectionId.to_value x.identifier)));
        ("ConnectionType", (Some (ConnectionType.to_value x.connectionType)));
        ("Reason",
          (Some (CancelConnectionRequestReasonString.to_value x.reason)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let reason =
        CancelConnectionRequestReasonString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Reason") in
      let connectionType =
        ConnectionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectionType") in
      let identifier =
        ConnectionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~clientToken ~reason ~connectionType ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let reason =
        field_map_exn json__ "Reason"
          CancelConnectionRequestReasonString.of_json in
      let connectionType =
        field_map_exn json__ "ConnectionType" ConnectionType.of_json in
      let identifier = field_map_exn json__ "Identifier" ConnectionId.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~clientToken ~reason ~connectionType ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an existing connection between partners, terminating the partnership relationship."]
module CancelConnectionInvitationResponse =
  struct
    type nonrec t =
      {
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier where the connection invitation was canceled."];
      id: ConnectionInvitationId.t option
        [@ocaml.doc
          "The unique identifier of the canceled connection invitation."];
      arn: ConnectionInvitationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the canceled connection invitation."];
      connectionId: ConnectionId.t option
        [@ocaml.doc
          "The identifier of the connection associated with the canceled invitation."];
      connectionType: ConnectionType.t option
        [@ocaml.doc "The type of connection that was being invited for."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was originally created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation was last updated (canceled)."];
      expiresAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the connection invitation would have expired if not canceled."];
      otherParticipantIdentifier: ParticipantIdentifier.t option
        [@ocaml.doc
          "The identifier of the other participant who was invited to connect."];
      participantType: ParticipantType.t option
        [@ocaml.doc
          "The type of participant (inviter or invitee) in the connection invitation."];
      status: InvitationStatus.t option
        [@ocaml.doc
          "The current status of the connection invitation (canceled)."];
      invitationMessage:
        CancelConnectionInvitationResponseInvitationMessageString.t option
        [@ocaml.doc
          "The message that was included with the original connection invitation."];
      inviterEmail: Email.t option
        [@ocaml.doc
          "The email address of the person who sent the connection invitation."];
      inviterName: SensitiveUnicodeString.t option
        [@ocaml.doc
          "The name of the person who sent the connection invitation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalog =
      fun ?id ->
        fun ?arn ->
          fun ?connectionId ->
            fun ?connectionType ->
              fun ?createdAt ->
                fun ?updatedAt ->
                  fun ?expiresAt ->
                    fun ?otherParticipantIdentifier ->
                      fun ?participantType ->
                        fun ?status ->
                          fun ?invitationMessage ->
                            fun ?inviterEmail ->
                              fun ?inviterName ->
                                fun () ->
                                  {
                                    catalog;
                                    id;
                                    arn;
                                    connectionId;
                                    connectionType;
                                    createdAt;
                                    updatedAt;
                                    expiresAt;
                                    otherParticipantIdentifier;
                                    participantType;
                                    status;
                                    invitationMessage;
                                    inviterEmail;
                                    inviterName
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("Id", (Option.map x.id ~f:ConnectionInvitationId.to_value));
        ("Arn", (Option.map x.arn ~f:ConnectionInvitationArn.to_value));
        ("ConnectionId",
          (Option.map x.connectionId ~f:ConnectionId.to_value));
        ("ConnectionType",
          (Option.map x.connectionType ~f:ConnectionType.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("UpdatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("ExpiresAt", (Option.map x.expiresAt ~f:DateTime.to_value));
        ("OtherParticipantIdentifier",
          (Option.map x.otherParticipantIdentifier
             ~f:ParticipantIdentifier.to_value));
        ("ParticipantType",
          (Option.map x.participantType ~f:ParticipantType.to_value));
        ("Status", (Option.map x.status ~f:InvitationStatus.to_value));
        ("InvitationMessage",
          (Option.map x.invitationMessage
             ~f:CancelConnectionInvitationResponseInvitationMessageString.to_value));
        ("InviterEmail", (Option.map x.inviterEmail ~f:Email.to_value));
        ("InviterName",
          (Option.map x.inviterName ~f:SensitiveUnicodeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inviterName =
        (Option.map ~f:SensitiveUnicodeString.of_xml)
          (Xml.child xml_arg0 "InviterName") in
      let inviterEmail =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "InviterEmail") in
      let invitationMessage =
        (Option.map
           ~f:CancelConnectionInvitationResponseInvitationMessageString.of_xml)
          (Xml.child xml_arg0 "InvitationMessage") in
      let status =
        (Option.map ~f:InvitationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let participantType =
        (Option.map ~f:ParticipantType.of_xml)
          (Xml.child xml_arg0 "ParticipantType") in
      let otherParticipantIdentifier =
        (Option.map ~f:ParticipantIdentifier.of_xml)
          (Xml.child xml_arg0 "OtherParticipantIdentifier") in
      let expiresAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ExpiresAt") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "UpdatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let connectionType =
        (Option.map ~f:ConnectionType.of_xml)
          (Xml.child xml_arg0 "ConnectionType") in
      let connectionId =
        (Option.map ~f:ConnectionId.of_xml)
          (Xml.child xml_arg0 "ConnectionId") in
      let arn =
        (Option.map ~f:ConnectionInvitationArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      let id =
        (Option.map ~f:ConnectionInvitationId.of_xml)
          (Xml.child xml_arg0 "Id") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "Catalog") in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inviterName =
        field_map json__ "InviterName" SensitiveUnicodeString.of_json in
      let inviterEmail = field_map json__ "InviterEmail" Email.of_json in
      let invitationMessage =
        field_map json__ "InvitationMessage"
          CancelConnectionInvitationResponseInvitationMessageString.of_json in
      let status = field_map json__ "Status" InvitationStatus.of_json in
      let participantType =
        field_map json__ "ParticipantType" ParticipantType.of_json in
      let otherParticipantIdentifier =
        field_map json__ "OtherParticipantIdentifier"
          ParticipantIdentifier.of_json in
      let expiresAt = field_map json__ "ExpiresAt" DateTime.of_json in
      let updatedAt = field_map json__ "UpdatedAt" DateTime.of_json in
      let createdAt = field_map json__ "CreatedAt" DateTime.of_json in
      let connectionType =
        field_map json__ "ConnectionType" ConnectionType.of_json in
      let connectionId = field_map json__ "ConnectionId" ConnectionId.of_json in
      let arn = field_map json__ "Arn" ConnectionInvitationArn.of_json in
      let id = field_map json__ "Id" ConnectionInvitationId.of_json in
      let catalog = field_map json__ "Catalog" Catalog.of_json in
      make ?inviterName ?inviterEmail ?invitationMessage ?status
        ?participantType ?otherParticipantIdentifier ?expiresAt ?updatedAt
        ?createdAt ?connectionType ?connectionId ?arn ?id ?catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a pending connection invitation before it has been accepted or rejected."]
module CancelConnectionInvitationRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier where the connection invitation exists."];
      identifier: ConnectionInvitationId.t
        [@ocaml.doc
          "The unique identifier of the connection invitation to cancel."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CancelConnectionInvitationRequest"
    let make ~catalog =
      fun ~identifier ->
        fun ~clientToken -> fun () -> { catalog; identifier; clientToken }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (ConnectionInvitationId.to_value x.identifier)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let identifier =
        ConnectionInvitationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" ConnectionInvitationId.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a pending connection invitation before it has been accepted or rejected."]
module AssociateAwsTrainingCertificationEmailDomainResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an email domain with AWS training and certification for the partner account, enabling automatic verification of employee certifications."]
module AssociateAwsTrainingCertificationEmailDomainRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the partner account."];
      identifier: PartnerIdentifier.t
        [@ocaml.doc "The unique identifier of the partner account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      email: Email.t
        [@ocaml.doc
          "The email address used to verify domain ownership for AWS training and certification association."];
      emailVerificationCode: EmailVerificationCode.t
        [@ocaml.doc
          "The verification code sent to the email address to confirm domain ownership."]}
    let context_ = "AssociateAwsTrainingCertificationEmailDomainRequest"
    let make ?clientToken =
      fun ~catalog ->
        fun ~identifier ->
          fun ~email ->
            fun ~emailVerificationCode ->
              fun () ->
                {
                  clientToken;
                  catalog;
                  identifier;
                  email;
                  emailVerificationCode
                }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (PartnerIdentifier.to_value x.identifier)));
        ("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Email", (Some (Email.to_value x.email)));
        ("EmailVerificationCode",
          (Some (EmailVerificationCode.to_value x.emailVerificationCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailVerificationCode =
        EmailVerificationCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmailVerificationCode") in
      let email =
        Email.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Email") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let identifier =
        PartnerIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~emailVerificationCode ~email ?clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailVerificationCode =
        field_map_exn json__ "EmailVerificationCode"
          EmailVerificationCode.of_json in
      let email = field_map_exn json__ "Email" Email.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" PartnerIdentifier.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~emailVerificationCode ~email ?clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an email domain with AWS training and certification for the partner account, enabling automatic verification of employee certifications."]
module AcceptConnectionInvitationResponse =
  struct
    type nonrec t =
      {
      connection: Connection.t option
        [@ocaml.doc
          "The details of the accepted connection between the two partners."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?connection = fun () -> { connection }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Connection", (Option.map x.connection ~f:Connection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connection =
        (Option.map ~f:Connection.of_xml) (Xml.child xml_arg0 "Connection") in
      make ?connection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connection = field_map json__ "Connection" Connection.of_json in
      make ?connection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a connection invitation from another partner, establishing a formal partnership connection between the two parties."]
module AcceptConnectionInvitationRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier where the connection invitation exists."];
      identifier: ConnectionInvitationId.t
        [@ocaml.doc
          "The unique identifier of the connection invitation to accept."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "AcceptConnectionInvitationRequest"
    let make ~catalog =
      fun ~identifier ->
        fun ~clientToken -> fun () -> { catalog; identifier; clientToken }
    let to_value x =
      structure_to_value
        [("Catalog", (Some (Catalog.to_value x.catalog)));
        ("Identifier", (Some (ConnectionInvitationId.to_value x.identifier)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let identifier =
        ConnectionInvitationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Identifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Catalog") in
      make ~clientToken ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "Identifier" ConnectionInvitationId.of_json in
      let catalog = field_map_exn json__ "Catalog" Catalog.of_json in
      make ~clientToken ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a connection invitation from another partner, establishing a formal partnership connection between the two parties."]