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_channel
let apiVersion = "2024-03-18"
let endpointPrefix = "partnercentral-channel"
let serviceFullName = "Partner Central Channel API"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "PartnerCentralChannel"
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 Program =
  struct
    type nonrec t =
      | SOLUTION_PROVIDER 
      | DISTRIBUTION 
      | DISTRIBUTION_SELLER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOLUTION_PROVIDER -> "SOLUTION_PROVIDER"
      | DISTRIBUTION -> "DISTRIBUTION"
      | DISTRIBUTION_SELLER -> "DISTRIBUTION_SELLER"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOLUTION_PROVIDER" -> SOLUTION_PROVIDER
      | "DISTRIBUTION" -> DISTRIBUTION
      | "DISTRIBUTION_SELLER" -> DISTRIBUTION_SELLER
      | 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 Program" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Program" 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 MinimumNoticeDays =
  struct
    type nonrec t = string
    let context_ = "MinimumNoticeDays"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (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:"MinimumNoticeDays" j
    let to_json = simple_to_json to_value
  end
module Note =
  struct
    type nonrec t = string
    let context_ = "Note"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\x00-\\x1F\\x7F]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Note" j
    let to_json = simple_to_json to_value
  end
module ServicePeriodType =
  struct
    type nonrec t =
      | MINIMUM_NOTICE_PERIOD 
      | FIXED_COMMITMENT_PERIOD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MINIMUM_NOTICE_PERIOD -> "MINIMUM_NOTICE_PERIOD"
      | FIXED_COMMITMENT_PERIOD -> "FIXED_COMMITMENT_PERIOD"
      | Non_static_id s -> s
    let of_string =
      function
      | "MINIMUM_NOTICE_PERIOD" -> MINIMUM_NOTICE_PERIOD
      | "FIXED_COMMITMENT_PERIOD" -> FIXED_COMMITMENT_PERIOD
      | 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 ServicePeriodType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServicePeriodType" 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 ProgramManagementAccountHandshakeDetail =
  struct
    type nonrec t =
      {
      program: Program.t option
        [@ocaml.doc "The program associated with the handshake."]}
    let make ?program = fun () -> { program }
    let to_value x =
      structure_to_value
        [("program", (Option.map x.program ~f:Program.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let program =
        (Option.map ~f:Program.of_xml) (Xml.child xml_arg0 "program") in
      make ?program ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let program = field_map json__ "program" Program.of_json in
      make ?program ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details specific to program management account handshakes."]
module RevokeServicePeriodHandshakeDetail =
  struct
    type nonrec t =
      {
      note: Note.t option
        [@ocaml.doc
          "A note explaining the reason for revoking the service period."];
      servicePeriodType: ServicePeriodType.t option
        [@ocaml.doc "The type of service period being revoked."];
      minimumNoticeDays: MinimumNoticeDays.t option
        [@ocaml.doc
          "The minimum number of days notice required for revocation."];
      startDate: DateTime.t option
        [@ocaml.doc "The start date of the service period being revoked."];
      endDate: DateTime.t option
        [@ocaml.doc "The end date of the service period being revoked."]}
    let make ?note =
      fun ?servicePeriodType ->
        fun ?minimumNoticeDays ->
          fun ?startDate ->
            fun ?endDate ->
              fun () ->
                {
                  note;
                  servicePeriodType;
                  minimumNoticeDays;
                  startDate;
                  endDate
                }
    let to_value x =
      structure_to_value
        [("note", (Option.map x.note ~f:Note.to_value));
        ("servicePeriodType",
          (Option.map x.servicePeriodType ~f:ServicePeriodType.to_value));
        ("minimumNoticeDays",
          (Option.map x.minimumNoticeDays ~f:MinimumNoticeDays.to_value));
        ("startDate", (Option.map x.startDate ~f:DateTime.to_value));
        ("endDate", (Option.map x.endDate ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "endDate") in
      let startDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "startDate") in
      let minimumNoticeDays =
        (Option.map ~f:MinimumNoticeDays.of_xml)
          (Xml.child xml_arg0 "minimumNoticeDays") in
      let servicePeriodType =
        (Option.map ~f:ServicePeriodType.of_xml)
          (Xml.child xml_arg0 "servicePeriodType") in
      let note = (Option.map ~f:Note.of_xml) (Xml.child xml_arg0 "note") in
      make ?endDate ?startDate ?minimumNoticeDays ?servicePeriodType ?note ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map json__ "endDate" DateTime.of_json in
      let startDate = field_map json__ "startDate" DateTime.of_json in
      let minimumNoticeDays =
        field_map json__ "minimumNoticeDays" MinimumNoticeDays.of_json in
      let servicePeriodType =
        field_map json__ "servicePeriodType" ServicePeriodType.of_json in
      let note = field_map json__ "note" Note.of_json in
      make ?endDate ?startDate ?minimumNoticeDays ?servicePeriodType ?note ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to revoke service period handshakes."]
module StartServicePeriodHandshakeDetail =
  struct
    type nonrec t =
      {
      note: Note.t option
        [@ocaml.doc
          "A note providing additional information about the service period."];
      servicePeriodType: ServicePeriodType.t option
        [@ocaml.doc "The type of service period being started."];
      minimumNoticeDays: MinimumNoticeDays.t option
        [@ocaml.doc
          "The minimum number of days notice required for changes."];
      startDate: DateTime.t option
        [@ocaml.doc "The start date of the service period."];
      endDate: DateTime.t option
        [@ocaml.doc "The end date of the service period."]}
    let make ?note =
      fun ?servicePeriodType ->
        fun ?minimumNoticeDays ->
          fun ?startDate ->
            fun ?endDate ->
              fun () ->
                {
                  note;
                  servicePeriodType;
                  minimumNoticeDays;
                  startDate;
                  endDate
                }
    let to_value x =
      structure_to_value
        [("note", (Option.map x.note ~f:Note.to_value));
        ("servicePeriodType",
          (Option.map x.servicePeriodType ~f:ServicePeriodType.to_value));
        ("minimumNoticeDays",
          (Option.map x.minimumNoticeDays ~f:MinimumNoticeDays.to_value));
        ("startDate", (Option.map x.startDate ~f:DateTime.to_value));
        ("endDate", (Option.map x.endDate ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "endDate") in
      let startDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "startDate") in
      let minimumNoticeDays =
        (Option.map ~f:MinimumNoticeDays.of_xml)
          (Xml.child xml_arg0 "minimumNoticeDays") in
      let servicePeriodType =
        (Option.map ~f:ServicePeriodType.of_xml)
          (Xml.child xml_arg0 "servicePeriodType") in
      let note = (Option.map ~f:Note.of_xml) (Xml.child xml_arg0 "note") in
      make ?endDate ?startDate ?minimumNoticeDays ?servicePeriodType ?note ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map json__ "endDate" DateTime.of_json in
      let startDate = field_map json__ "startDate" DateTime.of_json in
      let minimumNoticeDays =
        field_map json__ "minimumNoticeDays" MinimumNoticeDays.of_json in
      let servicePeriodType =
        field_map json__ "servicePeriodType" ServicePeriodType.of_json in
      let note = field_map json__ "note" Note.of_json in
      make ?endDate ?startDate ?minimumNoticeDays ?servicePeriodType ?note ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to start service period handshakes."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the field that failed validation."];
      code: String_.t option
        [@ocaml.doc "The validation error code for the field."];
      message: String_.t option
        [@ocaml.doc "A descriptive message about the validation error."]}
    let make ?name =
      fun ?code -> fun ?message -> fun () -> { name; code; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?code ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?code ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a field that failed validation."]
module Coverage =
  struct
    type nonrec t =
      | ENTIRE_ORGANIZATION 
      | MANAGEMENT_ACCOUNT_ONLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENTIRE_ORGANIZATION -> "ENTIRE_ORGANIZATION"
      | MANAGEMENT_ACCOUNT_ONLY -> "MANAGEMENT_ACCOUNT_ONLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENTIRE_ORGANIZATION" -> ENTIRE_ORGANIZATION
      | "MANAGEMENT_ACCOUNT_ONLY" -> MANAGEMENT_ACCOUNT_ONLY
      | 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 Coverage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Coverage" j)
    let to_json = simple_to_json to_value
  end
module Provider =
  struct
    type nonrec t =
      | DISTRIBUTOR 
      | DISTRIBUTION_SELLER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISTRIBUTOR -> "DISTRIBUTOR"
      | DISTRIBUTION_SELLER -> "DISTRIBUTION_SELLER"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISTRIBUTOR" -> DISTRIBUTOR
      | "DISTRIBUTION_SELLER" -> DISTRIBUTION_SELLER
      | 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 Provider" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Provider" j)
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"Arn" j
    let to_json = simple_to_json to_value
  end
module AssociationType =
  struct
    type nonrec t =
      | DOWNSTREAM_SELLER 
      | END_CUSTOMER 
      | INTERNAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DOWNSTREAM_SELLER -> "DOWNSTREAM_SELLER"
      | END_CUSTOMER -> "END_CUSTOMER"
      | INTERNAL -> "INTERNAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "DOWNSTREAM_SELLER" -> DOWNSTREAM_SELLER
      | "END_CUSTOMER" -> END_CUSTOMER
      | "INTERNAL" -> INTERNAL
      | 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 AssociationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssociationType" j)
    let to_json = simple_to_json to_value
  end
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-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:"Catalog" j
    let to_json = simple_to_json to_value
  end
module ProgramManagementAccountId =
  struct
    type nonrec t = string
    let context_ = "ProgramManagementAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:17) >>=
                  (fun () -> check_pattern i ~pattern:"pma-[a-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:"ProgramManagementAccountId" j
    let to_json = simple_to_json to_value
  end
module RelationshipDisplayName =
  struct
    type nonrec t = string
    let context_ = "RelationshipDisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\x00-\\x1F\\x7F]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RelationshipDisplayName" j
    let to_json = simple_to_json to_value
  end
module RelationshipId =
  struct
    type nonrec t = string
    let context_ = "RelationshipId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"rs-[a-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:"RelationshipId" j
    let to_json = simple_to_json to_value
  end
module Revision =
  struct
    type nonrec t = string
    let context_ = "Revision"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (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:"Revision" j
    let to_json = simple_to_json to_value
  end
module Sector =
  struct
    type nonrec t =
      | COMMERCIAL 
      | GOVERNMENT 
      | GOVERNMENT_EXCEPTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMMERCIAL -> "COMMERCIAL"
      | GOVERNMENT -> "GOVERNMENT"
      | GOVERNMENT_EXCEPTION -> "GOVERNMENT_EXCEPTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMMERCIAL" -> COMMERCIAL
      | "GOVERNMENT" -> GOVERNMENT
      | "GOVERNMENT_EXCEPTION" -> GOVERNMENT_EXCEPTION
      | 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 Sector" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Sector" j)
    let to_json = simple_to_json to_value
  end
module ProgramManagementAccountDisplayName =
  struct
    type nonrec t = string
    let context_ = "ProgramManagementAccountDisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\x00-\\x1F\\x7F]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ProgramManagementAccountDisplayName" j
    let to_json = simple_to_json to_value
  end
module ProgramManagementAccountStatus =
  struct
    type nonrec t =
      | PENDING 
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ProgramManagementAccountStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ProgramManagementAccountStatus" j)
    let to_json = simple_to_json to_value
  end
module AssociatedResourceId =
  struct
    type nonrec t = string
    let context_ = "AssociatedResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:17) >>=
                  (fun () -> check_pattern i ~pattern:"(pma|rs)-[a-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:"AssociatedResourceId" j
    let to_json = simple_to_json to_value
  end
module ChannelHandshakeId =
  struct
    type nonrec t = string
    let context_ = "ChannelHandshakeId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"ch-[a-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:"ChannelHandshakeId" j
    let to_json = simple_to_json to_value
  end
module HandshakeDetail =
  struct
    type nonrec t =
      {
      startServicePeriodHandshakeDetail:
        StartServicePeriodHandshakeDetail.t option
        [@ocaml.doc "Details for a start service period handshake."];
      revokeServicePeriodHandshakeDetail:
        RevokeServicePeriodHandshakeDetail.t option
        [@ocaml.doc "Details for a revoke service period handshake."];
      programManagementAccountHandshakeDetail:
        ProgramManagementAccountHandshakeDetail.t option
        [@ocaml.doc "Details for a program management account handshake."]}
    let make ?startServicePeriodHandshakeDetail =
      fun ?revokeServicePeriodHandshakeDetail ->
        fun ?programManagementAccountHandshakeDetail ->
          fun () ->
            {
              startServicePeriodHandshakeDetail;
              revokeServicePeriodHandshakeDetail;
              programManagementAccountHandshakeDetail
            }
    let to_value x =
      structure_to_value
        [("startServicePeriodHandshakeDetail",
           (Option.map x.startServicePeriodHandshakeDetail
              ~f:StartServicePeriodHandshakeDetail.to_value));
        ("revokeServicePeriodHandshakeDetail",
          (Option.map x.revokeServicePeriodHandshakeDetail
             ~f:RevokeServicePeriodHandshakeDetail.to_value));
        ("programManagementAccountHandshakeDetail",
          (Option.map x.programManagementAccountHandshakeDetail
             ~f:ProgramManagementAccountHandshakeDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programManagementAccountHandshakeDetail =
        (Option.map ~f:ProgramManagementAccountHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "programManagementAccountHandshakeDetail") in
      let revokeServicePeriodHandshakeDetail =
        (Option.map ~f:RevokeServicePeriodHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "revokeServicePeriodHandshakeDetail") in
      let startServicePeriodHandshakeDetail =
        (Option.map ~f:StartServicePeriodHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "startServicePeriodHandshakeDetail") in
      make ?programManagementAccountHandshakeDetail
        ?revokeServicePeriodHandshakeDetail
        ?startServicePeriodHandshakeDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programManagementAccountHandshakeDetail =
        field_map json__ "programManagementAccountHandshakeDetail"
          ProgramManagementAccountHandshakeDetail.of_json in
      let revokeServicePeriodHandshakeDetail =
        field_map json__ "revokeServicePeriodHandshakeDetail"
          RevokeServicePeriodHandshakeDetail.of_json in
      let startServicePeriodHandshakeDetail =
        field_map json__ "startServicePeriodHandshakeDetail"
          StartServicePeriodHandshakeDetail.of_json in
      make ?programManagementAccountHandshakeDetail
        ?revokeServicePeriodHandshakeDetail
        ?startServicePeriodHandshakeDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about different types of handshakes."]
module HandshakeStatus =
  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 HandshakeStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HandshakeStatus" j)
    let to_json = simple_to_json to_value
  end
module HandshakeType =
  struct
    type nonrec t =
      | START_SERVICE_PERIOD 
      | REVOKE_SERVICE_PERIOD 
      | PROGRAM_MANAGEMENT_ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | START_SERVICE_PERIOD -> "START_SERVICE_PERIOD"
      | REVOKE_SERVICE_PERIOD -> "REVOKE_SERVICE_PERIOD"
      | PROGRAM_MANAGEMENT_ACCOUNT -> "PROGRAM_MANAGEMENT_ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "START_SERVICE_PERIOD" -> START_SERVICE_PERIOD
      | "REVOKE_SERVICE_PERIOD" -> REVOKE_SERVICE_PERIOD
      | "PROGRAM_MANAGEMENT_ACCOUNT" -> PROGRAM_MANAGEMENT_ACCOUNT
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration HandshakeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HandshakeType" j)
    let to_json = simple_to_json to_value
  end
module PartnerProfileDisplayName =
  struct
    type nonrec t = string
    let context_ = "PartnerProfileDisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\x00-\\x7E\\xA9\\xAE\\xA2-\\xA5\\u202F]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PartnerProfileDisplayName" j
    let to_json = simple_to_json to_value
  end
module ProgramList =
  struct
    type nonrec t = Program.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:Program.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:Program.of_xml)
    let of_json j =
      list_of_json ~kind:"ProgramList" ~of_json:Program.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServicePeriodTypeList =
  struct
    type nonrec t = ServicePeriodType.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:ServicePeriodType.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:ServicePeriodType.of_xml)
    let of_json j =
      list_of_json ~kind:"ServicePeriodTypeList"
        ~of_json:ServicePeriodType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProgramManagementAccountTypeSortName =
  struct
    type nonrec t =
      | UpdatedAt 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UpdatedAt -> "UpdatedAt" | Non_static_id s -> s
    let of_string =
      function | "UpdatedAt" -> UpdatedAt | 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 ProgramManagementAccountTypeSortName" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ProgramManagementAccountTypeSortName" j)
    let to_json = simple_to_json to_value
  end
module SortOrder =
  struct
    type nonrec t =
      | Ascending 
      | Descending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ascending -> "Ascending"
      | Descending -> "Descending"
      | Non_static_id s -> s
    let of_string =
      function
      | "Ascending" -> Ascending
      | "Descending" -> Descending
      | 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 SortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortOrder" j)
    let to_json = simple_to_json to_value
  end
module RevokeServicePeriodTypeSortName =
  struct
    type nonrec t =
      | UpdatedAt 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UpdatedAt -> "UpdatedAt" | Non_static_id s -> s
    let of_string =
      function | "UpdatedAt" -> UpdatedAt | 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 RevokeServicePeriodTypeSortName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RevokeServicePeriodTypeSortName" j)
    let to_json = simple_to_json to_value
  end
module StartServicePeriodTypeSortName =
  struct
    type nonrec t =
      | UpdatedAt 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UpdatedAt -> "UpdatedAt" | Non_static_id s -> s
    let of_string =
      function | "UpdatedAt" -> UpdatedAt | 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 StartServicePeriodTypeSortName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StartServicePeriodTypeSortName" j)
    let to_json = simple_to_json to_value
  end
module ProgramManagementAccountIdentifier =
  struct
    type nonrec t = string
    let context_ = "ProgramManagementAccountIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:17) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[a-zA-Z]+/program-management-account/)?pma-[a-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:"ProgramManagementAccountIdentifier" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | 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 PartnerLedSupport =
  struct
    type nonrec t =
      {
      coverage: Coverage.t
        [@ocaml.doc "The coverage level for partner-led support."];
      provider: Provider.t option
        [@ocaml.doc "The provider of the partner-led support."];
      tamLocation: String_.t
        [@ocaml.doc "The location of the Technical Account Manager (TAM)."]}
    let context_ = "PartnerLedSupport"
    let make ?provider =
      fun ~coverage ->
        fun ~tamLocation -> fun () -> { provider; coverage; tamLocation }
    let to_value x =
      structure_to_value
        [("coverage", (Some (Coverage.to_value x.coverage)));
        ("provider", (Option.map x.provider ~f:Provider.to_value));
        ("tamLocation", (Some (String_.to_value x.tamLocation)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tamLocation =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tamLocation") in
      let provider =
        (Option.map ~f:Provider.of_xml) (Xml.child xml_arg0 "provider") in
      let coverage =
        Coverage.of_xml (Xml.child_exn ~context:context_ xml_arg0 "coverage") in
      make ~tamLocation ?provider ~coverage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tamLocation = field_map_exn json__ "tamLocation" String_.of_json in
      let provider = field_map json__ "provider" Provider.of_json in
      let coverage = field_map_exn json__ "coverage" Coverage.of_json in
      make ~tamLocation ?provider ~coverage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for partner-led support plans."]
module ResoldEnterprise =
  struct
    type nonrec t =
      {
      coverage: Coverage.t
        [@ocaml.doc "The coverage level for resold enterprise support."];
      tamLocation: String_.t
        [@ocaml.doc "The location of the Technical Account Manager (TAM)."];
      chargeAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID to charge for the support plan."]}
    let context_ = "ResoldEnterprise"
    let make ?chargeAccountId =
      fun ~coverage ->
        fun ~tamLocation ->
          fun () -> { chargeAccountId; coverage; tamLocation }
    let to_value x =
      structure_to_value
        [("coverage", (Some (Coverage.to_value x.coverage)));
        ("tamLocation", (Some (String_.to_value x.tamLocation)));
        ("chargeAccountId",
          (Option.map x.chargeAccountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chargeAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "chargeAccountId") in
      let tamLocation =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tamLocation") in
      let coverage =
        Coverage.of_xml (Xml.child_exn ~context:context_ xml_arg0 "coverage") in
      make ?chargeAccountId ~tamLocation ~coverage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chargeAccountId =
        field_map json__ "chargeAccountId" AccountId.of_json in
      let tamLocation = field_map_exn json__ "tamLocation" String_.of_json in
      let coverage = field_map_exn json__ "coverage" Coverage.of_json in
      make ?chargeAccountId ~tamLocation ~coverage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for resold enterprise support plans."]
module ResoldUnifiedOperations =
  struct
    type nonrec t =
      {
      coverage: Coverage.t
        [@ocaml.doc
          "The coverage level for resold unified operations support."];
      tamLocation: String_.t
        [@ocaml.doc "The location of the Technical Account Manager (TAM)."];
      chargeAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID to charge for the support plan."]}
    let context_ = "ResoldUnifiedOperations"
    let make ?chargeAccountId =
      fun ~coverage ->
        fun ~tamLocation ->
          fun () -> { chargeAccountId; coverage; tamLocation }
    let to_value x =
      structure_to_value
        [("coverage", (Some (Coverage.to_value x.coverage)));
        ("tamLocation", (Some (String_.to_value x.tamLocation)));
        ("chargeAccountId",
          (Option.map x.chargeAccountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chargeAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "chargeAccountId") in
      let tamLocation =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tamLocation") in
      let coverage =
        Coverage.of_xml (Xml.child_exn ~context:context_ xml_arg0 "coverage") in
      make ?chargeAccountId ~tamLocation ~coverage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chargeAccountId =
        field_map json__ "chargeAccountId" AccountId.of_json in
      let tamLocation = field_map_exn json__ "tamLocation" String_.of_json in
      let coverage = field_map_exn json__ "coverage" Coverage.of_json in
      make ?chargeAccountId ~tamLocation ~coverage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for resold unified operations support plans."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key of the tag."];
      value: TagValue.t [@ocaml.doc "The value of the tag."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key-value pair that can be associated with a resource."]
module RelationshipSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the relationship."];
      id: RelationshipId.t option
        [@ocaml.doc "The unique identifier of the relationship."];
      revision: Revision.t option
        [@ocaml.doc "The current revision number of the relationship."];
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier associated with the relationship."];
      associationType: AssociationType.t option
        [@ocaml.doc "The type of association for the relationship."];
      programManagementAccountId: ProgramManagementAccountId.t option
        [@ocaml.doc "The identifier of the program management account."];
      associatedAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID associated in this relationship."];
      displayName: RelationshipDisplayName.t option
        [@ocaml.doc "The display name of the relationship."];
      sector: Sector.t option
        [@ocaml.doc "The business sector for the relationship."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the relationship was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the relationship was last updated."];
      startDate: DateTime.t option
        [@ocaml.doc "The start date of the relationship."]}
    let make ?arn =
      fun ?id ->
        fun ?revision ->
          fun ?catalog ->
            fun ?associationType ->
              fun ?programManagementAccountId ->
                fun ?associatedAccountId ->
                  fun ?displayName ->
                    fun ?sector ->
                      fun ?createdAt ->
                        fun ?updatedAt ->
                          fun ?startDate ->
                            fun () ->
                              {
                                arn;
                                id;
                                revision;
                                catalog;
                                associationType;
                                programManagementAccountId;
                                associatedAccountId;
                                displayName;
                                sector;
                                createdAt;
                                updatedAt;
                                startDate
                              }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("id", (Option.map x.id ~f:RelationshipId.to_value));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("associationType",
          (Option.map x.associationType ~f:AssociationType.to_value));
        ("programManagementAccountId",
          (Option.map x.programManagementAccountId
             ~f:ProgramManagementAccountId.to_value));
        ("associatedAccountId",
          (Option.map x.associatedAccountId ~f:AccountId.to_value));
        ("displayName",
          (Option.map x.displayName ~f:RelationshipDisplayName.to_value));
        ("sector", (Option.map x.sector ~f:Sector.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("startDate", (Option.map x.startDate ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "startDate") 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 sector =
        (Option.map ~f:Sector.of_xml) (Xml.child xml_arg0 "sector") in
      let displayName =
        (Option.map ~f:RelationshipDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let associatedAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "associatedAccountId") in
      let programManagementAccountId =
        (Option.map ~f:ProgramManagementAccountId.of_xml)
          (Xml.child xml_arg0 "programManagementAccountId") in
      let associationType =
        (Option.map ~f:AssociationType.of_xml)
          (Xml.child xml_arg0 "associationType") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "catalog") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let id =
        (Option.map ~f:RelationshipId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?startDate ?updatedAt ?createdAt ?sector ?displayName
        ?associatedAccountId ?programManagementAccountId ?associationType
        ?catalog ?revision ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startDate = field_map json__ "startDate" 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 sector = field_map json__ "sector" Sector.of_json in
      let displayName =
        field_map json__ "displayName" RelationshipDisplayName.of_json in
      let associatedAccountId =
        field_map json__ "associatedAccountId" AccountId.of_json in
      let programManagementAccountId =
        field_map json__ "programManagementAccountId"
          ProgramManagementAccountId.of_json in
      let associationType =
        field_map json__ "associationType" AssociationType.of_json in
      let catalog = field_map json__ "catalog" Catalog.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let id = field_map json__ "id" RelationshipId.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?startDate ?updatedAt ?createdAt ?sector ?displayName
        ?associatedAccountId ?programManagementAccountId ?associationType
        ?catalog ?revision ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a partner relationship."]
module ListRelationshipsSortName =
  struct
    type nonrec t =
      | UpdatedAt 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UpdatedAt -> "UpdatedAt" | Non_static_id s -> s
    let of_string =
      function | "UpdatedAt" -> UpdatedAt | 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 ListRelationshipsSortName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ListRelationshipsSortName" j)
    let to_json = simple_to_json to_value
  end
module ProgramManagementAccountSummary =
  struct
    type nonrec t =
      {
      id: ProgramManagementAccountId.t option
        [@ocaml.doc
          "The unique identifier of the program management account."];
      revision: Revision.t option
        [@ocaml.doc
          "The current revision number of the program management account."];
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier associated with the account."];
      program: Program.t option
        [@ocaml.doc "The program type for the management account."];
      displayName: ProgramManagementAccountDisplayName.t option
        [@ocaml.doc "The display name of the program management account."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The AWS account ID associated with the program management account."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the program management account."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the account was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the account was last updated."];
      startDate: DateTime.t option
        [@ocaml.doc "The start date of the program management account."];
      status: ProgramManagementAccountStatus.t option
        [@ocaml.doc "The current status of the program management account."]}
    let make ?id =
      fun ?revision ->
        fun ?catalog ->
          fun ?program ->
            fun ?displayName ->
              fun ?accountId ->
                fun ?arn ->
                  fun ?createdAt ->
                    fun ?updatedAt ->
                      fun ?startDate ->
                        fun ?status ->
                          fun () ->
                            {
                              id;
                              revision;
                              catalog;
                              program;
                              displayName;
                              accountId;
                              arn;
                              createdAt;
                              updatedAt;
                              startDate;
                              status
                            }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ProgramManagementAccountId.to_value));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("program", (Option.map x.program ~f:Program.to_value));
        ("displayName",
          (Option.map x.displayName
             ~f:ProgramManagementAccountDisplayName.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("startDate", (Option.map x.startDate ~f:DateTime.to_value));
        ("status",
          (Option.map x.status ~f:ProgramManagementAccountStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ProgramManagementAccountStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let startDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "startDate") 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 arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let displayName =
        (Option.map ~f:ProgramManagementAccountDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let program =
        (Option.map ~f:Program.of_xml) (Xml.child xml_arg0 "program") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "catalog") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let id =
        (Option.map ~f:ProgramManagementAccountId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?status ?startDate ?updatedAt ?createdAt ?arn ?accountId
        ?displayName ?program ?catalog ?revision ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" ProgramManagementAccountStatus.of_json in
      let startDate = field_map json__ "startDate" 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 arn = field_map json__ "arn" Arn.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let displayName =
        field_map json__ "displayName"
          ProgramManagementAccountDisplayName.of_json in
      let program = field_map json__ "program" Program.of_json in
      let catalog = field_map json__ "catalog" Catalog.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let id = field_map json__ "id" ProgramManagementAccountId.of_json in
      make ?status ?startDate ?updatedAt ?createdAt ?arn ?accountId
        ?displayName ?program ?catalog ?revision ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a program management account."]
module ListProgramManagementAccountsSortName =
  struct
    type nonrec t =
      | UpdatedAt 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UpdatedAt -> "UpdatedAt" | Non_static_id s -> s
    let of_string =
      function | "UpdatedAt" -> UpdatedAt | 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 ListProgramManagementAccountsSortName" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ListProgramManagementAccountsSortName" j)
    let to_json = simple_to_json to_value
  end
module ChannelHandshakeSummary =
  struct
    type nonrec t =
      {
      id: ChannelHandshakeId.t option
        [@ocaml.doc "The unique identifier of the handshake."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the handshake."];
      catalog: Catalog.t option
        [@ocaml.doc "The catalog identifier associated with the handshake."];
      handshakeType: HandshakeType.t option
        [@ocaml.doc "The type of the handshake."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID of the handshake owner."];
      senderAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID of the handshake sender."];
      senderDisplayName: PartnerProfileDisplayName.t option
        [@ocaml.doc "The display name of the handshake sender."];
      receiverAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID of the handshake receiver."];
      associatedResourceId: AssociatedResourceId.t option
        [@ocaml.doc
          "The identifier of the resource associated with the handshake."];
      detail: HandshakeDetail.t option
        [@ocaml.doc "Detailed information about the handshake."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the handshake was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the handshake was last updated."];
      status: HandshakeStatus.t option
        [@ocaml.doc "The current status of the handshake."]}
    let make ?id =
      fun ?arn ->
        fun ?catalog ->
          fun ?handshakeType ->
            fun ?ownerAccountId ->
              fun ?senderAccountId ->
                fun ?senderDisplayName ->
                  fun ?receiverAccountId ->
                    fun ?associatedResourceId ->
                      fun ?detail ->
                        fun ?createdAt ->
                          fun ?updatedAt ->
                            fun ?status ->
                              fun () ->
                                {
                                  id;
                                  arn;
                                  catalog;
                                  handshakeType;
                                  ownerAccountId;
                                  senderAccountId;
                                  senderDisplayName;
                                  receiverAccountId;
                                  associatedResourceId;
                                  detail;
                                  createdAt;
                                  updatedAt;
                                  status
                                }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ChannelHandshakeId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("handshakeType",
          (Option.map x.handshakeType ~f:HandshakeType.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("senderAccountId",
          (Option.map x.senderAccountId ~f:AccountId.to_value));
        ("senderDisplayName",
          (Option.map x.senderDisplayName
             ~f:PartnerProfileDisplayName.to_value));
        ("receiverAccountId",
          (Option.map x.receiverAccountId ~f:AccountId.to_value));
        ("associatedResourceId",
          (Option.map x.associatedResourceId ~f:AssociatedResourceId.to_value));
        ("detail", (Option.map x.detail ~f:HandshakeDetail.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("status", (Option.map x.status ~f:HandshakeStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:HandshakeStatus.of_xml) (Xml.child xml_arg0 "status") 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 detail =
        (Option.map ~f:HandshakeDetail.of_xml) (Xml.child xml_arg0 "detail") in
      let associatedResourceId =
        (Option.map ~f:AssociatedResourceId.of_xml)
          (Xml.child xml_arg0 "associatedResourceId") in
      let receiverAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "receiverAccountId") in
      let senderDisplayName =
        (Option.map ~f:PartnerProfileDisplayName.of_xml)
          (Xml.child xml_arg0 "senderDisplayName") in
      let senderAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "senderAccountId") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let handshakeType =
        (Option.map ~f:HandshakeType.of_xml)
          (Xml.child xml_arg0 "handshakeType") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "catalog") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ChannelHandshakeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?updatedAt ?createdAt ?detail ?associatedResourceId
        ?receiverAccountId ?senderDisplayName ?senderAccountId
        ?ownerAccountId ?handshakeType ?catalog ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" HandshakeStatus.of_json in
      let updatedAt = field_map json__ "updatedAt" DateTime.of_json in
      let createdAt = field_map json__ "createdAt" DateTime.of_json in
      let detail = field_map json__ "detail" HandshakeDetail.of_json in
      let associatedResourceId =
        field_map json__ "associatedResourceId" AssociatedResourceId.of_json in
      let receiverAccountId =
        field_map json__ "receiverAccountId" AccountId.of_json in
      let senderDisplayName =
        field_map json__ "senderDisplayName"
          PartnerProfileDisplayName.of_json in
      let senderAccountId =
        field_map json__ "senderAccountId" AccountId.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let handshakeType =
        field_map json__ "handshakeType" HandshakeType.of_json in
      let catalog = field_map json__ "catalog" Catalog.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ChannelHandshakeId.of_json in
      make ?status ?updatedAt ?createdAt ?detail ?associatedResourceId
        ?receiverAccountId ?senderDisplayName ?senderAccountId
        ?ownerAccountId ?handshakeType ?catalog ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a channel handshake."]
module AssociatedResourceIdentifier =
  struct
    type nonrec t = string
    let context_ = "AssociatedResourceIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"((arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[a-zA-Z]+/program-management-account/pma-[a-z0-9]{13}(/relationship/rs-[a-z0-9]{13})?)|(pma|rs)-[a-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:"AssociatedResourceIdentifier" j
    let to_json = simple_to_json to_value
  end
module ProgramManagementAccountTypeFilters =
  struct
    type nonrec t =
      {
      programs: ProgramList.t option [@ocaml.doc "Filter by program types."]}
    let make ?programs = fun () -> { programs }
    let to_value x =
      structure_to_value
        [("programs", (Option.map x.programs ~f:ProgramList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programs =
        (Option.map ~f:ProgramList.of_xml) (Xml.child xml_arg0 "programs") in
      make ?programs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programs = field_map json__ "programs" ProgramList.of_json in
      make ?programs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Type-specific filters for program management accounts."]
module RevokeServicePeriodTypeFilters =
  struct
    type nonrec t =
      {
      servicePeriodTypes: ServicePeriodTypeList.t option
        [@ocaml.doc "Filter by service period types."]}
    let make ?servicePeriodTypes = fun () -> { servicePeriodTypes }
    let to_value x =
      structure_to_value
        [("servicePeriodTypes",
           (Option.map x.servicePeriodTypes ~f:ServicePeriodTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let servicePeriodTypes =
        (Option.map ~f:ServicePeriodTypeList.of_xml)
          (Xml.child xml_arg0 "servicePeriodTypes") in
      make ?servicePeriodTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let servicePeriodTypes =
        field_map json__ "servicePeriodTypes" ServicePeriodTypeList.of_json in
      make ?servicePeriodTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters specific to revoke service period handshakes."]
module StartServicePeriodTypeFilters =
  struct
    type nonrec t =
      {
      servicePeriodTypes: ServicePeriodTypeList.t option
        [@ocaml.doc "Filter by service period types."]}
    let make ?servicePeriodTypes = fun () -> { servicePeriodTypes }
    let to_value x =
      structure_to_value
        [("servicePeriodTypes",
           (Option.map x.servicePeriodTypes ~f:ServicePeriodTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let servicePeriodTypes =
        (Option.map ~f:ServicePeriodTypeList.of_xml)
          (Xml.child xml_arg0 "servicePeriodTypes") in
      make ?servicePeriodTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let servicePeriodTypes =
        field_map json__ "servicePeriodTypes" ServicePeriodTypeList.of_json in
      make ?servicePeriodTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters specific to start service period handshakes."]
module ProgramManagementAccountTypeSort =
  struct
    type nonrec t =
      {
      sortOrder: SortOrder.t
        [@ocaml.doc "The sort order (ascending or descending)."];
      sortBy: ProgramManagementAccountTypeSortName.t
        [@ocaml.doc "The field to sort by."]}
    let context_ = "ProgramManagementAccountTypeSort"
    let make ~sortOrder = fun ~sortBy -> fun () -> { sortOrder; sortBy }
    let to_value x =
      structure_to_value
        [("sortOrder", (Some (SortOrder.to_value x.sortOrder)));
        ("sortBy",
          (Some (ProgramManagementAccountTypeSortName.to_value x.sortBy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        ProgramManagementAccountTypeSortName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortBy") in
      let sortOrder =
        SortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      make ~sortBy ~sortOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy =
        field_map_exn json__ "sortBy"
          ProgramManagementAccountTypeSortName.of_json in
      let sortOrder = field_map_exn json__ "sortOrder" SortOrder.of_json in
      make ~sortBy ~sortOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Type-specific sorting options for program management accounts."]
module RevokeServicePeriodTypeSort =
  struct
    type nonrec t =
      {
      sortOrder: SortOrder.t
        [@ocaml.doc "The sort order (ascending or descending)."];
      sortBy: RevokeServicePeriodTypeSortName.t
        [@ocaml.doc "The field to sort by."]}
    let context_ = "RevokeServicePeriodTypeSort"
    let make ~sortOrder = fun ~sortBy -> fun () -> { sortOrder; sortBy }
    let to_value x =
      structure_to_value
        [("sortOrder", (Some (SortOrder.to_value x.sortOrder)));
        ("sortBy",
          (Some (RevokeServicePeriodTypeSortName.to_value x.sortBy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        RevokeServicePeriodTypeSortName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortBy") in
      let sortOrder =
        SortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      make ~sortBy ~sortOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy =
        field_map_exn json__ "sortBy" RevokeServicePeriodTypeSortName.of_json in
      let sortOrder = field_map_exn json__ "sortOrder" SortOrder.of_json in
      make ~sortBy ~sortOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sorting options specific to revoke service period handshakes."]
module StartServicePeriodTypeSort =
  struct
    type nonrec t =
      {
      sortOrder: SortOrder.t
        [@ocaml.doc "The sort order (ascending or descending)."];
      sortBy: StartServicePeriodTypeSortName.t
        [@ocaml.doc "The field to sort by."]}
    let context_ = "StartServicePeriodTypeSort"
    let make ~sortOrder = fun ~sortBy -> fun () -> { sortOrder; sortBy }
    let to_value x =
      structure_to_value
        [("sortOrder", (Some (SortOrder.to_value x.sortOrder)));
        ("sortBy", (Some (StartServicePeriodTypeSortName.to_value x.sortBy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        StartServicePeriodTypeSortName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortBy") in
      let sortOrder =
        SortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      make ~sortBy ~sortOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy =
        field_map_exn json__ "sortBy" StartServicePeriodTypeSortName.of_json in
      let sortOrder = field_map_exn json__ "sortOrder" SortOrder.of_json in
      make ~sortBy ~sortOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sorting options specific to start service period handshakes."]
module ResaleAccountModel =
  struct
    type nonrec t =
      | DISTRIBUTOR 
      | END_CUSTOMER 
      | SOLUTION_PROVIDER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISTRIBUTOR -> "DISTRIBUTOR"
      | END_CUSTOMER -> "END_CUSTOMER"
      | SOLUTION_PROVIDER -> "SOLUTION_PROVIDER"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISTRIBUTOR" -> DISTRIBUTOR
      | "END_CUSTOMER" -> END_CUSTOMER
      | "SOLUTION_PROVIDER" -> SOLUTION_PROVIDER
      | 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 ResaleAccountModel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResaleAccountModel" j)
    let to_json = simple_to_json to_value
  end
module RevokeServicePeriodPayload =
  struct
    type nonrec t =
      {
      programManagementAccountIdentifier:
        ProgramManagementAccountIdentifier.t
        [@ocaml.doc "The identifier of the program management account."];
      note: Note.t option
        [@ocaml.doc
          "A note explaining the reason for revoking the service period."]}
    let context_ = "RevokeServicePeriodPayload"
    let make ?note =
      fun ~programManagementAccountIdentifier ->
        fun () -> { note; programManagementAccountIdentifier }
    let to_value x =
      structure_to_value
        [("programManagementAccountIdentifier",
           (Some
              (ProgramManagementAccountIdentifier.to_value
                 x.programManagementAccountIdentifier)));
        ("note", (Option.map x.note ~f:Note.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let note = (Option.map ~f:Note.of_xml) (Xml.child xml_arg0 "note") in
      let programManagementAccountIdentifier =
        ProgramManagementAccountIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "programManagementAccountIdentifier") in
      make ?note ~programManagementAccountIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let note = field_map json__ "note" Note.of_json in
      let programManagementAccountIdentifier =
        field_map_exn json__ "programManagementAccountIdentifier"
          ProgramManagementAccountIdentifier.of_json in
      make ?note ~programManagementAccountIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Payload for revoke service period handshake requests."]
module StartServicePeriodPayload =
  struct
    type nonrec t =
      {
      programManagementAccountIdentifier:
        ProgramManagementAccountIdentifier.t
        [@ocaml.doc "The identifier of the program management account."];
      note: Note.t option
        [@ocaml.doc
          "A note providing additional information about the service period."];
      servicePeriodType: ServicePeriodType.t
        [@ocaml.doc "The type of service period being started."];
      minimumNoticeDays: MinimumNoticeDays.t option
        [@ocaml.doc
          "The minimum number of days notice required for changes."];
      endDate: DateTime.t option
        [@ocaml.doc "The end date of the service period."]}
    let context_ = "StartServicePeriodPayload"
    let make ?note =
      fun ?minimumNoticeDays ->
        fun ?endDate ->
          fun ~programManagementAccountIdentifier ->
            fun ~servicePeriodType ->
              fun () ->
                {
                  note;
                  minimumNoticeDays;
                  endDate;
                  programManagementAccountIdentifier;
                  servicePeriodType
                }
    let to_value x =
      structure_to_value
        [("programManagementAccountIdentifier",
           (Some
              (ProgramManagementAccountIdentifier.to_value
                 x.programManagementAccountIdentifier)));
        ("note", (Option.map x.note ~f:Note.to_value));
        ("servicePeriodType",
          (Some (ServicePeriodType.to_value x.servicePeriodType)));
        ("minimumNoticeDays",
          (Option.map x.minimumNoticeDays ~f:MinimumNoticeDays.to_value));
        ("endDate", (Option.map x.endDate ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "endDate") in
      let minimumNoticeDays =
        (Option.map ~f:MinimumNoticeDays.of_xml)
          (Xml.child xml_arg0 "minimumNoticeDays") in
      let servicePeriodType =
        ServicePeriodType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "servicePeriodType") in
      let note = (Option.map ~f:Note.of_xml) (Xml.child xml_arg0 "note") in
      let programManagementAccountIdentifier =
        ProgramManagementAccountIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "programManagementAccountIdentifier") in
      make ?endDate ?minimumNoticeDays ~servicePeriodType ?note
        ~programManagementAccountIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDate = field_map json__ "endDate" DateTime.of_json in
      let minimumNoticeDays =
        field_map json__ "minimumNoticeDays" MinimumNoticeDays.of_json in
      let servicePeriodType =
        field_map_exn json__ "servicePeriodType" ServicePeriodType.of_json in
      let note = field_map json__ "note" Note.of_json in
      let programManagementAccountIdentifier =
        field_map_exn json__ "programManagementAccountIdentifier"
          ProgramManagementAccountIdentifier.of_json in
      make ?endDate ?minimumNoticeDays ~servicePeriodType ?note
        ~programManagementAccountIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Payload for start service period handshake requests."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the access denial."];
      reason: String_.t option
        [@ocaml.doc "The 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:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:String_.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" String_.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."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the conflict."];
      resourceId: String_.t option
        [@ocaml.doc
          "The identifier of the resource that caused the conflict."];
      resourceType: String_.t option
        [@ocaml.doc "The type of the resource that caused the conflict."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?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."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the internal server error."]}
    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."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the resource not found error."];
      resourceId: String_.t option
        [@ocaml.doc "The identifier of the resource that was not found."];
      resourceType: String_.t option
        [@ocaml.doc "The type of the resource that was not found."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource was not found."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the throttling error."];
      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."]
module UpdateRelationshipDetail =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated relationship."];
      id: RelationshipId.t option
        [@ocaml.doc "The unique identifier of the updated relationship."];
      revision: Revision.t option
        [@ocaml.doc "The new revision number of the relationship."];
      displayName: RelationshipDisplayName.t option
        [@ocaml.doc "The updated display name of the relationship."]}
    let make ?arn =
      fun ?id ->
        fun ?revision ->
          fun ?displayName -> fun () -> { arn; id; revision; displayName }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("id", (Option.map x.id ~f:RelationshipId.to_value));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("displayName",
          (Option.map x.displayName ~f:RelationshipDisplayName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:RelationshipDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let id =
        (Option.map ~f:RelationshipId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?displayName ?revision ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "displayName" RelationshipDisplayName.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let id = field_map json__ "id" RelationshipId.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?displayName ?revision ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about an updated relationship."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the validation error."];
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the validation failure."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "A list of fields that failed validation."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    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));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") 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 ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed validation due to invalid input parameters."]
module RelationshipIdentifier =
  struct
    type nonrec t = string
    let context_ = "RelationshipIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[a-zA-Z]+/program-management-account/pma-[a-z0-9]{13}/relationship/)?rs-[a-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:"RelationshipIdentifier" j
    let to_json = simple_to_json to_value
  end
module SupportPlan =
  struct
    type nonrec t =
      {
      resoldEnterprise: ResoldEnterprise.t option
        [@ocaml.doc "Configuration for resold enterprise support plans."];
      partnerLedSupport: PartnerLedSupport.t option
        [@ocaml.doc "Configuration for partner-led support plans."];
      resoldUnifiedOperations: ResoldUnifiedOperations.t option
        [@ocaml.doc
          "Configuration for resold unified operations support plans."]}
    let make ?resoldEnterprise =
      fun ?partnerLedSupport ->
        fun ?resoldUnifiedOperations ->
          fun () ->
            { resoldEnterprise; partnerLedSupport; resoldUnifiedOperations }
    let to_value x =
      structure_to_value
        [("resoldEnterprise",
           (Option.map x.resoldEnterprise ~f:ResoldEnterprise.to_value));
        ("partnerLedSupport",
          (Option.map x.partnerLedSupport ~f:PartnerLedSupport.to_value));
        ("resoldUnifiedOperations",
          (Option.map x.resoldUnifiedOperations
             ~f:ResoldUnifiedOperations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resoldUnifiedOperations =
        (Option.map ~f:ResoldUnifiedOperations.of_xml)
          (Xml.child xml_arg0 "resoldUnifiedOperations") in
      let partnerLedSupport =
        (Option.map ~f:PartnerLedSupport.of_xml)
          (Xml.child xml_arg0 "partnerLedSupport") in
      let resoldEnterprise =
        (Option.map ~f:ResoldEnterprise.of_xml)
          (Xml.child xml_arg0 "resoldEnterprise") in
      make ?resoldUnifiedOperations ?partnerLedSupport ?resoldEnterprise ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resoldUnifiedOperations =
        field_map json__ "resoldUnifiedOperations"
          ResoldUnifiedOperations.of_json in
      let partnerLedSupport =
        field_map json__ "partnerLedSupport" PartnerLedSupport.of_json in
      let resoldEnterprise =
        field_map json__ "resoldEnterprise" ResoldEnterprise.of_json in
      make ?resoldUnifiedOperations ?partnerLedSupport ?resoldEnterprise ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for different types of support plans."]
module UpdateProgramManagementAccountDetail =
  struct
    type nonrec t =
      {
      id: ProgramManagementAccountId.t option
        [@ocaml.doc
          "The unique identifier of the updated program management account."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated program management account."];
      revision: Revision.t option
        [@ocaml.doc
          "The new revision number of the program management account."];
      displayName: ProgramManagementAccountDisplayName.t option
        [@ocaml.doc
          "The updated display name of the program management account."]}
    let make ?id =
      fun ?arn ->
        fun ?revision ->
          fun ?displayName -> fun () -> { id; arn; revision; displayName }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ProgramManagementAccountId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("displayName",
          (Option.map x.displayName
             ~f:ProgramManagementAccountDisplayName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:ProgramManagementAccountDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ProgramManagementAccountId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?displayName ?revision ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "displayName"
          ProgramManagementAccountDisplayName.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ProgramManagementAccountId.of_json in
      make ?displayName ?revision ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about an updated program management account."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaggableArn =
  struct
    type nonrec t = string
    let context_ = "TaggableArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[a-zA-Z]+/(program-management-account/pma-[a-z0-9]{13}(/relationship/rs-[a-z0-9]{13})?|channel-handshake/ch-[a-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:"TaggableArn" j
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module RejectChannelHandshakeDetail =
  struct
    type nonrec t =
      {
      id: ChannelHandshakeId.t option
        [@ocaml.doc "The unique identifier of the rejected handshake."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rejected handshake."];
      status: HandshakeStatus.t option
        [@ocaml.doc "The current status of the rejected handshake."]}
    let make ?id = fun ?arn -> fun ?status -> fun () -> { id; arn; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ChannelHandshakeId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("status", (Option.map x.status ~f:HandshakeStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:HandshakeStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ChannelHandshakeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" HandshakeStatus.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ChannelHandshakeId.of_json in
      make ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a rejected channel handshake."]
module ChannelHandshakeIdentifier =
  struct
    type nonrec t = string
    let context_ = "ChannelHandshakeIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:[a-z-]+:partnercentral:[a-z0-9-]+:[0-9]{12}:catalog/[a-zA-Z]+/channel-handshake/)?ch-[a-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:"ChannelHandshakeIdentifier" 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:"[^\\x00-\\x1F\\x7F\\x20]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_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 RelationshipSummaries =
  struct
    type nonrec t = RelationshipSummary.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:RelationshipSummary.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:RelationshipSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"RelationshipSummaries"
        ~of_json:RelationshipSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountIdList =
  struct
    type nonrec t = AccountId.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:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountIdList" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociationTypeList =
  struct
    type nonrec t = AssociationType.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:AssociationType.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:AssociationType.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociationTypeList"
        ~of_json:AssociationType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListRelationshipsRequestMaxResultsInteger =
  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 ListRelationshipsRequestMaxResultsInteger"
           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 ListRelationshipsSortBase =
  struct
    type nonrec t =
      {
      sortOrder: SortOrder.t
        [@ocaml.doc "The sort order (ascending or descending)."];
      sortBy: ListRelationshipsSortName.t
        [@ocaml.doc "The field to sort by."]}
    let context_ = "ListRelationshipsSortBase"
    let make ~sortOrder = fun ~sortBy -> fun () -> { sortOrder; sortBy }
    let to_value x =
      structure_to_value
        [("sortOrder", (Some (SortOrder.to_value x.sortOrder)));
        ("sortBy", (Some (ListRelationshipsSortName.to_value x.sortBy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        ListRelationshipsSortName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortBy") in
      let sortOrder =
        SortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      make ~sortBy ~sortOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy =
        field_map_exn json__ "sortBy" ListRelationshipsSortName.of_json in
      let sortOrder = field_map_exn json__ "sortOrder" SortOrder.of_json in
      make ~sortBy ~sortOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Base sorting configuration for relationships."]
module ProgramManagementAccountIdentifierList =
  struct
    type nonrec t = ProgramManagementAccountIdentifier.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:ProgramManagementAccountIdentifier.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:ProgramManagementAccountIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ProgramManagementAccountIdentifierList"
        ~of_json:ProgramManagementAccountIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module RelationshipDisplayNameList =
  struct
    type nonrec t = RelationshipDisplayName.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:RelationshipDisplayName.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:RelationshipDisplayName.of_xml)
    let of_json j =
      list_of_json ~kind:"RelationshipDisplayNameList"
        ~of_json:RelationshipDisplayName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProgramManagementAccountSummaries =
  struct
    type nonrec t = ProgramManagementAccountSummary.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:ProgramManagementAccountSummary.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:ProgramManagementAccountSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ProgramManagementAccountSummaries"
        ~of_json:ProgramManagementAccountSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListProgramManagementAccountsRequestMaxResultsInteger =
  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 ListProgramManagementAccountsRequestMaxResultsInteger"
           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 ListProgramManagementAccountsSortBase =
  struct
    type nonrec t =
      {
      sortOrder: SortOrder.t
        [@ocaml.doc "The sort order (ascending or descending)."];
      sortBy: ListProgramManagementAccountsSortName.t
        [@ocaml.doc "The field to sort by."]}
    let context_ = "ListProgramManagementAccountsSortBase"
    let make ~sortOrder = fun ~sortBy -> fun () -> { sortOrder; sortBy }
    let to_value x =
      structure_to_value
        [("sortOrder", (Some (SortOrder.to_value x.sortOrder)));
        ("sortBy",
          (Some (ListProgramManagementAccountsSortName.to_value x.sortBy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        ListProgramManagementAccountsSortName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortBy") in
      let sortOrder =
        SortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      make ~sortBy ~sortOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy =
        field_map_exn json__ "sortBy"
          ListProgramManagementAccountsSortName.of_json in
      let sortOrder = field_map_exn json__ "sortOrder" SortOrder.of_json in
      make ~sortBy ~sortOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Base sorting configuration for program management accounts."]
module ProgramManagementAccountDisplayNameList =
  struct
    type nonrec t = ProgramManagementAccountDisplayName.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:ProgramManagementAccountDisplayName.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:ProgramManagementAccountDisplayName.of_xml)
    let of_json j =
      list_of_json ~kind:"ProgramManagementAccountDisplayNameList"
        ~of_json:ProgramManagementAccountDisplayName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProgramManagementAccountStatusList =
  struct
    type nonrec t = ProgramManagementAccountStatus.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:ProgramManagementAccountStatus.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:ProgramManagementAccountStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"ProgramManagementAccountStatusList"
        ~of_json:ProgramManagementAccountStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChannelHandshakeSummaries =
  struct
    type nonrec t = ChannelHandshakeSummary.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:ChannelHandshakeSummary.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:ChannelHandshakeSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ChannelHandshakeSummaries"
        ~of_json:ChannelHandshakeSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociatedResourceIdentifierList =
  struct
    type nonrec t = AssociatedResourceIdentifier.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:AssociatedResourceIdentifier.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:AssociatedResourceIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociatedResourceIdentifierList"
        ~of_json:AssociatedResourceIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module HandshakeStatusList =
  struct
    type nonrec t = HandshakeStatus.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:HandshakeStatus.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:HandshakeStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"HandshakeStatusList"
        ~of_json:HandshakeStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListChannelHandshakesRequestMaxResultsInteger =
  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 ListChannelHandshakesRequestMaxResultsInteger"
           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 ListChannelHandshakesTypeFilters =
  struct
    type nonrec t =
      {
      startServicePeriodTypeFilters: StartServicePeriodTypeFilters.t option
        [@ocaml.doc "Filters specific to start service period handshakes."];
      revokeServicePeriodTypeFilters: RevokeServicePeriodTypeFilters.t option
        [@ocaml.doc "Filters specific to revoke service period handshakes."];
      programManagementAccountTypeFilters:
        ProgramManagementAccountTypeFilters.t option
        [@ocaml.doc
          "Filters specific to program management account handshakes."]}
    let make ?startServicePeriodTypeFilters =
      fun ?revokeServicePeriodTypeFilters ->
        fun ?programManagementAccountTypeFilters ->
          fun () ->
            {
              startServicePeriodTypeFilters;
              revokeServicePeriodTypeFilters;
              programManagementAccountTypeFilters
            }
    let to_value x =
      structure_to_value
        [("startServicePeriodTypeFilters",
           (Option.map x.startServicePeriodTypeFilters
              ~f:StartServicePeriodTypeFilters.to_value));
        ("revokeServicePeriodTypeFilters",
          (Option.map x.revokeServicePeriodTypeFilters
             ~f:RevokeServicePeriodTypeFilters.to_value));
        ("programManagementAccountTypeFilters",
          (Option.map x.programManagementAccountTypeFilters
             ~f:ProgramManagementAccountTypeFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programManagementAccountTypeFilters =
        (Option.map ~f:ProgramManagementAccountTypeFilters.of_xml)
          (Xml.child xml_arg0 "programManagementAccountTypeFilters") in
      let revokeServicePeriodTypeFilters =
        (Option.map ~f:RevokeServicePeriodTypeFilters.of_xml)
          (Xml.child xml_arg0 "revokeServicePeriodTypeFilters") in
      let startServicePeriodTypeFilters =
        (Option.map ~f:StartServicePeriodTypeFilters.of_xml)
          (Xml.child xml_arg0 "startServicePeriodTypeFilters") in
      make ?programManagementAccountTypeFilters
        ?revokeServicePeriodTypeFilters ?startServicePeriodTypeFilters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programManagementAccountTypeFilters =
        field_map json__ "programManagementAccountTypeFilters"
          ProgramManagementAccountTypeFilters.of_json in
      let revokeServicePeriodTypeFilters =
        field_map json__ "revokeServicePeriodTypeFilters"
          RevokeServicePeriodTypeFilters.of_json in
      let startServicePeriodTypeFilters =
        field_map json__ "startServicePeriodTypeFilters"
          StartServicePeriodTypeFilters.of_json in
      make ?programManagementAccountTypeFilters
        ?revokeServicePeriodTypeFilters ?startServicePeriodTypeFilters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Type-specific filters for listing channel handshakes."]
module ListChannelHandshakesTypeSort =
  struct
    type nonrec t =
      {
      startServicePeriodTypeSort: StartServicePeriodTypeSort.t option
        [@ocaml.doc
          "Sorting options specific to start service period handshakes."];
      revokeServicePeriodTypeSort: RevokeServicePeriodTypeSort.t option
        [@ocaml.doc
          "Sorting options specific to revoke service period handshakes."];
      programManagementAccountTypeSort:
        ProgramManagementAccountTypeSort.t option
        [@ocaml.doc
          "Sorting options specific to program management account handshakes."]}
    let make ?startServicePeriodTypeSort =
      fun ?revokeServicePeriodTypeSort ->
        fun ?programManagementAccountTypeSort ->
          fun () ->
            {
              startServicePeriodTypeSort;
              revokeServicePeriodTypeSort;
              programManagementAccountTypeSort
            }
    let to_value x =
      structure_to_value
        [("startServicePeriodTypeSort",
           (Option.map x.startServicePeriodTypeSort
              ~f:StartServicePeriodTypeSort.to_value));
        ("revokeServicePeriodTypeSort",
          (Option.map x.revokeServicePeriodTypeSort
             ~f:RevokeServicePeriodTypeSort.to_value));
        ("programManagementAccountTypeSort",
          (Option.map x.programManagementAccountTypeSort
             ~f:ProgramManagementAccountTypeSort.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programManagementAccountTypeSort =
        (Option.map ~f:ProgramManagementAccountTypeSort.of_xml)
          (Xml.child xml_arg0 "programManagementAccountTypeSort") in
      let revokeServicePeriodTypeSort =
        (Option.map ~f:RevokeServicePeriodTypeSort.of_xml)
          (Xml.child xml_arg0 "revokeServicePeriodTypeSort") in
      let startServicePeriodTypeSort =
        (Option.map ~f:StartServicePeriodTypeSort.of_xml)
          (Xml.child xml_arg0 "startServicePeriodTypeSort") in
      make ?programManagementAccountTypeSort ?revokeServicePeriodTypeSort
        ?startServicePeriodTypeSort ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programManagementAccountTypeSort =
        field_map json__ "programManagementAccountTypeSort"
          ProgramManagementAccountTypeSort.of_json in
      let revokeServicePeriodTypeSort =
        field_map json__ "revokeServicePeriodTypeSort"
          RevokeServicePeriodTypeSort.of_json in
      let startServicePeriodTypeSort =
        field_map json__ "startServicePeriodTypeSort"
          StartServicePeriodTypeSort.of_json in
      make ?programManagementAccountTypeSort ?revokeServicePeriodTypeSort
        ?startServicePeriodTypeSort ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Type-specific sorting options for listing channel handshakes."]
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 RelationshipDetail =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the relationship."];
      id: RelationshipId.t option
        [@ocaml.doc "The unique identifier of the relationship."];
      revision: Revision.t option
        [@ocaml.doc "The current revision number of the relationship."];
      catalog: Catalog.t option
        [@ocaml.doc
          "The catalog identifier associated with the relationship."];
      associationType: AssociationType.t option
        [@ocaml.doc "The type of association for the relationship."];
      programManagementAccountId: ProgramManagementAccountId.t option
        [@ocaml.doc "The identifier of the program management account."];
      associatedAccountId: AccountId.t option
        [@ocaml.doc "The AWS account ID associated in this relationship."];
      displayName: RelationshipDisplayName.t option
        [@ocaml.doc "The display name of the relationship."];
      resaleAccountModel: ResaleAccountModel.t option
        [@ocaml.doc "The resale account model for the relationship."];
      sector: Sector.t option
        [@ocaml.doc "The business sector for the relationship."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp when the relationship was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp when the relationship was last updated."];
      startDate: DateTime.t option
        [@ocaml.doc "The start date of the relationship."]}
    let make ?arn =
      fun ?id ->
        fun ?revision ->
          fun ?catalog ->
            fun ?associationType ->
              fun ?programManagementAccountId ->
                fun ?associatedAccountId ->
                  fun ?displayName ->
                    fun ?resaleAccountModel ->
                      fun ?sector ->
                        fun ?createdAt ->
                          fun ?updatedAt ->
                            fun ?startDate ->
                              fun () ->
                                {
                                  arn;
                                  id;
                                  revision;
                                  catalog;
                                  associationType;
                                  programManagementAccountId;
                                  associatedAccountId;
                                  displayName;
                                  resaleAccountModel;
                                  sector;
                                  createdAt;
                                  updatedAt;
                                  startDate
                                }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("id", (Option.map x.id ~f:RelationshipId.to_value));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("catalog", (Option.map x.catalog ~f:Catalog.to_value));
        ("associationType",
          (Option.map x.associationType ~f:AssociationType.to_value));
        ("programManagementAccountId",
          (Option.map x.programManagementAccountId
             ~f:ProgramManagementAccountId.to_value));
        ("associatedAccountId",
          (Option.map x.associatedAccountId ~f:AccountId.to_value));
        ("displayName",
          (Option.map x.displayName ~f:RelationshipDisplayName.to_value));
        ("resaleAccountModel",
          (Option.map x.resaleAccountModel ~f:ResaleAccountModel.to_value));
        ("sector", (Option.map x.sector ~f:Sector.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("startDate", (Option.map x.startDate ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "startDate") 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 sector =
        (Option.map ~f:Sector.of_xml) (Xml.child xml_arg0 "sector") in
      let resaleAccountModel =
        (Option.map ~f:ResaleAccountModel.of_xml)
          (Xml.child xml_arg0 "resaleAccountModel") in
      let displayName =
        (Option.map ~f:RelationshipDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let associatedAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "associatedAccountId") in
      let programManagementAccountId =
        (Option.map ~f:ProgramManagementAccountId.of_xml)
          (Xml.child xml_arg0 "programManagementAccountId") in
      let associationType =
        (Option.map ~f:AssociationType.of_xml)
          (Xml.child xml_arg0 "associationType") in
      let catalog =
        (Option.map ~f:Catalog.of_xml) (Xml.child xml_arg0 "catalog") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let id =
        (Option.map ~f:RelationshipId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?startDate ?updatedAt ?createdAt ?sector ?resaleAccountModel
        ?displayName ?associatedAccountId ?programManagementAccountId
        ?associationType ?catalog ?revision ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startDate = field_map json__ "startDate" 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 sector = field_map json__ "sector" Sector.of_json in
      let resaleAccountModel =
        field_map json__ "resaleAccountModel" ResaleAccountModel.of_json in
      let displayName =
        field_map json__ "displayName" RelationshipDisplayName.of_json in
      let associatedAccountId =
        field_map json__ "associatedAccountId" AccountId.of_json in
      let programManagementAccountId =
        field_map json__ "programManagementAccountId"
          ProgramManagementAccountId.of_json in
      let associationType =
        field_map json__ "associationType" AssociationType.of_json in
      let catalog = field_map json__ "catalog" Catalog.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let id = field_map json__ "id" RelationshipId.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?startDate ?updatedAt ?createdAt ?sector ?resaleAccountModel
        ?displayName ?associatedAccountId ?programManagementAccountId
        ?associationType ?catalog ?revision ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information about a partner relationship."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[!-~]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module CreateRelationshipDetail =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created relationship."];
      id: RelationshipId.t option
        [@ocaml.doc "The unique identifier of the created relationship."]}
    let make ?arn = fun ?id -> fun () -> { arn; id }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("id", (Option.map x.id ~f:RelationshipId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        (Option.map ~f:RelationshipId.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" RelationshipId.of_json in
      let arn = field_map json__ "arn" Arn.of_json in make ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a newly created relationship."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the service quota exceeded error."];
      resourceId: String_.t option
        [@ocaml.doc
          "The identifier of the resource that would exceed the quota."];
      resourceType: String_.t option
        [@ocaml.doc "The type of the resource that would exceed the quota."];
      quotaCode: String_.t option
        [@ocaml.doc
          "The code identifying the specific quota that would be exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?quotaCode ->
            fun () -> { message; resourceId; resourceType; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~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 resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?resourceType ?resourceId ?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 resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request would exceed a service quota limit."]
module CreateProgramManagementAccountDetail =
  struct
    type nonrec t =
      {
      id: ProgramManagementAccountId.t option
        [@ocaml.doc
          "The unique identifier of the created program management account."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created program management account."]}
    let make ?id = fun ?arn -> fun () -> { id; arn }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ProgramManagementAccountId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ProgramManagementAccountId.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ProgramManagementAccountId.of_json in
      make ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about a newly created program management account."]
module CreateChannelHandshakeDetail =
  struct
    type nonrec t =
      {
      id: ChannelHandshakeId.t option
        [@ocaml.doc "The unique identifier of the created handshake."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created handshake."]}
    let make ?id = fun ?arn -> fun () -> { id; arn }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ChannelHandshakeId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ChannelHandshakeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ChannelHandshakeId.of_json in
      make ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details about a newly created channel handshake."]
module ChannelHandshakePayload =
  struct
    type nonrec t =
      {
      startServicePeriodPayload: StartServicePeriodPayload.t option
        [@ocaml.doc "Payload for starting a service period handshake."];
      revokeServicePeriodPayload: RevokeServicePeriodPayload.t option
        [@ocaml.doc "Payload for revoking a service period handshake."]}
    let make ?startServicePeriodPayload =
      fun ?revokeServicePeriodPayload ->
        fun () -> { startServicePeriodPayload; revokeServicePeriodPayload }
    let to_value x =
      structure_to_value
        [("startServicePeriodPayload",
           (Option.map x.startServicePeriodPayload
              ~f:StartServicePeriodPayload.to_value));
        ("revokeServicePeriodPayload",
          (Option.map x.revokeServicePeriodPayload
             ~f:RevokeServicePeriodPayload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revokeServicePeriodPayload =
        (Option.map ~f:RevokeServicePeriodPayload.of_xml)
          (Xml.child xml_arg0 "revokeServicePeriodPayload") in
      let startServicePeriodPayload =
        (Option.map ~f:StartServicePeriodPayload.of_xml)
          (Xml.child xml_arg0 "startServicePeriodPayload") in
      make ?revokeServicePeriodPayload ?startServicePeriodPayload ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revokeServicePeriodPayload =
        field_map json__ "revokeServicePeriodPayload"
          RevokeServicePeriodPayload.of_json in
      let startServicePeriodPayload =
        field_map json__ "startServicePeriodPayload"
          StartServicePeriodPayload.of_json in
      make ?revokeServicePeriodPayload ?startServicePeriodPayload ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the payload data for different types of channel handshakes."]
module CancelChannelHandshakeDetail =
  struct
    type nonrec t =
      {
      id: ChannelHandshakeId.t option
        [@ocaml.doc "The unique identifier of the canceled handshake."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the canceled handshake."];
      status: HandshakeStatus.t option
        [@ocaml.doc "The current status of the canceled handshake."]}
    let make ?id = fun ?arn -> fun ?status -> fun () -> { id; arn; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ChannelHandshakeId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("status", (Option.map x.status ~f:HandshakeStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:HandshakeStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ChannelHandshakeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" HandshakeStatus.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ChannelHandshakeId.of_json in
      make ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a canceled channel handshake."]
module AcceptChannelHandshakeDetail =
  struct
    type nonrec t =
      {
      id: ChannelHandshakeId.t option
        [@ocaml.doc "The unique identifier of the accepted handshake."];
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the accepted handshake."];
      status: HandshakeStatus.t option
        [@ocaml.doc "The current status of the accepted handshake."]}
    let make ?id = fun ?arn -> fun ?status -> fun () -> { id; arn; status }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ChannelHandshakeId.to_value));
        ("arn", (Option.map x.arn ~f:Arn.to_value));
        ("status", (Option.map x.status ~f:HandshakeStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:HandshakeStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      let id =
        (Option.map ~f:ChannelHandshakeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" HandshakeStatus.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      let id = field_map json__ "id" ChannelHandshakeId.of_json in
      make ?status ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about an accepted channel handshake."]
module UpdateRelationshipResponse =
  struct
    type nonrec t =
      {
      relationshipDetail: UpdateRelationshipDetail.t option
        [@ocaml.doc "Details of the updated relationship."]}
    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 ?relationshipDetail = fun () -> { relationshipDetail }
    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
        [("relationshipDetail",
           (Option.map x.relationshipDetail
              ~f:UpdateRelationshipDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relationshipDetail =
        (Option.map ~f:UpdateRelationshipDetail.of_xml)
          (Xml.child xml_arg0 "relationshipDetail") in
      make ?relationshipDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relationshipDetail =
        field_map json__ "relationshipDetail"
          UpdateRelationshipDetail.of_json in
      make ?relationshipDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of a partner relationship."]
module UpdateRelationshipRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the relationship."];
      identifier: RelationshipIdentifier.t
        [@ocaml.doc "The unique identifier of the relationship to update."];
      programManagementAccountIdentifier:
        ProgramManagementAccountIdentifier.t
        [@ocaml.doc
          "The identifier of the program management account associated with the relationship."];
      revision: Revision.t option
        [@ocaml.doc "The current revision number of the relationship."];
      displayName: RelationshipDisplayName.t option
        [@ocaml.doc "The new display name for the relationship."];
      requestedSupportPlan: SupportPlan.t option
        [@ocaml.doc "The updated support plan for the relationship."]}
    let context_ = "UpdateRelationshipRequest"
    let make ?revision =
      fun ?displayName ->
        fun ?requestedSupportPlan ->
          fun ~catalog ->
            fun ~identifier ->
              fun ~programManagementAccountIdentifier ->
                fun () ->
                  {
                    revision;
                    displayName;
                    requestedSupportPlan;
                    catalog;
                    identifier;
                    programManagementAccountIdentifier
                  }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier", (Some (RelationshipIdentifier.to_value x.identifier)));
        ("programManagementAccountIdentifier",
          (Some
             (ProgramManagementAccountIdentifier.to_value
                x.programManagementAccountIdentifier)));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("displayName",
          (Option.map x.displayName ~f:RelationshipDisplayName.to_value));
        ("requestedSupportPlan",
          (Option.map x.requestedSupportPlan ~f:SupportPlan.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestedSupportPlan =
        (Option.map ~f:SupportPlan.of_xml)
          (Xml.child xml_arg0 "requestedSupportPlan") in
      let displayName =
        (Option.map ~f:RelationshipDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let programManagementAccountIdentifier =
        ProgramManagementAccountIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "programManagementAccountIdentifier") in
      let identifier =
        RelationshipIdentifier.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 ?requestedSupportPlan ?displayName ?revision
        ~programManagementAccountIdentifier ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestedSupportPlan =
        field_map json__ "requestedSupportPlan" SupportPlan.of_json in
      let displayName =
        field_map json__ "displayName" RelationshipDisplayName.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let programManagementAccountIdentifier =
        field_map_exn json__ "programManagementAccountIdentifier"
          ProgramManagementAccountIdentifier.of_json in
      let identifier =
        field_map_exn json__ "identifier" RelationshipIdentifier.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?requestedSupportPlan ?displayName ?revision
        ~programManagementAccountIdentifier ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of a partner relationship."]
module UpdateProgramManagementAccountResponse =
  struct
    type nonrec t =
      {
      programManagementAccountDetail:
        UpdateProgramManagementAccountDetail.t option
        [@ocaml.doc "Details of the updated program management account."]}
    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 ?programManagementAccountDetail =
      fun () -> { programManagementAccountDetail }
    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
        [("programManagementAccountDetail",
           (Option.map x.programManagementAccountDetail
              ~f:UpdateProgramManagementAccountDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programManagementAccountDetail =
        (Option.map ~f:UpdateProgramManagementAccountDetail.of_xml)
          (Xml.child xml_arg0 "programManagementAccountDetail") in
      make ?programManagementAccountDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programManagementAccountDetail =
        field_map json__ "programManagementAccountDetail"
          UpdateProgramManagementAccountDetail.of_json in
      make ?programManagementAccountDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of a program management account."]
module UpdateProgramManagementAccountRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier for the program management account."];
      identifier: ProgramManagementAccountIdentifier.t
        [@ocaml.doc
          "The unique identifier of the program management account to update."];
      revision: Revision.t option
        [@ocaml.doc
          "The current revision number of the program management account."];
      displayName: ProgramManagementAccountDisplayName.t option
        [@ocaml.doc
          "The new display name for the program management account."]}
    let context_ = "UpdateProgramManagementAccountRequest"
    let make ?revision =
      fun ?displayName ->
        fun ~catalog ->
          fun ~identifier ->
            fun () -> { revision; displayName; catalog; identifier }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier",
          (Some (ProgramManagementAccountIdentifier.to_value x.identifier)));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("displayName",
          (Option.map x.displayName
             ~f:ProgramManagementAccountDisplayName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:ProgramManagementAccountDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let identifier =
        ProgramManagementAccountIdentifier.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 ?displayName ?revision ~identifier ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "displayName"
          ProgramManagementAccountDisplayName.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let identifier =
        field_map_exn json__ "identifier"
          ProgramManagementAccountIdentifier.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?displayName ?revision ~identifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of a program management account."]
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 tags from a specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TaggableArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to remove tags from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The keys of the tags to remove from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (TaggableArn.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 =
        TaggableArn.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" TaggableArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a specified 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 resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TaggableArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource to tag."];
      tags: TagList.t
        [@ocaml.doc "Key-value pairs to associate with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (TaggableArn.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 =
        TaggableArn.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" TaggableArn.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 resource."]
module RejectChannelHandshakeResponse =
  struct
    type nonrec t =
      {
      channelHandshakeDetail: RejectChannelHandshakeDetail.t option
        [@ocaml.doc "Details of the rejected channel handshake."]}
    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 ?channelHandshakeDetail = fun () -> { channelHandshakeDetail }
    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
        [("channelHandshakeDetail",
           (Option.map x.channelHandshakeDetail
              ~f:RejectChannelHandshakeDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelHandshakeDetail =
        (Option.map ~f:RejectChannelHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "channelHandshakeDetail") in
      make ?channelHandshakeDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelHandshakeDetail =
        field_map json__ "channelHandshakeDetail"
          RejectChannelHandshakeDetail.of_json in
      make ?channelHandshakeDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects a pending channel handshake request."]
module RejectChannelHandshakeRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the handshake request."];
      identifier: ChannelHandshakeIdentifier.t
        [@ocaml.doc
          "The unique identifier of the channel handshake to reject."]}
    let context_ = "RejectChannelHandshakeRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier",
          (Some (ChannelHandshakeIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        ChannelHandshakeIdentifier.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" ChannelHandshakeIdentifier.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 "Rejects a pending channel handshake request."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc "Key-value pairs associated with the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { 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 [("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags associated with a specific resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TaggableArn.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 (TaggableArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        TaggableArn.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" TaggableArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags associated with a specific resource."]
module ListRelationshipsResponse =
  struct
    type nonrec t =
      {
      items: RelationshipSummaries.t option
        [@ocaml.doc "List of relationships matching the criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if available."]}
    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 ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items", (Option.map x.items ~f:RelationshipSummaries.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 items =
        (Option.map ~f:RelationshipSummaries.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    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 items = field_map json__ "items" RelationshipSummaries.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists partner relationships based on specified criteria."]
module ListRelationshipsRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier to filter relationships."];
      maxResults: ListRelationshipsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      associatedAccountIds: AccountIdList.t option
        [@ocaml.doc "Filter by associated AWS account IDs."];
      associationTypes: AssociationTypeList.t option
        [@ocaml.doc "Filter by association types."];
      displayNames: RelationshipDisplayNameList.t option
        [@ocaml.doc "Filter by display names."];
      programManagementAccountIdentifiers:
        ProgramManagementAccountIdentifierList.t option
        [@ocaml.doc "Filter by program management account identifiers."];
      sort: ListRelationshipsSortBase.t option
        [@ocaml.doc "Sorting options for the results."];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for retrieving the next page of results."]}
    let context_ = "ListRelationshipsRequest"
    let make ?maxResults =
      fun ?associatedAccountIds ->
        fun ?associationTypes ->
          fun ?displayNames ->
            fun ?programManagementAccountIdentifiers ->
              fun ?sort ->
                fun ?nextToken ->
                  fun ~catalog ->
                    fun () ->
                      {
                        maxResults;
                        associatedAccountIds;
                        associationTypes;
                        displayNames;
                        programManagementAccountIdentifiers;
                        sort;
                        nextToken;
                        catalog
                      }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListRelationshipsRequestMaxResultsInteger.to_value));
        ("associatedAccountIds",
          (Option.map x.associatedAccountIds ~f:AccountIdList.to_value));
        ("associationTypes",
          (Option.map x.associationTypes ~f:AssociationTypeList.to_value));
        ("displayNames",
          (Option.map x.displayNames ~f:RelationshipDisplayNameList.to_value));
        ("programManagementAccountIdentifiers",
          (Option.map x.programManagementAccountIdentifiers
             ~f:ProgramManagementAccountIdentifierList.to_value));
        ("sort", (Option.map x.sort ~f:ListRelationshipsSortBase.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 sort =
        (Option.map ~f:ListRelationshipsSortBase.of_xml)
          (Xml.child xml_arg0 "sort") in
      let programManagementAccountIdentifiers =
        (Option.map ~f:ProgramManagementAccountIdentifierList.of_xml)
          (Xml.child xml_arg0 "programManagementAccountIdentifiers") in
      let displayNames =
        (Option.map ~f:RelationshipDisplayNameList.of_xml)
          (Xml.child xml_arg0 "displayNames") in
      let associationTypes =
        (Option.map ~f:AssociationTypeList.of_xml)
          (Xml.child xml_arg0 "associationTypes") in
      let associatedAccountIds =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "associatedAccountIds") in
      let maxResults =
        (Option.map ~f:ListRelationshipsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      make ?nextToken ?sort ?programManagementAccountIdentifiers
        ?displayNames ?associationTypes ?associatedAccountIds ?maxResults
        ~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 sort = field_map json__ "sort" ListRelationshipsSortBase.of_json in
      let programManagementAccountIdentifiers =
        field_map json__ "programManagementAccountIdentifiers"
          ProgramManagementAccountIdentifierList.of_json in
      let displayNames =
        field_map json__ "displayNames" RelationshipDisplayNameList.of_json in
      let associationTypes =
        field_map json__ "associationTypes" AssociationTypeList.of_json in
      let associatedAccountIds =
        field_map json__ "associatedAccountIds" AccountIdList.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListRelationshipsRequestMaxResultsInteger.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?nextToken ?sort ?programManagementAccountIdentifiers
        ?displayNames ?associationTypes ?associatedAccountIds ?maxResults
        ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists partner relationships based on specified criteria."]
module ListProgramManagementAccountsResponse =
  struct
    type nonrec t =
      {
      items: ProgramManagementAccountSummaries.t option
        [@ocaml.doc
          "List of program management accounts matching the criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if available."]}
    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 ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:ProgramManagementAccountSummaries.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 items =
        (Option.map ~f:ProgramManagementAccountSummaries.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    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 items =
        field_map json__ "items" ProgramManagementAccountSummaries.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists program management accounts based on specified criteria."]
module ListProgramManagementAccountsRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier to filter accounts."];
      maxResults:
        ListProgramManagementAccountsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      displayNames: ProgramManagementAccountDisplayNameList.t option
        [@ocaml.doc "Filter by display names."];
      programs: ProgramList.t option [@ocaml.doc "Filter by program types."];
      accountIds: AccountIdList.t option
        [@ocaml.doc "Filter by AWS account IDs."];
      statuses: ProgramManagementAccountStatusList.t option
        [@ocaml.doc "Filter by program management account statuses."];
      sort: ListProgramManagementAccountsSortBase.t option
        [@ocaml.doc "Sorting options for the results."];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for retrieving the next page of results."]}
    let context_ = "ListProgramManagementAccountsRequest"
    let make ?maxResults =
      fun ?displayNames ->
        fun ?programs ->
          fun ?accountIds ->
            fun ?statuses ->
              fun ?sort ->
                fun ?nextToken ->
                  fun ~catalog ->
                    fun () ->
                      {
                        maxResults;
                        displayNames;
                        programs;
                        accountIds;
                        statuses;
                        sort;
                        nextToken;
                        catalog
                      }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListProgramManagementAccountsRequestMaxResultsInteger.to_value));
        ("displayNames",
          (Option.map x.displayNames
             ~f:ProgramManagementAccountDisplayNameList.to_value));
        ("programs", (Option.map x.programs ~f:ProgramList.to_value));
        ("accountIds", (Option.map x.accountIds ~f:AccountIdList.to_value));
        ("statuses",
          (Option.map x.statuses
             ~f:ProgramManagementAccountStatusList.to_value));
        ("sort",
          (Option.map x.sort
             ~f:ListProgramManagementAccountsSortBase.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 sort =
        (Option.map ~f:ListProgramManagementAccountsSortBase.of_xml)
          (Xml.child xml_arg0 "sort") in
      let statuses =
        (Option.map ~f:ProgramManagementAccountStatusList.of_xml)
          (Xml.child xml_arg0 "statuses") in
      let accountIds =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "accountIds") in
      let programs =
        (Option.map ~f:ProgramList.of_xml) (Xml.child xml_arg0 "programs") in
      let displayNames =
        (Option.map ~f:ProgramManagementAccountDisplayNameList.of_xml)
          (Xml.child xml_arg0 "displayNames") in
      let maxResults =
        (Option.map
           ~f:ListProgramManagementAccountsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      make ?nextToken ?sort ?statuses ?accountIds ?programs ?displayNames
        ?maxResults ~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 sort =
        field_map json__ "sort" ListProgramManagementAccountsSortBase.of_json in
      let statuses =
        field_map json__ "statuses"
          ProgramManagementAccountStatusList.of_json in
      let accountIds = field_map json__ "accountIds" AccountIdList.of_json in
      let programs = field_map json__ "programs" ProgramList.of_json in
      let displayNames =
        field_map json__ "displayNames"
          ProgramManagementAccountDisplayNameList.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListProgramManagementAccountsRequestMaxResultsInteger.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?nextToken ?sort ?statuses ?accountIds ?programs ?displayNames
        ?maxResults ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists program management accounts based on specified criteria."]
module ListChannelHandshakesResponse =
  struct
    type nonrec t =
      {
      items: ChannelHandshakeSummaries.t option
        [@ocaml.doc "List of channel handshakes matching the criteria."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if available."]}
    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 ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:ChannelHandshakeSummaries.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 items =
        (Option.map ~f:ChannelHandshakeSummaries.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    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 items = field_map json__ "items" ChannelHandshakeSummaries.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists channel handshakes based on specified criteria."]
module ListChannelHandshakesRequest =
  struct
    type nonrec t =
      {
      handshakeType: HandshakeType.t
        [@ocaml.doc "Filter results by handshake type."];
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier to filter handshakes."];
      participantType: ParticipantType.t
        [@ocaml.doc "Filter by participant type (sender or receiver)."];
      maxResults: ListChannelHandshakesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      statuses: HandshakeStatusList.t option
        [@ocaml.doc "Filter results by handshake status."];
      associatedResourceIdentifiers:
        AssociatedResourceIdentifierList.t option
        [@ocaml.doc "Filter by associated resource identifiers."];
      handshakeTypeFilters: ListChannelHandshakesTypeFilters.t option
        [@ocaml.doc "Type-specific filters for handshakes."];
      handshakeTypeSort: ListChannelHandshakesTypeSort.t option
        [@ocaml.doc "Type-specific sorting options for handshakes."];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for retrieving the next page of results."]}
    let context_ = "ListChannelHandshakesRequest"
    let make ?maxResults =
      fun ?statuses ->
        fun ?associatedResourceIdentifiers ->
          fun ?handshakeTypeFilters ->
            fun ?handshakeTypeSort ->
              fun ?nextToken ->
                fun ~handshakeType ->
                  fun ~catalog ->
                    fun ~participantType ->
                      fun () ->
                        {
                          maxResults;
                          statuses;
                          associatedResourceIdentifiers;
                          handshakeTypeFilters;
                          handshakeTypeSort;
                          nextToken;
                          handshakeType;
                          catalog;
                          participantType
                        }
    let to_value x =
      structure_to_value
        [("handshakeType", (Some (HandshakeType.to_value x.handshakeType)));
        ("catalog", (Some (Catalog.to_value x.catalog)));
        ("participantType",
          (Some (ParticipantType.to_value x.participantType)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListChannelHandshakesRequestMaxResultsInteger.to_value));
        ("statuses", (Option.map x.statuses ~f:HandshakeStatusList.to_value));
        ("associatedResourceIdentifiers",
          (Option.map x.associatedResourceIdentifiers
             ~f:AssociatedResourceIdentifierList.to_value));
        ("handshakeTypeFilters",
          (Option.map x.handshakeTypeFilters
             ~f:ListChannelHandshakesTypeFilters.to_value));
        ("handshakeTypeSort",
          (Option.map x.handshakeTypeSort
             ~f:ListChannelHandshakesTypeSort.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 handshakeTypeSort =
        (Option.map ~f:ListChannelHandshakesTypeSort.of_xml)
          (Xml.child xml_arg0 "handshakeTypeSort") in
      let handshakeTypeFilters =
        (Option.map ~f:ListChannelHandshakesTypeFilters.of_xml)
          (Xml.child xml_arg0 "handshakeTypeFilters") in
      let associatedResourceIdentifiers =
        (Option.map ~f:AssociatedResourceIdentifierList.of_xml)
          (Xml.child xml_arg0 "associatedResourceIdentifiers") in
      let statuses =
        (Option.map ~f:HandshakeStatusList.of_xml)
          (Xml.child xml_arg0 "statuses") in
      let maxResults =
        (Option.map ~f:ListChannelHandshakesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let participantType =
        ParticipantType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "participantType") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      let handshakeType =
        HandshakeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "handshakeType") in
      make ?nextToken ?handshakeTypeSort ?handshakeTypeFilters
        ?associatedResourceIdentifiers ?statuses ?maxResults ~participantType
        ~catalog ~handshakeType ()
    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 handshakeTypeSort =
        field_map json__ "handshakeTypeSort"
          ListChannelHandshakesTypeSort.of_json in
      let handshakeTypeFilters =
        field_map json__ "handshakeTypeFilters"
          ListChannelHandshakesTypeFilters.of_json in
      let associatedResourceIdentifiers =
        field_map json__ "associatedResourceIdentifiers"
          AssociatedResourceIdentifierList.of_json in
      let statuses = field_map json__ "statuses" HandshakeStatusList.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListChannelHandshakesRequestMaxResultsInteger.of_json in
      let participantType =
        field_map_exn json__ "participantType" ParticipantType.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      let handshakeType =
        field_map_exn json__ "handshakeType" HandshakeType.of_json in
      make ?nextToken ?handshakeTypeSort ?handshakeTypeFilters
        ?associatedResourceIdentifiers ?statuses ?maxResults ~participantType
        ~catalog ~handshakeType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists channel handshakes based on specified criteria."]
module GetRelationshipResponse =
  struct
    type nonrec t =
      {
      relationshipDetail: RelationshipDetail.t option
        [@ocaml.doc "Details of the requested relationship."]}
    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 ?relationshipDetail = fun () -> { relationshipDetail }
    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
        [("relationshipDetail",
           (Option.map x.relationshipDetail ~f:RelationshipDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relationshipDetail =
        (Option.map ~f:RelationshipDetail.of_xml)
          (Xml.child xml_arg0 "relationshipDetail") in
      make ?relationshipDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relationshipDetail =
        field_map json__ "relationshipDetail" RelationshipDetail.of_json in
      make ?relationshipDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details of a specific partner relationship."]
module GetRelationshipRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the relationship."];
      programManagementAccountIdentifier:
        ProgramManagementAccountIdentifier.t
        [@ocaml.doc
          "The identifier of the program management account associated with the relationship."];
      identifier: RelationshipIdentifier.t
        [@ocaml.doc "The unique identifier of the relationship to retrieve."]}
    let context_ = "GetRelationshipRequest"
    let make ~catalog =
      fun ~programManagementAccountIdentifier ->
        fun ~identifier ->
          fun () ->
            { catalog; programManagementAccountIdentifier; identifier }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("programManagementAccountIdentifier",
          (Some
             (ProgramManagementAccountIdentifier.to_value
                x.programManagementAccountIdentifier)));
        ("identifier", (Some (RelationshipIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        RelationshipIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      let programManagementAccountIdentifier =
        ProgramManagementAccountIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "programManagementAccountIdentifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      make ~identifier ~programManagementAccountIdentifier ~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" RelationshipIdentifier.of_json in
      let programManagementAccountIdentifier =
        field_map_exn json__ "programManagementAccountIdentifier"
          ProgramManagementAccountIdentifier.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ~identifier ~programManagementAccountIdentifier ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details of a specific partner relationship."]
module DeleteRelationshipResponse =
  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 "Deletes a partner relationship."]
module DeleteRelationshipRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the relationship."];
      identifier: RelationshipIdentifier.t
        [@ocaml.doc "The unique identifier of the relationship to delete."];
      programManagementAccountIdentifier:
        ProgramManagementAccountIdentifier.t
        [@ocaml.doc
          "The identifier of the program management account associated with the relationship."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteRelationshipRequest"
    let make ?clientToken =
      fun ~catalog ->
        fun ~identifier ->
          fun ~programManagementAccountIdentifier ->
            fun () ->
              {
                clientToken;
                catalog;
                identifier;
                programManagementAccountIdentifier
              }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier", (Some (RelationshipIdentifier.to_value x.identifier)));
        ("programManagementAccountIdentifier",
          (Some
             (ProgramManagementAccountIdentifier.to_value
                x.programManagementAccountIdentifier)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let programManagementAccountIdentifier =
        ProgramManagementAccountIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "programManagementAccountIdentifier") in
      let identifier =
        RelationshipIdentifier.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 ~programManagementAccountIdentifier ~identifier
        ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let programManagementAccountIdentifier =
        field_map_exn json__ "programManagementAccountIdentifier"
          ProgramManagementAccountIdentifier.of_json in
      let identifier =
        field_map_exn json__ "identifier" RelationshipIdentifier.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?clientToken ~programManagementAccountIdentifier ~identifier
        ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a partner relationship."]
module DeleteProgramManagementAccountResponse =
  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 "Deletes a program management account."]
module DeleteProgramManagementAccountRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier for the program management account."];
      identifier: ProgramManagementAccountIdentifier.t
        [@ocaml.doc
          "The unique identifier of the program management account to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."]}
    let context_ = "DeleteProgramManagementAccountRequest"
    let make ?clientToken =
      fun ~catalog ->
        fun ~identifier -> fun () -> { clientToken; catalog; identifier }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier",
          (Some (ProgramManagementAccountIdentifier.to_value x.identifier)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let identifier =
        ProgramManagementAccountIdentifier.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 json__ "clientToken" ClientToken.of_json in
      let identifier =
        field_map_exn json__ "identifier"
          ProgramManagementAccountIdentifier.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 "Deletes a program management account."]
module CreateRelationshipResponse =
  struct
    type nonrec t =
      {
      relationshipDetail: CreateRelationshipDetail.t option
        [@ocaml.doc "Details of the created relationship."]}
    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 ?relationshipDetail = fun () -> { relationshipDetail }
    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
        [("relationshipDetail",
           (Option.map x.relationshipDetail
              ~f:CreateRelationshipDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relationshipDetail =
        (Option.map ~f:CreateRelationshipDetail.of_xml)
          (Xml.child xml_arg0 "relationshipDetail") in
      make ?relationshipDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relationshipDetail =
        field_map json__ "relationshipDetail"
          CreateRelationshipDetail.of_json in
      make ?relationshipDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new partner relationship between accounts."]
module CreateRelationshipRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the relationship."];
      associationType: AssociationType.t
        [@ocaml.doc
          "The type of association for the relationship (e.g., reseller, distributor)."];
      programManagementAccountIdentifier:
        ProgramManagementAccountIdentifier.t
        [@ocaml.doc
          "The identifier of the program management account for this relationship."];
      associatedAccountId: AccountId.t
        [@ocaml.doc "The AWS account ID to associate in this relationship."];
      displayName: RelationshipDisplayName.t
        [@ocaml.doc "A human-readable name for the relationship."];
      resaleAccountModel: ResaleAccountModel.t option
        [@ocaml.doc "The resale account model for the relationship."];
      sector: Sector.t
        [@ocaml.doc "The business sector for the relationship."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."];
      tags: TagList.t option
        [@ocaml.doc "Key-value pairs to associate with the relationship."];
      requestedSupportPlan: SupportPlan.t option
        [@ocaml.doc "The support plan requested for this relationship."]}
    let context_ = "CreateRelationshipRequest"
    let make ?resaleAccountModel =
      fun ?clientToken ->
        fun ?tags ->
          fun ?requestedSupportPlan ->
            fun ~catalog ->
              fun ~associationType ->
                fun ~programManagementAccountIdentifier ->
                  fun ~associatedAccountId ->
                    fun ~displayName ->
                      fun ~sector ->
                        fun () ->
                          {
                            resaleAccountModel;
                            clientToken;
                            tags;
                            requestedSupportPlan;
                            catalog;
                            associationType;
                            programManagementAccountIdentifier;
                            associatedAccountId;
                            displayName;
                            sector
                          }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("associationType",
          (Some (AssociationType.to_value x.associationType)));
        ("programManagementAccountIdentifier",
          (Some
             (ProgramManagementAccountIdentifier.to_value
                x.programManagementAccountIdentifier)));
        ("associatedAccountId",
          (Some (AccountId.to_value x.associatedAccountId)));
        ("displayName",
          (Some (RelationshipDisplayName.to_value x.displayName)));
        ("resaleAccountModel",
          (Option.map x.resaleAccountModel ~f:ResaleAccountModel.to_value));
        ("sector", (Some (Sector.to_value x.sector)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("requestedSupportPlan",
          (Option.map x.requestedSupportPlan ~f:SupportPlan.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestedSupportPlan =
        (Option.map ~f:SupportPlan.of_xml)
          (Xml.child xml_arg0 "requestedSupportPlan") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let sector =
        Sector.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sector") in
      let resaleAccountModel =
        (Option.map ~f:ResaleAccountModel.of_xml)
          (Xml.child xml_arg0 "resaleAccountModel") in
      let displayName =
        RelationshipDisplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "displayName") in
      let associatedAccountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associatedAccountId") in
      let programManagementAccountIdentifier =
        ProgramManagementAccountIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "programManagementAccountIdentifier") in
      let associationType =
        AssociationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associationType") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      make ?requestedSupportPlan ?tags ?clientToken ~sector
        ?resaleAccountModel ~displayName ~associatedAccountId
        ~programManagementAccountIdentifier ~associationType ~catalog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestedSupportPlan =
        field_map json__ "requestedSupportPlan" SupportPlan.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let sector = field_map_exn json__ "sector" Sector.of_json in
      let resaleAccountModel =
        field_map json__ "resaleAccountModel" ResaleAccountModel.of_json in
      let displayName =
        field_map_exn json__ "displayName" RelationshipDisplayName.of_json in
      let associatedAccountId =
        field_map_exn json__ "associatedAccountId" AccountId.of_json in
      let programManagementAccountIdentifier =
        field_map_exn json__ "programManagementAccountIdentifier"
          ProgramManagementAccountIdentifier.of_json in
      let associationType =
        field_map_exn json__ "associationType" AssociationType.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?requestedSupportPlan ?tags ?clientToken ~sector
        ?resaleAccountModel ~displayName ~associatedAccountId
        ~programManagementAccountIdentifier ~associationType ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new partner relationship between accounts."]
module CreateProgramManagementAccountResponse =
  struct
    type nonrec t =
      {
      programManagementAccountDetail:
        CreateProgramManagementAccountDetail.t option
        [@ocaml.doc "Details of the created program management account."]}
    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 ?programManagementAccountDetail =
      fun () -> { programManagementAccountDetail }
    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
        [("programManagementAccountDetail",
           (Option.map x.programManagementAccountDetail
              ~f:CreateProgramManagementAccountDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let programManagementAccountDetail =
        (Option.map ~f:CreateProgramManagementAccountDetail.of_xml)
          (Xml.child xml_arg0 "programManagementAccountDetail") in
      make ?programManagementAccountDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let programManagementAccountDetail =
        field_map json__ "programManagementAccountDetail"
          CreateProgramManagementAccountDetail.of_json in
      make ?programManagementAccountDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new program management account for managing partner relationships."]
module CreateProgramManagementAccountRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc
          "The catalog identifier for the program management account."];
      program: Program.t
        [@ocaml.doc "The program type for the management account."];
      displayName: ProgramManagementAccountDisplayName.t
        [@ocaml.doc
          "A human-readable name for the program management account."];
      accountId: AccountId.t
        [@ocaml.doc
          "The AWS account ID to associate with the program management account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."];
      tags: TagList.t option
        [@ocaml.doc
          "Key-value pairs to associate with the program management account."]}
    let context_ = "CreateProgramManagementAccountRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~catalog ->
          fun ~program ->
            fun ~displayName ->
              fun ~accountId ->
                fun () ->
                  {
                    clientToken;
                    tags;
                    catalog;
                    program;
                    displayName;
                    accountId
                  }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("program", (Some (Program.to_value x.program)));
        ("displayName",
          (Some (ProgramManagementAccountDisplayName.to_value x.displayName)));
        ("accountId", (Some (AccountId.to_value x.accountId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let accountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      let displayName =
        ProgramManagementAccountDisplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "displayName") in
      let program =
        Program.of_xml (Xml.child_exn ~context:context_ xml_arg0 "program") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      make ?tags ?clientToken ~accountId ~displayName ~program ~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 clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let accountId = field_map_exn json__ "accountId" AccountId.of_json in
      let displayName =
        field_map_exn json__ "displayName"
          ProgramManagementAccountDisplayName.of_json in
      let program = field_map_exn json__ "program" Program.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      make ?tags ?clientToken ~accountId ~displayName ~program ~catalog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new program management account for managing partner relationships."]
module CreateChannelHandshakeResponse =
  struct
    type nonrec t =
      {
      channelHandshakeDetail: CreateChannelHandshakeDetail.t option
        [@ocaml.doc "Details of the created channel handshake."]}
    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 ?channelHandshakeDetail = fun () -> { channelHandshakeDetail }
    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
        [("channelHandshakeDetail",
           (Option.map x.channelHandshakeDetail
              ~f:CreateChannelHandshakeDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelHandshakeDetail =
        (Option.map ~f:CreateChannelHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "channelHandshakeDetail") in
      make ?channelHandshakeDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelHandshakeDetail =
        field_map json__ "channelHandshakeDetail"
          CreateChannelHandshakeDetail.of_json in
      make ?channelHandshakeDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new channel handshake request to establish a partnership with another AWS account."]
module CreateChannelHandshakeRequest =
  struct
    type nonrec t =
      {
      handshakeType: HandshakeType.t
        [@ocaml.doc
          "The type of handshake to create (e.g., start service period, revoke service period)."];
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the handshake request."];
      associatedResourceIdentifier: AssociatedResourceIdentifier.t
        [@ocaml.doc
          "The identifier of the resource associated with this handshake."];
      payload: ChannelHandshakePayload.t option
        [@ocaml.doc
          "The payload containing specific details for the handshake type."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier to ensure idempotency of the request."];
      tags: TagList.t option
        [@ocaml.doc
          "Key-value pairs to associate with the channel handshake."]}
    let context_ = "CreateChannelHandshakeRequest"
    let make ?payload =
      fun ?clientToken ->
        fun ?tags ->
          fun ~handshakeType ->
            fun ~catalog ->
              fun ~associatedResourceIdentifier ->
                fun () ->
                  {
                    payload;
                    clientToken;
                    tags;
                    handshakeType;
                    catalog;
                    associatedResourceIdentifier
                  }
    let to_value x =
      structure_to_value
        [("handshakeType", (Some (HandshakeType.to_value x.handshakeType)));
        ("catalog", (Some (Catalog.to_value x.catalog)));
        ("associatedResourceIdentifier",
          (Some
             (AssociatedResourceIdentifier.to_value
                x.associatedResourceIdentifier)));
        ("payload",
          (Option.map x.payload ~f:ChannelHandshakePayload.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let payload =
        (Option.map ~f:ChannelHandshakePayload.of_xml)
          (Xml.child xml_arg0 "payload") in
      let associatedResourceIdentifier =
        AssociatedResourceIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "associatedResourceIdentifier") in
      let catalog =
        Catalog.of_xml (Xml.child_exn ~context:context_ xml_arg0 "catalog") in
      let handshakeType =
        HandshakeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "handshakeType") in
      make ?tags ?clientToken ?payload ~associatedResourceIdentifier ~catalog
        ~handshakeType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let payload =
        field_map json__ "payload" ChannelHandshakePayload.of_json in
      let associatedResourceIdentifier =
        field_map_exn json__ "associatedResourceIdentifier"
          AssociatedResourceIdentifier.of_json in
      let catalog = field_map_exn json__ "catalog" Catalog.of_json in
      let handshakeType =
        field_map_exn json__ "handshakeType" HandshakeType.of_json in
      make ?tags ?clientToken ?payload ~associatedResourceIdentifier ~catalog
        ~handshakeType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new channel handshake request to establish a partnership with another AWS account."]
module CancelChannelHandshakeResponse =
  struct
    type nonrec t =
      {
      channelHandshakeDetail: CancelChannelHandshakeDetail.t option
        [@ocaml.doc "Details of the canceled channel handshake."]}
    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 ?channelHandshakeDetail = fun () -> { channelHandshakeDetail }
    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
        [("channelHandshakeDetail",
           (Option.map x.channelHandshakeDetail
              ~f:CancelChannelHandshakeDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelHandshakeDetail =
        (Option.map ~f:CancelChannelHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "channelHandshakeDetail") in
      make ?channelHandshakeDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelHandshakeDetail =
        field_map json__ "channelHandshakeDetail"
          CancelChannelHandshakeDetail.of_json in
      make ?channelHandshakeDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels a pending channel handshake request."]
module CancelChannelHandshakeRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the handshake request."];
      identifier: ChannelHandshakeIdentifier.t
        [@ocaml.doc
          "The unique identifier of the channel handshake to cancel."]}
    let context_ = "CancelChannelHandshakeRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier",
          (Some (ChannelHandshakeIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        ChannelHandshakeIdentifier.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" ChannelHandshakeIdentifier.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 "Cancels a pending channel handshake request."]
module AcceptChannelHandshakeResponse =
  struct
    type nonrec t =
      {
      channelHandshakeDetail: AcceptChannelHandshakeDetail.t option
        [@ocaml.doc "Details of the accepted channel handshake."]}
    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 ?channelHandshakeDetail = fun () -> { channelHandshakeDetail }
    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
        [("channelHandshakeDetail",
           (Option.map x.channelHandshakeDetail
              ~f:AcceptChannelHandshakeDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelHandshakeDetail =
        (Option.map ~f:AcceptChannelHandshakeDetail.of_xml)
          (Xml.child xml_arg0 "channelHandshakeDetail") in
      make ?channelHandshakeDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelHandshakeDetail =
        field_map json__ "channelHandshakeDetail"
          AcceptChannelHandshakeDetail.of_json in
      make ?channelHandshakeDetail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a pending channel handshake request from another AWS account."]
module AcceptChannelHandshakeRequest =
  struct
    type nonrec t =
      {
      catalog: Catalog.t
        [@ocaml.doc "The catalog identifier for the handshake request."];
      identifier: ChannelHandshakeIdentifier.t
        [@ocaml.doc
          "The unique identifier of the channel handshake to accept."]}
    let context_ = "AcceptChannelHandshakeRequest"
    let make ~catalog = fun ~identifier -> fun () -> { catalog; identifier }
    let to_value x =
      structure_to_value
        [("catalog", (Some (Catalog.to_value x.catalog)));
        ("identifier",
          (Some (ChannelHandshakeIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        ChannelHandshakeIdentifier.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" ChannelHandshakeIdentifier.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
       "Accepts a pending channel handshake request from another AWS account."]